generated from tpl/purs
33 lines
1.2 KiB
Haskell
33 lines
1.2 KiB
Haskell
|
module Test.Effect.Aff.HTTP.Form where
|
||
|
|
|
||
|
|
import Prelude
|
||
|
|
|
||
|
|
import Data.MIME as MIME
|
||
|
|
import Data.Map as Map
|
||
|
|
import Data.Tuple.Nested ((/\))
|
||
|
|
import Effect (Effect)
|
||
|
|
import Effect.Aff.HTTP.Form (Form(..), RawFormData)
|
||
|
|
import Effect.Aff.HTTP.Form as Form
|
||
|
|
import Effect.Class (liftEffect)
|
||
|
|
import Node.Buffer as Buffer
|
||
|
|
import Node.Encoding (Encoding(..))
|
||
|
|
import Test.Spec (Spec, describe, it)
|
||
|
|
import Test.Spec.Assertions (shouldEqual)
|
||
|
|
|
||
|
|
foreign import dummyForm :: Effect RawFormData
|
||
|
|
|
||
|
|
spec :: Spec Unit
|
||
|
|
spec = describe "Form" do
|
||
|
|
it "fromRaw" do
|
||
|
|
dummy <- liftEffect dummyForm
|
||
|
|
f <- Form.fromRaw dummy
|
||
|
|
buf <- Buffer.fromString "hello, world!" UTF8 >>= Buffer.toArrayBuffer # liftEffect
|
||
|
|
f `shouldEqual` Form (Map.fromFoldable [ "foo" /\ [ Form.ValueString "bar" ], "baz" /\ [ Form.ValueFile (Form.Filename "foo.txt") buf MIME.Txt ] ])
|
||
|
|
it "toRaw" do
|
||
|
|
expect <- liftEffect dummyForm >>= Form.fromRaw
|
||
|
|
buf <- Buffer.fromString "hello, world!" UTF8 >>= Buffer.toArrayBuffer # liftEffect
|
||
|
|
let
|
||
|
|
f = Form (Map.fromFoldable [ "foo" /\ [ Form.ValueString "bar" ], "baz" /\ [ Form.ValueFile (Form.Filename "foo.txt") buf MIME.Txt ] ])
|
||
|
|
actual <- Form.toRawFormData f >>= Form.fromRaw
|
||
|
|
expect `shouldEqual` actual
|