1 files changed, 26 insertions, 0 deletions
diff --git a/lib/hipe/test/bs_SUITE_data/bs_system_limit_32.erl b/lib/hipe/test/bs_SUITE_data/bs_system_limit_32.erl
new file mode 100644
index 0000000000..eccb0083bd
--- /dev/null
+++ b/lib/hipe/test/bs_SUITE_data/bs_system_limit_32.erl
@@ -0,0 +1,26 @@
+%%% -*- erlang-indent-level: 2 -*-
+%%%-------------------------------------------------------------------
+%%% File    : bs_system_limit_32.erl
+%%% Author  : Per Gustafsson <[email protected]>
+%%% Purpose : Checks binary system limits on 32-bit machines
+%%% Created : 14 May 2008
+%%%-------------------------------------------------------------------
+-module(bs_system_limit_32).
+
+-export([test/0]).
+
+test() ->
+  case erlang:system_info(wordsize) of
+    4 -> system_limit_32();
+    8 -> ok
+  end.
+
+system_limit_32() ->
+  {'EXIT', {badarg, _}} = (catch <<42:(id(-1))>>),
+  {'EXIT', {badarg, _}} = (catch <<42:(id(-389739873536870912))/unit:8>>),
+  {'EXIT', {system_limit, _}} = (catch <<32:536870912/unit:8>>),
+  {'EXIT', {system_limit, _}} = (catch <<42:(id(536870912))/unit:8>>),
+  {'EXIT', {system_limit, _}} = (catch <<42:(id(536870912))/unit:8,1:1>>),
+  ok.
+
+id(X) -> X.