diff options
| author | Peter Andersson <[email protected]> | 2014-01-27 14:05:44 +0100 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2014-01-28 19:04:05 +0100 |
| commit | 95a574b3620ec3d7420c7807b2d84f4602512229 (patch) | |
| tree | be7cfa305637082799461fe751cc28456e7c1f91 /lib/common_test/src/ct_util.erl | |
| parent | f40f4686848bbabb9357b33d08d4b4039d9d7c63 (diff) | |
| download | otp-95a574b3620ec3d7420c7807b2d84f4602512229.tar.gz otp-95a574b3620ec3d7420c7807b2d84f4602512229.tar.bz2 otp-95a574b3620ec3d7420c7807b2d84f4602512229.zip | |
Make it possible to use raw telnet logs in parallel test case groups
Diffstat (limited to 'lib/common_test/src/ct_util.erl')
| -rw-r--r-- | lib/common_test/src/ct_util.erl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/common_test/src/ct_util.erl b/lib/common_test/src/ct_util.erl index bcc4caa62e..1d851f8d2f 100644 --- a/lib/common_test/src/ct_util.erl +++ b/lib/common_test/src/ct_util.erl @@ -382,9 +382,14 @@ loop(Mode,TestData,StartDir) -> TestData1 = case lists:keysearch(Key,1,TestData) of {value,{Key,Val}} -> - NewVal = Fun(Val), - return(From,NewVal), - [{Key,NewVal}|lists:keydelete(Key,1,TestData)]; + case Fun(Val) of + '$delete' -> + return(From,deleted), + lists:keydelete(Key,1,TestData); + NewVal -> + return(From,NewVal), + [{Key,NewVal}|lists:keydelete(Key,1,TestData)] + end; _ -> case lists:member(create,Opts) of true -> |