git.iko.soy/rowtype-yoga/purescript-uuid
on v1.0.1 help sign in
rowtype-yoga/purescript-uuid/test/Main.purs
34 lines 925 B history raw
1module Test.Main where
3import Prelude
4import Control.Monad.Eff
5import Control.Monad.Eff.Console
7import Control.Monad.Aff
9import Data.Maybe
10import Data.Maybe.Unsafe
11import Data.String
12import Data.UUID
14import Test.Spec
15import Test.Spec.Assertions
16import Test.Spec.Runner
17import Test.Spec.Reporter.Console
19main :: forall e. Eff (uuid :: GENUUID, console :: CONSOLE, process :: Process | e) Unit
20main = run [consoleReporter] do
21 describe "Data.UUID" do
22 it "`genUUID` returns a uuid" do
23 uuid <- liftEff' genUUID
24 (length <<< show) uuid `shouldEqual` 44
26 it "`parseUUID` parses a valid uuid as Just UUID" do
27 let uuidStr = "d0778cf2-3a4c-42ef-acbd-1269b6bec204"
28 uuid = parseUUID uuidStr
29 uuidStr `shouldEqual` (show $ fromJust uuid)
31 it "`parseUUID` parses an invalid uuid as Nothing" do
32 let uuidStr = "foo"
33 uuid = parseUUID uuidStr
34 Nothing `shouldEqual` uuid