artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Test optargs without pmatch.

Browse source 
* tests/optargs.test: Remove pmatch.
This commit is contained in:
Jan Nieuwenhuizen 2018-01-06 11:18:38 +01:00
parent 6f81fe41b0
commit d4f311c1df
1 changed files with 11 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
tests/optargs.test
View file

@ -58,9 +58,8 @@ exit $?
(pass-if-equal "optargs key default" #f ((lambda* (#:key (foo #f)) foo)))
(cond-expand
(guile (use-modules (system base pmatch)
(ice-9 optargs)))
(mes (mes-use-module (mes pmatch))))
(guile (use-modules (ice-9 optargs)))
(mes))
(define <info> '<info>)
(define <functions> '<functions>)
@ -69,12 +68,11 @@ exit $?
(define <text> '<text>)
(define* (make o #:key (functions '()) (globals '()) (locals '()) (text '()))
(pmatch o
(<info> (list <info>
(list <info>
(cons <functions> functions)
(cons <globals> globals)
(cons <locals> locals)
(cons <text> text)))))
(cons <text> text)))
;; (define* (make o #:key (functions '()) (globals '()) (locals '()) (text '()))
;; (format (current-error-port) "make\n")
@ -86,20 +84,16 @@ exit $?
;; (cons <text> text))))))
(define (.functions o)
(pmatch o
((<info> . ,alist) (assq-ref alist <functions>))))
(assq-ref (cdr o) <functions>))
(define (.globals o)
(pmatch o
((<info> . ,alist) (assq-ref alist <globals>))))
(assq-ref (cdr o) <globals>))
(define (.locals o)
(pmatch o
((<info> . ,alist) (assq-ref alist <locals>))))
(assq-ref (cdr o) <locals>))
(define (.text o)
(pmatch o
((<info> . ,alist) (assq-ref alist <text>))))
(assq-ref (cdr o) <text>))
(define (info? o)
(and (pair? o) (eq? (car o) <info>)))