| | | module Test_checkHTML (tCH) where
tCH :: (String -> Bool) -> IO () tCH f = putStr (tch htmlTestList) where tch [] = "" tch (s:htl) = "f " ++ show s ++ " = " ++ show (f s) ++ "\n" ++ tch htl htmlTestList = [ html0, html1, html2, html3, html4, khtml0, khtml1, khtml2, khtml3, khtml4, khtml5, khtml6, khtml7, khtml8 ] html0 = "<html> <head> <title> </title> </head> <body> </body> </html>" html1 = "<html> <head> <title> </title> <meta> </meta> </head> <body> </body> </html>" html2 = "<html> <head> <title> </title> <meta> </meta> <meta> </meta> </head> <body> </body> </html>" html3 = "<html> <head> <title> </title> <meta> </meta> <meta> </meta> <meta> </meta> </head> <body> </body> </html>" html4 = "<html> <head> <title> </title> <meta> </meta> <meta> </meta> <meta> </meta> <meta> </meta> </head> <body> </body> </html>" khtml0 = "<html> <head> <title> </title> </head> <body> </body> " khtml1 = "<html> <head> <title> </title> </head> <body> </body> </htmll>" khtml2 = "<head> <title> </title> </head> <body> </body> </html>" khtml3 = "<html> <head> <title> Hallo Leute! </title> </head> <body> </body> </html>" khtml4 = "<html> <head> <title> </title> <meta name=\"test\" value=\"blafasel\"> </meta> <meta> </meta> </head> <body> </body> </html>" khtml5 = "<html> <head> <title> </title> <meta> </meta> <meta> MetaInhalt </meta> </head> <body> </body> </html>" khtml6 = "<html> <head> <title> </title> <meta> </meta> <meta> </meta> </head> <body> </body> </khtml>" khtml7 = "<html> <head> <title> </title> <meta> </meta> <meta> </meta> </head> <body> HTML-Text, der angezeigt wird, oder auch nicht... </body> </html>" khtml8 = "<html> <head> <meta> </meta> <meta> </meta> </head> <body> </body> </html>"
Zuletzt geändert von amo am 04.12.2002 um 03:49 Uhr. |