projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Code - procedures handle stop better
[clnl]
/
src
/
test
/
modeltests.lisp
diff --git
a/src/test/modeltests.lisp
b/src/test/modeltests.lisp
index 79ebc4ba261614016a578dd439c870a25c936286..8f2d12a094e9ddbaaf63e1edf3179d8d7e8b2c33 100644
(file)
--- a/
src/test/modeltests.lisp
+++ b/
src/test/modeltests.lisp
@@
-108,3
+108,17
@@
to go
end"
"setup go"
"2614B99F64ACFA2BD64D66B129C0A17F2150FADD")
end"
"setup go"
"2614B99F64ACFA2BD64D66B129C0A17F2150FADD")
+
+(defmodelcommandtest "procedures stop"
+ "to setup
+ create-turtles 5
+ stop
+ create-turtles 5
+end
+
+to go
+ if 5 < count turtles [ stop ]
+ crt 1
+end"
+ "setup go go"
+ "438848EF35C6B0D28D50961072C70FCC02BB4FD8")