%%%------------------------------------------------------------------- %%% File : test_comprehensions.erl %%% Author : Per Gustafsson <pergu@jobberl> %%% Description : Test module to see that pretty printing etc. %%% works on extended comprehensions %%% Created : 15 Oct 2007 by Per Gustafsson <pergu@jobberl> %%%------------------------------------------------------------------- -module(test_comprehensions). -compile(binary_comprehension). -export([test/0]). test() -> {bbc(),llc(),blc(),lbc(),bblc(),lblc()}. binary() -> <<1,2,3>>. list() -> [1,2,3]. bbc() -> << <<X>> || <<X>> <= binary(), X > 1 >>. llc() -> [X || X <- list(), X > 1]. blc() -> << <<X>> || X <- list(), X > 1 >>. lbc() -> [X || <<X>> <= binary(), X > 1]. bblc() -> << <<(X+Y)>> || <<X>> <= binary(), Y <- list(), X > 1 >>. lblc() -> [(X+Y) || <<X>> <= binary(), Y <- list(), X > 1].