diff -r 59e005dcf163 -r 7550c816187a main_testing4/shogun_test.sh
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/main_testing4/shogun_test.sh	Sat Nov 04 18:53:37 2023 +0000
@@ -0,0 +1,174 @@
+#!/bin/bash
+set -euo pipefail
+
+out=${1:-output}
+
+echo -e "" > $out
+
+echo -e "Below is the feedback for your submission of shogun.scala" >> $out
+echo -e "" >> $out
+#echo -e "!! Important: !!" >> $out
+#echo -e "Because of limitations with our testing infrastructure, we can only" >> $out
+#echo -e "let code run for 10 seconds and then have to kill it. This might" >> $out
+#echo -e "mean your code is correct, but still marked as Fail. Remember" >> $out
+#echo -e "you can test your code on your own machine and benchmark it" >> $out
+#echo -e "against the reference implementation." >> $out
+#echo -e "" >> $out
+
+# compilation tests
+
+function scala_compile {
+  (ulimit -t 30; JAVA_OPTS="-Xmx1g" scala-cli compile "$1" 2> c$out 1> c$out)
+}
+
+# functional tests
+
+function scala_assert {
+  (ulimit -t 30; JAVA_OPTS="-Xmx1g" scala-cli -i "$1" "$2" -e "urbanmain()" 2> /dev/null 1> /dev/null)
+}
+
+# purity test
+function scala_vars {
+   (sed 's/immutable/ok/g' c$out > cb$out;
+    egrep '\bvar\b|\breturn\b|\.par\.|\.par |ListBuffer|AtomicInteger|mutable|util.control|new Array' cb$out 2> /dev/null 1> /dev/null)
+}
+
+
+# compilation test
+
+  
+echo -e "shogun.scala runs?" >> $out
+
+if (scala_compile shogun.scala)
+then
+    echo -e "  --> passed" >> $out
+    tsts1=$(( 0 ))
+  else
+    echo -e "  --> SCALA DID NOT RUN SHOGUN.SCALA\n" >> $out
+    tsts1=$(( 1 )) 
+fi
+
+
+# shogun: purity test
+
+if [ $tsts1 -eq 0 ]
+then  
+    echo -e "shogun.scala does not contain vars, returns etc?" >> $out
+
+    if (scala_vars shogun.scala)
+    then
+	echo -e "  --> FAIL (make triple-sure your program conforms to the required format)" >> $out  
+	tsts1=$(( 1 ))
+    else
+	echo -e "  --> passed" >> $out
+	tsts1=$(( 0 )) 
+    fi
+fi    
+
+
+### shogun eval test
+
+if [ $tsts1 -eq 0 ]
+then
+    echo -e "  val pw_a = Pawn(4, Wht, (4,4)) " >> $out
+    echo -e "  eval(pw_a, U,  4, b_init) == Set(Pawn(4,Wht,(4,8)))" >> $out
+    echo -e "  eval(pw_a, U,  3, b_init) == Set(Pawn(4,Wht,(4,7)))" >> $out
+    echo -e "  eval(pw_a, RU, 4, b_init) == Set(Pawn(4,Wht,(6,6)), Pawn(4,Wht,(4,8)), " >> $out
+    echo -e "                                   Pawn(4,Wht,(5,7)), Pawn(4,Wht,(7,5)), " >> $out
+    echo -e "                                   Pawn(4,Wht,(8,4)))" >> $out
+    echo -e "  " >> $out
+    echo -e "  val pw_b = Pawn(4, Red, (4,4))" >> $out
+    echo -e "  eval(pw_b, RU, 4, b_init) == Set(Pawn(4,Red,(8,4)), Pawn(4,Red,(7,5)), " >> $out
+    echo -e "                                   Pawn(4,Red,(6,6)), Pawn(4,Red,(5,7)))" >> $out
+    echo -e "  " >> $out
+
+    if (scala_assert "shogun.scala" "shogun_test1.scala")
+    then
+        echo -e "  --> success" >> $out
+    else
+        echo -e "  --> \n ONE TEST FAILED\n" >> $out
+    fi
+fi
+
+### shogun all_moves test
+
+if [ $tsts1 -eq 0 ]
+then
+  echo -e " val pw_c = Pawn(2, Wht, (4,4))" >> $out
+  echo -e " val pw_d = Pawn(3, Red, (4,4))" >> $out
+  echo -e " all_moves(pw_c, b_init) == " >> $out
+  echo -e "    Set(Pawn(2,Wht,(3,5)), Pawn(2,Wht,(2,4)), Pawn(2,Wht,(3,3)), Pawn(2,Wht,(5,5))," >> $out
+  echo -e "        Pawn(2,Wht,(6,4)), Pawn(2,Wht,(4,6)), Pawn(2,Wht,(4,2)), Pawn(2,Wht,(5,3)))" >> $out
+  echo -e " all_moves(pw_d, b_init) == " >> $out
+  echo -e "    Set(Pawn(3,Red,(4,7)), Pawn(3,Red,(5,2)), Pawn(3,Red,(3,2)), Pawn(3,Red,(1,4))," >> $out
+  echo -e     "    Pawn(3,Red,(6,3)), Pawn(3,Red,(3,6)), Pawn(3,Red,(2,5)), Pawn(3,Red,(2,3)), " >> $out
+  echo -e "        Pawn(3,Red,(4,1)), Pawn(3,Red,(5,6)), Pawn(3,Red,(7,4)), Pawn(3,Red,(6,5))))" >> $out
+
+  
+  if (scala_assert "shogun.scala" "shogun_test2.scala")
+  then
+    echo -e "  --> success" >> $out
+  else
+    echo -e "  --> \n ONE TEST FAILED\n" >> $out
+  fi
+fi
+
+
+### attacked test
+
+if [ $tsts1 -eq 0 ]
+then
+  echo -e " val b2 = Board(Set(King(2, Red, (4,2)), King(2, Wht, (7,1))," >> $out
+  echo -e "                    Pawn(3, Red, (6,1)), Pawn(2, Wht, (8,4))," >> $out
+  echo -e "                    Pawn(4, Red, (4,4)), Pawn(2, Wht, (4,1))," >> $out
+  echo -e "                    Pawn(4, Red, (5,3)), Pawn(3, Wht, (8,7))," >> $out
+  echo -e "                    Pawn(3, Red, (6,5))))" >> $out
+  echo -e " attacked(Red, b2) == Set(Pawn(2,Wht,(8,4)), King(2,Wht,(7,1)))" >> $out
+  echo -e " attacked(Wht, b2) == Set(Pawn(3,Red,(6,1)))" >> $out
+  echo -e " attacked(Wht, b_init) == Set()" >> $out
+  echo -e " attacked(Red, b_init) == Set()" >> $out
+  
+  if (scala_assert "shogun.scala" "shogun_test3.scala")
+  then
+    echo -e "  --> success" >> $out
+  else
+    echo -e "  --> \n ONE TEST FAILED\n" >> $out
+  fi
+fi
+
+### attackedN test
+
+if [ $tsts1 -eq 0 ]
+then
+  echo -e " attackedN(Pawn(2, Wht, (8,4)), b2) == 3" >> $out
+  echo -e " attackedN(King(2, Wht, (7,1)), b2) == 1" >> $out
+  echo -e " attackedN(Pawn(3, Red, (6,1)), b2) == 1" >> $out
+
+  if (scala_assert "shogun.scala" "shogun_test4.scala") 
+  then
+    echo -e "  --> success" >> $out
+  else
+    echo -e "  --> \n ONE TEST FAILED\n" >> $out
+  fi
+fi
+
+
+### protectedN test
+
+if [ $tsts1 -eq 0 ]
+then
+  echo -e " protectedN(Pawn(2, Wht, (8,4)), b2) == 1" >> $out
+  echo -e " protectedN(Pawn(4, Red, (5,3)), b2) == 3" >> $out
+
+  if (scala_assert "shogun.scala" "shogun_test5.scala") 
+  then
+    echo -e "  --> success" >> $out
+  else
+    echo -e "  --> \n ONE TEST FAILED\n" >> $out
+  fi
+fi
+
+
+echo -e "" >> $out
+echo -e "" >> $out
+