mirror of
https://github.com/open-goal/jak-project
synced 2026-06-18 23:37:22 -04:00
water111
c9b53d51ff
* check on windows * fix windows build * version test * clean up - will it work on windows * fix formatting
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) |