spanUntilTest2 = TestCase (do
    let (a,b) = spanUntil (==' ') "abc def"
    assertEqual "Span test2 failed" ("abc ", "def") (a,b)
    )
spanUntilTest2 = TestCase (do
    let (a,b) = spanUntil (==' ') "abc def"
    assertEqual "Span test2 failed" ("abc ", "def") (a,b)
    )
spanUntilTest2 = TestCase (do
    let (a,b) = spanUntil (==' ') "abc def"
    assertEqual "Span test2 failed" ("abc ", "def") (a,b)
    )