diff options
| author | Björn Gustavsson <[email protected]> | 2010-03-10 07:32:19 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2010-03-11 10:26:48 +0100 |
| commit | 44cc5dfcbea91ef419c55a70c67c87b3a44e7a79 (patch) | |
| tree | 17d04199de37685bfc686cdf7152b93591f4e2b9 /lib/asn1/test/testTimer.erl | |
| parent | c5dff500f4ae51fc2182b1646538e54129e63c37 (diff) | |
| download | otp-44cc5dfcbea91ef419c55a70c67c87b3a44e7a79.tar.gz otp-44cc5dfcbea91ef419c55a70c67c87b3a44e7a79.tar.bz2 otp-44cc5dfcbea91ef419c55a70c67c87b3a44e7a79.zip | |
asn1 tests: Modernize guard tests
Diffstat (limited to 'lib/asn1/test/testTimer.erl')
| -rw-r--r-- | lib/asn1/test/testTimer.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/asn1/test/testTimer.erl b/lib/asn1/test/testTimer.erl index eac294c73c..004bfbf0b0 100644 --- a/lib/asn1/test/testTimer.erl +++ b/lib/asn1/test/testTimer.erl @@ -146,7 +146,7 @@ go(Config,Enc) -> Bytes = case Enc of ber_bin -> list_to_binary(B); - per_bin when list(B) -> + per_bin when is_list(B) -> list_to_binary(B); per_bin -> B; @@ -179,7 +179,7 @@ encode(0, _Module,_Type,_Value) -> encode(N, Module,Type,Value) -> ?line {ok,B} = asn1rt:encode(Module,Type,Value), _B2 = if - list(B) -> list_to_binary(B); + is_list(B) -> list_to_binary(B); true -> B end, encode(N-1, Module,Type,Value). |