blob: ede9caeaedabd9ac972efad5a2de193afcaf7349 (
plain) (
tree)
|
|
%%%-------------------------------------------------------------------
%%% 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].
|
