diff options
| author | Björn Gustavsson <[email protected]> | 2015-11-10 10:28:15 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-11-10 13:04:56 +0100 |
| commit | f1c449d76e4dbe2f12de05ec08809e0a86cc63b6 (patch) | |
| tree | 999c47e097f691f573b9848a2ee7e1d8c3731cce /lib/compiler/test/match_SUITE.erl | |
| parent | 624638e6668dcf51f6b616de5fc7c9ff1aa77bcf (diff) | |
| download | otp-f1c449d76e4dbe2f12de05ec08809e0a86cc63b6.tar.gz otp-f1c449d76e4dbe2f12de05ec08809e0a86cc63b6.tar.bz2 otp-f1c449d76e4dbe2f12de05ec08809e0a86cc63b6.zip | |
Cover sys_pre_expand:pattern/2
Diffstat (limited to 'lib/compiler/test/match_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/match_SUITE.erl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/compiler/test/match_SUITE.erl b/lib/compiler/test/match_SUITE.erl index 67d668f650..9166726aa2 100644 --- a/lib/compiler/test/match_SUITE.erl +++ b/lib/compiler/test/match_SUITE.erl @@ -449,7 +449,10 @@ do_map_vars_used(X, Y, Map) -> coverage(Config) when is_list(Config) -> %% Cover beam_dead. ok = coverage_1(x, a), - ok = coverage_1(x, b). + ok = coverage_1(x, b), + + %% Cover sys_pre_expand. + ok = coverage_3("abc"). coverage_1(B, Tag) -> case Tag of @@ -460,4 +463,6 @@ coverage_1(B, Tag) -> coverage_2(1, a, x) -> ok; coverage_2(2, b, x) -> ok. +coverage_3([$a]++[]++"bc") -> ok. + id(I) -> I. |