shithub: sl

Info  •  Files  •  Log  •  Branches

defstruct: test setters

--- a/test/defstruct.sl

+++ b/test/defstruct.sl

@@ -18,6 +18,12 @@

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

 (assert (= (sa-b ax) 2))

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

+(sa-c ax 4)

+(sa-b ax 5)

+(sa-a ax 6)

+(assert (= (sa-a ax) 6))

+(assert (= (sa-b ax) 5))

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

 (def ax (make-sa :c 0))

 (assert (sa? ax))

 (assert (not (sa-a ax)))

@@ -42,6 +48,8 @@

 (assert (not (sl-a lx)))

 (assert (not (sl-b lx)))

 (assert (= (sl-c lx) 3))

+(sl-a lx lx)

+(assert (eq? (sl-a lx) lx))

 ; struct as a list, named

 (defstruct sln :type list :named T a b (c 3))

@@ -52,3 +60,5 @@

 (assert (not (sln-a lx)))

 (assert (not (sln-b lx)))

 (assert (= (sln-c lx) 3))

+(sl-a lx lx)

+(assert (eq? (sl-a lx) lx))