add tests for list comprehension

itchyny · May 20, 2017 · c39e23e · c39e23e
1 parent 49f392f
commit c39e23e
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/test/list/comprehension_multi_line2.in.hs b/test/list/comprehension_multi_line2.in.hs
@@ -0,0 +1,9 @@
+z = (x, y)
+where x = [ n * n
+| n <- [1..]
+, odd n
+, isPrime n ]
+y = [ n * n
+| n <- [1..]
+, even n
+, isPrime (n `div` 2) ]
diff --git a/test/list/comprehension_multi_line2.out.hs b/test/list/comprehension_multi_line2.out.hs
@@ -0,0 +1,9 @@
+z = (x, y)
+  where x = [ n * n
+              | n <- [1..]
+              , odd n
+              , isPrime n ]
+        y = [ n * n
+              | n <- [1..]
+              , even n
+              , isPrime (n `div` 2) ]