update playground

Author: bobzhang

docs/js-demo/compiler_test.js

@@ -0,0 +1,54 @@
+require('./exports.js')
+
+var output = ocaml.compile('let a = 3')
+
+// var json = require('../../package.json')
+var header = `Generated by BUCKLESCRIPT`
+
+var failed = false
+
+/**
+ * @return {string|bool} return string if successful otherwise return false
+ * @param {*} input 
+ */
+function test(input) {
+    var output = JSON.parse(ocaml.compile(input))
+    if (output && output.js_code) {
+        var js_code = output.js_code
+        if (js_code.includes(header)) {
+            return js_code
+        } else {
+            failed = true
+            return false
+        }
+    } else {
+        failed = true 
+        return false
+    }
+}
+
+var fs = require('fs')
+var p = require('path')
+var example = p.join(__dirname, 'examples')
+var files = fs.readdirSync(example)
+
+files.forEach(function (x) {
+
+    if (x.endsWith('.ml')) {
+        var path = p.join(example, x)
+        var content = fs.readFileSync(path, 'utf8')
+        console.log(`testing ${path}`)
+        var output
+        if (output = test(content)) {
+            console.log("successful")
+        } else {
+            console.error("failed")
+        }
+    }
+
+})
+
+if(failed){
+    console.error('not all tests passed')
+    process.exit(2)
+}

docs/js-demo/examples/use_js_stdlib.ml

@@ -1,7 +1,7 @@
 open Js
 let () =
   [| 1; 2; 3; 4 |]
-  |> Array.filter (fun [@bs] x -> x > 2)
-  |> Array.mapi (fun [@bs] x i -> x + i)
-  |> Array.reduce (fun [@bs] x y -> x + y) 0
+  |> Array.filter (fun  x -> x > 2)
+  |> Array.mapi (fun  x i -> x + i)
+  |> Array.reduce (fun  x y -> x + y) 0
   |> log