webgl tests

Author: TheSpyder

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 */

tests/Webapi/Canvas/Webapi_Canvas__WebGl__test.res

@@ -0,0 +1,35 @@
+open Webapi.Canvas
+open Webapi.Canvas.WebGl
+open Webapi.Dom
+
+let canvasEl: Dom.element = document->Document.createElement("canvas")
+let ctx: glT = canvasEl->CanvasElement.getContextWebGl
+
+// there is no meaning to these numbers, they're just to make code generate
+
+ctx->clear(5)
+ctx->clearColor(0., 1., 2., 3.)
+ctx->enable(5)
+ctx->disable(5)
+ctx->blendFunc(0, 1)
+ctx->cullFace(5)
+let buf: bufferT = ctx->createBuffer
+ctx->deleteBuffer(buf)
+ctx->bindBuffer(5, buf)
+ctx->bufferData(5, Js.Typed_array.Uint16Array.fromLength(5), 5)
+ctx->bufferFloatData(5, Js.Typed_array.Float32Array.fromLength(5), 5)
+let program = ctx->createProgram
+ctx->linkProgram(program)
+ctx->useProgram(program)
+let programlog: string = ctx->getProgramInfoLog(program)
+ctx->bindAttribLocation(program, 5, "")
+let shader: shaderT = ctx->createShader(5)
+ctx->shaderSource(shader, "")
+ctx->compileShader(shader)
+ctx->attachShader(program, shader)
+let shaderlog: string = ctx->getShaderInfoLog(shader)
+ctx->drawElements(0, 1, 2, 3)
+ctx->enableVertexAttribArray(5)
+ctx->vertexAttribPointer(0, 1, 2, false, 3, 4)
+let loc: int = ctx->getAttribLocation(program, "")
+ctx->drawArrays(0, 1, 2)