@@ -1,27 +1,25 @@
11module Test.Main where
22
33import Prelude
4−import Control.Monad.Eff
5−import Control.Monad.Eff.Console
4+import Control.Monad.Eff (Eff)
5+import Control.Monad.Eff.Class (liftEff)
6+import Control.Monad.Eff.Console (CONSOLE)
7+import Data.Maybe (Maybe(..), fromJust)
8+import Data.String (length)
9+import Data.UUID (parseUUID, genUUID, GENUUID)
10+import Node.Process (PROCESS)
11+import Partial.Unsafe (unsafePartial)
12+import Test.Spec (it, describe)
13+import Test.Spec.Assertions (shouldEqual)
14+import Test.Spec.Reporter.Console (consoleReporter)
15+import Test.Spec.Runner (run)
616
7−import Control.Monad.Aff
8−
9−import Data.Maybe
10−import Data.Maybe.Unsafe
11−import Data.String
12−import Data.UUID
13−
14−import Test.Spec
15−import Test.Spec.Assertions
16−import Test.Spec.Runner
17−import Test.Spec.Reporter.Console
18−
19−main :: forall e. Eff (uuid :: GENUUID, console :: CONSOLE, process :: Process | e) Unit
20−main = run [consoleReporter] do
17+main :: forall e. Eff (uuid :: GENUUID, console :: CONSOLE, process :: PROCESS | e) Unit
18+main = unsafePartial $ run [consoleReporter] do
2119 describe "Data.UUID" do
2220 it "`genUUID` returns a uuid" do
23− uuid <- liftEff' genUUID
24− (length <<< show) uuid `shouldEqual` 44
21+ uuid <- liftEff genUUID
22+ (length <<< show) uuid `shouldEqual` 36
2523
2624 it "`parseUUID` parses a valid uuid as Just UUID" do
2725 let uuidStr = "d0778cf2-3a4c-42ef-acbd-1269b6bec204"