diff options
| author | Peter Andersson <[email protected]> | 2012-07-06 12:21:00 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2012-07-06 12:21:00 +0200 |
| commit | e07f781b77b15273eddbb84cdc2940cef87abdb4 (patch) | |
| tree | 2239eede4ef6d42f7d912c743df24d009a991f56 /lib/common_test/src/ct_hooks.erl | |
| parent | 14f6a66f6410e1665ad39e95158420b0a45634d6 (diff) | |
| download | otp-e07f781b77b15273eddbb84cdc2940cef87abdb4.tar.gz otp-e07f781b77b15273eddbb84cdc2940cef87abdb4.tar.bz2 otp-e07f781b77b15273eddbb84cdc2940cef87abdb4.zip | |
Call CT Hook init functions in the correct order
OTP-10135
Diffstat (limited to 'lib/common_test/src/ct_hooks.erl')
| -rw-r--r-- | lib/common_test/src/ct_hooks.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/common_test/src/ct_hooks.erl b/lib/common_test/src/ct_hooks.erl index 0fe6e03079..88672183f3 100644 --- a/lib/common_test/src/ct_hooks.erl +++ b/lib/common_test/src/ct_hooks.erl @@ -192,12 +192,12 @@ call([{Hook, call_id, NextFun} | Rest], Config, Meta, Hooks) -> case lists:keyfind(NewId, #ct_hook_config.id, Hooks) of false when NextFun =:= undefined -> {Hooks ++ [NewHook], - [{NewId, call_init} | Rest]}; + Rest ++ [{NewId, call_init}]}; ExistingHook when is_tuple(ExistingHook) -> {Hooks, Rest}; _ -> {Hooks ++ [NewHook], - [{NewId, call_init}, {NewId,NextFun} | Rest]} + Rest ++ [{NewId, call_init}, {NewId,NextFun}]} end, call(resort(NewRest,NewHooks,Meta), Config, Meta, NewHooks) catch Error:Reason -> |