Remove ?line macros

1 files changed, 220 insertions, 230 deletions

diff --git a/lib/xmerl/test/xmerl_SUITE.erl b/lib/xmerl/test/xmerl_SUITE.erl
index 413f5c82db..75d602dd53 100644
--- a/lib/xmerl/test/xmerl_SUITE.erl
+++ b/lib/xmerl/test/xmerl_SUITE.erl
@@ -76,15 +76,15 @@ init_per_suite(doc) ->
     ["Starts the test suite"];
 init_per_suite(Config) ->
     Dog=test_server:timetrap({minutes,10}),
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line ok=erl_tar:extract("cpd.tar.gz",[compressed]),
-    ?line ok=erl_tar:extract("misc.tar.gz",[compressed]),
-    ?line ok = change_mode(["cpd", "misc"]),
-    ?line file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
+    file:set_cwd(?config(data_dir,Config)),
+    ok=erl_tar:extract("cpd.tar.gz",[compressed]),
+    ok=erl_tar:extract("misc.tar.gz",[compressed]),
+    ok = change_mode(["cpd", "misc"]),
+    file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
     TestServerIncludeDir=filename:join(filename:dirname(code:priv_dir(test_server)), "include"),
-    ?line {ok, xpath_lib} = compile:file(xpath_lib, [{i, TestServerIncludeDir}]),
-    ?line {ok, xpath_text} = compile:file(xpath_text, [{i, TestServerIncludeDir}]),
-    ?line {ok, xpath_abbrev} = compile:file(xpath_abbrev, [{i, TestServerIncludeDir}]),
+    {ok, xpath_lib} = compile:file(xpath_lib, [{i, TestServerIncludeDir}]),
+    {ok, xpath_text} = compile:file(xpath_text, [{i, TestServerIncludeDir}]),
+    {ok, xpath_abbrev} = compile:file(xpath_abbrev, [{i, TestServerIncludeDir}]),
     [{watchdog, Dog}|Config].
 
 
@@ -92,8 +92,8 @@ init_per_suite(Config) ->
 end_per_suite(doc) ->
     ["Stops the test suite"];
 end_per_suite(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line ok=rm_files(["cpd", "misc"]),
+    file:set_cwd(?config(data_dir,Config)),
+    ok=rm_files(["cpd", "misc"]),
     Dog=?config(watchdog, Config),
     test_server:timetrap_cancel(Dog),
     lists:keydelete(watchdog,1,Config).
@@ -111,8 +111,8 @@ end_per_suite(Config) ->
 %% initialization before each testcase
 init_per_testcase(_TestCase,Config) ->
     io:format("Config:~n~p",[Config]),
-    ?line {ok, _} = file:read_file_info(filename:join([?config(priv_dir,Config)])),
-    ?line code:add_patha(?config(priv_dir,Config)),
+    {ok, _} = file:read_file_info(filename:join([?config(priv_dir,Config)])),
+    code:add_patha(?config(priv_dir,Config)),
     Dog=test_server:timetrap({minutes,10}),
     [{watchdog, Dog}|Config].
 
@@ -129,157 +129,157 @@ end_per_testcase(_Func,Config) ->
 %%----------------------------------------------------------------------
 cpd_invalid1(suite) -> [];
 cpd_invalid1(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"cpd_test.xml"]),[]) of
-	      {'EXIT',{fatal,Reason}} ->
-		  case Reason of
-		      {expected_markup,_Path,28,32} -> ok;
-		      _ -> {comment,"parsing changed behaviour"}
-		  end
-	  end.
+    file:set_cwd(?config(data_dir,Config)),
+    case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"cpd_test.xml"]),[]) of
+        {'EXIT',{fatal,Reason}} ->
+            case Reason of
+                {expected_markup,_Path,28,32} -> ok;
+                _ -> {comment,"parsing changed behaviour"}
+            end
+    end.
 
 cpd_invalid1_index(suite) -> [];
 cpd_invalid1_index(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"cpd_index.xml"]),[]) of
