Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-01-31 16:08:12 -05:00
parent 11b02a618b
commit 68bc9a45c0
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/match-tests.scm
View file

@ -101,11 +101,13 @@
(define (calc-time lst) (define (calc-time lst)
(match (match
lst lst
((? string? s) s)
(else 0)
;(() 0) ;(() 0)
; ((and (? number? n) (or s seconds sec) ) ;. rest) (((? number? n) (or 's 'seconds 'sec) ) ;. rest)
(+ 0 (* #e1 n) )) ;(calc-time rest)))
;; TODO: interesting compiler error with this line:
; (+ (* #e1 n) )) ;(calc-time rest))) ; (+ (* #e1 n) )) ;(calc-time rest)))
(((? number? n) (or 'm 'min 'minutes) . rest)
(+ (* #e60 n) (calc-time rest)))
; (((and (? number?) ?n) (or m min minutes) . ?rest) ; (((and (? number?) ?n) (or m min minutes) . ?rest)
; (+ (* #e60 n) (calc-time rest))) ; (+ (* #e60 n) (calc-time rest)))
; (((and (? number?) ?n) (or hours h) . ?rest) ; (((and (? number?) ?n) (or hours h) . ?rest)
@ -114,11 +116,13 @@
; (+ (* #e60 60 24 n) (calc-time rest))) ; (+ (* #e60 60 24 n) (calc-time rest)))
; (((and (? number?) ?n) (or w week weeks) . ?rest) ; (((and (? number?) ?n) (or w week weeks) . ?rest)
; (+ (* #e60 60 24 7 n) (calc-time rest))) ; (+ (* #e60 60 24 7 n) (calc-time rest)))
(else 0)
)) ))
(newline)
(display (display
(list (list
(calc-time (10 's)) (calc-time '(5 min 10 sec))
)) ))
#;(test-group #;(test-group