stack-as-data: fix everything.

[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..d11af28aef1f30b08d93f7cbb80ae60c29c13d45 100644 (file)
--- a/extra/stack-as-data/stack-as-data-tests.factor
+++ b/extra/stack-as-data/stack-as-data-tests.factor
@@ -3,21 +3,19 @@
 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 }
 [
     5 6 7 8
     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
+] unit-test
\ No newline at end of file