lucid-aria-0.1.0.0: test/Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import Lucid.Aria (busy_)
import Lucid.Base (Attribute (Attribute))
import Test.Hspec

main :: IO ()
main = hspec $ do
  it "generates correct aria-busy attribute" $
    busy_ "true" `shouldBe` Attribute "aria-busy" "true"