suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adding test for whalesong base as well

Browse Source
This commit is contained in:
Danny Yoo 2012-02-16 15:55:54 -05:00
parent a13274d63b
commit 1939e02553
6 changed files with 34 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/more-tests/cont-marks-2.expected Normal file
View File

@ -0,0 +1,2 @@
()
(3628800)

13
tests/more-tests/cont-marks-2.rkt Normal file
View File

@ -0,0 +1,13 @@
#lang planet dyoo/whalesong/base
(define (puzzle n)
(if (= n 0)
(continuation-mark-set->list (current-continuation-marks) 'secret)
(with-continuation-mark 'secret
(* n (first (continuation-mark-set->list (current-continuation-marks) 'secret)))
(puzzle (sub1 n)))))
(continuation-mark-set->list (current-continuation-marks) 'secret)
(with-continuation-mark 'secret 1
(puzzle 10))

5
tests/more-tests/fact.expected Normal file
View File

File diff suppressed because one or more lines are too long

12
tests/more-tests/fact.rkt Normal file
View File

@ -0,0 +1,12 @@
#lang planet dyoo/whalesong
(define (fact x)
(cond
[(= x 0)
1]
[else
(* x (fact (sub1 x)))]))
(fact 1)
(fact 10)
(fact 100)
(fact 1000)
(fact 10000)

1
tests/run-more-tests.rkt
View File

@ -17,6 +17,7 @@
(test "more-tests/printing.rkt") (test "more-tests/printing.rkt")
(test "more-tests/simple-functions.rkt") (test "more-tests/simple-functions.rkt")
(test "more-tests/cont-marks-1.rkt") (test "more-tests/cont-marks-1.rkt")
(test "more-tests/cont-marks-2.rkt")
(test "more-tests/map.rkt") (test "more-tests/map.rkt")
(test "more-tests/quasi.rkt") (test "more-tests/quasi.rkt")
(test "more-tests/sk-generator.rkt") (test "more-tests/sk-generator.rkt")

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version) (provide version)
(: version String) (: version String)
(define version "1.135") (define version "1.137")