splitTextTest = TestCase (do
    let test1 = splitText "<a>test</a><b>test</b>"
    let test2 = splitText "<a href=\"blah\">test</a>"
    
    assertEqual "Split Text failed" ["<a>","test","</a>","<b>","test","</b>"] test1
    assertEqual "Split Text failed" ["<a href=\"blah\">","test","</a>"] test2
    )
splitTextTest = TestCase (do
    let test1 = splitText "<a>test</a><b>test</b>"
    let test2 = splitText "<a href=\"blah\">test</a>"
    
    assertEqual "Split Text failed" ["<a>","test","</a>","<b>","test","</b>"] test1
    assertEqual "Split Text failed" ["<a href=\"blah\">","test","</a>"] test2
    )
splitTextTest = TestCase (do
    let test1 = splitText "<a>test</a><b>test</b>"
    let test2 = splitText "<a href=\"blah\">test</a>"
    
    assertEqual "Split Text failed" ["<a>","test","</a>","<b>","test","</b>"] test1
    assertEqual "Split Text failed" ["<a href=\"blah\">","test","</a>"] test2
    )