diff options
| author | Hans Bolinder <[email protected]> | 2015-04-07 13:17:02 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2015-04-07 13:17:02 +0200 |
| commit | 306343345a6b755f50bfffa8105ad870af05df45 (patch) | |
| tree | 260fd3bbb3de33eb95cf4f633f157da95ee970d9 /lib/stdlib/test/qlc_SUITE.erl | |
| parent | 7d46bab86ad0d71d79363815d7b7d7a8c1660d5a (diff) | |
| download | otp-306343345a6b755f50bfffa8105ad870af05df45.tar.gz otp-306343345a6b755f50bfffa8105ad870af05df45.tar.bz2 otp-306343345a6b755f50bfffa8105ad870af05df45.zip | |
Fix a qlc testcase
Diffstat (limited to 'lib/stdlib/test/qlc_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/qlc_SUITE.erl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/stdlib/test/qlc_SUITE.erl b/lib/stdlib/test/qlc_SUITE.erl index 0b7b96da8e..0a1b6dd2ba 100644 --- a/lib/stdlib/test/qlc_SUITE.erl +++ b/lib/stdlib/test/qlc_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2004-2014. All Rights Reserved. +%% Copyright Ericsson AB 2004-2015. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -3021,8 +3021,9 @@ lookup2(Config) when is_list(Config) -> end, [{3,true},{4,true}])">>, <<"%% Only guards are inspected. No lookup. - E1 = create_ets(1, 10), - E2 = ets:new(join, []), + E1 = ets:new(e, [ordered_set]), + true = ets:insert(E1, [{1,1}, {2,2}, {3,3}, {4,4}, {5,5}]), + E2 = ets:new(join, [ordered_set]), true = ets:insert(E2, [{true,1},{false,2}]), Q = qlc:q([{X,Z} || {_,X} <- ets:table(E1), {Y,Z} <- ets:table(E2), |