mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
12 lines
236 B
Plaintext
12 lines
236 B
Plaintext
(test-setup 213 #f)
|
|
|
|
(deftype test-static-type (basic)
|
|
((pad int32)
|
|
(value int16)
|
|
)
|
|
)
|
|
|
|
(let ((new-obj (new 'static 'test-static-type :value 213)))
|
|
(expect-true (= test-static-type (-> new-obj type)))
|
|
(-> new-obj value)
|
|
) |