summaryrefslogtreecommitdiff
path: root/erts/emulator/test/guard_SUITE.erl
diff options
context:
space:
mode:
authorPatrik Nyblom <pan@erlang.org>2010-05-06 16:30:26 +0200
committerBjörn Gustavsson <bjorn@erlang.org>2010-05-17 15:51:50 +0200
commitababeff98d7def30898786629cc5a16ea3949a24 (patch)
tree133c19b763cd5fa79684b3db5f4f6710474e72b7 /erts/emulator/test/guard_SUITE.erl
parentf197068153bdc0aa749267ea30e77bf0173172f4 (diff)
downloaderlang-ababeff98d7def30898786629cc5a16ea3949a24.tar.gz
Correct Boyer More and trapping for longest_common_suffix
Add testcases and clean up to get better code coverage.
Diffstat (limited to 'erts/emulator/test/guard_SUITE.erl')
-rw-r--r--erts/emulator/test/guard_SUITE.erl9
1 files changed, 9 insertions, 0 deletions
diff --git a/erts/emulator/test/guard_SUITE.erl b/erts/emulator/test/guard_SUITE.erl
index fa311badf1..62de615a90 100644
--- a/erts/emulator/test/guard_SUITE.erl
+++ b/erts/emulator/test/guard_SUITE.erl
@@ -146,6 +146,15 @@ mask_error(Else) ->
guard_bif_binary_part(doc) ->
["Test the binary_part/2,3 guard BIF's extensively"];
guard_bif_binary_part(Config) when is_list(Config) ->
+ %% Overflow tests that need to be unoptimized
+ ?line badarg =
+ ?MASK_ERROR(
+ binary_part(<<1,2,3>>,{16#FFFFFFFFFFFFFFFF,
+ -16#7FFFFFFFFFFFFFFF-1})),
+ ?line badarg =
+ ?MASK_ERROR(
+ binary_part(<<1,2,3>>,{16#FFFFFFFFFFFFFFFF,
+ 16#7FFFFFFFFFFFFFFF})),
F = fun(X) ->
Master = self(),
{Pid,Ref} = spawn_monitor( fun() ->