urbit-hob

commit cef0de24a4f0d2695e85e4703d2eadecfa3c9471
parent e60780a5f87b6d9bb8fa26529615a4c305bdf451
Author: Jared Tobin <jared@jtobin.io>
Date:   Fri, 13 Sep 2019 16:20:54 -0230

tests: adjust input types

Diffstat:
M
test/Ob/Tests/Med.hs
 | 
3
+--
M
test/Ob/Tests/Small.hs
 | 
9
++++-----

2 files changed, 5 insertions(+), 7 deletions(-)
diff --git a/test/Ob/Tests/Med.hs b/test/Ob/Tests/Med.hs
@@ -8,7 +8,6 @@ import Prelude hiding (tail)
 import Test.Hspec
 import qualified Urbit.Ob.Ob as Ob
 
-a, b, c :: Int
 a = 2 ^ 4 - 1
 b = 2 ^ 4
 c = a * b
@@ -32,7 +31,7 @@ emm = [
   ]
 
 
-eff _ m = v0 !! m where
+eff _ m = v0 !! fromIntegral m where
   v0 = [
     106,  54,  57, 110, 216, 157,  90, 138, 148, 205, 214, 229,  25, 104, 217,  70,  16,  91,
     180, 108, 189, 176,  67, 213, 154, 194, 122, 199, 136, 140,  36,  56,  87, 112,   8,  34,
diff --git a/test/Ob/Tests/Small.hs b/test/Ob/Tests/Small.hs
@@ -8,7 +8,6 @@ import Prelude hiding (tail)
 import Test.Hspec
 import qualified Urbit.Ob.Ob as Ob
 
-a, b, c :: Int
 a = 2 ^ 2 - 1
 b = 2 ^ 2
 c = a * b
@@ -20,10 +19,10 @@ eff j m =
       v3 = [11, 0, 3, 5, 9, 8, 6, 10, 4, 1, 2, 7]
 
   in  case j of
-        0 -> v0 !! m
-        1 -> v1 !! m
-        2 -> v2 !! m
-        _ -> v3 !! m
+        0 -> v0 !! fromIntegral m
+        1 -> v1 !! fromIntegral m
+        2 -> v2 !! fromIntegral m
+        _ -> v3 !! fromIntegral m
 
 feis = Ob.capFe 4 a b c eff