aboutsummaryrefslogtreecommitdiffstats
path: root/lib/compiler/test/compile_SUITE_data/small.erl
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2014-01-31 13:20:04 +0100
committerBjörn-Egil Dahlberg <[email protected]>2014-01-31 13:23:30 +0100
commitf2abb08616e4fe2b2f8ea457728e33c91ef5e83e (patch)
treed38a8c5e6abd15fbf32a49211ff8e5836863dd54 /lib/compiler/test/compile_SUITE_data/small.erl
parentf0c74df09a32588367f3ed23861af823425f4efd (diff)
downloadotp-f2abb08616e4fe2b2f8ea457728e33c91ef5e83e.tar.gz
otp-f2abb08616e4fe2b2f8ea457728e33c91ef5e83e.tar.bz2
otp-f2abb08616e4fe2b2f8ea457728e33c91ef5e83e.zip
compiler: Strengthen listings tests
Diffstat (limited to 'lib/compiler/test/compile_SUITE_data/small.erl')
-rw-r--r--lib/compiler/test/compile_SUITE_data/small.erl48
1 files changed, 48 insertions, 0 deletions
diff --git a/lib/compiler/test/compile_SUITE_data/small.erl b/lib/compiler/test/compile_SUITE_data/small.erl
new file mode 100644
index 0000000000..37cd270e50
--- /dev/null
+++ b/lib/compiler/test/compile_SUITE_data/small.erl
@@ -0,0 +1,48 @@
+-module(small).
+
+-export([go/0,go/2]).
+
+
+-small_attribute({value,3}).
+
+go() -> go(3, 3.0).
+go(A,B) ->
+ V1 = A + B,
+ V2 = A * B,
+ V3 = V1 / V2,
+ V4 = V3 / 0.3,
+ V5 = V1 + V2 + V3 + V4,
+ try
+ R = call(<<"wazzup">>, A),
+ {A,B,V5,R,t(),recv()}
+ catch
+ C:E ->
+ {error, C, E}
+ end.
+
+-spec call(binary(), term()) -> binary().
+
+call(<<"wa", B/binary>>,V) when is_integer(V) -> B;
+call(B,_) -> B.
+
+t() ->
+ <<23:32, V:14, _:2, B/binary>> = id(<<"wazzup world">>),
+ {V,B}.
+
+recv() ->
+ F = fun() ->
+ receive
+ 1 -> ok;
+ 2 -> ok;
+ 3 -> ok;
+ a -> ok;
+ _ -> none
+ after 0 -> tmo
+ end
+ end,
+ tmo = F(),
+ ok.
+
+
+id(I) -> I.
+