`(defsimpletest
(format nil "Simple Command - ~A" ,name)
(lambda ()
- (clnl:boot)
+ (clnl:boot "resources/empty.nlogo")
(clnl:run-commands ,commands)
(checksum= ,checksum (checksum-world)))
(lambda ()
- (clnl:boot)
+ (clnl:boot "resources/empty.nlogo")
(clnl:run-commands ,commands)
(format nil "~A~A"
(clnl-nvm:export-world)
`(defsimpletest
(format nil "Simple Reporter - ~A" ,name)
(lambda ()
- (clnl:boot)
+ (clnl:boot "resources/empty.nlogo")
(and
(string= (funcall (intern "DUMP-OBJECT" :clnl-nvm) (clnl:run-reporter ,reporter)) ,value)
(checksum= ,checksum (checksum-world))))
(lambda ()
- (clnl:boot)
+ (clnl:boot "resources/empty.nlogo")
(format nil "~A~%~A~A"
(funcall (intern "DUMP-OBJECT" :clnl-nvm) (clnl:run-reporter ,reporter))
(clnl-nvm:export-world)
`(defsimpletest
(format nil "Simple View - ~A" ,name)
(lambda ()
- (clnl:boot)
+ (clnl:boot "resources/empty.nlogo")
(clnl:run-commands ,commands)
(let
((viewsum (checksum-view)))
(format t "~c[1;35m-- For ~A, got ~A but expected ~A~c[0m~%" #\Esc ,name viewsum ,checksum #\Esc))
(checksum= ,checksum (checksum-view))))
(lambda ()
- (clnl:boot)
+ (clnl:boot "resources/empty.nlogo")
(clnl:run-commands ,commands)
(save-view-to-ppm)
(format nil "~A" (checksum-view)))