-	      {'EXIT',{fatal,Reason}} ->
-		  case Reason of
-		      {{error,{whitespace_was_expected}},_Path,1,19} -> ok;
-		      _ -> {comment,"parsing changed behaviour"}
-		  end
-	  end.
+    file:set_cwd(?config(data_dir,Config)),
+    case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"cpd_index.xml"]),[]) of
+        {'EXIT',{fatal,Reason}} ->
+            case Reason of
+                {{error,{whitespace_was_expected}},_Path,1,19} -> ok;
+                _ -> {comment,"parsing changed behaviour"}
+            end
+    end.
 
 cpd_invalid2_index(suite) -> [];
 cpd_invalid2_index(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"cpd_index2.xml"]),[]) of
-	      {'EXIT',{fatal,Reason}} ->
-		  case Reason of
-		      {{invalid_target_name,_Ver},_Path,2,3} ->ok;
-		      _ -> {comment,"parsing changed behaviour"}
-		  end
-	  end.
+    file:set_cwd(?config(data_dir,Config)),
+    case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"cpd_index2.xml"]),[]) of
+        {'EXIT',{fatal,Reason}} ->
+            case Reason of
+                {{invalid_target_name,_Ver},_Path,2,3} ->ok;
+                _ -> {comment,"parsing changed behaviour"}
+            end
+    end.
 
 cpd_invalid_index3(suite) -> [];
 cpd_invalid_index3(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"cpd_index3.xml"]),[]) of
-	      {'EXIT',{fatal,Reason}} ->
-		  case Reason of
-		      {expected_markup,_Path,1,2} -> ok;
-		      _ -> {comment,"parsing changed behaviour"}
-		  end
-	  end.
+    file:set_cwd(?config(data_dir,Config)),
+    case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"cpd_index3.xml"]),[]) of
+        {'EXIT',{fatal,Reason}} ->
+            case Reason of
+                {expected_markup,_Path,1,2} -> ok;
+                _ -> {comment,"parsing changed behaviour"}
+            end
+    end.
 
 cpd_invalid_is_layer(suite) -> [];
 cpd_invalid_is_layer(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"is_layer2.xml"]),[]) of
