testing

whalesong/repl-prototype/htdocs/tests.js

@@ -515,17 +515,6 @@ jQuery(document).ready(function() {
 		   "(on-tick 1 2)",
 		   "on-tick: expects a function name as 1st argument, but given: 1; other arguments were: 2");
     
-    queueErrorTest("on-tick! bad args amount",
-		   "(on-tick!)",
-		   "on-tick!: expects 2 or 3 arguments, but given 0");
-    
-    queueErrorTest("on-tick! given 2 bad args",
-		   "(on-tick! 1 2)",
-		   "on-tick!: expects a function name as 1st argument, but given: 1; other arguments were: 2");
-    
-    queueErrorTest("on-tick! given 3 bad args",
-		   "(on-tick! 1 2 3)",
-		   "on-tick!: expects a function name as 1st argument, but given: 1; other arguments were: 2 3");
 
     queueErrorTest("on-tap bad arg amount",
 		   "(on-tap)",
@@ -551,13 +540,6 @@ jQuery(document).ready(function() {
 		   "(on-key 1)",
 		   "on-key: expects a function name as 1st argument, but given: 1");
 
-    queueErrorTest("on-key! bad arg amount",
-		   "(on-key!)",
-		   "on-key!: expects 2 arguments, but given 0");
-    
-    queueErrorTest("on-key! bad arg a",
-		   "(on-key! 1 1)",
-		   "on-key!: expects a function name as 1st argument, but given: 1; other arguments were: 1");
 
     queueErrorTest("stop-when bad arg amount",
 		   "(stop-when)",

whalesong/tests/more-tests/gauss-sum-with-prompts.expected

@@ -0,0 +1 @@
+5050

whalesong/tests/more-tests/gauss-sum-with-prompts.rkt

@@ -0,0 +1,17 @@
+#lang whalesong
+
+(define (f i acc)
+  (cond [(> i 0)
+         (abort-current-continuation (default-continuation-prompt-tag)
+                                     (lambda ()
+                                       (f (sub1 i) (+ i acc))))
+         (printf "You should not see this\n")
+         (/ 1 0)]
+        [else
+         acc]))
+         
+(define (gauss i)
+  (call-with-continuation-prompt (lambda ()
+                                   (f i 0))))
+
+(gauss 100)

whalesong/tests/run-more-tests.rkt

@@ -6,6 +6,7 @@
 ;; content vs. a text file with the same name, but with the .rkt file
 ;; type replaced with .expected.
 
+(test "more-tests/gauss-sum-with-prompts.rkt")
 (test "more-tests/js-binding.rkt")
 (test "more-tests/simple.rkt")
 (test "more-tests/simple-loop.rkt")
@@ -53,4 +54,4 @@
 (test "more-tests/scheme-whalesong.rkt")
 (test "more-tests/nestedloop.rkt")
 (test "more-tests/nucleic2.rkt")
-(test "more-tests/ramanujan-pi.rkt")
+(test "more-tests/ramanujan-pi.rkt")