Changeset 13975 in project

Timestamp:

03/27/09 20:22:09 (11 years ago)

Author:

sjamaan

Message:

Add test for exceptions

File:

• release/3/fancypants/tests/run.scm (modified) (1 diff)

release/3/fancypants/tests/run.scm

@@ -39 +39 @@
           '(p "The procedure \"number->string\" changes numbers into strings")
           (make-smart-quote-rules))
+         (make-fancy-rules)))
+  (test '(p "The procedure " (& "#x201c")
+            (code "number->string")
+            (& "#x201d") " changes numbers into strings")
+        (pre-post-order
+         (pre-post-order
+          '(p "The procedure \""
+              (code "number->string")
+              "\" changes numbers into strings")
+          (make-smart-quote-rules))
          (make-fancy-rules))))