X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Ftest%2Fmain.lisp;h=99dfe184a59cdfeb6be718bd0003cc3cc9adf8e6;hp=2a0da536da513f559384131657280564f6066c97;hb=b018550f2029475c8bececad3c6658048c8c80f0;hpb=daa3b99095a3219506e930c7dd684bfbab4cf107 diff --git a/src/test/main.lisp b/src/test/main.lisp index 2a0da53..99dfe18 100644 --- a/src/test/main.lisp +++ b/src/test/main.lisp @@ -105,7 +105,7 @@ `(defsimpletest (format nil "Simple View - ~A" ,name) (lambda () - (clnl:boot "resources/empty.nlogo") + (clnl:boot "resources/empty55.nlogo") (clnl:run-commands ,commands) (let ((viewsum (checksum-view))) @@ -113,7 +113,7 @@ (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 "resources/empty.nlogo") + (clnl:boot "resources/empty55.nlogo") (clnl:run-commands ,commands) (save-view-to-ppm) (format nil "~A" (checksum-view)))