String2 = testLex "long string with backslash"
  "{\"\\\\\", \"a\", false, ErrBadPattern},"
  [ GoTokLBrace
  , GoTokStr (Just "\"\\\\\"") "\\"
  , GoTokComma,GoTokStr (Just "\"a\"") "a"
  , GoTokComma
  , GoTokId "false"
  , GoTokComma
  , GoTokId "ErrBadPattern"
  , GoTokRBrace
  , GoTokComma
  ]

te
testString2 = testLex "long string with backslash"
  "{\"\\\\\", \"a\", false, ErrBadPattern},"
  [ GoTokLBrace
  , GoTokStr (Just "\"\\\\\"") "\\"
  , GoTokComma,GoTokStr (Just "\"a\"") "a"
  , GoTokComma
  , GoTokId "false"
  , GoTokComma
  , GoTokId "ErrBadPattern"
  , GoTokRBrace
  , GoTokComma
  ]
testString2 = testLex "long string with backslash"
  "{\"\\\\\", \"a\", false, ErrBadPattern},"
  [ GoTokLBrace
  , GoTokStr (Just "\"\\\\\"") "\\"
  , GoTokComma,GoTokStr (Just "\"a\"") "a"
  , GoTokComma
  , GoTokId "false"
  , GoTokComma
  , GoTokId "ErrBadPattern"
  , GoTokRBrace
  , GoTokComma
  ]