Add xor test.

.github/workflows/src.yml

@@ -7,9 +7,8 @@ jobs:
     runs-on: ubuntu-latest
     steps:
       - uses: actions/checkout@v2
-      - uses: aviate-labs/setup-dfx@v0.2.2
+      - uses: aviate-labs/setup-dfx@v0.2.3
         with:
-          dfx-version: 0.8.0
-          install-moc: true
+          dfx-version: 0.8.4
           vessel-version: 0.6.2
-      - run: for i in src/*.mo ; do moc $(vessel sources) --check $i ; done
+      - run: for i in src/*.mo ; do $(vessel bin)/moc $(vessel sources) --check $i ; done

.github/workflows/test.yml

@@ -7,9 +7,8 @@ jobs:
     runs-on: ubuntu-latest
     steps:
       - uses: actions/checkout@v2
-      - uses: aviate-labs/setup-dfx@v0.2.2
+      - uses: aviate-labs/setup-dfx@v0.2.3
         with:
-          dfx-version: 0.8.0
-          install-moc: true
+          dfx-version: 0.8.4
           vessel-version: 0.6.2
-      - run: for i in test/*.mo ; do moc $(vessel sources) -r $i ; done
+      - run: for i in test/*.mo ; do $(vessel bin)/moc $(vessel sources) -r $i ; done

src/XorShift.mo

@@ -25,7 +25,7 @@ module {
             state ^= (state >> 12);
             state ^= (state << 25);
             state ^= (state >> 27);
-            state * 2685821657736338717;
+            state *% 2685821657736338717;
         };
     };
 

test/XorShift.mo

@@ -0,0 +1,19 @@
+import Hash "mo:base/Hash";
+import Nat "mo:base/Nat";
+import Nat64 "mo:base/Nat64";
+import Text "mo:base/Text";
+import TrieSet "mo:base/TrieSet";
+
+import XorShift "../src/XorShift";
+
+import Debug "mo:base/Debug";
+
+var r = XorShift.XorShift64(null);
+var s = TrieSet.empty<Text>();
+var i = 0;
+while (i < 99) {
+    let n = Nat64.toText(r.next());
+    s := TrieSet.put<Text>(s, n, Text.hash(n), Text.equal);
+    i += 1;
+};
+assert(TrieSet.size(s) == 99);