diff options
| author | Kostis Sagonas <[email protected]> | 2015-11-28 22:18:42 +0100 |
|---|---|---|
| committer | Kostis Sagonas <[email protected]> | 2015-12-16 22:08:33 +0100 |
| commit | 1c759f0bab4b0598231bd6e1d78171722d5c29df (patch) | |
| tree | 669e04d755e9d92fec7697aa62c711ae1c63fac2 /lib/hipe/test/basic_SUITE_data/basic_guards.erl | |
| parent | 1c6075b7c69709ce129e817b4652ccb5ff9d2e95 (diff) | |
| download | otp-1c759f0bab4b0598231bd6e1d78171722d5c29df.tar.gz otp-1c759f0bab4b0598231bd6e1d78171722d5c29df.tar.bz2 otp-1c759f0bab4b0598231bd6e1d78171722d5c29df.zip | |
Cleanups & uncomment some code
Diffstat (limited to 'lib/hipe/test/basic_SUITE_data/basic_guards.erl')
| -rw-r--r-- | lib/hipe/test/basic_SUITE_data/basic_guards.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/hipe/test/basic_SUITE_data/basic_guards.erl b/lib/hipe/test/basic_SUITE_data/basic_guards.erl index a519944916..4bfe363ed3 100644 --- a/lib/hipe/test/basic_SUITE_data/basic_guards.erl +++ b/lib/hipe/test/basic_SUITE_data/basic_guards.erl @@ -35,7 +35,7 @@ guard1(X) when hd(X) == foo -> test_guard2() -> ok1 = guard2(true), not_boolean = guard2(42), - ok2 = guard2(false), + ok2 = guard2(false), ok. guard2(X) when X -> % gets transformed to: is_boolean(X), X =:= true @@ -48,7 +48,7 @@ guard2(_) -> %%-------------------------------------------------------------------- -define(is_foo(X), (is_atom(X) or (is_tuple(X) and (element(1, X) =:= 'foo')))). - + test_guard3() -> no = f('foo'), yes = f({'foo', 42}), @@ -65,7 +65,7 @@ f(_) -> no. test_guard4() -> yes = is_ref(make_ref()), no = is_ref(gazonk), - yes = is_ref(an_external_ref(?EXT_REF)), + yes = is_ref(an_external_ref(?EXT_REF)), ok. is_ref(Ref) when is_reference(Ref) -> yes; |