From df8416ec00b153a22adeb058d3ea1137552bce91 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Thu, 18 Apr 2013 12:33:02 -0600 Subject: [PATCH] testing --- whalesong/repl-prototype/htdocs/tests.js | 18 ------------------ .../more-tests/gauss-sum-with-prompts.expected | 1 + .../more-tests/gauss-sum-with-prompts.rkt | 17 +++++++++++++++++ whalesong/tests/run-more-tests.rkt | 3 ++- 4 files changed, 20 insertions(+), 19 deletions(-) create mode 100644 whalesong/tests/more-tests/gauss-sum-with-prompts.expected create mode 100644 whalesong/tests/more-tests/gauss-sum-with-prompts.rkt diff --git a/whalesong/repl-prototype/htdocs/tests.js b/whalesong/repl-prototype/htdocs/tests.js index decacdd..f22b51e 100644 --- a/whalesong/repl-prototype/htdocs/tests.js +++ b/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)", diff --git a/whalesong/tests/more-tests/gauss-sum-with-prompts.expected b/whalesong/tests/more-tests/gauss-sum-with-prompts.expected new file mode 100644 index 0000000..c3ac783 --- /dev/null +++ b/whalesong/tests/more-tests/gauss-sum-with-prompts.expected @@ -0,0 +1 @@ +5050 diff --git a/whalesong/tests/more-tests/gauss-sum-with-prompts.rkt b/whalesong/tests/more-tests/gauss-sum-with-prompts.rkt new file mode 100644 index 0000000..f638d20 --- /dev/null +++ b/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) diff --git a/whalesong/tests/run-more-tests.rkt b/whalesong/tests/run-more-tests.rkt index 88a7d0a..78d0e1c 100644 --- a/whalesong/tests/run-more-tests.rkt +++ b/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") \ No newline at end of file +(test "more-tests/ramanujan-pi.rkt")