1 #!/bin/bash  | 
         | 
     2   | 
         | 
     3 # to make the script fail safely  | 
         | 
     4 set -euo pipefail  | 
         | 
     5   | 
         | 
     6   | 
         | 
     7 out=${1:-output} | 
         | 
     8   | 
         | 
     9 echo "" > $out  | 
         | 
    10   | 
         | 
    11 echo "Below is the feedback for your submission docdiff.scala" >> $out  | 
         | 
    12 echo "" >> $out  | 
         | 
    13   | 
         | 
    14   | 
         | 
    15 # compilation tests  | 
         | 
    16   | 
         | 
    17 function scala_compile { | 
         | 
    18   (ulimit -t 30; JAVA_OPTS="-Xmx1g" scala -Xprint:parser "$1" 2> c$out 1> c$out)  | 
         | 
    19 }  | 
         | 
    20   | 
         | 
    21 # functional tests  | 
         | 
    22   | 
         | 
    23 function scala_assert { | 
         | 
    24   (ulimit -t 30; JAVA_OPTS="-Xmx1g" scala -i "$1" -- "$2" -e "" 2> /dev/null 1> /dev/null)  | 
         | 
    25 }  | 
         | 
    26   | 
         | 
    27 # purity test  | 
         | 
    28   | 
         | 
    29 function scala_vars { | 
         | 
    30    (egrep '\bvar\b|\breturn\b|\.par\.|\.par |ListBuffer|AtomicInteger|mutable|util.control|new Array' c$out 2> /dev/null 1> /dev/null)  | 
         | 
    31 }  | 
         | 
    32   | 
         | 
    33   | 
         | 
    34   | 
         | 
    35 ### compilation test  | 
         | 
    36   | 
         | 
    37 echo -e "docdiff.scala runs?" >> $out  | 
         | 
    38   | 
         | 
    39 if (scala_compile docdiff.scala)  | 
         | 
    40 then  | 
         | 
    41     echo -e "  --> passed" >> $out  | 
         | 
    42     tsts=$(( 0 ))  | 
         | 
    43 else  | 
         | 
    44     echo -e "  --> SCALA DID NOT RUN docdiff.scala\n" >> $out  | 
         | 
    45     tsts=$(( 1 ))   | 
         | 
    46 fi  | 
         | 
    47   | 
         | 
    48   | 
         | 
    49 # var, .par return, ListBuffer test  | 
         | 
    50 #  | 
         | 
    51 echo -e "docdiff.scala does not contain vars, returns etc?" >> $out  | 
         | 
    52   | 
         | 
    53 if  [ $tsts -eq 0 ]  | 
         | 
    54 then   | 
         | 
    55    if (scala_vars docdiff.scala)  | 
         | 
    56    then  | 
         | 
    57       echo -e "  --> FAIL (make triple-sure your program conforms to the required format)\n" >> $out  | 
         | 
    58       tsts=$(( 1 ))  | 
         | 
    59    else  | 
         | 
    60       echo -e "  --> passed" >> $out  | 
         | 
    61       tsts=$(( 0 ))   | 
         | 
    62    fi  | 
         | 
    63 fi  | 
         | 
    64   | 
         | 
    65 ### docdiff clean tests  | 
         | 
    66   | 
         | 
    67 if [ $tsts -eq 0 ]  | 
         | 
    68 then  | 
         | 
    69   echo -e "docdiff.scala tests:" >> $out  | 
         | 
    70   echo -e "  clean(\"ab a abc\") == List(\"ab\", \"a\", \"abc\")" >> $out  | 
         | 
    71   echo -e "  clean(\"ab*a abc1\") == List(\"ab\", \"a\", \"abc1\")" >> $out  | 
         | 
    72   | 
         | 
    73   if (scala_assert "docdiff.scala" "docdiff_test1.scala")  | 
         | 
    74   then  | 
         | 
    75     echo -e "  --> success\n" >> $out  | 
         | 
    76   else  | 
         | 
    77     echo -e "  --> ONE OF THE TESTS FAILED\n" >> $out  | 
         | 
    78   fi  | 
         | 
    79 fi  | 
         | 
    80   | 
         | 
    81 ### docdiff occurrences tests  | 
         | 
    82   | 
         | 
    83 if [ $tsts -eq 0 ]  | 
         | 
    84 then  | 
         | 
    85   echo -e "  occurrences(List(\"a\", \"b\", \"b\", \"c\", \"d\")) == " >> $out  | 
         | 
    86   echo -e "      Map(\"a\" -> 1, \"b\" -> 2, \"c\" -> 1, \"d\" -> 1)" >> $out  | 
         | 
    87   echo -e "  " >> $out  | 
         | 
    88   echo -e "  occurrences(List(\"d\", \"b\", \"d\", \"b\", \"d\")) == " >> $out  | 
         | 
    89   echo -e "      Map(\"d\" -> 3, \"b\" -> 2)" >> $out  | 
         | 
    90   | 
         | 
    91   if (scala_assert "docdiff.scala" "docdiff_test2.scala")   | 
         | 
    92   then  | 
         | 
    93     echo -e "  --> success\n" >> $out  | 
         | 
    94   else  | 
         | 
    95     echo -e "  --> ONE OF THE TESTS FAILED\n" >> $out  | 
         | 
    96   fi  | 
         | 
    97 fi  | 
         | 
    98   | 
         | 
    99 ### docdiff prod tests  | 
         | 
   100   | 
         | 
   101 if [ $tsts -eq 0 ]  | 
         | 
   102 then  | 
         | 
   103   echo -e "  val l1 = List(\"a\", \"b\", \"b\", \"c\", \"d\")" >> $out  | 
         | 
   104   echo -e "  val l2 = List(\"d\", \"b\", \"d\", \"b\", \"d\")" >> $out  | 
         | 
   105   echo -e "  " >> $out  | 
         | 
   106   echo -e "  prod(l1, l2) == 7 " >> $out  | 
         | 
   107   echo -e "  prod(l1, l1) == 7 " >> $out  | 
         | 
   108   echo -e "  prod(l2, l2) == 13 " >> $out  | 
         | 
   109   | 
         | 
   110   if (scala_assert "docdiff.scala" "docdiff_test3.scala")   | 
         | 
   111   then  | 
         | 
   112     echo -e "  --> success\n" >> $out  | 
         | 
   113   else  | 
         | 
   114     echo -e "  --> ONE OF THE TESTS FAILED\n" >> $out  | 
         | 
   115   fi  | 
         | 
   116 fi  | 
         | 
   117   | 
         | 
   118 ### docdiff overlap tests  | 
         | 
   119   | 
         | 
   120 if [ $tsts -eq 0 ]  | 
         | 
   121 then  | 
         | 
   122   echo -e "  val l1 = List(\"a\", \"b\", \"b\", \"c\", \"d\")" >> $out  | 
         | 
   123   echo -e "  val l2 = List(\"d\", \"b\", \"d\", \"b\", \"d\")" >> $out  | 
         | 
   124   echo -e "  " >> $out  | 
         | 
   125   echo -e "  overlap(l1, l2) == 0.5384615384615384 " >> $out  | 
         | 
   126   echo -e "  overlap(l1, l1) == 1.0 " >> $out  | 
         | 
   127   echo -e "  overlap(l2, l2) == 1.0 " >> $out  | 
         | 
   128   | 
         | 
   129   if (scala_assert "docdiff.scala" "docdiff_test4.scala")   | 
         | 
   130   then  | 
         | 
   131     echo -e "  --> success\n" >> $out  | 
         | 
   132   else  | 
         | 
   133     echo -e "  --> ONE OF THE TESTS FAILED\n" >> $out  | 
         | 
   134   fi  | 
         | 
   135 fi  | 
         |