dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 06:05:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

Delete temporary test harness.

Browse Source
This commit is contained in:
Dillon Kearns 2021-10-07 11:56:09 -07:00
parent 36e8a1f8cd
commit 99da8d8ebe
1 changed files with 0 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
tests/ElmToHtmlTests.elm
View File

@ -1,33 +0,0 @@
module ElmToHtmlTests exposing (..)
import ElmHtml.InternalTypes
import ElmHtml.ToString
import Expect
import Json.Decode
import Test exposing (describe, test)
all =
describe "ElmToHtml"
[ test "lazy" <|
\() ->
{-
- "$": 0,
- "a": "<script></script> is unsafe in JSON unless it is escaped properly.\n"
-}
"""
{"$":5,"l":[null,{"$":"#0"}]}
"""
|> Json.Decode.decodeString (ElmHtml.InternalTypes.decodeElmHtml (\_ _ -> Json.Decode.succeed ()))
|> Result.map ElmHtml.ToString.nodeToString
|> Expect.equal (Ok "HELLO")
, test "no lazys" <|
\() ->
"""
{"$":0,"a":"HELLO"}
"""
|> Json.Decode.decodeString (ElmHtml.InternalTypes.decodeElmHtml (\_ _ -> Json.Decode.succeed ()))
|> Result.map ElmHtml.ToString.nodeToString
|> Expect.equal (Ok "HELLO")
]