purview-0.1.0.0: src/PurviewSpec.hs

{-# LANGUAGE OverloadedStrings #-}
module PurviewSpec where

import Prelude hiding (div)
import Test.Hspec
import Purview

upButton :: Purview parentAction String m
upButton = onClick ("up" :: String) $ div [ text "up" ]

downButton :: Purview parentAction String m
downButton = onClick ("down" :: String) $ div [ text "down" ]

handler :: Applicative m => (Int -> Purview String action m) -> Purview String action m
handler = simpleHandler 0 action
  where
    action :: String -> Int -> Int
    action "up" _ = 1
    action _    _ = 0

-- counter :: Show a => a -> Purview parentAction action m
counter state = div
  [ upButton
  , text $ "count: " <> show state
  , downButton
  ]

component :: Applicative m => Purview String String m
component = handler counter

event' :: String
event' = "{\"event\":\"click\",\"message\":\"up\"}"

spec :: SpecWith ()
spec = parallel $ do
  describe "applying events" $ do
    it "works with the event directly" $ do
--      let applied = handleEvent event' component
--
--      render [] applied `shouldNotBe` render [] component
      (1 :: Integer) `shouldBe` 1

main :: IO ()
main = hspec spec