[cosTransactions] Update the test suites to follow the new style

2 files changed, 66 insertions, 127 deletions

diff --git a/lib/cosTransactions/test/generated_SUITE.erl b/lib/cosTransactions/test/generated_SUITE.erl
index e4a7a5bf27..52b850b189 100644
--- a/lib/cosTransactions/test/generated_SUITE.erl
+++ b/lib/cosTransactions/test/generated_SUITE.erl
@@ -30,7 +30,7 @@
 -include_lib("common_test/include/ct.hrl").
 -include_lib("orber/include/corba.hrl").
 
--define(default_timeout, ?t:minutes(3)).
+-define(default_timeout, test_server:minutes(3)).
 
 -define(match(ExpectedRes, Expr),
         fun() ->
@@ -41,7 +41,7 @@
 		    _ ->
 			io:format("###### ERROR ERROR ######~n~p~n",
 				  [AcTuAlReS]),
-			?line exit(AcTuAlReS)
+			exit(AcTuAlReS)
 		end
 	end()).
 
@@ -52,7 +52,7 @@
 		    Not ->
 			io:format("###### ERROR ERROR ######~n~p~n",
 				  [AcTuAlReS]),
-			?line exit(AcTuAlReS);
+			exit(AcTuAlReS);
 		    _ ->
 			AcTuAlReS
 		end
@@ -64,7 +64,7 @@
 		case orber_tc:check_tc(TC) of
 		    false ->
 			io:format("###### ERROR ERROR ######~n~p - ~p~n", [Op, TC]),
-			?line exit(TC);
+			exit(TC);
 		    true ->
 			true
 		end
@@ -133,22 +133,18 @@ end_per_group(_GroupName, Config) ->
 %% Init and cleanup functions.
 %%-----------------------------------------------------------------
 init_per_testcase(_Case, Config) ->
-    ?line Dog=test_server:timetrap(?default_timeout),
+    Dog=test_server:timetrap(?default_timeout),
     [{watchdog, Dog}|Config].
 
-
 end_per_testcase(_Case, Config) ->
-    Dog = ?config(watchdog, Config),
+    Dog = proplists:get_value(watchdog, Config),
     test_server:timetrap_cancel(Dog),
     ok.
 
-
 %%-----------------------------------------------------------------
 %% Test Case: 'CosTransactions_HeuristicCommit'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_HeuristicCommit'(doc) -> ["CosTransactions_HeuristicCommit"];
