picrin/contrib/50.option/t/test.scm

28 lines
655 B
Scheme

(import (picrin base)
(picrin test)
(picrin control option))
(define phonebook
'(("Bob" . "01788 665242")
("Fred" . "01624 556442")
("Alice" . "01889 985333")
("Jane" . "01732 187565")))
(define nums
'((one . 1) (two . 2) (three . 3) (four . 19)))
(define num-dict
(alist->dictionary nums))
(test '("01889 985333" . 3)
(reify
(let* ((a (reflect (assoc "Alice" phonebook)))
(b (reflect (dictionary-ref num-dict 'three))))
(cons (cdr a) (cdr b)))))
(test '#f
(reify
(let* ((a (reflect (assoc "Alice" phonebook)))
(b (reflect (dictionary-ref num-dict 'five))))
(cons (cdr a) (cdr b)))))