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 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
  , children
  , eq
  , find
  , first
  , hasClass
  , html
  , last
  , length
  , next
  , parent
  , prev
  , siblings
  , text
  )

import Cheerio.Static (loadRoot)

import Test.HtmlEx (htmlEx)

main :: Eff (avar :: AVAR, console :: CONSOLE, testOutput :: TESTOUTPUT) Unit
main = runTest suites

suites :: forall eff. TestSuite eff
suites = do
  suite "Attributes" do
    test "attr" do
      Assert.equal
        "fruits"
        (loadRoot htmlEx # find "ul" # attr "id")

    test "hasClass" do
      Assert.equal
        true
        (loadRoot htmlEx # find ".pear" # hasClass "pear")

      Assert.equal
        false
        (loadRoot htmlEx # find "apple" # hasClass "fruit")

      Assert.equal
        true
        (loadRoot htmlEx # find "li" # hasClass "pear")

  suite "Traversing" do
    test "find" do
      Assert.equal
        3
        (loadRoot htmlEx # find "#fruits" # find "li" # length)

    test "parent" do
      Assert.equal
        "fruits"
        (loadRoot htmlEx # find ".pear" # parent # attr "id")

    test "next" do
      Assert.equal
        true
        (loadRoot htmlEx # find ".apple" # next # hasClass "orange")

    test "prev" do
      Assert.equal
        true
        (loadRoot htmlEx # find ".orange" # prev # hasClass "apple")

    test "siblings" do
      Assert.equal
        2
        (loadRoot htmlEx # find ".pear" # siblings # length)

    test "children" do
      Assert.equal
        3
        (loadRoot htmlEx # find "#fruits" # children # length)

    test "first" do
      Assert.equal
        "Apple"
        (loadRoot htmlEx # find "#fruits" # children # first # text)

    test "last" do
      Assert.equal
        "Pear"
        (loadRoot htmlEx # find "#fruits" # children # last # text)

    test "eq" do
      Assert.equal
        "Apple"
        (loadRoot htmlEx # find "li" # eq 0 # text)

      Assert.equal
        "Pear"
        (loadRoot htmlEx # find "li" # eq (-1) # text)

  suite "Rendering" do
    test "html" do
      Assert.equal
        (Just "Apple")
        (loadRoot htmlEx # find ".apple" # html)

    test "text" do
      Assert.equal
        "Apple"
        (loadRoot htmlEx # find ".apple" # text)

  suite "More" do
    test "Long chain" do
      Assert.equal
        "Apple"
        ( loadRoot htmlEx
        # find ".apple"
        # siblings
        # eq 1
        # parent
        # children
        # first
        # text)