diff options
| author | John Högberg <[email protected]> | 2017-10-24 09:44:10 +0200 |
|---|---|---|
| committer | John Högberg <[email protected]> | 2017-11-30 15:44:35 +0100 |
| commit | 592305b208d92067bb6dd909f699c1b8c2e5cd22 (patch) | |
| tree | 34f131f25a822545ef3c3005f1430bcb763d10e3 | |
| parent | 93365454e55c7fc9f78f52e5a383f57a32b92de1 (diff) | |
| download | otp-592305b208d92067bb6dd909f699c1b8c2e5cd22.tar.gz otp-592305b208d92067bb6dd909f699c1b8c2e5cd22.tar.bz2 otp-592305b208d92067bb6dd909f699c1b8c2e5cd22.zip | |
Remove port subtest in qlc_SUITE:sort
This subtest revolves around the possibility that the underlying
port can be killed, which is nonsense now that the file suite no
longer uses ports for anything.
| -rw-r--r-- | lib/stdlib/test/qlc_SUITE.erl | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/lib/stdlib/test/qlc_SUITE.erl b/lib/stdlib/test/qlc_SUITE.erl index 949142ec77..8f8a0f6e73 100644 --- a/lib/stdlib/test/qlc_SUITE.erl +++ b/lib/stdlib/test/qlc_SUITE.erl @@ -1695,28 +1695,7 @@ sort(Config) when is_list(Config) -> [true || I <- lists:seq(1, 50000), not ets:insert(E, {I, I})], H = qlc:q([{X,Y} || X <- [a,b], Y <- qlc:sort(ets:table(E))]), 100000 = length(qlc:e(H)), - ets:delete(E)">>, - - begin - TmpDir = ?privdir, - [<<"TE = process_flag(trap_exit, true), - E = ets:new(foo, []), - [true || I <- lists:seq(1, 50000), not ets:insert(E, {I, I})], - Ports = erlang:ports(), - H = qlc:q([{X,Y} || X <- [a,b], - begin - [P] = erlang:ports() -- Ports, - exit(P, port_exit), - true - end, - Y <- qlc:sort(ets:table(E), - [{tmpdir,\"">>, - TmpDir, <<"\"}])]), - {error, qlc, {file_error, _, _}} = (catch qlc:e(H)), - receive {'EXIT', _, port_exit} -> ok end, - ets:delete(E), - process_flag(trap_exit, TE)">>] - end + ets:delete(E)">> ], run(Config, Ts), |