From 9b8c2d15cce6d980304fddb2b0d5e61cff27fbbc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 26 Sep 2009 15:38:35 +0000 Subject: [PATCH] added a test case for just creating a snip% (but the test case doesnt run yet) svn: r16131 --- collects/tests/drscheme/repl-test.ss | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/collects/tests/drscheme/repl-test.ss b/collects/tests/drscheme/repl-test.ss index 4090797852..6d89c636b5 100644 --- 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)")