estLex :: String -> String -> [GoToken] -> TestTree
testLex desc text ref = testCase desc $ assertEqual desc ref toks
  where toks = map strip $ insertSemi $ alexScanTokens text
        strip (GoTokenPos _ tok) = tok

testLex :: String -> String -> [GoToken] -> TestTree
testLex desc text ref = testCase desc $ assertEqual desc ref toks
  where toks = map strip $ insertSemi $ alexScanTokens text
        strip (GoTokenPos _ tok) = tok
testLex desc text ref = testCase desc $ assertEqual desc ref toks
  where toks = map strip $ insertSemi $ alexScanTokens text
        strip (GoTokenPos _ tok) = tok