diff options
| author | Björn Gustavsson <[email protected]> | 2019-01-29 07:33:51 +0100 |
|---|---|---|
| committer | GitHub <[email protected]> | 2019-01-29 07:33:51 +0100 |
| commit | 5a38332a37eecc29a21fa2d83ba0b719f3a721d4 (patch) | |
| tree | bba3f0170f4114062de9477519bdc107cf1192e3 /lib/compiler/test | |
| parent | 2b603d86dbc8715eda4efc78294ded0770d2149e (diff) | |
| parent | 9528e7a5de22ffa8ce2557e45fb744d2c3548bf5 (diff) | |
| download | otp-5a38332a37eecc29a21fa2d83ba0b719f3a721d4.tar.gz otp-5a38332a37eecc29a21fa2d83ba0b719f3a721d4.tar.bz2 otp-5a38332a37eecc29a21fa2d83ba0b719f3a721d4.zip | |
Merge pull request #2111 from bjorng/bjorn/compiler/not-problem/ERL-840
Fix problems compiling Scalaris
Diffstat (limited to 'lib/compiler/test')
| -rw-r--r-- | lib/compiler/test/beam_type_SUITE.erl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/compiler/test/beam_type_SUITE.erl b/lib/compiler/test/beam_type_SUITE.erl index 6efa98de44..a7ffc3f60a 100644 --- a/lib/compiler/test/beam_type_SUITE.erl +++ b/lib/compiler/test/beam_type_SUITE.erl @@ -222,6 +222,9 @@ coverage(Config) -> booleans(_Config) -> {'EXIT',{{case_clause,_},_}} = (catch do_booleans_1(42)), + ok = do_booleans_2(42, 41), + error = do_booleans_2(42, 42), + AnyAtom = id(atom), true = is_atom(AnyAtom), false = is_boolean(AnyAtom), @@ -250,6 +253,19 @@ do_booleans_1(B) -> no -> no end. +do_booleans_2(A, B) -> + Not = not do_booleans_cmp(A, B), + case Not of + true -> + case Not of + true -> error; + false -> ok + end; + false -> ok + end. + +do_booleans_cmp(A, B) -> A > B. + setelement(_Config) -> T0 = id({a,42}), {a,_} = T0, |