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

Integration testing

Browse source
This commit is contained in:
Justin Ethier 2018-01-22 19:01:05 -05:00
parent 7dcc529e3d
commit 68286e7ecd
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
match-simple.scm
View file

@ -146,7 +146,10 @@
; (begin . body)) ; (begin . body))
; ((_ ((pat expr) . rest) . body) ; ((_ ((pat expr) . rest) . body)
; (match expr (pat (match-let* rest . body)))))) ; (match expr (pat (match-let* rest . body))))))
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; match-simple ends, this is the unit test section:
;(define tst ;(define tst
; (match-lambda ; (match-lambda
; ((a b) (vector 'fromlist a b)) ; ((a b) (vector 'fromlist a b))
@ -158,6 +161,10 @@
;(display (tst "gehtdurch")) ;(display (tst "gehtdurch"))
;(display (tst 42)) ;(display (tst 42))
(display (match "test" ((? string? x) x))) (display (match
'(a . b) ;;"test"
((? pair? x) x)
((? string? x) x)
(_ 'no-match)
))