History test

Author: TheSpyder

lib/js/tests/Webapi/Dom/Webapi__Dom__History__test.js

@@ -1,10 +1,16 @@
 'use strict';
 
 
+var length = window.history.length;
+
+var scrollRestorationTest = window.history.scrollRestoration;
+
 window.history.scrollRestoration = "auto";
 
 window.history.scrollRestoration = "manual";
 
+var stateTest = window.history.state;
+
 var match = window.history.scrollRestoration;
 
 if (match === "manual") {
@@ -23,4 +29,7 @@ window.history.pushState(window.history.state, "My title", "http://...");
 
 window.history.replaceState(window.history.state, "My title", "http://...");
 
-/*  Not a pure module */
+exports.length = length;
+exports.scrollRestorationTest = scrollRestorationTest;
+exports.stateTest = stateTest;
+/* length Not a pure module */

tests/Webapi/Dom/Webapi__Dom__History__test.res

@@ -1,11 +1,11 @@
 open Webapi.Dom
 open History
 
-let _ = history->length
-let _ = history->scrollRestoration
-let _ = history->setScrollRestoration(#auto)
-let _ = history->setScrollRestoration(#manual)
-let _ = history->state
+let length: int = history->length
+let scrollRestorationTest: [#auto | #manual] = history->scrollRestoration
+history->setScrollRestoration(#auto)
+history->setScrollRestoration(#manual)
+let stateTest: state = history->state
 
 switch (history->scrollRestoration) {
   | #auto => Js.log("auto scroll")