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