shithub: sl

Info  •  Files  •  Log  •  Branches

uni tests: get on non-table types

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -735,6 +735,9 @@

 (assert-fail (get t 'foo))

 (assert-fail (del! t 'foo))

+(assert-fail (get "blah" 0))

+(assert-fail (get (list 0 1) 0))

+

 (assert (equal? (list 1 1 1) #0=(list 1 #1=1 #1#)))

 (assert-fail (sleep 1 2))