module Text.HTML.Tagchup.Test ( -- * Tests on laziness laziness, lazyTags, lazyWarnings, restrictedWarnings, ) where import qualified Text.HTML.Tagchup.Tag as Tag import qualified Text.HTML.Tagchup.Parser as Parser import qualified Text.XML.Basic.Name.MixedCase as Name import Data.List (isPrefixOf, ) {- *Text.HTML.TagSoup.HT> mapM print $ runSoup $ " [Tag.T Name.T String] runSoup = Parser.runSoup lazyTags :: [Char] lazyTags = map ((!!1000) . show . runSoup) $ (cycle "Rhabarber") : (repeat '&') : ('&' : '#' : repeat '1') : ('&' : repeat 'a') : ("<"++cycle "html") : ("