Merge branch 'better_tests'

.github/workflows/ci.yml

@@ -0,0 +1,22 @@
+name: CI
+
+on:
+  push:
+    branches:
+      - main
+  pull_request:
+    branches:
+      - main
+
+jobs:
+  test:
+    name: Test
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v3
+      - uses: actions/setup-node@v3
+        with:
+          node-version: 20
+          cache: yarn
+      - run: yarn install
+      - run: yarn test

.gitignore

@@ -7,3 +7,4 @@ node_modules/
 /lib/js/src
 /lib/js/tests/testHelpers.js
 npm-debug.log
+.yarn/install-state.gz

.yarnrc.yml

@@ -0,0 +1,3 @@
+nodeLinker: node-modules
+
+yarnPath: .yarn/releases/yarn-4.0.2.cjs

lib/js/examples/dom_example.js

@@ -32,20 +32,17 @@ Belt_Option.map(Belt_Option.flatMap(Webapi__Dom__Document.asHtmlDocument(documen
             return Caml_option.nullable_to_opt(prim.body);
           })), (function (body) {
         body.appendChild(el);
-
       }));
 
 document.createElement("div").addEventListener("mousemove", (function (e) {
         console.log([
               e.screenX,
               e.screenY
             ]);
-
       }));
 
 function handleClick(param) {
   console.log("clicked");
-
 }
 
 window.addEventListener("click", handleClick);

lib/js/examples/image_examples.js

@@ -14,17 +14,16 @@ function processImage(url) {
                 var maybeImg = Curry._1(Webapi__Dom__HtmlImageElement.ofElement, e);
                 maybeImg.src = url;
                 maybeImg.addEventListener("load", (function ($$event) {
-                        return resolve($$event);
+                        resolve($$event);
                       }));
                 maybeImg.addEventListener("error", (function (error) {
-                        return reject(error);
+                        reject(error);
                       }));
                 var body = Belt_Option.flatMap(Webapi__Dom__Document.asHtmlDocument(document), (function (prim) {
                         return Caml_option.nullable_to_opt(prim.body);
                       }));
                 body.appendChild(maybeImg);
                 body.removeChild(maybeImg);
-
               }));
 }
 
@@ -33,7 +32,6 @@ var test = processImage(url).then(function ($$event) {
       var width = img.naturalWidth;
       var height = img.naturalHeight;
       console.log("width", width, "height", height);
-
     });
 
 exports.url = url;

lib/js/examples/webapi_example.js

@@ -5,12 +5,10 @@ var socket = new WebSocket("ws://localhost:8080");
 
 socket.addEventListener("open", (function (param) {
         socket.send("Hello Server!");
-
       }));
 
 socket.addEventListener("message", (function ($$event) {
         console.log("Message from server ", $$event.data);
-
       }));
 
 /* socket Not a pure module */

lib/js/tests/Webapi/Canvas/Webapi_Canvas__WebGl__test.js

@@ -0,0 +1,68 @@
+'use strict';
+
+
+var canvasEl = document.createElement("canvas");
+
+var ctx = canvasEl.getContext("webgl");
+
+ctx.clear(5);
+
+ctx.clearColor(0, 1, 2, 3);
+
+ctx.enable(5);
+
+ctx.disable(5);
+
+ctx.blendFunc(0, 1);
+
+ctx.cullFace(5);
+
+var buf = ctx.createBuffer();
+
+ctx.deleteBuffer(buf);
+
+ctx.bindBuffer(5, buf);
+
+ctx.bufferData(5, new Uint16Array(5), 5);
+
+ctx.bufferData(5, new Float32Array(5), 5);
+
+var program = ctx.createProgram();
+
+ctx.linkProgram(program);
+
+ctx.useProgram(program);
+
+var programlog = ctx.getProgramInfoLog(program);
+
+ctx.bindAttribLocation(program, 5, "");
+
+var shader = ctx.createShader(5);
+
+ctx.shaderSource(shader, "");
+
+ctx.compileShader(shader);
+
+ctx.attachShader(program, shader);
+
+var shaderlog = ctx.getShaderInfoLog(shader);
+
+ctx.drawElements(0, 1, 2, 3);
+
+ctx.enableVertexAttribArray(5);
+
+ctx.vertexAttribPointer(0, 1, 2, false, 3, 4);
+
+var loc = ctx.getAttribLocation(program, "");
+
+ctx.drawArrays(0, 1, 2);
+
+exports.canvasEl = canvasEl;
+exports.ctx = ctx;
+exports.buf = buf;
+exports.program = program;
+exports.programlog = programlog;
+exports.shader = shader;
+exports.shaderlog = shaderlog;
+exports.loc = loc;
+/* canvasEl Not a pure module */

