aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/test
diff options
context:
space:
mode:
authorLukas Larsson <lukas@erlang-solutions.com>2011-09-14 11:37:45 +0200
committerLukas Larsson <lukas@erlang-solutions.com>2011-09-14 11:37:45 +0200
commit3239beb53276e0086e70b37c14a19cd22cfdd7e1 (patch)
tree1354bfe35d138b36b0ce176edb73866344b5450a /lib/stdlib/test
parentae7e9b6d23c63bf73d9e22ea0b21b79b51900655 (diff)
parentb4a8af7158107ded0a3c5f7a51883c77a16b5c26 (diff)
downloadotp-3239beb53276e0086e70b37c14a19cd22cfdd7e1.tar.gz
otp-3239beb53276e0086e70b37c14a19cd22cfdd7e1.tar.bz2
otp-3239beb53276e0086e70b37c14a19cd22cfdd7e1.zip
Merge branch 'dev' into major
* dev: Add a high value to test data to catch type cast truncation errors
Diffstat (limited to 'lib/stdlib/test')
-rw-r--r--lib/stdlib/test/ets_SUITE.erl10
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/stdlib/test/ets_SUITE.erl b/lib/stdlib/test/ets_SUITE.erl
index 02e97fb3a8..c6b3c97e25 100644
--- a/lib/stdlib/test/ets_SUITE.erl
+++ b/lib/stdlib/test/ets_SUITE.erl
@@ -2717,7 +2717,8 @@ ordered_do(Opts) ->
9,10,11,12,
1,2,3,4,
17,18,19,20,
- 13,14,15,16
+ 13,14,15,16,
+ 1 bsl 33
],
?line lists:foreach(fun(X) ->
ets:insert(T,{X,integer_to_list(X)})
@@ -2732,13 +2733,14 @@ ordered_do(Opts) ->
?line S2 = L2,
?line [{1,"1"}] = ets:slot(T,0),
?line [{28,"28"}] = ets:slot(T,27),
+ ?line [{1 bsl 33,_}] = ets:slot(T,28),
?line 27 = ets:prev(T,28),
?line [{7,"7"}] = ets:slot(T,6),
- ?line '$end_of_table' = ets:next(T,28),
+ ?line '$end_of_table' = ets:next(T,1 bsl 33),
?line [{12,"12"}] = ets:slot(T,11),
- ?line '$end_of_table' = ets:slot(T,28),
+ ?line '$end_of_table' = ets:slot(T,29),
?line [{1,"1"}] = ets:slot(T,0),
- ?line 28 = ets:prev(T,29),
+ ?line 28 = ets:prev(T,1 bsl 33),
?line 1 = ets:next(T,0),
?line pick_all_forward(T),
?line [{7,"7"}] = ets:slot(T,6),