The R13B03 release.OTP_R13B03

1 files changed, 70 insertions, 0 deletions

diff --git a/erts/emulator/test/beam_literals_SUITE_data/literal_case_expression.S b/erts/emulator/test/beam_literals_SUITE_data/literal_case_expression.S
new file mode 100644
index 0000000000..c0ffe9ab53
--- /dev/null
+++ b/erts/emulator/test/beam_literals_SUITE_data/literal_case_expression.S
@@ -0,0 +1,70 @@
+{module, literal_case_expression}.  %% version = 0
+
+{exports, [{module_info,0},{module_info,1},{x,0},{y,0}]}.
+
+{attributes, []}.
+
+{labels, 15}.
+
+
+{function, x, 0, 2}.
+  {label,1}.
+    {func_info,{atom,literal_case_expression},{atom,x},0}.
+  {label,2}.
+    {test,is_integer,{f,5},[{integer,343434343434}]}.
+    {select_val,{integer,343434343434},
+                {f,5},
+                {list,[{integer,343434343434},
+                       {f,3},
+                       {integer,397439},
+                       {f,4},
+                       {integer,3976554567454},
+                       {f,4}]}}.
+  {label,3}.
+    {move,{atom,ok},{x,0}}.
+    return.
+  {label,4}.
+    {move,{atom,error},{x,0}}.
+    return.
+  {label,5}.
+    {case_end,{integer,343434343434}}.
+
+
+{function, y, 0, 7}.
+  {label,6}.
+    {func_info,{atom,literal_case_expression},{atom,y},0}.
+  {label,7}.
+    {test,is_float,{f,10},[{float,34.0000}]}.
+    {select_val,{float,34.0000},
+                {f,10},
+                {list,[{float,34.0000},
+                       {f,8},
+                       {float,397.655},
+                       {f,9},
+                       {float,39.7439},
+                       {f,9}]}}.
+  {label,8}.
+    {move,{atom,ok},{x,0}}.
+    return.
+  {label,9}.
+    {move,{atom,error},{x,0}}.
+    return.
+  {label,10}.
+    {case_end,{float,34.0000}}.
+
+
+{function, module_info, 0, 12}.
+  {label,11}.
+    {func_info,{atom,literal_case_expression},{atom,module_info},0}.
+  {label,12}.
+    {move,{atom,literal_case_expression},{x,0}}.
+    {call_ext_only,1,{extfunc,erlang,get_module_info,1}}.
+
+
+{function, module_info, 1, 14}.
+  {label,13}.
+    {func_info,{atom,literal_case_expression},{atom,module_info},1}.
+  {label,14}.
+    {move,{x,0},{x,1}}.
+    {move,{atom,literal_case_expression},{x,0}}.
+    {call_ext_only,2,{extfunc,erlang,get_module_info,2}}.