-'CosTransactions_HeuristicCommit'(suite) -> [];
 'CosTransactions_HeuristicCommit'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_HeuristicCommit':tc())),
     ?match("IDL:omg.org/CosTransactions/HeuristicCommit:1.0", 
@@ -162,8 +158,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_HeuristicHazard'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_HeuristicHazard'(doc) -> ["CosTransactions_HeuristicHazard"];
-'CosTransactions_HeuristicHazard'(suite) -> [];
 'CosTransactions_HeuristicHazard'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_HeuristicHazard':tc())),
     ?match("IDL:omg.org/CosTransactions/HeuristicHazard:1.0", 
@@ -177,8 +171,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_HeuristicMixed'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_HeuristicMixed'(doc) -> ["CosTransactions_HeuristicMixed"];
-'CosTransactions_HeuristicMixed'(suite) -> [];
 'CosTransactions_HeuristicMixed'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_HeuristicMixed':tc())),
     ?match("IDL:omg.org/CosTransactions/HeuristicMixed:1.0", 
@@ -192,8 +184,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_HeuristicRollback'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_HeuristicRollback'(doc) -> ["CosTransactions_HeuristicRollback"];
-'CosTransactions_HeuristicRollback'(suite) -> [];
 'CosTransactions_HeuristicRollback'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_HeuristicRollback':tc())),
     ?match("IDL:omg.org/CosTransactions/HeuristicRollback:1.0", 
@@ -207,8 +197,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_Inactive'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_Inactive'(doc) -> ["CosTransactions_Inactive"];
-'CosTransactions_Inactive'(suite) -> [];
 'CosTransactions_Inactive'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_Inactive':tc())),
     ?match("IDL:omg.org/CosTransactions/Inactive:1.0", 
@@ -222,8 +210,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_InvalidControl'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_InvalidControl'(doc) -> ["CosTransactions_InvalidControl"];
-'CosTransactions_InvalidControl'(suite) -> [];
 'CosTransactions_InvalidControl'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_InvalidControl':tc())),
     ?match("IDL:omg.org/CosTransactions/InvalidControl:1.0", 
@@ -237,8 +223,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_NoTransaction'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_NoTransaction'(doc) -> ["CosTransactions_NoTransaction"];
-'CosTransactions_NoTransaction'(suite) -> [];
 'CosTransactions_NoTransaction'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_NoTransaction':tc())),
     ?match("IDL:omg.org/CosTransactions/NoTransaction:1.0", 
@@ -252,8 +236,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_NotPrepared'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_NotPrepared'(doc) -> ["CosTransactions_NotPrepared"];
-'CosTransactions_NotPrepared'(suite) -> [];
 'CosTransactions_NotPrepared'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_NotPrepared':tc())),
     ?match("IDL:omg.org/CosTransactions/NotPrepared:1.0", 
@@ -267,8 +249,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_NotSubtransaction'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_NotSubtransaction'(doc) -> ["CosTransactions_NotSubtransaction"];
-'CosTransactions_NotSubtransaction'(suite) -> [];
 'CosTransactions_NotSubtransaction'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_NotSubtransaction':tc())),
     ?match("IDL:omg.org/CosTransactions/NotSubtransaction:1.0", 
@@ -282,8 +262,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_SubtransactionsUnavailable'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_SubtransactionsUnavailable'(doc) -> ["CosTransactions_SubtransactionsUnavailable"];
-'CosTransactions_SubtransactionsUnavailable'(suite) -> [];
 'CosTransactions_SubtransactionsUnavailable'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_SubtransactionsUnavailable':tc())),
     ?match("IDL:omg.org/CosTransactions/SubtransactionsUnavailable:1.0", 
@@ -297,8 +275,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_Unavailable'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_Unavailable'(doc) -> ["CosTransactions_Unavailable"];
-'CosTransactions_Unavailable'(suite) -> [];
 'CosTransactions_Unavailable'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_Unavailable':tc())),
     ?match("IDL:omg.org/CosTransactions/Unavailable:1.0", 
@@ -312,8 +288,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_SynchronizationUnavailable'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_SynchronizationUnavailable'(doc) -> ["CosTransactions_SynchronizationUnavailable"];
-'CosTransactions_SynchronizationUnavailable'(suite) -> [];
 'CosTransactions_SynchronizationUnavailable'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_SynchronizationUnavailable':tc())),
     ?match("IDL:omg.org/CosTransactions/SynchronizationUnavailable:1.0", 
@@ -326,8 +300,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_TransIdentity'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_TransIdentity'(doc) -> ["CosTransactions_TransIdentity"];
-'CosTransactions_TransIdentity'(suite) -> [];
 'CosTransactions_TransIdentity'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_TransIdentity':tc())),
     ?match("IDL:omg.org/CosTransactions/TransIdentity:1.0", 
@@ -340,8 +312,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_PropagationContext'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_PropagationContext'(doc) -> ["CosTransactions_PropagationContext"];
-'CosTransactions_PropagationContext'(suite) -> [];
 'CosTransactions_PropagationContext'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_PropagationContext':tc())),
     ?match("IDL:omg.org/CosTransactions/PropagationContext:1.0", 
@@ -354,8 +324,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_otid_t'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_otid_t'(doc) -> ["CosTransactions_otid_t"];
-'CosTransactions_otid_t'(suite) -> [];
 'CosTransactions_otid_t'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_otid_t':tc())),
     ?match("IDL:omg.org/CosTransactions/otid_t:1.0", 
@@ -368,8 +336,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_WrongTransaction'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_WrongTransaction'(doc) -> ["CosTransactions_WrongTransaction"];
-'CosTransactions_WrongTransaction'(suite) -> [];
 'CosTransactions_WrongTransaction'(_) ->
     ?match(true, orber_tc:check_tc('CosTransactions_WrongTransaction':tc())),
     ?match("IDL:omg.org/CosTransactions/WrongTransaction:1.0", 
@@ -383,8 +349,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_Control'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_Control'(doc) -> ["CosTransactions_Control"];
-'CosTransactions_Control'(suite) -> [];
 'CosTransactions_Control'(_) ->
     ?nomatch(undefined, 'CosTransactions_Control':oe_tc(get_terminator)),
     ?nomatch(undefined, 'CosTransactions_Control':oe_tc(get_coordinator)),
@@ -402,8 +366,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_Coordinator'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_Coordinator'(doc) -> ["CosTransactions_Coordinator"];
-'CosTransactions_Coordinator'(suite) -> [];
 'CosTransactions_Coordinator'(_) ->
     ?nomatch(undefined, 'CosTransactions_Coordinator':oe_tc(get_status)),
     ?nomatch(undefined, 'CosTransactions_Coordinator':oe_tc(get_parent_status)),
@@ -435,8 +397,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_RecoveryCoordinator'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_RecoveryCoordinator'(doc) -> ["CosTransactions_RecoveryCoordinator"];
-'CosTransactions_RecoveryCoordinator'(suite) -> [];
 'CosTransactions_RecoveryCoordinator'(_) ->
     ?nomatch(undefined, 'CosTransactions_RecoveryCoordinator':oe_tc(replay_completion)),
     ?match(undefined, 'CosTransactions_RecoveryCoordinator':oe_tc(undefined)),
@@ -453,8 +413,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_Resource'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_Resource'(doc) -> ["CosTransactions_Resource"];
-'CosTransactions_Resource'(suite) -> [];
 'CosTransactions_Resource'(_) ->
     ?nomatch(undefined, 'CosTransactions_Resource':oe_tc(prepare)),
     ?nomatch(undefined, 'CosTransactions_Resource':oe_tc(rollback)),
@@ -475,8 +433,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_SubtransactionAwareResource'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_SubtransactionAwareResource'(doc) -> ["CosTransactions_SubtransactionAwareResource"];
-'CosTransactions_SubtransactionAwareResource'(suite) -> [];
 'CosTransactions_SubtransactionAwareResource'(_) ->
     ?nomatch(undefined, 'CosTransactions_SubtransactionAwareResource':oe_tc(commit_subtransaction)),
     ?nomatch(undefined, 'CosTransactions_SubtransactionAwareResource':oe_tc(rollback_subtransaction)),
@@ -500,8 +456,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_Terminator'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_Terminator'(doc) -> ["CosTransactions_Terminator"];
-'CosTransactions_Terminator'(suite) -> [];
 'CosTransactions_Terminator'(_) ->
     ?nomatch(undefined, 'CosTransactions_Terminator':oe_tc(commit)),
     ?nomatch(undefined, 'CosTransactions_Terminator':oe_tc(rollback)),
@@ -519,8 +473,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'CosTransactions_TransactionFactory'
 %% Description: 
 %%-----------------------------------------------------------------
-'CosTransactions_TransactionFactory'(doc) -> ["CosTransactions_TransactionFactory"];
-'CosTransactions_TransactionFactory'(suite) -> [];
 'CosTransactions_TransactionFactory'(_) ->
     ?nomatch(undefined, 'CosTransactions_TransactionFactory':oe_tc(create)),
     ?nomatch(undefined, 'CosTransactions_TransactionFactory':oe_tc(recreate)),
@@ -538,8 +490,6 @@ end_per_testcase(_Case, Config) ->
 %% Test Case: 'ETraP_Server'
 %% Description: 
 %%-----------------------------------------------------------------
-'ETraP_Server'(doc) -> ["ETraP_Server"];
-'ETraP_Server'(suite) -> [];
 'ETraP_Server'(_) ->
     ?nomatch(undefined, 'ETraP_Server':oe_tc(get_status)),
     ?nomatch(undefined, 'ETraP_Server':oe_tc(get_parent_status)),
diff --git a/lib/cosTransactions/test/transactions_SUITE.erl b/lib/cosTransactions/test/transactions_SUITE.erl
index 0d270c1f07..00753a4e6e 100644
--- a/lib/cosTransactions/test/transactions_SUITE.erl
+++ b/lib/cosTransactions/test/transactions_SUITE.erl
@@ -31,7 +31,7 @@
  
 -include_lib("common_test/include/ct.hrl").
 
--define(default_timeout, ?t:minutes(20)).
+-define(default_timeout, test_server:minutes(20)).
 
 
 %%-----------------------------------------------------------------
@@ -63,19 +63,16 @@ end_per_group(_GroupName, Config) ->
 
 cases() -> 
     [etrap_api, resource_api, app_test].
-
-
 	
 %%-----------------------------------------------------------------
 %% Init and cleanup functions.
 %%-----------------------------------------------------------------
-
 init_per_testcase(_Case, Config) ->
     Path = code:which(?MODULE),
     code:add_pathz(filename:join(filename:dirname(Path), "idl_output")),
     'oe_CosTransactions':'oe_register'(), 
     'oe_etrap_test':'oe_register'(), 
-    ?line Dog=test_server:timetrap(?default_timeout),
+    Dog=test_server:timetrap(?default_timeout),
     [{watchdog, Dog}|Config].
 
 
@@ -84,7 +81,7 @@ end_per_testcase(_Case, Config) ->
     'oe_CosTransactions':'oe_unregister'(), 
     Path = code:which(?MODULE),
     code:del_path(filename:join(filename:dirname(Path), "idl_output")),
-    Dog = ?config(watchdog, Config),
+    Dog = proplists:get_value(watchdog, Config),
     test_server:timetrap_cancel(Dog),
     ok.
 
@@ -110,8 +107,6 @@ end_per_suite(Config) ->
 %%-----------------------------------------------------------------
 %%  Tests app file
 %%-----------------------------------------------------------------
-app_test(doc) -> [];
-app_test(suite) -> [];
 app_test(_Config) ->
     ok=test_server:app_test(cosTransactions),
     ok.
@@ -119,12 +114,10 @@ app_test(_Config) ->
 %%-----------------------------------------------------------------
 %%  API tests 
 %%-----------------------------------------------------------------
-etrap_api(doc) -> ["ETraP_Server tests", ""];
-etrap_api(suite) -> [];
 etrap_api(_Config) ->
-    ?line ?match(ok, application:start(cosTransactions),
+    ?match(ok, application:start(cosTransactions),
 		 "Starting the cosTransactions application"),
-    ?line TrFac = cosTransactions:start_factory(),
+    TrFac = cosTransactions:start_factory(),
     %% Start a new transaction:
     %%      RootCoord
     %%      /       \
@@ -139,28 +132,28 @@ etrap_api(_Config) ->
 
 
     %%------ Test CosTransactions::Coordinator ------
-    ?line ?match(true, 
+    ?match(true, 
 		 'CosTransactions_Coordinator':is_same_transaction(Coord, Coord),
 		 "'CosTransactions_Coordinator':is_same_transaction"),
-    ?line ?match(false, 
+    ?match(false, 
 		 'CosTransactions_Coordinator':is_same_transaction(Coord, SubCoord1),
 		 "'CosTransactions_Coordinator':is_same_transaction"),
-    ?line ?match(true, 
+    ?match(true, 
 		 'CosTransactions_Coordinator':is_descendant_transaction(Coord, Coord),
 		 "'CosTransactions_Coordinator':is_descendant_transaction"),
-    ?line ?match(false, 
+    ?match(false, 
 		 'CosTransactions_Coordinator':is_descendant_transaction(Coord, SubCoord1),
 		 "'CosTransactions_Coordinator':is_descendant_transaction"),
-    ?line ?match(true, 
+    ?match(true, 
 		 'CosTransactions_Coordinator':is_descendant_transaction(SubCoord1, Coord),
 		 "'CosTransactions_Coordinator':is_descendant_transaction"),
-    ?line ?match(false, 
+    ?match(false, 
 		 'CosTransactions_Coordinator':is_descendant_transaction(SubCoord1, SubCoord2),
 		 "'CosTransactions_Coordinator':is_descendant_transaction"),
-    ?line ?match(true, 
+    ?match(true, 
 		 'CosTransactions_Coordinator':is_top_level_transaction(Coord),
 		 "'CosTransactions_Coordinator':is_top_level_transaction"),
-    ?line ?match(false, 
+    ?match(false, 
 		 'CosTransactions_Coordinator':is_top_level_transaction(SubCoord2),
 		 "'CosTransactions_Coordinator':is_top_level_transaction"),
 
@@ -169,31 +162,31 @@ etrap_api(_Config) ->
     RootHash2 = 'CosTransactions_Coordinator':hash_top_level_tran(SubCoord1),
     RootHash3 = 'CosTransactions_Coordinator':hash_top_level_tran(Coord),
     _SubHash   = 'CosTransactions_Coordinator':hash_transaction(SubCoord2),
-    ?line ?match(RootHash, RepeatHash,
+    ?match(RootHash, RepeatHash,
 		 "'CosTransactions_Coordinator':hash_transaction"),
-    ?line ?match(RootHash, RootHash2,
+    ?match(RootHash, RootHash2,
 		 "'CosTransactions_Coordinator':hash_top_level_tran"),
-    ?line ?match(RootHash, RootHash3,
+    ?match(RootHash, RootHash3,
 		 "'CosTransactions_Coordinator':hash_top_level_tran"),
-%    ?line ?match_inverse(RootHash, SubHash,
+%    ?match_inverse(RootHash, SubHash,
 %		 "'CosTransactions_Coordinator':hash_transaction"),
 
-    ?line ?match('StatusActive', 
+    ?match('StatusActive', 
 		 'CosTransactions_Coordinator':get_status(Coord),
 		 "'CosTransactions_Coordinator':get_status"),
-    ?line ?match('StatusActive', 
+    ?match('StatusActive', 
 		 'CosTransactions_Coordinator':get_status(SubCoord1),
 		 "'CosTransactions_Coordinator':get_status"),
-    ?line ?match('StatusActive', 
+    ?match('StatusActive', 
 		 'CosTransactions_Coordinator':get_parent_status(Coord),
 		 "'CosTransactions_Coordinator':get_parent_status"),
-    ?line ?match('StatusActive', 
+    ?match('StatusActive', 
 		 'CosTransactions_Coordinator':get_parent_status(SubCoord1),
 		 "'CosTransactions_Coordinator':get_parent_status"),
-    ?line ?match('StatusActive', 
+    ?match('StatusActive', 
 		 'CosTransactions_Coordinator':get_top_level_status(Coord),
 		 "'CosTransactions_Coordinator':get_top_level_status"),
-    ?line ?match('StatusActive', 
+    ?match('StatusActive', 
 		 'CosTransactions_Coordinator':get_top_level_status(SubCoord1),
 		 "'CosTransactions_Coordinator':get_top_level_status"),
 
@@ -209,21 +202,21 @@ etrap_api(_Config) ->
     _RC1 = 'CosTransactions_Coordinator':register_resource(SubCoord1, O1),
 %    'CosTransactions_Coordinator':register_synchronization(SubCoord1, O1),
 
-    ?line ?match('VoteCommit',
+    ?match('VoteCommit',
 		 'CosTransactions_Resource':prepare(SubCoord1),
 		 "'CosTransactions_Coordinator':prepare"),
     %% The Transaction are no longer in 'StatusActive' state. No new
     %% "members" allowed.
-    ?line ?match('StatusPrepared',
+    ?match('StatusPrepared',
 		 'CosTransactions_Coordinator':get_status(SubCoord1),
 		 "'CosTransactions_Coordinator':get_status"),
-%    ?line ?match({'EXCEPTION', ?tr_inactive},
+%    ?match({'EXCEPTION', ?tr_inactive},
 %		 'CosTransactions_Coordinator':register_synchronization(SubCoord1, O1),
 %		 "'CosTransactions_Coordinator':register_synchronization"),
-    ?line ?match({'EXCEPTION', ?tr_inactive},
+    ?match({'EXCEPTION', ?tr_inactive},
 		 'CosTransactions_Coordinator':register_resource(SubCoord1, O1),
 		 "'CosTransactions_Coordinator':register_resource"),
-    ?line ?match({'EXCEPTION', ?tr_inactive},
+    ?match({'EXCEPTION', ?tr_inactive},
 		 'CosTransactions_Coordinator':create_subtransaction(SubCoord1),
 		 "'CosTransactions_Coordinator':create_subtransaction"),
 
@@ -236,108 +229,106 @@ etrap_api(_Config) ->
     catch corba:dispose(Coord),
     catch corba:dispose(O1),
 
-    ?line cosTransactions:stop_factory(TrFac),
-    ?line application:stop(cosTransactions),
+    cosTransactions:stop_factory(TrFac),
+    application:stop(cosTransactions),
     ok.
 
 %%-----------------------------------------------------------------
 %%  API tests 
 %%-----------------------------------------------------------------
-resource_api(doc) -> ["cosTransactions API tests", ""];
-resource_api(suite) -> [];
 resource_api(_Config) ->
-    ?line ?match(ok, application:start(cosTransactions),
+    ?match(ok, application:start(cosTransactions),
 		 "Starting the cosTransactions application"),
-    ?line TrFac = cosTransactions:start_factory([{typecheck, true}]),
+    TrFac = cosTransactions:start_factory([{typecheck, true}]),
 
-    ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
+    ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
 		 run(TrFac, 0, {?nop, ?nop, ?nop, ?prepare_rollback}),
 		 "TESTCASE #1: Prepare rollback Resource 4"),
-    ?line ?match({'EXCEPTION', ?tr_mixed},
+    ?match({'EXCEPTION', ?tr_mixed},
 		 run(TrFac, 0, {?nop, ?nop, ?commit_mix, ?nop}),
 		 "TESTCASE #2: Heuristic Mixed exception Resource 3"),
-    ?line ?match(ok, 
+    ?match(ok, 
 		 run(TrFac, 0, {?nop, ?nop, ?nop, ?nop}),
 		 "TESTCASE #3: Normal completion. No errors."),
-    ?line ?match(ok,
+    ?match(ok,
 		 run(TrFac, 0, {?nop, ?nop, ?nop, ?commit_cm}),
 		 "TESTCASE #4: Heuristic Commit Exception Resource 4"),
-    ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
+    ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
 		 run(TrFac, 0, {?nop, ?rollback_rb, ?nop, ?prepare_rollback}),
 		 "TESTCASE #5: Heuristic Rollbac Resource 2, Resource 4 reply 'VoteRollback'"),
-    ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
+    ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
 		 run(TrFac, 0, {?nop, ?nop, ?prepare_rollback, ?rollback_rb}),
 		 "TESTCASE #6: Heuristic Rollbac Resource 4, Resource 3 reply 'VoteRollback'"),
-    ?line ?match(ok,
+    ?match(ok,
 		 run(TrFac, 0, {?nop, ?nop, ?commit_delay, ?nop}),
 		 "TESTCASE #7: Resource 3 delay during commit. No timeout."),
-    ?line ?match(ok,
+    ?match(ok,
 		 run(TrFac, 0, {?nop, ?nop, ?prepare_delay, ?nop}),
 		 "TESTCASE #8: Resource 3 delay during prepare. No timeout."),
-    ?line ?match(ok,
+    ?match(ok,
 		 run(TrFac, ?TIMEOUT, {?nop, ?commit_delay, ?nop, ?nop}),
 		 "TESTCASE #9: Resource 3 delay during commit. Timeout."),
-    ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
+    ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
 		 run(TrFac, ?TIMEOUT, {?nop, ?prepare_delay, ?nop, ?nop}),
 		 "TESTCASE #10: Resource 3 delay during prepare. Timeout."),
     case ?is_debug_compiled of
 	true ->
 	    %% Testing the Coordinators (root and sub).
-	    ?line ?match(ok,
+	    ?match(ok,
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?nop, [?nop, ?nop,?crash_transient(commit), ?nop]}),
 			 "TESTCASE #11: SubCoord 3 crash transient during commit."),
-	    ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{}},
+	    ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{}},
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?nop, [?nop, ?nop,?crash_transient(send_prepare), ?nop]}),
 			 "TESTCASE #12: SubCoord 3 crash transient during send prepare."),
-	    ?line ?match({'EXCEPTION', ?tr_hazard},
+	    ?match({'EXCEPTION', ?tr_hazard},
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?nop, [?nop, ?nop,?crash_permanent(commit), ?nop]}),
 			 "TESTCASE #13: SubCoord 3 crash permanent during commit."),
-	    ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{}},
+	    ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{}},
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?nop, [?nop, ?nop,?crash_permanent(send_prepare), ?nop]}),
 			 "TESTCASE #14: SubCoord 3 crash permanent during prepare."),
-	    ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{}},
+	    ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{}},
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?nop, [?nop, ?crash_transient(send_prepare), ?crash_transient(commit), ?nop]}),
 			 "TESTCASE #15: SubCoord 2 crash transient during prepare. SubCoord 3 crash transient during commit"),
-	    ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
+	    ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?nop, [?crash_transient(send_prepare), ?nop, ?nop, ?nop]}),
 			 "TESTCASE #16: RootCoord crash transient during send prepare."),
-	    ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{}},
+	    ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{}},
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?nop, [?nop, ?crash_transient(prepare1), ?nop, ?nop]}),
 			 "TESTCASE #17: SubCoord 1 crash transient during prepare1."),
-	    ?line ?match({'EXCEPTION', ?tr_mixed}, 
+	    ?match({'EXCEPTION', ?tr_mixed}, 
 			 run(TrFac, 0, {?nop, ?prepare_mix, ?nop, ?nop, [?nop, ?nop, ?crash_transient(prepare2), ?nop]}),
 			 "TESTCASE #18: SubCoord 3 crash transient during prepare2. Resource 2 raise Heuristic Mixed during prepare"),
-	    ?line ?match({'EXCEPTION', ?tr_mixed},
+	    ?match({'EXCEPTION', ?tr_mixed},
 			 run(TrFac, 0, {?nop, ?commit_mix, ?nop, ?nop, [?nop, ?nop, ?crash_transient(commit2), ?nop]}),
 			 "TESTCASE #19: Resource 2 raise Heurist mixed during commit. SubCoord crash transient commit2"),
-	    ?line ?match({'EXCEPTION', ?tr_mixed},
+	    ?match({'EXCEPTION', ?tr_mixed},
 			 run(TrFac, 0, {?nop, ?rollback_cm, ?nop, ?prepare_rollback, [?nop, ?crash_transient(rollback2), ?nop, ?nop]}),
 			 "TESTCASE #20: Resource 2 raise Heuristic Commit during rollback. Resource 4 'VoteRollback'. SubCoord 2 crash transient rollback2."),
-	    ?line ?match({'EXCEPTION', ?tr_mixed},
+	    ?match({'EXCEPTION', ?tr_mixed},
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?commit_mix, [?nop, ?nop, ?crash_transient(send_forget1), ?nop]}),
 			 "TESTCASE #21: Resource 4 raise Heuristic Mixed during commit. SubCoord 2 crash transient send_forget1."),
-	    ?line ?match({'EXCEPTION', ?tr_mixed}, 
+	    ?match({'EXCEPTION', ?tr_mixed}, 
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?commit_mix, [?crash_transient(send_forget1), ?nop, ?nop, ?nop]}),
 			 "TESTCASE #22: Resource 4 raise Heuristic Mixed during commit. Root Coord crash transient send_forget1."),
-	    ?line ?match({'EXCEPTION', ?tr_mixed}, 
+	    ?match({'EXCEPTION', ?tr_mixed}, 
 			 run(TrFac, 0, {?nop, ?nop, ?nop, ?commit_mix, [?crash_transient(send_forget3), ?nop, ?crash_transient(send_forget1), ?nop]}),
 			 "TESTCASE #23: Resource 4 raise Heuristic Mixed during commit. Root Coord crash transient send_forget3. SubCoord 3 crash transient send_forget1."),
-		 ?line ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
+		 ?match({'EXCEPTION', #'TRANSACTION_ROLLEDBACK'{completion_status=?COMPLETED_YES}},
 			 run(TrFac, ?TIMEOUT, {?nop, ?nop, ?nop, ?nop, [?delay_transient(root_delay, ?TIMEOUT*2), ?nop, ?nop, ?nop]}),
 			 "TESTCASE #24: Delay RootCoord. Timeout."),
 	    %% Testing the Terminator.
-	    ?line ?match({'EXCEPTION', ?tr_mixed},
+	    ?match({'EXCEPTION', ?tr_mixed},
 			 run(TrFac, ?TIMEOUT, {?nop, ?prepare_mix, ?nop, ?nop, [?nop, ?nop, ?nop, ?crash_transient(commit_heuristic1)]}),
 			 "TESTCASE #25: Terminator crash transient after received and logged Heuristic mix."),
-	    ?line ?match(ok,
+	    ?match(ok,
 			 run(TrFac, ?TIMEOUT, {?nop, ?nop, ?nop, ?nop, [?nop, ?nop, ?nop, ?crash_transient(commit_ok2)]}),
 			 "TESTCASE #26: Terminator crash transient after received and logged 'ok'.");
 	_ ->
 	    ok
     end,
 
-    ?line cosTransactions:stop_factory(TrFac),
-    ?line application:stop(cosTransactions),
+    cosTransactions:stop_factory(TrFac),
+    application:stop(cosTransactions),
     ok.
  
 %%-----------------------------------------------------------------
@@ -390,8 +381,6 @@ run(TrFac, Time, Spec) ->
     catch corba:dispose(O4),
     Reply.
 
-
-
 start_resources({A1, A2, A3, A4})->
     start_resources({A1, A2, A3, A4, ?no_context});
 start_resources({A1, A2, A3, A4, Ctx})->