spanUntilTest1 = TestCase (do
    let (a,b) = spanUntil (==' ') ""
    assertEqual "Empty string should result in empty span" ([], []) (a,b)
    )
spanUntilTest1 = TestCase (do
    let (a,b) = spanUntil (==' ') ""
    assertEqual "Empty string should result in empty span" ([], []) (a,b)
    )
spanUntilTest1 = TestCase (do
    let (a,b) = spanUntil (==' ') ""
    assertEqual "Empty string should result in empty span" ([], []) (a,b)
    )