move ssyntax tests to new test framework.

zck · zck · commit 9634ca2b593e · 2014-05-01T01:19:50.000-04:00
diff --git a/arc.arc.t b/arc.arc.t
@@ -17,3 +17,36 @@
        returns-final-form (assert-same 34
                                        (let x 1
                                             (do ++.x ++.x 34))))
+
+(suite ssyntax
+       ssyntax? (assert-nil ($.ssyntax? 'car))
+
+       infix (assert-t ($.ssyntax? 'car.body))
+
+       expand-ssyntax-infix (assert-same '(car body)
+                                         ($.expand-ssyntax 'car.body))
+
+       ssyntax?-!-prefix (assert-t ($.ssyntax? '!a))
+
+       expand-ssyntax-!-prefix (assert-same '(get 'a)
+                                            ($.expand-ssyntax '!a))
+
+       ssyntax?-!-infix (assert-t ($.ssyntax? 'car!body))
+
+       expand-ssyntax-!-infix (assert-same '(car 'body)
+                                           ($.expand-ssyntax 'car!body))
+
+       ssyntax?-:-infix (assert-t ($.ssyntax? 'f:g))
+
+       expand-ssyntax-:-infix (assert-same '(compose f g)
+                                           ($.expand-ssyntax 'f:g))
+
+       ssyntax?-~-prefix (assert-t ($.ssyntax? '~f))
+
+       expand-ssyntax-~-prefix (assert-same '(complement f)
+                                            ($.expand-ssyntax '~f))
+
+       ssyntax?-&-infix (assert-t ($.ssyntax? 'f&g))
+
+       expand-ssyntax-&-infix (assert-same '(andf f g)
+                                           ($.expand-ssyntax 'f&g)))
diff --git a/arc.arc.t.old b/arc.arc.t.old
@@ -1,49 +1,3 @@
-(test "ssyntax?"
-  (not ($.ssyntax? 'car)))
-
-(test "ssyntax? . infix"
-  ($.ssyntax? 'car.body))
-
-(test-iso "expand-ssyntax . infix"
-  '(car body)
-  ($.expand-ssyntax 'car.body))
-
-(test "ssyntax? ! prefix"
-  ($.ssyntax? '!a))
-
-(test-iso "expand-ssyntax ! prefix"
-  '(get 'a)
-  ($.expand-ssyntax '!a))
-
-(test "ssyntax? ! infix"
-  ($.ssyntax? 'car!body))
-
-(test-iso "expand-ssyntax ! infix"
-  '(car 'body)
-  ($.expand-ssyntax 'car!body))
-
-(test "ssyntax? : infix"
-  ($.ssyntax? 'f:g))
-
-(test-iso "expand-ssyntax : infix"
-  '(compose f g)
-  ($.expand-ssyntax 'f:g))
-
-(test "ssyntax? ~ prefix"
-  ($.ssyntax? '~f))
-
-(test-iso "expand-ssyntax ~ prefix"
-  '(complement f)
-  ($.expand-ssyntax '~f))
-
-(test "ssyntax? & infix"
-  ($.ssyntax? 'f&g))
-
-(test-iso "expand-ssyntax & infix"
-  '(andf f g)
-  ($.expand-ssyntax 'f&g))
-
-
 (test-iso "break works with for"
   '(1 x 2 x 3)
   (accum acc
