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)")