-	      {'EXIT',{fatal,_Reason}} -> ok
-	  end.
+    file:set_cwd(?config(data_dir,Config)),
+    case catch xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"is_layer2.xml"]),[]) of
+        {'EXIT',{fatal,_Reason}} -> ok
+    end.
 
 cpd_expl_provided_DTD(suite) -> [];
 cpd_expl_provided_DTD(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line {#xmlElement{},[]} = xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"file_wo_DTD.xml"]),[{validation,true},{doctype_DTD,"separate_DTD.dtd"}]).
+    file:set_cwd(?config(data_dir,Config)),
+    {#xmlElement{},[]} = xmerl_scan:file(filename:join([?config(data_dir,Config), cpd,"file_wo_DTD.xml"]),
+                                         [{validation,true},{doctype_DTD,"separate_DTD.dtd"}]).
 
 %%----------------------------------------------------------------------
 
 xpath_text1(suite) -> [];
 xpath_text1(Config) ->
-    ?line file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
-    ?line ok = xpath_text:one().
+    file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
+    ok = xpath_text:one().
 
 xpath_main(suite) -> [];
 xpath_main(Config) ->
-    ?line file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
-    ?line ok = xpath_lib:test().
+    file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
+    ok = xpath_lib:test().
 
 xpath_abbreviated_syntax(suite) -> [];
 xpath_abbreviated_syntax(Config) ->
-    ?line file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
-    ?line ok = xpath_abbrev:test().
+    file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
+    ok = xpath_abbrev:test().
 
 xpath_functions(suite) -> [];
 xpath_functions(Config) ->
-    ?line file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
-    ?line ok = xpath_abbrev:functions().
+    file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
+    ok = xpath_abbrev:functions().
 
 xpath_namespaces(suite) -> [];
 xpath_namespaces(Config) ->
-    ?line file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
-    ?line ok = xpath_abbrev:namespaces().
+    file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
+    ok = xpath_abbrev:namespaces().
 
 %%----------------------------------------------------------------------
 
 latin1_alias(suite) -> [];
 latin1_alias(Config) ->
-%    ?line file:set_cwd(filename:join(?config(data_dir,Config),misc)),
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line {_Elements,[]}=
-	xmerl_scan:file(filename:join([?config(data_dir,Config),
-				       misc,"motorcycles.xml"]),
-			[{validation,true},
-			 {encoding,'iso-8859-1'}]).
+%    file:set_cwd(filename:join(?config(data_dir,Config),misc)),
+    file:set_cwd(?config(data_dir,Config)),
+    {_Elements,[]}= xmerl_scan:file(filename:join([?config(data_dir,Config),
+                                                   misc,"motorcycles.xml"]),
+                                    [{validation,true},
+                                     {encoding,'iso-8859-1'}]).
 
 syntax_bug1(suite) -> [];
 syntax_bug1(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line {fatal,{"expected one of: ?>, standalone, encoding",
-		  {file,'misc/syntax_bug1.xml'},{line,1},{col,21}}} =
-	case catch xmerl_scan:file('misc/syntax_bug1.xml') of
-	    {'EXIT',Reason} ->
-		Reason;
-	    Err -> Err
-	end.
+    file:set_cwd(?config(data_dir,Config)),
+    {fatal,{"expected one of: ?>, standalone, encoding",
+            {file,'misc/syntax_bug1.xml'},{line,1},{col,21}}
+    } = case catch xmerl_scan:file('misc/syntax_bug1.xml') of
+            {'EXIT',Reason} ->
+                Reason;
+            Err -> Err
+        end.
 
 syntax_bug2(suite) -> [];
 syntax_bug2(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line {fatal,{"expected one of: ?>, whitespace_character",
-		  {file,'misc/syntax_bug2.xml'},{line,1},{col,20}}} =
-	case catch xmerl_scan:file('misc/syntax_bug2.xml') of
-	    {'EXIT',Reason} ->
-		Reason;
-	    Err -> Err
-	end.
+    file:set_cwd(?config(data_dir,Config)),
+    {fatal,{"expected one of: ?>, whitespace_character",
+            {file,'misc/syntax_bug2.xml'},{line,1},{col,20}}
+    } = case catch xmerl_scan:file('misc/syntax_bug2.xml') of
+            {'EXIT',Reason} ->
+                Reason;
+            Err -> Err
+        end.
 
 syntax_bug3(suite) -> [];
 syntax_bug3(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line {fatal,{{endtag_does_not_match,{was,obj,should_have_been,int}},
-			  {file,'misc/syntax_bug3.xml'},{line,4},{col,3}}} =
-	case catch xmerl_scan:file('misc/syntax_bug3.xml') of
-	    {'EXIT',Reason} ->
-		Reason;
-	    Err -> Err
-	end.
+    file:set_cwd(?config(data_dir,Config)),
+    {fatal,{{endtag_does_not_match,{was,obj,should_have_been,int}},
+            {file,'misc/syntax_bug3.xml'},{line,4},{col,3}}
+    } = case catch xmerl_scan:file('misc/syntax_bug3.xml') of
+            {'EXIT',Reason} ->
+                Reason;
+            Err -> Err
+        end.
 
 pe_ref1(suite) -> [];
 pe_ref1(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line {#xmlElement{},[]} = xmerl_scan:file(filename:join([?config(data_dir,Config), misc,"PE_ref1.xml"]),[{validation,true}]).
+    file:set_cwd(?config(data_dir,Config)),
+    {#xmlElement{},[]} = xmerl_scan:file(filename:join([?config(data_dir,Config), misc,"PE_ref1.xml"]),[{validation,true}]).
 
 copyright(suite) -> [];
 copyright(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line {#xmlElement{},[]} = xmerl_scan:file(filename:join([?config(data_dir,Config), misc,"cprght.xml"]),[{validation,true}]).
+    file:set_cwd(?config(data_dir,Config)),
+    {#xmlElement{},[]} = xmerl_scan:file(filename:join([?config(data_dir,Config), misc,"cprght.xml"]),[{validation,true}]).
 
 testXSEIF(suite) -> [];
 testXSEIF(Config) ->
-    ?line file:set_cwd(?config(data_dir,Config)),
-    ?line {#xmlElement{},[]} = xmerl_scan:file(filename:join([?config(data_dir,Config), misc,"ReplBoard_1_1543-CNA11313Uen.xml"]),[{validation,true}]).
+    file:set_cwd(?config(data_dir,Config)),
+    {#xmlElement{},[]} = xmerl_scan:file(filename:join([?config(data_dir,Config), misc,"ReplBoard_1_1543-CNA11313Uen.xml"]),[{validation,true}]).
 
 export_simple1(suite) -> [];
 export_simple1(Config) ->
     Simple = simple(),
     Res = xmerl:export_simple(Simple,xmerl_xml,[{title, "Doc Title"}]),
-    ?line "<?xml version="++_ = lists:flatten(Res),
+    "<?xml version="++_ = lists:flatten(Res),
 
     %% Use of fun in simple content OTP-6679
     Simple2 = simple2(),
     Res2 = xmerl:export_simple(Simple2,xmerl_xml,[{title,"Doc Title"}]),
-    ?line true = (Res2 =:= Res),
+    true = (Res2 =:= Res),
     ok.
 
 export(suite) -> [];
@@ -287,18 +287,18 @@ export(Config) ->
     DataDir = ?config(data_dir,Config),
     Prolog = ["<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n<!DOCTYPE motorcycles SYSTEM \"motorcycles.dtd\">\n"],
     TestFile = filename:join([DataDir,"misc","motorcycles.xml"]),
-    ?line {E,_} = xmerl_scan:file(TestFile),
-    ?line Exported = xmerl:export([E],xmerl_xml,[{prolog,Prolog}]),
+    {E,_} = xmerl_scan:file(TestFile),
+    Exported = xmerl:export([E],xmerl_xml,[{prolog,Prolog}]),
     B = list_to_binary(Exported++"\n"),
-    ?line {ok, B} = file:read_file(TestFile),
+    {ok, B} = file:read_file(TestFile),
     ok.
 
 %%----------------------------------------------------------------------
 
 sax_parse_and_export(suite) -> [];
 sax_parse_and_export(Config) ->
-    ?line ok = sax_parse_export_xml_big(Config),
-    ?line ok = sax_parse_export_xml_small(Config).
+    ok = sax_parse_export_xml_big(Config),
+    ok = sax_parse_export_xml_small(Config).
 
 %%----------------------------------------------------------------------
 
@@ -307,32 +307,32 @@ sax_parse_export_xml_big(Config) ->
     OutDir = ?config(priv_dir,Config),
     io:format("DataDir: ~p~n,OutDir:~p~n",[DataDir,OutDir]),
     CMOMxml = filename:join([DataDir,"eventp","CMOM.xml"]),
-    ?line {Ex,[]} = xmerl_eventp:file_sax(CMOMxml, xmerl_xml,[],[]),
+    {Ex,[]} = xmerl_eventp:file_sax(CMOMxml, xmerl_xml,[],[]),
     OutFile = filename:join([OutDir,"cmom"]),
     file:delete(OutFile),
     StubFile = filename:join([DataDir,"eventp","CelloMOM.stub"]),
-    ?line {ok,Bin} = file:read_file(StubFile),
-    ?line {ok,IO} = file:open(OutFile,[write,append]),
-    ?line ok = file:write(IO,Bin),
-    ?line ok = io:format(IO,"~s~n~n",[lists:flatten(Ex)]),
+    {ok,Bin} = file:read_file(StubFile),
+    {ok,IO} = file:open(OutFile,[write,append]),
+    ok = file:write(IO,Bin),
+    ok = io:format(IO,"~s~n~n",[lists:flatten(Ex)]),
     Cmd = lists:flatten(io_lib:format("cmp ~s ~s",[OutFile,CMOMxml])),
-    ?line [] = os:cmd(Cmd),
+    [] = os:cmd(Cmd),
     ok.
 
 sax_parse_export_xml_small(Config) ->
     DataDir = ?config(data_dir,Config),
     OutDir = ?config(priv_dir,Config),
     Wurfl_xml = filename:join([DataDir,"eventp","wurfl.xml"]),
-    ?line {Ex,[]} = xmerl_eventp:file_sax(Wurfl_xml, xmerl_xml,[],[]),
+    {Ex,[]} = xmerl_eventp:file_sax(Wurfl_xml, xmerl_xml,[],[]),
     OutFile = filename:join([OutDir,"wrfl"]),
     file:delete(OutFile),
     StubFile = filename:join([DataDir,"eventp","wurfl.stub"]),
-    ?line {ok,Bin} = file:read_file(StubFile),
-    ?line {ok,IO} = file:open(OutFile,[write,append]),
-    ?line ok = file:write(IO,Bin),
-    ?line ok = io:format(IO,"~s~n",[lists:flatten(Ex)]),
+    {ok,Bin} = file:read_file(StubFile),
+    {ok,IO} = file:open(OutFile,[write,append]),
+    ok = file:write(IO,Bin),
+    ok = io:format(IO,"~s~n",[lists:flatten(Ex)]),
     Cmd = lists:flatten(io_lib:format("cmp ~s ~s",[OutFile,Wurfl_xml])),
-    ?line [] = os:cmd(Cmd),
+    [] = os:cmd(Cmd),
     ok.
 
 
@@ -440,26 +440,24 @@ ticket_5998(Config) ->
     DataDir = ?config(data_dir,Config),
     %% First fix is tested by case syntax_bug2.
     
-    ?line case catch xmerl_scan:file(filename:join([DataDir,misc,
-						    "ticket_5998_2.xml"])) of
-	      {'EXIT',{fatal,Reason1}} ->
-		  case Reason1 of
-		      {{endtag_does_not_match,
-			{was,obj,should_have_been,int}},
-		       _,_,_} -> ok;
-		      _ -> {comment,"parsing changed behaviour"}
-		  end
-	  end,
-
-    ?line case catch xmerl_scan:file(filename:join([DataDir,misc,
-						    "ticket_5998_3.xml"])) of
-	      {'EXIT',{fatal,Reason2}} ->
-		  case Reason2 of
-		      {"expected one of: ?>, standalone, encoding",
-		       _,_,_} -> ok;
-		      _ -> {comment,"parsing changed behaviour"}
-		  end
-	  end.    
+    case catch xmerl_scan:file(filename:join([DataDir,misc, "ticket_5998_2.xml"])) of
+        {'EXIT',{fatal,Reason1}} ->
+            case Reason1 of
+                {{endtag_does_not_match,
+                  {was,obj,should_have_been,int}},
+                 _,_,_} -> ok;
+                _ -> {comment,"parsing changed behaviour"}
+            end
+    end,
+
+    case catch xmerl_scan:file(filename:join([DataDir,misc, "ticket_5998_3.xml"])) of
+        {'EXIT',{fatal,Reason2}} ->
+            case Reason2 of
+                {"expected one of: ?>, standalone, encoding",
+                 _,_,_} -> ok;
+                _ -> {comment,"parsing changed behaviour"}
+            end
+    end.
 
 
 %%
@@ -471,29 +469,27 @@ ticket_5998(Config) ->
 ticket_7211(suite) -> [];
 ticket_7211(Config) ->
     DataDir = ?config(data_dir,Config),
-    ?line {E,[]} = 
-	xmerl_scan:file(filename:join([DataDir,misc,"notes2.xml"]),
-			[{fetch_path,[filename:join([DataDir,misc,erlang_docs_dtd])]},
-			 {validation,dtd}]),
+    {E,[]} = xmerl_scan:file(filename:join([DataDir,misc,"notes2.xml"]),
+                             [{fetch_path,[filename:join([DataDir,misc,erlang_docs_dtd])]},
+                              {validation,dtd}]),
     
-    ?line ok = case E of
-		   Rec when is_record(Rec,xmlElement) ->
-		       ok;
-		   _ ->
-		       E
-	       end,
+    ok = case E of
+             Rec when is_record(Rec,xmlElement) ->
+                 ok;
+             _ ->
+                 E
+         end,
 		       
-    ?line {E2,[]} = 
-	xmerl_scan:file(filename:join([DataDir,misc,"XS.xml"]),
-			[{fetch_path,[filename:join([DataDir,misc,erlang_docs_dtd])]},
-			 {validation,dtd}]),
+    {E2,[]} = xmerl_scan:file(filename:join([DataDir,misc,"XS.xml"]),
+                              [{fetch_path,[filename:join([DataDir,misc,erlang_docs_dtd])]},
+                               {validation,dtd}]),
     
-    ?line ok = case E2 of
-		   Rec2 when is_record(Rec2,xmlElement) ->
-		       ok;
-		   _ ->
-		       E2
-	       end.
+    ok = case E2 of
+             Rec2 when is_record(Rec2,xmlElement) ->
+                 ok;
+             _ ->
+                 E2
+         end.
 
 %%
 %% ticket_7214
@@ -507,17 +503,16 @@ ticket_7214(suite) -> [];
 ticket_7214(Config) ->
     DataDir = ?config(data_dir,Config),
 
-    ?line {E,[]} = 
-	xmerl_scan:file(filename:join([DataDir,misc,'block_tags.html']),
-			[{validation,dtd},
-			 {fetch_path,[filename:join([DataDir,misc,erlang_docs_dtd])]}]),
+    {E,[]} = xmerl_scan:file(filename:join([DataDir,misc,'block_tags.html']),
+                             [{validation,dtd},
+                              {fetch_path,[filename:join([DataDir,misc,erlang_docs_dtd])]}]),
     
-    ?line ok = case E of
-		   Rec when is_record(Rec,xmlElement) ->
-		       ok;
-		   _ ->
-		       E
-	       end.
+    ok = case E of
+             Rec when is_record(Rec,xmlElement) ->
+                 ok;
+             _ ->
+                 E
+         end.
 
 %%
 %% ticket_7430
@@ -529,57 +524,53 @@ ticket_7430(suite) -> [];
 ticket_7430(Config) ->
     DataDir = ?config(data_dir,Config),
 
-    ?line {E,[]} = 
-	xmerl_scan:string("<a>\303\251&#xD;\303\251</a>",
-			  [{encoding, 'utf-8'}]),
-
-    ?line ok = case E of
-		   {xmlElement,a,a,[],
-		    {xmlNamespace,[],[]},
-		    [],1,[],
-		    [{xmlText,[{a,1}],1,[],"é",text},
-		     {xmlText,[{a,1}],2,[],"\né",text}],
-		    [],_,undeclared} ->
-		       ok;
-		   _ ->
-		       E
-	       end.
+    {E,[]} = xmerl_scan:string("<a>\303\251&#xD;\303\251</a>",[{encoding,'utf-8'}]),
+
+    ok = case E of
+             {xmlElement,a,a,[],
+              {xmlNamespace,[],[]},
+              [],1,[],
+              [{xmlText,[{a,1}],1,[],"é",text},
+               {xmlText,[{a,1}],2,[],"\né",text}],
+              [],_,undeclared} ->
+                 ok;
+             _ ->
+                 E
+         end.
 
 ticket_6873(suite) -> [];
 ticket_6873(Config) ->
-    ?line file:set_cwd(filename:join(?config(data_dir,Config),xpath)),    
-    ?line ok = xpath_abbrev:ticket_6873(),
-    ?line ok = xpath_lib:ticket_6873().
+    file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
+    ok = xpath_abbrev:ticket_6873(),
+    ok = xpath_lib:ticket_6873().
 
 ticket_7496(suite) -> [];
 ticket_7496(Config) ->
-    ?line file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
-    ?line ok = xpath_abbrev:ticket_7496().
+    file:set_cwd(filename:join(?config(data_dir,Config),xpath)),
+    ok = xpath_abbrev:ticket_7496().
 
 ticket_8156(suite) -> [];
 ticket_8156(Config) ->
-    ?line {ftp,{[],[]},"testmachine1",21,"/w.erl"} = xmerl_uri:parse("ftp://testmachine1/w.erl"),
-    ?line {ftp,{"user",[]},"testmachine1",21,"/w.erl"} = xmerl_uri:parse("ftp://user@testmachine1/w.erl"),
-    ?line {ftp,{"user","hello"},"testmachine1",21,"/w.erl"} = 
-	xmerl_uri:parse("ftp://user:hello@testmachine1/w.erl"),
-    ?line {ftp,{[],[]},"testmachine1",3000,"/w.erl"} = xmerl_uri:parse("ftp://testmachine1:3000/w.erl"),
-    ?line {ftp,{"user","hello"},"testmachine1",3000,"/w.erl"} = 
-	xmerl_uri:parse("ftp://user:hello@testmachine1:3000/w.erl"),
+    {ftp,{[],[]},"testmachine1",21,"/w.erl"} = xmerl_uri:parse("ftp://testmachine1/w.erl"),
+    {ftp,{"user",[]},"testmachine1",21,"/w.erl"} = xmerl_uri:parse("ftp://user@testmachine1/w.erl"),
+    {ftp,{"user","hello"},"testmachine1",21,"/w.erl"} = xmerl_uri:parse("ftp://user:hello@testmachine1/w.erl"),
+    {ftp,{[],[]},"testmachine1",3000,"/w.erl"} = xmerl_uri:parse("ftp://testmachine1:3000/w.erl"),
+    {ftp,{"user","hello"},"testmachine1",3000,"/w.erl"} = xmerl_uri:parse("ftp://user:hello@testmachine1:3000/w.erl"),
     ok.
 
 ticket_8697(suite) -> [];
 ticket_8697(doc) -> 
     ["Test that xmerl_scan can decode unicode entities properly"];
 ticket_8697(Config) ->
-    ?line {UTF8Output, []} = xmerl_scan:string("<?xml version=\"1\" ?>\n<text>" ++ [229, 145, 156] ++ "</text>"),
-    ?line #xmlElement{content = [#xmlText{value = UTF8Text}]} = UTF8Output,
-    ?line [16#545C] = UTF8Text,
-    ?line {DecEntityOutput, []} = xmerl_scan:string("<?xml version=\"1\" ?>\n<text>&#21596;</text>"),
-    ?line #xmlElement{content = [#xmlText{value = DecEntityText}]} = DecEntityOutput,
-    ?line [21596] = DecEntityText,
-    ?line {HexEntityOutput, []} = xmerl_scan:string("<?xml version=\"1\" ?>\n<text>&#x545C;</text>"),
-    ?line #xmlElement{content = [#xmlText{value = HexEntityText}]} = HexEntityOutput,
-    ?line [16#545C] = HexEntityText,
+    {UTF8Output, []} = xmerl_scan:string("<?xml version=\"1\" ?>\n<text>" ++ [229, 145, 156] ++ "</text>"),
+    #xmlElement{content = [#xmlText{value = UTF8Text}]} = UTF8Output,
+    [16#545C] = UTF8Text,
+    {DecEntityOutput, []} = xmerl_scan:string("<?xml version=\"1\" ?>\n<text>&#21596;</text>"),
+    #xmlElement{content = [#xmlText{value = DecEntityText}]} = DecEntityOutput,
+    [21596] = DecEntityText,
+    {HexEntityOutput, []} = xmerl_scan:string("<?xml version=\"1\" ?>\n<text>&#x545C;</text>"),
+    #xmlElement{content = [#xmlText{value = HexEntityText}]} = HexEntityOutput,
+    [16#545C] = HexEntityText,
     ok.
 
 ticket_9411(suite) -> [];
@@ -588,18 +579,18 @@ ticket_9411(doc) ->
 ticket_9411(Config) ->
     DataDir = ?config(data_dir,Config),
 
-    ?line {ok, Schema} = xmerl_xsd:process_schema(filename:join([DataDir,"misc/ticket_9411.xsd"])),
-    ?line {ok, Bin} = file:read_file(filename:join([DataDir,"misc/ticket_9411.xml"])),
-    ?line Xml = erlang:binary_to_list(Bin),
-    ?line {E, _} = xmerl_scan:string(Xml),
-    ?line {E, _} = xmerl_xsd:validate(E, Schema).
+    {ok, Schema} = xmerl_xsd:process_schema(filename:join([DataDir,"misc/ticket_9411.xsd"])),
+    {ok, Bin} = file:read_file(filename:join([DataDir,"misc/ticket_9411.xml"])),
+    Xml = erlang:binary_to_list(Bin),
+    {E, _} = xmerl_scan:string(Xml),
+    {E, _} = xmerl_xsd:validate(E, Schema).
 
 ticket_9457(suite) -> [];
 ticket_9457(doc) -> 
     ["Test that xmerl_scan handles continuation correct when current input runs out at the end of an attribute value"];
 ticket_9457(Config) ->
     Opts = [{continuation_fun, fun ticket_9457_cont/3, start}, {space, normalize}],
-    ?line {E, _} = xmerl_scan:string([], Opts).
+    {E, _} = xmerl_scan:string([], Opts).
 
 ticket_9457_cont(Continue, Exception, GlobalState) ->
     case xmerl_scan:cont_state(GlobalState) of
@@ -621,16 +612,16 @@ ticket_9664_schema(doc) ->
     ["Test that comments are handled correct whith"];
 ticket_9664_schema(Config) ->
 
-    ?line {E, _} = xmerl_scan:file(filename:join([?config(data_dir, Config), misc,
+    {E, _} = xmerl_scan:file(filename:join([?config(data_dir, Config), misc,
 						  "ticket_9664_schema.xml"]),[]),
-    ?line {ok, S} = xmerl_xsd:process_schema(filename:join([?config(data_dir, Config), misc,
+    {ok, S} = xmerl_xsd:process_schema(filename:join([?config(data_dir, Config), misc,
 							    "motorcycles.xsd"])),
-    ?line {E1, _} = xmerl_xsd:validate(E, S),
+    {E1, _} = xmerl_xsd:validate(E, S),
 
-    ?line {E1,_} = xmerl_xsd:process_validate(filename:join([?config(data_dir,Config), misc,
+    {E1,_} = xmerl_xsd:process_validate(filename:join([?config(data_dir,Config), misc,
 							    "motorcycles.xsd"]),E,[]),
 
-    ?line {E1,_} = xmerl_scan:file(filename:join([?config(data_dir,Config),  misc,
+    {E1,_} = xmerl_scan:file(filename:join([?config(data_dir,Config),  misc,
 						 "ticket_9664_schema.xml"]), 
 				  [{schemaLocation, [{"mc", "motorcycles.xsd"}]},
 				   {validation, schema}]),
@@ -640,9 +631,9 @@ ticket_9664_dtd(suite) -> [];
 ticket_9664_dtd(doc) -> 
     ["Test that comments are handled correct whith"];
 ticket_9664_dtd(Config) ->
-    ?line {E, _} = xmerl_scan:file(filename:join([?config(data_dir, Config),  misc,
+    {E, _} = xmerl_scan:file(filename:join([?config(data_dir, Config),  misc,
 						  "ticket_9664_dtd.xml"]),[]),
-    ?line {E, _} = xmerl_scan:file(filename:join([?config(data_dir, Config),  misc,
+    {E, _} = xmerl_scan:file(filename:join([?config(data_dir, Config),  misc,
 						  "ticket_9664_dtd.xml"]),[{validation, true}]),
     ok.
 
@@ -653,11 +644,11 @@ ticket_9664_dtd(Config) ->
 
 %% Dir is a directory
 rm_f_(Dir) ->
-    ?line {ok,CWD} = file:get_cwd(),
-    ?line {ok,FileList} = file:list_dir(Dir),
-    ?line file:set_cwd(filename:join([CWD,Dir])),
+    {ok,CWD} = file:get_cwd(),
+    {ok,FileList} = file:list_dir(Dir),
+    file:set_cwd(filename:join([CWD,Dir])),
     rm_files(FileList),
-    ?line file:set_cwd(CWD),
+    file:set_cwd(CWD),
     ? line ok = file:del_dir(Dir).
 
 rm_files([])->
@@ -667,27 +658,27 @@ rm_files([F|Fs]) ->
 	true ->
 	    rm_f_(F);
 	_ ->
-	    ?line ok = file:delete(F)
+	    ok = file:delete(F)
     end,
     rm_files(Fs).
 
 change_mode(Files) ->
     change_mode3(Files).
 change_mode2(Dir)->
-    ?line {ok,CWD} = file:get_cwd(),
-    ?line {ok,FileList} = file:list_dir(Dir),
-    ?line file:set_cwd(filename:join([CWD,Dir])),
+    {ok,CWD} = file:get_cwd(),
+    {ok,FileList} = file:list_dir(Dir),
+    file:set_cwd(filename:join([CWD,Dir])),
     change_mode3(FileList),
-    ?line file:set_cwd(CWD).
+    file:set_cwd(CWD).
 change_mode3([]) ->
     ok;
 change_mode3([F|Fs]) ->
     case filelib:is_dir(F) of
-	true ->
-	    chmod(F),
-	    change_mode2(F);
-	_ ->
-	    chmod(F)
+        true ->
+            chmod(F),
+            change_mode2(F);
+        _ ->
+            chmod(F)
     end,
     change_mode3(Fs).
     
@@ -699,4 +690,3 @@ chmod(F) ->
 	_ ->
 	    ok
     end.
-