SICP package test (source-academy#581)

* test SICP draft

* test-branch

* Testing in node functional

* Fix names and Update SICP package automatically

* replace tab

* Format shell script

* Update writers to take in parameters

* Pass arguments in shell script as string

* add author

* Resolved some issues

* Fix formatting

* Rename writer2 to writer

Co-authored-by: Samuel Fang <samuelfangjw@gmail.com>

Author: hungkhoaitay

.gitignore

@@ -6,4 +6,7 @@
 
 sicpjs.zip
 
+test_node_env/expect.txt
+test_node_env/result.txt
+test_node_env/node_modules
 .DS_Store

package.json

@@ -47,7 +47,8 @@
     "split": "yarn process web split",
     "svgpdf": "./scripts/svg_to_pdf.sh",
     "test": "node ./scripts/test.js",
-    "try": "cd docs_out; http-server --cors --port 8080"
+    "try": "cd docs_out; http-server --cors --port 8080",
+    "nodetest": "./scripts/nodetest.sh"
   },
   "husky": {
     "hooks": {

scripts/nodetest.sh

@@ -0,0 +1,96 @@
+#! /usr/bin/env bash
+
+cd test_node_env
+npm update sicp
+cd ..
+
+OUT_WRITER="test_node_env/result_writer.js"
+EXP_WRITER="test_node_env/expected_writer.js"
+
+# must use BSD awk
+AWK="awk"
+
+SOURCEFILES=js_programs/*/*/*/*.js
+
+DEFAULT_CHAPTER=4
+DEFAULT_VARIANT="default"
+
+red=`tput setaf 1`
+green=`tput setaf 2`
+normal=`tput setaf 7`
+
+passed=0
+failed=0
+
+# $1 is the source file to be tested
+# $2 is the chapter
+# $3 is the variant
+
+test_source() {
+    if [ $3 ];  then
+        variant=$3
+    else
+        variant=$DEFAULT_VARIANT
+    fi
+    
+    if [  "$(cat $1 | tail -1 | cut -c 1-13)" = "// expected: " ] && [ "$3" != "non-det" ] && [ "$3" != "concurrent" ] && [ "$3" != "lazy" ]
+    then
+        
+        EXPECTED=`cat $1 | tail -1 | cut -c14-`
+        
+        if [[ "$EXPECTED" != "'all threads terminated'" ]]
+        then
+            echo "${normal}$1, expecting: $(cat $1 | tail -1 | cut -c14-)"
+            
+            # Run the writers
+            node --stack_size=8000 $OUT_WRITER "$1"
+            node $EXP_WRITER "$EXPECTED"
+            
+            # Compare outputs
+            DIFF=$(diff test_node_env/result.txt test_node_env/expect.txt)
+            
+            if [ "$DIFF" = "" ]
+            then passed=$(($passed+1)); echo "${green}PASS"
+            else failed=$(($failed+1)); echo "${red}FAIL:
+                $DIFF"
+            fi
+        fi
+    fi
+}
+
+main() {
+    for s in ${SOURCEFILES}
+    do
+        # DIR is full path including js_programs
+        DIR=$(dirname ${s})
+        # CHAPTERDIR is path starting with chapterx
+        CHAPTERDIR=${DIR#*/}
+        # CHAPTER is just the chapter name, e.g. chapter2
+        CHAPTER=${CHAPTERDIR%%/*}
+        # SECTIONDIR is path starting with sectionx
+        SECTIONDIR=${CHAPTERDIR#*/}
+        # SECTION is just the section name, e.g. section3
+        SECTION=${SECTIONDIR%%/*}
+        
+        if [[ ($1 == $CHAPTER || $1 == "") && ($2 == $SECTION || $2 == "") ]];
+        then
+            # check if first line of test file contains 'chapter=' and retrieve
+            # its value. Set to the default chapter if it does not
+            chapter=$($AWK -F 'chapter=' 'FNR==1{ if ($0~"chapter=") { print $2 } else { print '$DEFAULT_CHAPTER' } }' $s | $AWK -F ' ' '{ print $1 }')
+            
+            # check if first line of test file contains 'variant=' and retrieve
+            # its value. Set to the default variant if it does not
+            variant=$($AWK -F 'variant=' 'FNR==1{ if ($0~"variant=") { print $2 } else { print '$DEFAULT_VARIANT' } }' $s | $AWK -F ' ' '{ print $1 }')
+            
+            test_source ${s} ${chapter} ${variant}
+        fi
+    done
+}
+
+# optional arguments: chapter... section..., limiting testing only to the
+# named chapter (or section): e.g. yarn test chapter2 section3
+
+main $1 $2
+
+echo "${normal}test cases completed; $passed passed, $failed failed"
+exit 0

test_node_env/expected_writer.js

@@ -0,0 +1,17 @@
+import { Script } from "vm";
+import { createWriteStream } from "fs";
+
+let writer = createWriteStream("test_node_env/expect.txt");
+const args = process.argv.slice(2);
+const expected = args[0];
+
+writer.once("open", function (fd) {
+  let e = new Script(expected);
+  let r = e.runInNewContext();
+  if (typeof r !== "undefined") {
+    writer.write(JSON.stringify(r));
+  } else {
+    writer.write("undefined");
+  }
+  writer.end();
+});