aboutsummaryrefslogtreecommitdiffstats
path: root/lib/asn1/test/test_undecoded_rest.erl
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2013-09-27 10:14:38 +0200
committerBjörn Gustavsson <[email protected]>2013-09-27 10:14:38 +0200
commit8f8c00f77779f5d47642e6decddf298d2f8e2254 (patch)
tree45038211847c359b134c9ed2e4ec668fffb286f0 /lib/asn1/test/test_undecoded_rest.erl
parent5e2f627736f95380fe1708055e5c6221d5a9bea9 (diff)
parent5df3c4454fd5f302317bed7f5f83f20f7e5d9580 (diff)
downloadotp-8f8c00f77779f5d47642e6decddf298d2f8e2254.tar.gz
otp-8f8c00f77779f5d47642e6decddf298d2f8e2254.tar.bz2
otp-8f8c00f77779f5d47642e6decddf298d2f8e2254.zip
Merge branch 'maint'
* maint: (24 commits) No longer compile the X420 specs for plain BER Combine the testSeqIndefinite/1 and testSetIndefinite/1 test cases Remove asn1_wrapper Eliminate the use of asn1_wrapper Simplify tests of CHOICE with OPTIONAL asn1_test_lib: Add roundtrip functions and use them everywhere Makefile: Release Emakefile to ensure warnings are treated as errors Don't allow unused exported functions in test case helpers Move out specific tests from asn1_test_lib testMegaco: Remove unused exported function msg11/0 ASN.1 tests: Don't export functions that are only locally called Remove unused pem_performance.erl file asn1_SUITE: Reinstate test of sub-constraint ASN.1 tests: Remove unused choice_extension.erl Remove unused compile() functions asn1_test_lib: Remove unnecessary loading of a compiled ASN.1 spec Slightly clean up testX420 asn1_SUITE: Combine most tests that use External.asn1 asn1ct_gen: Clean up process dictionary after generating asn1ct_parser2: Clean the process dictionary after parsing ...
Diffstat (limited to 'lib/asn1/test/test_undecoded_rest.erl')
-rw-r--r--lib/asn1/test/test_undecoded_rest.erl23
1 files changed, 8 insertions, 15 deletions
diff --git a/lib/asn1/test/test_undecoded_rest.erl b/lib/asn1/test/test_undecoded_rest.erl
index 36fd26ed59..fe04178bb1 100644
--- a/lib/asn1/test/test_undecoded_rest.erl
+++ b/lib/asn1/test/test_undecoded_rest.erl
@@ -27,27 +27,20 @@
%% testing OTP-5104
test(Opt, Config) ->
- {ok, Msg} = asn1ct:value('P-Record', 'PersonnelRecord',
- [{i, ?config(case_dir, Config)}]),
- {ok, Bytes} = asn1_wrapper:encode('P-Record', 'PersonnelRecord', Msg),
- Bytes2 = if is_list(Bytes) ->
- Bytes ++ [55, 55, 55];
- is_binary(Bytes) ->
- iolist_to_binary([Bytes, <<55, 55, 55>>])
- end,
+ {ok,Msg} = asn1ct:value('P-Record', 'PersonnelRecord',
+ [{i,?config(case_dir, Config)}]),
+ {ok,Bytes0} = 'P-Record':encode('PersonnelRecord', Msg),
+ Bytes1 = iolist_to_binary([Bytes0, <<55,55,55>>]),
case Opt of
undec_rest ->
- {ok, Msg, R} = asn1_wrapper:decode('P-Record', 'PersonnelRecord',
- Bytes2),
+ {ok,Msg,R} = 'P-Record':decode('PersonnelRecord', Bytes1),
case R of
- <<55, 55, 55>> -> ok;
- [55, 55, 55] -> ok;
+ <<55,55,55>> -> ok;
BStr when is_bitstring(BStr) ->
PadLen = (8 - (bit_size(BStr) rem 8)) rem 8,
- <<0, 55, 55, 55>> = <<0:PadLen, BStr/bitstring>>
+ <<0,55,55,55>> = <<0:PadLen, BStr/bitstring>>
end;
_ ->
- {ok, Msg} = asn1_wrapper:decode('P-Record', 'PersonnelRecord',
- Bytes2)
+ {ok,Msg} = 'P-Record':decode('PersonnelRecord', Bytes1)
end,
ok.