factor: add newlines to .factor files

[factor.git] / extra / stack-as-data / stack-as-data-tests.factor

diff --git a/extra/stack-as-data/stack-as-data-tests.factor b/extra/stack-as-data/stack-as-data-tests.factor
index b8bb3a7c987523b6429bf696555d13c6f53fa0b8..a8418121b9d0cdd2ad5c079e494e7fd1228a10a2 100644 (file)
--- a/extra/stack-as-data/stack-as-data-tests.factor
+++ b/extra/stack-as-data/stack-as-data-tests.factor
@@ -3,12 +3,16 @@
 USING: math stack-as-data tools.test ;
 IN: stack-as-data.tests
 
-{ V{ 6 8 } }
-[
-    5 6 7 8
-    4 [ even? ] stack-filter
-] unit-test
+{ 10 20 30 50 40 } [ 10 20 30 40 50  0 1 stack-exchange ] unit-test
+{ 20 10 30 40 50 } [ 10 20 30 40 50  4 3 stack-exchange ] unit-test
+{ 20 10 30 40 50 } [ 10 20 30 40 50  3 4 stack-exchange ] unit-test
+{ 10 20 30 40 50 } [ 10 20 30 40 50  0 0 stack-exchange ] unit-test
 
+! { V{ 6 8 } }
+! [
+!     5 6 7 8
+!     4 [ even? ] stack-filter
+! ] unit-test
 
 { 25 36 49 64 }
 [
@@ -16,8 +20,3 @@ IN: stack-as-data.tests
     4 [ sq ] stack-map
 ] unit-test
 
-
-{ 10 20 30 50 40 } [ 10 20 30 40 50  0 1 stack-exchange ] unit-test
-{ 20 10 30 40 50 } [ 10 20 30 40 50  4 3 stack-exchange ] unit-test
-{ 20 10 30 40 50 } [ 10 20 30 40 50  3 4 stack-exchange ] unit-test
-{ 10 20 30 40 50 } [ 10 20 30 40 50  0 0 stack-exchange ] unit-test
\ No newline at end of file