diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2017-01-02 17:56:04 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2017-01-10 14:35:04 +0100 |
commit | 0d1f9ff76aa6df3f17edd2d73c76ab444fec8528 (patch) | |
tree | e6a628b78a08beb7fd9912c3f4b9bbdcee59c3c4 /tests/expressionParser_test.ml | |
parent | 444c0baa87b6edfb21c002bf9e079e10509ee0e9 (diff) |
Corrected some issues with odf documents
Diffstat (limited to 'tests/expressionParser_test.ml')
-rwxr-xr-x | tests/expressionParser_test.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/expressionParser_test.ml b/tests/expressionParser_test.ml index 7c16233..25d9d00 100755 --- a/tests/expressionParser_test.ml +++ b/tests/expressionParser_test.ml @@ -4,8 +4,8 @@ let u = UTF8.from_utf8string let _msg ~(expected:Expression.t) ~(result:Expression.t) = Printf.sprintf "Expected %s but got %s" - (UTF8.encode @@ Expression.show @@ Expression.load_expr expected) - (UTF8.encode @@ Expression.show @@ Expression.load_expr result) + (UTF8.raw_encode @@ Expression.show @@ Expression.load_expr expected) + (UTF8.raw_encode @@ Expression.show @@ Expression.load_expr result) let load_expr str = Expression.Formula ( |