13 lines
359 B
Scheme
13 lines
359 B
Scheme
|
|
||
|
|
; Miscellaneous tests of the PDB
|
||
|
|
; These are not associated with an object class
|
||
|
|
|
||
|
|
|
||
|
|
; 0 is an invalid item id
|
||
|
|
; FUTURE pika returns #f instead of 0
|
||
|
|
; FUTURE pika doesn't wrap in extra list
|
||
|
|
(assert '(= (car (pika-item-id-is-vectors 0)) 0))
|
||
|
|
|
||
|
|
; -1 is an invalid item id
|
||
|
|
; FUTURE: '(not (pika-item-id-is-valid -1))
|
||
|
|
(assert '(= (car (pika-item-id-is-valid -1)) 0))
|
