css-class-bindings-0.0.3: test/CssClassBindings/Test/IncludeCssAsserts.hs

{-# LANGUAGE MultilineStrings #-}
module CssClassBindings.Test.IncludeCssAsserts where

import CssClassBindings (class_, id_)
import CssClassBindings.Test.IncludeCssDefs (fooBar, FooBar(..), style)
import Prelude
import Test.Tasty.HUnit ( (@=?) )

unit_camelCaseLiteral :: IO ()
unit_camelCaseLiteral = ("foo-bar" :: String) @=? class_ fooBar

unit_camelCaseLiteral_Id :: IO ()
unit_camelCaseLiteral_Id = ("foo-bar" :: String) @=? id_ FooBar

unit_exportCssInputAsIs :: IO ()
unit_exportCssInputAsIs = css @=? style
  where
    css :: String
    css = """
      .foo-bar {
        color: #1212ff;
      }

      #foo-bar {
        color: #f212ff;
      }
    """ <> "\n"