shithub: sl

Info  •  Files  •  Log  •  Branches

defstruct tests: fix a missing argument in comparison

--- a/test/defstruct.sl

+++ b/test/defstruct.sl

@@ -12,7 +12,7 @@

 (assert (not (eqv? #('sa :a NIL :b NIL :c 3) ax)))

 (assert (not (sa-a ax))) ; a defaults to NIL

 (assert (not (sa-b ax))) ; so is b

-(assert (= (sa-c ax)))

+(assert (= (sa-c ax) 3))

 (def ax (make-sa :a 1 :b 2))

 (assert (sa? ax))

 (assert (= (sa-a ax) 1))