X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Ftest%2Fmodeltests.lisp;h=8f2d12a094e9ddbaaf63e1edf3179d8d7e8b2c33;hp=79ebc4ba261614016a578dd439c870a25c936286;hb=f011c77;hpb=bc6386a709da76fef1393a11a7251b4be7032fda

diff --git a/src/test/modeltests.lisp b/src/test/modeltests.lisp
index 79ebc4b..8f2d12a 100644
--- a/src/test/modeltests.lisp
+++ b/src/test/modeltests.lisp
@@ -108,3 +108,17 @@ to go
 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")