From bf8eb335409b56d1490001a4342d12be98dd69c8 Mon Sep 17 00:00:00 2001
From: Hans Bolinder <hasse@erlang.org>
Date: Wed, 9 Jan 2013 15:04:47 +0100
Subject: [parsetools] Change the encoding of test suites to UTF-8

Should have been done in OTP-10630.
---
 lib/parsetools/test/leex_SUITE.erl | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

(limited to 'lib/parsetools/test/leex_SUITE.erl')

diff --git a/lib/parsetools/test/leex_SUITE.erl b/lib/parsetools/test/leex_SUITE.erl
index 9d591c0d05..afedd79a4e 100644
--- a/lib/parsetools/test/leex_SUITE.erl
+++ b/lib/parsetools/test/leex_SUITE.erl
@@ -1,4 +1,4 @@
-%% -*- coding: latin-1 -*-
+%% -*- coding: utf-8 -*-
 %%
 %% %CopyrightBegin%
 %% 
@@ -888,7 +888,7 @@ otp_10302(Config) when is_list(Config) ->
 
     ok = file:write_file(Filename,<<
          "%% coding: UTF-8\n"
-         "ä"
+         "ä"
      >>),
     {error,[{_,[{2,leex,cannot_parse}]}],[]} =
         leex:file(Filename, Ret),
@@ -896,7 +896,7 @@ otp_10302(Config) when is_list(Config) ->
     ok = file:write_file(Filename,<<
          "%% coding: UTF-8\n"
          "Definitions.\n"
-         "ä"
+         "ä"
      >>),
     {error,[{_,[{3,leex,cannot_parse}]}],[]} = leex:file(Filename, Ret),
 
@@ -907,7 +907,7 @@ otp_10302(Config) when is_list(Config) ->
          "L = [{A}-{Z}]\n"
          "Z = z\n"
          "Rules.\n"
-         "{L}+ : {token,{list_to_atom(TokenChars),Häpp}}.\n"
+         "{L}+ : {token,{list_to_atom(TokenChars),Häpp}}.\n"
      >>),
     {error,[{_,[{7,leex,cannot_parse}]}],[]} = leex:file(Filename, Ret),
 
@@ -922,7 +922,7 @@ otp_10302(Config) when is_list(Config) ->
          "Erlang code.\n"
          "-export([t/0]).\n"
          "t() ->\n"
-         "    Häpp\n"
+         "    Häpp\n"
       >>),
     {error,[{_,[{11,leex,cannot_parse}]}],[]} = leex:file(Filename, Ret),
 
@@ -932,7 +932,7 @@ otp_10302(Config) when is_list(Config) ->
              "{L}+  : {token,{word,TokenLine,TokenChars}}.\n"
              "Erlang code.\n">>,
     LeexPre = filename:join(Dir, "leexinc.hrl"),
-    ?line ok = file:write_file(LeexPre, <<"%% coding: UTF-8\n ä">>),
+    ?line ok = file:write_file(LeexPre, <<"%% coding: UTF-8\n ä">>),
     PreErrors = run_test(Config, Mini, LeexPre),
     {error,[{IncludeFile,[{2,leex,cannot_parse}]}],[]} = PreErrors,
     "leexinc.hrl" = filename:basename(IncludeFile),
@@ -945,16 +945,16 @@ otp_10302(Config) when is_list(Config) ->
          "Z = z\n"
          "Rules.\n"
          "{L}+ : {token,{list_to_atom(TokenChars),\n"
-         "begin Häpp = foo, Häpp end,"
-         " 'Häpp',\"\\x{400}B\",\"örn_Ѐ\"}}.\n"
+         "begin Häpp = foo, Häpp end,"
+         " 'Häpp',\"\\x{400}B\",\"örn_�€\"}}.\n"
          "Erlang code.\n"
          "-export([t/0]).\n"
          "t() ->\n"
-         "    %% Häpp, 'Häpp',\"\\x{400}B\",\"örn_Ѐ\"\n"
+         "    %% Häpp, 'Häpp',\"\\x{400}B\",\"örn_�€\"\n"
          "    {ok, [R], 1} = string(\"tip\"),\n"
-         "    {tip,foo,'Häpp',[1024,66],[246,114,110,95,1024]} = R,\n"
-         "    Häpp = foo,\n"
-         "    {tip, Häpp, 'Häpp',\"\\x{400}B\",\"örn_Ѐ\"} = R,\n"
+         "    {tip,foo,'Häpp',[1024,66],[246,114,110,95,1024]} = R,\n"
+         "    Häpp = foo,\n"
+         "    {tip, Häpp, 'Häpp',\"\\x{400}B\",\"örn_�€\"} = R,\n"
          "    ok.\n">>,
           default,
           ok},
@@ -966,16 +966,16 @@ otp_10302(Config) when is_list(Config) ->
          "Z = z\n"
          "Rules.\n"
          "{L}+ : {token,{list_to_atom(TokenChars),\n"
-         "begin Häpp = foo, Häpp end,"
-         " 'Häpp',\"\\x{400}B\",\"örn_Ѐ\"}}.\n"
+         "begin Häpp = foo, Häpp end,"
+         " 'Häpp',\"\\x{400}B\",\"örn_�€\"}}.\n"
          "Erlang code.\n"
          "-export([t/0]).\n"
          "t() ->\n"
-         "    %% Häpp, 'Häpp',\"\\x{400}B\",\"örn_Ѐ\"\n"
+         "    %% Häpp, 'Häpp',\"\\x{400}B\",\"örn_�€\"\n"
          "    {ok, [R], 1} = string(\"tip\"),\n"
-         "    {tip,foo,'Häpp',[1024,66],[195,182,114,110,95,208,128]} = R,\n"
-         "    Häpp = foo,\n"
-         "    {tip, Häpp, 'Häpp',\"\\x{400}B\",\"örn_Ѐ\"} = R,\n"
+         "    {tip,foo,'Häpp',[1024,66],[195,182,114,110,95,208,128]} = R,\n"
+         "    Häpp = foo,\n"
+         "    {tip, Häpp, 'Häpp',\"\\x{400}B\",\"örn_�€\"} = R,\n"
          "    ok.\n">>,
           default,
           ok}],
-- 
cgit v1.2.3