X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Ftest%2Fsimpletests.lisp;h=9bf58d303f84901a02d9317140e66780869cc901;hp=49631642fb7220e13a0daca9ee62b550a3e1f67d;hb=c739aec9e225747148c14c0c3b76f4147ff7be81;hpb=31f7cb69edd16f175430851d696b1036b07b60f1

diff --git a/src/test/simpletests.lisp b/src/test/simpletests.lisp
index 4963164..9bf58d3 100644
--- a/src/test/simpletests.lisp
+++ b/src/test/simpletests.lisp
@@ -265,3 +265,7 @@
 
 (defsimplecommandtest "stop 2" "crt 10 ask turtles [ fd 1 stop fd 1 ]"
  "A6C980CC9843CDD211ABD9C13899010D555F3DC5")
+
+(defsimplecommandtest "turtles-here 1"
+ "crt 1000 ask turtles [ fd random-float 10 ] ask turtles [ set label [ who ] of one-of turtles-here ]"
+ "F34192513765D221A15D939A2BC8FFE18B6ADF4C")