1 #!/bin/bash |
|
2 set -e |
|
3 |
|
4 out=${1:-output} |
|
5 |
|
6 echo "" > $out |
|
7 |
|
8 echo "Below is the feedback and provisional mark for your submission" >> $out |
|
9 echo "for CW 8, Part 2. Please note all marks are provisional until" >> $out |
|
10 echo "ratified by the assessment board -- this is not an official" >> $out |
|
11 echo "results transcript." >> $out |
|
12 echo "" >> $out |
|
13 |
|
14 function scala_vars { |
|
15 (egrep '\bvar\b|\breturn\b|ListBuffer|mutable' "$1" 2> /dev/null 1> /dev/null) |
|
16 } |
|
17 |
|
18 |
|
19 # compilation tests |
|
20 |
|
21 function scala_compile { |
|
22 (scala "$1" 2> /dev/null 1> /dev/null) |
|
23 } |
|
24 |
|
25 |
|
26 # functional tests |
|
27 |
|
28 function scala_assert { |
|
29 (scala -i "$1" "$2" -e "" 2> /dev/null 1> /dev/null) |
|
30 } |
|
31 |
|
32 |
|
33 # marks for CW |
|
34 marks=$(( 0 )) |
|
35 |
|
36 |
|
37 # var, return, ListBuffer test |
|
38 # |
|
39 echo "re2.scala does not contain vars, returns etc?" | tee -a $out |
|
40 |
|
41 if (scala_vars re2.scala) |
|
42 then |
|
43 echo " --> fail" | tee -a $out |
|
44 tsts0=$(( 1 )) |
|
45 else |
|
46 echo " --> yes" | tee -a $out |
|
47 tsts0=$(( 0 )) |
|
48 fi |
|
49 |
|
50 |
|
51 # compilation test |
|
52 if [ $tsts0 -eq 0 ] |
|
53 then |
|
54 echo "re2.scala runs?" | tee -a $out |
|
55 |
|
56 if (scala_compile re2.scala) |
|
57 then |
|
58 echo " --> yes" | tee -a $out |
|
59 tsts1=$(( 0 )) |
|
60 else |
|
61 echo " --> scala re2.scala did not run successfully" | tee -a $out |
|
62 tsts1=$(( 1 )) |
|
63 fi |
|
64 else |
|
65 tsts1=$(( 1 )) |
|
66 fi |
|
67 |
|
68 if [ $tsts1 -eq 0 ] |
|
69 then |
|
70 echo " iterT(200000, (x: Int) => x + 1, 0) == 200000" | tee -a $out |
|
71 echo " iterT(100, (x: BigInt) => x * 2, BigInt(2)) == BigInt(\"2535301200456458802993406410752\")" | tee -a $out |
|
72 echo " iterT(10, (x: String) => x ++ \"a\", \"a\") == \"aaaaaaaaaaa\"" | tee -a $out |
|
73 |
|
74 if (scala_assert "re2.scala" "../../../marking/re2a_test.scala") |
|
75 then |
|
76 echo " --> success" | tee -a $out |
|
77 marks=$(( marks + 2 )) |
|
78 else |
|
79 echo " --> test failed" | tee -a $out |
|
80 fi |
|
81 fi |
|
82 |
|
83 if [ $tsts1 -eq 0 ] |
|
84 then |
|
85 echo " size(iterT(20, (r: Rexp) => der('a', r), EVIL)) == 7340068" | tee -a $out |
|
86 echo " size(iterT(20, (r: Rexp) => simp(der('a', r)), EVIL)) == 8" | tee -a $out |
|
87 |
|
88 if (scala_assert "re2.scala" "../../../marking/re2b_test.scala") |
|
89 then |
|
90 echo " --> success" | tee -a $out |
|
91 marks=$(( marks + 1 )) |
|
92 else |
|
93 echo " --> test failed" | tee -a $out |
|
94 fi |
|
95 fi |
|
96 |
|
97 if [ $tsts1 -eq 0 ] |
|
98 then |
|
99 echo " fixpT((x:Int) => if (200000 < x) x else x + 1, 0) == 200001" | tee -a $out |
|
100 echo " fixpT((x:Long) => if (20 < x) x else x + 1, 0L) == 21L" | tee -a $out |
|
101 |
|
102 if (scala_assert "re2.scala" "../../../marking/re2c_test.scala") |
|
103 then |
|
104 echo " --> success" | tee -a $out |
|
105 marks=$(( marks + 1 )) |
|
106 else |
|
107 echo " --> test failed" | tee -a $out |
|
108 fi |
|
109 fi |
|
110 |
|
111 ## final marks |
|
112 echo "Overall mark for CW 8, Part 2" | tee -a $out |
|
113 echo "$marks" | tee -a $out |
|