X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=src%2Ftest%2Fsimpletests.lisp;h=f4ac4f96234459ad7c5000ef9f35d46648bab35a;hb=008caa3;hp=dc57793c612937605aee42038ea54d729c91cb91;hpb=1dd12dd5293763a49a8f1d78d86f82aa5a4ed5fe;p=clnl

diff --git a/src/test/simpletests.lisp b/src/test/simpletests.lisp
index dc57793..f4ac4f9 100644
--- a/src/test/simpletests.lisp
+++ b/src/test/simpletests.lisp
@@ -237,3 +237,16 @@
 
 (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")
+
+(defreportertestwithsetup "round 1" "crt 10" "[ round random-float 1000 ] of turtles"
+ "[264 551 807 834 47 117 999 259 87 963]"
+ "2048ED1C553B0342D5DE1302577394CD09DE88DA")
+
+(defsimplereportertest "round 2" "round 1.5" "2"
+ "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")
+
+(defsimplereportertest "round 3" "round 2.5" "3"
+ "E1DE30F072D785E0D0B59F28B0F7853E3D3E0D8B")