thunderstrike/purescript-cheerio
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Migrate to Purescript 12

Browse Source
This commit is contained in:
Gareth Daniel Smith
2018-07-28 08:40:04 +01:00
parent 7bfc8d7c02
commit f021c70946
7 changed files with 56 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
test/Test/Cheerio.purs
View File

@@ -2,13 +2,10 @@ module Test.Cheerio where
import Prelude hiding (eq)
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.AVar (AVAR)
import Control.Monad.Eff.Console (CONSOLE)
import Effect (Effect)
import Data.Maybe (Maybe(..))
import Test.Unit (TestSuite, suite, test)
import Test.Unit.Assert as Assert
import Test.Unit.Console (TESTOUTPUT)
import Test.Unit.Main (runTest)
import Cheerio
@@ -32,10 +29,10 @@ import Cheerio.Static (loadRoot)
import Test.HtmlEx (htmlEx)
main :: Eff (avar :: AVAR, console :: CONSOLE, testOutput :: TESTOUTPUT) Unit
main :: Effect Unit
main = runTest suites
suites :: forall eff. TestSuite eff
suites :: TestSuite
suites = do
suite "Attributes" do
test "attr" do

11
test/Test/Cheerio/Static.purs
View File

@@ -2,13 +2,10 @@ module Test.Cheerio.Static where
import Prelude hiding (eq)
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.AVar (AVAR)
import Control.Monad.Eff.Console (CONSOLE)
import Effect (Effect)
import Data.Maybe (Maybe(..))
import Test.Unit (TestSuite, suite, test)
import Test.Unit.Assert as Assert
import Test.Unit.Console (TESTOUTPUT)
import Test.Unit.Main (runTest)
import Cheerio (attr, find, length, text)
@@ -24,10 +21,10 @@ import Cheerio.Static
import Test.HtmlEx (htmlEx)
main :: Eff (avar :: AVAR, console :: CONSOLE, testOutput :: TESTOUTPUT) Unit
main :: Effect Unit
main = runTest suites
suites :: forall eff. TestSuite eff
suites :: TestSuite
suites = do
suite "Loading" do
test "load" do
@@ -50,4 +47,4 @@ suites = do
test "html" do
Assert.equal
(Just """<li class="apple">Apple</li>""")
(loadRoot htmlEx # find ".apple" # html)
(loadRoot htmlEx # find ".apple" # html)

11
test/Test/Main.purs
View File

@@ -2,20 +2,17 @@ module Test.Main where
import Prelude hiding (eq)
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.AVar (AVAR)
import Control.Monad.Eff.Console (CONSOLE)
import Effect (Effect)
import Test.Unit (TestSuite)
import Test.Unit.Console (TESTOUTPUT)
import Test.Unit.Main (runTest)
import Test.Cheerio as C
import Test.Cheerio.Static as CS
main :: Eff (avar :: AVAR, console :: CONSOLE, testOutput :: TESTOUTPUT) Unit
main :: Effect Unit
main = runTest suites
suites :: forall eff. TestSuite eff
suites :: TestSuite
suites = do
C.suites
CS.suites
CS.suites