mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-21 17:47:44 -04:00
22 lines
407 B
Common Lisp
22 lines
407 B
Common Lisp
(let ((test-result "test fail!"))
|
|
|
|
;; first, do one where we get something
|
|
(if (eq?
|
|
(-> structure method-table 1)
|
|
(find-parent-method bfloat 1)
|
|
)
|
|
(set! test-result "test pass!")
|
|
)
|
|
|
|
;; nothing
|
|
(if (not (eq?
|
|
(find-parent-method structure 5)
|
|
nothing
|
|
)
|
|
)
|
|
(format #t "TEST FAIL~%~%")
|
|
)
|
|
|
|
(print test-result)
|
|
)
|
|
0 |