added a test case for just creating a snip% (but the test case doesnt run yet)

svn: r16131
2009-09-26 15:38:35 +00:00 · 2009-09-26 15:38:35 +00:00 · 9b8c2d15cc
commit 9b8c2d15cc
parent cde6f8818b
1 changed files with 16 additions and 1 deletions
--- a/collects/tests/drscheme/repl-test.ss
+++ b/collects/tests/drscheme/repl-test.ss
@ -81,7 +81,7 @@ This produces an ACK message

 (define test-data
  (list
-   
+#|   
   ;; basic tests
   (mktest "1"
           ("1"
@ -840,6 +840,21 @@ This produces an ACK message
           void
           void)
   
+   |#
+
+(mktest "(new snip%)"
+           ("1"
+            "1"
+            "1"
+            "1"
+            "1"
+            "1")
+           'interactions
+           #f 
+           void
+           void)
+           
+   
   ;; graphical lambda tests
   (mktest (list "((" '("Insert" "Insert λ") "(x) x) 1)")