blob: 2cc8ab28d76303aa48812a54b86ad2f4151e648e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(define-module (test geo)
:use-module (srfi srfi-64)
:use-module (srfi srfi-64 test-error)
:use-module (srfi srfi-71)
:use-module (srfi srfi-88)
:use-module (vcomponent geo))
(test-assert (geo? (geo x: 10 y: 20)))
(test-error 'wrong-type-arg
(geo))
'((vcomponent geo))
|