@@ -404,6 +404,9 @@ pathToTestableExpr root path exampleTest =
404 DT.Constructor _ ->
404 DT.Constructor _ ->
405 return (DotRef () accessExpr (Id () "ctor"))
405 return (DotRef () accessExpr (Id () "ctor"))
407+ DT.Literal (L.Chr _) ->
408+ return (DotRef () accessExpr (Id () "valueOf") `call` [])
407 DT.Literal _ ->
410 DT.Literal _ ->
408 return accessExpr
411 return accessExpr