lib/js/tests/Webapi/Canvas/Webapi__Canvas__Canvas2d__test.js

@@ -1,6 +1,5 @@
 'use strict';
 
-var List = require("rescript/lib/js/list.js");
 var Webapi__Canvas__Canvas2d = require("../../../src/Webapi/Canvas/Webapi__Canvas__Canvas2d.js");
 
 var canvasEl = document.createElement("canvas");
@@ -95,45 +94,23 @@ ctx.arc(1, 1, 4, 1, 3, true);
 
 ctx.rect(0, 0, 10, 10);
 
-ctx.isPointInPath(0, 0);
+var pointInPath = ctx.isPointInPath(0, 0);
 
 var linearGradient = ctx.createLinearGradient(0.0, 0.0, 0.0, 0.0);
 
 ctx.strokeStyle = linearGradient;
 
-ctx.createRadialGradient(0.0, 0.0, 0.0, 0.0, 0.0, 0.0);
+var radialGradient = ctx.createRadialGradient(0.0, 0.0, 0.0, 0.0, 0.0, 0.0);
 
 linearGradient.addColorStop(0.0, "red");
 
-var partial_arg = document.createElement("img");
-
-List.map((function (param) {
-        return createPattern(ctx, partial_arg, (function () {
-                        switch (param) {
-                          case "repeat" :
-                              return "repeat";
-                          case "repeatX" :
-                              return "repeat-x";
-                          case "repeatY" :
-                              return "repeat-y";
-                          case "noRepeat" :
-                              return "no-repeat";
-
-                        }
-                      })());
-      }), {
-      hd: "noRepeat",
-      tl: {
-        hd: "repeat",
-        tl: {
-          hd: "repeatX",
-          tl: {
-            hd: "repeatY",
-            tl: /* [] */0
-          }
-        }
-      }
-    });
+var noRepeatPatern = createPattern(ctx, document.createElement("img"), "no-repeat");
+
+var repeatPatern = createPattern(ctx, document.createElement("img"), "repeat");
+
+var repeatXPatern = createPattern(ctx, document.createElement("img"), "repeat-x");
+
+var repeatYPatern = createPattern(ctx, document.createElement("img"), "repeat-y");
 
 var measureText = ctx.measureText("foo");
 
@@ -151,15 +128,19 @@ ctx.drawImage(image, 0.0, 0.0, 16.0, 16.0);
 
 ctx.drawImage(image, 0.0, 0.0, 16.0, 16.0, 0.0, 0.0, 16.0, 16.0);
 
-var imageData = ctx.createImageData(0.0, 0.0);
+var imageFromCoords = ctx.createImageData(0.0, 0.0);
+
+var imageFromData = ctx.createImageData(imageFromCoords);
+
+var w = imageFromCoords.width;
 
-ctx.createImageData(imageData);
+var h = imageFromCoords.height;
 
-ctx.getImageData(0.0, 0.0, 0.0, 0.0);
+var frameFromImage = ctx.getImageData(0.0, 0.0, 0.0, 0.0);
 
-ctx.putImageData(imageData, 0.0, 0.0);
+ctx.putImageData(imageFromCoords, 0.0, 0.0);
 
-ctx.putImageData(imageData, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0);
+ctx.putImageData(imageFromCoords, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0);
 
 ctx.font = "10px Courier";
 
@@ -187,10 +168,20 @@ ctx.fill(path);
 
 exports.canvasEl = canvasEl;
 exports.ctx = ctx;
