diff options
| author | Björn Gustavsson <[email protected]> | 2014-01-08 15:47:16 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2014-01-08 15:55:31 +0100 |
| commit | 146b9548d6d6dac3753ef6eeeebe266033c4d66a (patch) | |
| tree | 0b8279e0c50d7d70f31627b45d6a466cd6faeba3 /lib/compiler/test | |
| parent | 54e156806ccbcaa83c7bf099b773eddfed4f28ff (diff) | |
| download | otp-146b9548d6d6dac3753ef6eeeebe266033c4d66a.tar.gz otp-146b9548d6d6dac3753ef6eeeebe266033c4d66a.tar.bz2 otp-146b9548d6d6dac3753ef6eeeebe266033c4d66a.zip | |
compiler tests: Test exporting rules for andalso/orelse
Diffstat (limited to 'lib/compiler/test')
| -rw-r--r-- | lib/compiler/test/andor_SUITE.erl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/compiler/test/andor_SUITE.erl b/lib/compiler/test/andor_SUITE.erl index 4ffbe07e32..7bef0aa27c 100644 --- a/lib/compiler/test/andor_SUITE.erl +++ b/lib/compiler/test/andor_SUITE.erl @@ -194,6 +194,9 @@ t_andalso(Config) when is_list(Config) -> ?line false = id(false) andalso not id(glurf), ?line false = false andalso not id(glurf), + true = begin (X1 = true) andalso X1, X1 end, + false = false = begin (X2 = false) andalso X2, X2 end, + ok. t_orelse(Config) when is_list(Config) -> @@ -224,6 +227,9 @@ t_orelse(Config) when is_list(Config) -> ?line true = id(true) orelse not id(glurf), ?line true = true orelse not id(glurf), + true = begin (X1 = true) orelse X1, X1 end, + false = begin (X2 = false) orelse X2, X2 end, + ok. t_andalso_1({X,Y}) -> |