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

Disabled some tests as they take took long to run

Browse Source
This commit is contained in:
William J. Bowman 2016-01-09 04:24:05 -05:00
parent e03cbfc1e4
commit 1b01c48df5
No known key found for this signature in database
GPG Key ID: DDD48D26958F0D1A
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
stdlib/nat.rkt
View File

@ -45,8 +45,8 @@
[(s (x : Nat))
(mult e (recur x))]))
(module+ test
(check-equal? (exp z z) (s z))
(check-equal? (exp (s (s z)) z) z))
#;(check-equal? (exp z z) (s z))
#;(check-equal? (exp (s z) z) z))
(define square (run (exp (s (s z)))))
;; TODO: This test takes too long t run
@ -97,6 +97,6 @@
(check-equal?
(odd? (s (s z)))
false)
(check-equal?
#;(check-equal?
(odd? (s (s (s z))))
true))