projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Prims - Implement set-default-shape
[clnl]
/
src
/
test
/
simpletests.lisp
diff --git
a/src/test/simpletests.lisp
b/src/test/simpletests.lisp
index dc57793c612937605aee42038ea54d729c91cb91..5b6294f08f9d97d3036417a874efcf0928989e21 100644
(file)
--- a/
src/test/simpletests.lisp
+++ b/
src/test/simpletests.lisp
@@
-237,3
+237,6
@@
(defsimplecommandtest "hatch 2" "crt 10 ask turtles [ hatch 1 [ fd .5 ] ] ask turtles [ fd .5 ]"
"58E3CBC869F26B7D9ABC0C05C58C29F2FD588912")
(defsimplecommandtest "hatch 2" "crt 10 ask turtles [ hatch 1 [ fd .5 ] ] ask turtles [ fd .5 ]"
"58E3CBC869F26B7D9ABC0C05C58C29F2FD588912")
+
+(defsimplecommandtest "set-default-shapes 1" "crt 10 set-default-shape turtles \"sheep\" crt 10"
+ "F0B80936630E8B597CB1088493E3765B5B4A2137")