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

WIP, figuring out which cases pass/fail

Browse source
This commit is contained in:
Justin Ethier 2018-01-24 17:25:01 -05:00
parent e087540b33
commit d18702e346
1 changed files with 35 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
match-test.scm
View file

@ -1,8 +1,41 @@
(import
(scheme base)
(scheme write)
(match-test-lib)
;(match-test-lib)
(chibi match)
)
;(display (match (list 1 2 3) ((a b c) b)) )(newline)
;(display (match (list 1 2 3) (`(1 ,b ,c) (list b c))) )(newline)
(display (match (list 1 2 3) ((a b c) b)) )(newline)
(display (match (list 1 2 3) (`(1 ,b ,c) (list b c))) )(newline)
(display (match (list 1 2 1) ((a a b) 1) ((a b a) 2)))(newline)
(display (match (list 1 2 1) ((_ _ b) 1) ((a b a) 2)) )(newline)
(display (match 'a ('b 1) ('a 2)) )(newline)
;(display (match (list 1 2 3) (`(1 ,b ,c) (list b c))) )(newline)
(display (match (list 1 2) ((1 2 3 ...) #t)) )(newline)
(display (match (list 1 2 3) ((1 2 3 ...) #t)) )(newline)
(display (match (list 1 2 3 3 3) ((1 2 3 ...) #t)) )(newline)
(display (match (list 1 2) ((a b c ...) c)) )(newline)
(display (match (list 1 2 3) ((a b c ...) c)) )(newline)
(display (match (list 1 2 3 4 5) ((a b c ...) c)) )(newline)
(display (match (list 1 2 3 4) ((a b c ... d e) c)) )(newline)
(display (match (list 1 2 3 4 5) ((a b c ... d e) c)) )(newline)
(display (match (list 1 2 3 4 5 6 7) ((a b c ... d e) c)) )(newline)
;;; Pattern not matched
;(display (match (list 1 2) ((a b c ..1) c)) )(newline)
;;; Should have matched??
;(display (match (list 1 2 3) ((a b c ..1) c)) )(newline)
;(display (match 1 ((and) #t)) )(newline)
;(display (match 1 ((and x) x)) )(newline)
;(display (match 1 ((and x 1) x)) )(newline)
(display (match 1 ((or) #t) (else #f)) )(newline)
;(display (match 1 ((or x) x)) )(newline)
;;(display (match 1 ((or x 2) x)) )(newline)
(display (match 1 ((not 2) #t)) )(newline)
;(display (match 1 ((? odd? x) x)) )(newline)
(display (match '(1 . 2) ((= car x) x)) )(newline)
(display (match 4 ((= square x) x)) )(newline)