Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

More test cases

Browse source
This commit is contained in:
Justin Ethier 2018-01-31 16:03:12 -05:00
parent 875583655a
commit 11b02a618b
1 changed files with 33 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
tests/match-tests.scm
View file

@ -90,7 +90,38 @@
(($ employee n t) (list t n)))) (($ employee n t) (list t n))))
) )
(test-group (define lst 1)
(display
(match
lst
((? string? s) s)
(else 0)
)
)
(define (calc-time lst)
(match
lst
((? string? s) s)
(else 0)
;(() 0)
; ((and (? number? n) (or s seconds sec) ) ;. rest)
; (+ (* #e1 n) )) ;(calc-time rest)))
; (((and (? number?) ?n) (or m min minutes) . ?rest)
; (+ (* #e60 n) (calc-time rest)))
; (((and (? number?) ?n) (or hours h) . ?rest)
; (+ (* #e60 60 n) (calc-time rest)))
; (((and (? number?) ?n) (or d days day) . ?rest)
; (+ (* #e60 60 24 n) (calc-time rest)))
; (((and (? number?) ?n) (or w week weeks) . ?rest)
; (+ (* #e60 60 24 7 n) (calc-time rest)))
))
(display
(list
(calc-time (10 's))
))
#;(test-group
"predicates" "predicates"
(test "test" (match "test" ((? string? s) s) (else #f))) (test "test" (match "test" ((? string? s) s) (else #f)))
@ -98,7 +129,7 @@
(test #f (match 42 (X #f))) (test #f (match 42 (X #f)))
) )
(test-group #;(test-group
"official tests" "official tests"
(test 2 (match (list 1 2 3) ((a b c) b)) ) (test 2 (match (list 1 2 3) ((a b c) b)) )