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