(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)