8badd62b3e
- Upgrade all dependencies - Use Effect instead of Eff - Use Foreign.Object instead of StrMap - Use Effect.Ref instead of Control.Monad.ST - Drop SecureServerM, it's the same as ServerM now
59 lines
1.8 KiB
Haskell
59 lines
1.8 KiB
Haskell
module Test.HTTPure.LookupSpec where
|
|
|
|
import Prelude
|
|
|
|
import Data.Maybe as Maybe
|
|
import Foreign.Object as Object
|
|
|
|
import Test.Spec as Spec
|
|
|
|
import HTTPure.Lookup ((!!), (!@), (!?))
|
|
|
|
import Test.HTTPure.TestHelpers as TestHelpers
|
|
import Test.HTTPure.TestHelpers ((?=))
|
|
|
|
atSpec :: TestHelpers.Test
|
|
atSpec = Spec.describe "at" do
|
|
Spec.describe "when the lookup returns a Just" do
|
|
Spec.it "is the value inside the Just" do
|
|
[ "one", "two", "three" ] !@ 1 ?= "two"
|
|
Spec.describe "when the lookup returns a Nothing" do
|
|
Spec.it "is mempty" do
|
|
[ "one", "two", "three" ] !@ 4 ?= ""
|
|
|
|
hasSpec :: TestHelpers.Test
|
|
hasSpec = Spec.describe "has" do
|
|
Spec.describe "when the lookup returns a Just" do
|
|
Spec.it "is true" do
|
|
[ "one", "two", "three" ] !? 1 ?= true
|
|
Spec.describe "when the lookup returns a Nothing" do
|
|
Spec.it "is false" do
|
|
[ "one", "two", "three" ] !? 4 ?= false
|
|
|
|
lookupArraySpec :: TestHelpers.Test
|
|
lookupArraySpec = Spec.describe "lookupArray" do
|
|
Spec.describe "when the index is in bounds" do
|
|
Spec.it "is Just the value at the index" do
|
|
[ "one", "two", "three" ] !! 1 ?= Maybe.Just "two"
|
|
Spec.describe "when the index is out of bounds" do
|
|
Spec.it "is Nothing" do
|
|
(([ "one", "two", "three" ] !! 4) :: Maybe.Maybe String) ?= Maybe.Nothing
|
|
|
|
lookupMapSpec :: TestHelpers.Test
|
|
lookupMapSpec = Spec.describe "lookupMap" do
|
|
Spec.describe "when the key is in the Map" do
|
|
Spec.it "is Just the value at the given key" do
|
|
mockMap !! "foo" ?= Maybe.Just "bar"
|
|
Spec.describe "when the key is not in the Map" do
|
|
Spec.it "is Nothing" do
|
|
((mockMap !! "baz") :: Maybe.Maybe String) ?= Maybe.Nothing
|
|
where
|
|
mockMap = Object.singleton "foo" "bar"
|
|
|
|
lookupSpec :: TestHelpers.Test
|
|
lookupSpec = Spec.describe "Lookup" do
|
|
atSpec
|
|
hasSpec
|
|
lookupArraySpec
|
|
lookupMapSpec
|