18 lines
519 B
Haskell
18 lines
519 B
Haskell
import Aufgabe1
|
|
|
|
import Test.Framework.Providers.HUnit (testCase)
|
|
import Test.Framework.Runners.Console (defaultMain)
|
|
|
|
import Test.HUnit
|
|
|
|
test1 = testCase "filter funktioniert" $ assertEqual "Vowel filter" "Hll Wrld!" result
|
|
|
|
testSentence2 = "Is really EVERY VowEL of this uSEleSS SentencE remOved?"
|
|
testResult2 = "s rlly VRY VwL f ths SlSS Sntnc rmvd?"
|
|
test2 = testCase "filter test" $ assertEqual testSentence2 testResult2 $ filterVowels testSentence2
|
|
|
|
tests = [test1, test2]
|
|
|
|
main :: IO ()
|
|
main = defaultMain tests
|