diff options
author | Björn Gustavsson <[email protected]> | 2012-01-04 15:30:51 +0100 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2012-01-04 16:14:19 +0100 |
commit | eea9dc51efcaceb1379caa288443aebb274ba87b (patch) | |
tree | 2110ebbd939a6c21f7ecc8de84c4a75c4b001286 /lib/compiler/test/core_SUITE_data/unsafe_case.core | |
parent | d990fedd8f817373066debe6ecea343622b1a78e (diff) | |
download | otp-eea9dc51efcaceb1379caa288443aebb274ba87b.tar.gz otp-eea9dc51efcaceb1379caa288443aebb274ba87b.tar.bz2 otp-eea9dc51efcaceb1379caa288443aebb274ba87b.zip |
core_SUITE: Cover v3_kernel:build_match/2
Diffstat (limited to 'lib/compiler/test/core_SUITE_data/unsafe_case.core')
-rw-r--r-- | lib/compiler/test/core_SUITE_data/unsafe_case.core | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/compiler/test/core_SUITE_data/unsafe_case.core b/lib/compiler/test/core_SUITE_data/unsafe_case.core new file mode 100644 index 0000000000..84cb2c310a --- /dev/null +++ b/lib/compiler/test/core_SUITE_data/unsafe_case.core @@ -0,0 +1,25 @@ +module 'unsafe_case' ['unsafe_case'/0] + attributes [] +'unsafe_case'/0 = + fun () -> + case apply 't'/1 + (42) of + <{'ok',42}> when 'true' -> + 'ok' + ( <_cor0> when 'true' -> + primop 'match_fail' + ({'badmatch',_cor0}) + -| ['compiler_generated'] ) + end +'t'/1 = + fun (_cor0) -> + case _cor0 of + <X> + when call 'erlang':'>' + (_cor0, + 0) -> + {'ok',X} + %% The default case is intentionally missing + %% to cover v3_kernel:build_match/2. + end +end |