mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 18:14:34 -04:00
Tyler Wilding
12 lines
363 B
Common Lisp
12 lines
363 B
Common Lisp
(start-test "new-string")
|
|
|
|
(let ((new-string (new 'global 'string 17 "alligator")))
|
|
(expect-true (= 17 (-> new-string allocated-length)))
|
|
(expect-true (= 9 (length new-string)))
|
|
|
|
(expect-true (= #x61 (-> new-string data 0))) ;; a
|
|
(expect-true (= #x72 (-> new-string data 8))) ;; r
|
|
(expect-true (= #x00 (-> new-string data 9))) ;; \0
|
|
)
|
|
|
|
(finish-test) |