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/testINSTANCE_OF.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/testINSTANCE_OF.erl')
| -rw-r--r-- | lib/asn1/test/testINSTANCE_OF.erl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/asn1/test/testINSTANCE_OF.erl b/lib/asn1/test/testINSTANCE_OF.erl index 0e2a704934..9f8a871a63 100644 --- a/lib/asn1/test/testINSTANCE_OF.erl +++ b/lib/asn1/test/testINSTANCE_OF.erl @@ -73,17 +73,17 @@ test_encdec(_Erule,{lastName,{'GeneralName_lastName',{2,3,4}, test_encdec(Erule,Res) -> {error,{Erule,Res}}. -wrap(ber,Int) when list(Int) -> +wrap(ber,Int) when is_list(Int) -> binary_to_list(list_to_binary(Int)); -wrap(per,Int) when list(Int) -> +wrap(per,Int) when is_list(Int) -> binary_to_list(list_to_binary(Int)); -wrap(ber_bin,Int) when list(Int) -> +wrap(ber_bin,Int) when is_list(Int) -> list_to_binary(Int); -wrap(ber_bin_v2,Int) when list(Int) -> +wrap(ber_bin_v2,Int) when is_list(Int) -> list_to_binary(Int); -wrap(per_bin,Int) when list(Int) -> +wrap(per_bin,Int) when is_list(Int) -> list_to_binary(Int); -wrap(uper_bin,Int) when list(Int) -> +wrap(uper_bin,Int) when is_list(Int) -> list_to_binary(Int); wrap(_,Int) -> Int. |