felix/slime
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

using stdint types

Browse Source
This commit is contained in:
FelixBrendel
2020-03-31 11:38:53 +02:00
parent 33145be4c6
commit 76dd4d6482
52 changed files with 483 additions and 1503 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/tests/alists.slime
+10 -10
View File
@@ -3,7 +3,7 @@
(define a (ds::alist::make))
;; a == (())
(assert (= (first a) ()))
(assert (= (car a) ()))
(ds::alist::set! a 'key1 'value1)
;; a == (key1: value1)
@@ -20,7 +20,7 @@
(assert (ds::alist::key-exists? a 'key2))
(assert (= (ds::alist::find a 'key2) 0))
(assert (= (ds::alist::find a 'key1) 1))
(assert (= (length (first a)) 2))
(assert (= (length (car a)) 2))
(ds::alist::set! a 'key1 'value3)
@@ -28,7 +28,7 @@
;; key2: value2,
;; key1: value1)
(assert (= (length (first a)) 3))
(assert (= (length (car a)) 3))
(assert (= (ds::alist::get a 'key1) 'value3))
(ds::alist::set-overwrite! a 'key1 'value4)
@@ -36,14 +36,14 @@
;; key2: value2,
;; key1: value1)
(assert (= (length (first a)) 3))
(assert (= (length (car a)) 3))
(assert (= (ds::alist::get a 'key1) 'value4))
(ds::alist::remove! a 'key1)
;; a == (key2: value2,
;; key1: value1)
(assert (= (length (first a)) 2))
(assert (= (length (car a)) 2))
(assert (= (ds::alist::get a 'key1) 'value1))
(assert (= (ds::alist::get a 'key2) 'value2))
@@ -57,7 +57,7 @@
(define p (ds::plist::make))
;; p == (())
(assert (= (first p) ()))
(assert (= (car p) ()))
(ds::plist::set! p :key1 'value1)
;; p == ((:key1 value1))
@@ -74,14 +74,14 @@
(assert (ds::plist::prop-exists? p :key2))
(assert (= (ds::plist::find p :key2) 0))
(assert (= (ds::plist::find p :key1) 1))
(assert (= (length (first p)) 4))
(assert (= (length (car p)) 4))
(ds::plist::set! p :key1 'value3)
;; p == ((:key1 value3,
;; :key2 value2,
;; :key1 value1))
(assert (= (length (first p)) 6))
(assert (= (length (car p)) 6))
(assert (= (ds::plist::get p :key1) 'value3))
(ds::plist::set-overwrite! p :key1 'value4)
@@ -89,13 +89,13 @@
;; :key2 value2,
;; :key1 value1))
;; (assert (= (length (first p)) 6))
;; (assert (= (length (car p)) 6))
;; (assert (= (ds::plist::get p :key1) 'value4))
;; (ds::plist::remove! p :key1)
;; ;; p == ((:key2 value2,
;; ;; :key1 value1))
;; (assert (= (length (first p)) 4))
;; (assert (= (length (car p)) 4))
;; (assert (= (ds::plist::get p :key1) 'value1))
;; (assert (= (ds::plist::get p :key2) 'value2))