diff options
| author | nea <nea@nea.moe> | 2023-08-12 02:36:05 +0200 |
|---|---|---|
| committer | nea <nea@nea.moe> | 2023-08-12 02:36:05 +0200 |
| commit | d1f49743a0a00a1156272d174e8b6b5c4bb9acec (patch) | |
| tree | 72c8bee0dd7808463f218b2dd61ed1d1c036a8dd /test | |
| parent | 3ff093ebd46b32af8c9f1c73e2c147bbb1f1ef62 (diff) | |
| download | nealisp-d1f49743a0a00a1156272d174e8b6b5c4bb9acec.tar.gz nealisp-d1f49743a0a00a1156272d174e8b6b5c4bb9acec.tar.bz2 nealisp-d1f49743a0a00a1156272d174e8b6b5c4bb9acec.zip | |
Add hash support
Diffstat (limited to 'test')
| -rw-r--r-- | test/res/test.lisp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/res/test.lisp b/test/res/test.lisp index 19594b3..b5a9f65 100644 --- a/test/res/test.lisp +++ b/test/res/test.lisp @@ -19,3 +19,14 @@ ((test.assert-eq (| true false) true)) ((test.assert-eq (| false true) true)) ((test.assert-eq (| false false) false)))) + +(test.test "Hashes" (seq + (def funnyhash (hash.new :test1 1 :test2 2)) + ((test.assert-eq + (hash.merge funnyhash (hash.new :test1 2)) + (hash.new :test1 2 :test2 2))) + ((test.assert-eq funnyhash (hash.new :test1 1 :test2 2))) + ((test.assert-eq (hash.get funnyhash :test1) 1)) + ((test.assert-eq (hash.get funnyhash :tesst3) nil)) + )) + |