X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Ftest%2Fsimpletests.lisp;h=9feaf8db4c2e4c3ccfe061688d1c8db6cbefd301;hp=614c511c676f429ccb904ff356ec84d78608c5ce;hb=2c338ef0bdabd1e327bbf474221239c2eead88e4;hpb=b018550f2029475c8bececad3c6658048c8c80f0

diff --git a/src/test/simpletests.lisp b/src/test/simpletests.lisp
index 614c511..9feaf8d 100644
--- a/src/test/simpletests.lisp
+++ b/src/test/simpletests.lisp
@@ -107,3 +107,15 @@
 
 (defreportertestwithsetup "any? 3" "crt 10 ask turtles [ die ]" "any? turtles" "false"
  "A665C1BF95E1F9CAAE9B9F8B2FBE3DAA45453136")
+
+(defsimplecommandtest "rt 1" "crt 100 ask turtles [ fd random-float 5 rt random-float 180 fd random-float 4 ]"
+ "186B05DEFF6771BE791D54AB36A36874EC6E04FE")
+
+(defsimplecommandtest "rt 2" "crt 100 ask turtles [ fd random-float 5 rt random-float 1080 fd random-float 4 ]"
+ "154C05DF7810C0FF5D7DDE51B76E1012FFB2C0E1")
+
+(defsimplecommandtest "lt 1" "crt 100 ask turtles [ fd random-float 5 lt random-float 180 fd random-float 4 ]"
+ "D4B3844FE453C05E57537D6BA94C4B42C84655C6")
+
+(defsimplecommandtest "lt 2" "crt 100 ask turtles [ fd random-float 5 lt random-float 1080 fd random-float 4 ]"
+ "07DEB6F4F007DB86CD8F2C2E10BD4E35CAD2B0CE")