+exports.pointInPath = pointInPath;
 exports.linearGradient = linearGradient;
+exports.radialGradient = radialGradient;
+exports.noRepeatPatern = noRepeatPatern;
+exports.repeatPatern = repeatPatern;
+exports.repeatXPatern = repeatXPatern;
+exports.repeatYPatern = repeatYPatern;
 exports.measureText = measureText;
 exports.width = width;
 exports.image = image;
-exports.imageData = imageData;
+exports.imageFromCoords = imageFromCoords;
+exports.imageFromData = imageFromData;
+exports.w = w;
+exports.h = h;
+exports.frameFromImage = frameFromImage;
 exports.path = path;
 /* canvasEl Not a pure module */

lib/js/tests/Webapi/Dom/Webapi__Dom__AnimationEvent__test.js

@@ -5,13 +5,50 @@ var Webapi__Dom__AnimationEvent = require("../../../src/Webapi/Dom/Webapi__Dom__
 
 var $$event = new AnimationEvent("my-event");
 
-Curry._1(Webapi__Dom__AnimationEvent.eventPhase, $$event);
+var bubbles = $$event.bubbles;
+
+var cancelable = $$event.cancelable;
+
+var composed = $$event.composed;
+
+var currentTarget = $$event.currentTarget;
+
+var defaultPrevented = $$event.defaultPrevented;
+
+var eventPhase = Curry._1(Webapi__Dom__AnimationEvent.eventPhase, $$event);
+
+var target = $$event.target;
+
+var timeStamp = $$event.timeStamp;
+
+var type_ = $$event.type;
+
+var isTrusted = $$event.isTrusted;
 
 $$event.preventDefault();
 
 $$event.stopImmediatePropagation();
 
 $$event.stopPropagation();
 
+var animationName = $$event.animationName;
+
+var elapsedTime = $$event.elapsedTime;
+
+var pseudoElement = $$event.pseudoElement;
+
 exports.$$event = $$event;
+exports.bubbles = bubbles;
+exports.cancelable = cancelable;
+exports.composed = composed;
+exports.currentTarget = currentTarget;
+exports.defaultPrevented = defaultPrevented;
+exports.eventPhase = eventPhase;
+exports.target = target;
+exports.timeStamp = timeStamp;
+exports.type_ = type_;
+exports.isTrusted = isTrusted;
+exports.animationName = animationName;
+exports.elapsedTime = elapsedTime;
+exports.pseudoElement = pseudoElement;
 /* event Not a pure module */

lib/js/tests/Webapi/Dom/Webapi__Dom__BeforeUnloadEvent__test.js

@@ -5,13 +5,44 @@ var Webapi__Dom__BeforeUnloadEvent = require("../../../src/Webapi/Dom/Webapi__Do
 
 var $$event = new BeforeUnloadEvent("my-event");
 
-Curry._1(Webapi__Dom__BeforeUnloadEvent.eventPhase, $$event);
+var bubbles = $$event.bubbles;
+
+var cancelable = $$event.cancelable;
+
+var composed = $$event.composed;
+
+var currentTarget = $$event.currentTarget;
+
+var defaultPrevented = $$event.defaultPrevented;
+
+var eventPhase = Curry._1(Webapi__Dom__BeforeUnloadEvent.eventPhase, $$event);
+
+var target = $$event.target;
+
+var timeStamp = $$event.timeStamp;
+
+var type_ = $$event.type;
+
+var isTrusted = $$event.isTrusted;
 
 $$event.preventDefault();
 
 $$event.stopImmediatePropagation();
 
 $$event.stopPropagation();
 
+var returnValue = $$event.returnValue;
+
 exports.$$event = $$event;
+exports.bubbles = bubbles;
+exports.cancelable = cancelable;
+exports.composed = composed;
+exports.currentTarget = currentTarget;
+exports.defaultPrevented = defaultPrevented;
+exports.eventPhase = eventPhase;
+exports.target = target;
+exports.timeStamp = timeStamp;
+exports.type_ = type_;
+exports.isTrusted = isTrusted;
+exports.returnValue = returnValue;
 /* event Not a pure module */