diff options
| author | Björn Gustavsson <[email protected]> | 2013-09-11 10:48:49 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-09-18 11:45:00 +0200 |
| commit | 233089914b1d70c0b0ddc46b1977998aa4bd3780 (patch) | |
| tree | 497aab1c757bf252f0a0b1d0fbde449ccaa0b0fc /lib/asn1/test/testSeqOf.erl | |
| parent | 973fae5673fee766fd5477fbf3663b2722cab9d7 (diff) | |
| download | otp-233089914b1d70c0b0ddc46b1977998aa4bd3780.tar.gz otp-233089914b1d70c0b0ddc46b1977998aa4bd3780.tar.bz2 otp-233089914b1d70c0b0ddc46b1977998aa4bd3780.zip | |
asn1_test_lib: Add roundtrip functions and use them everywhere
Even if the roundtrip functions are very simply, putting them here
makes it possible to change its behavior in one place (e.g. if we
are to change encode and decode not to wrap the result in a ok tuple
in some future release).
Diffstat (limited to 'lib/asn1/test/testSeqOf.erl')
| -rw-r--r-- | lib/asn1/test/testSeqOf.erl | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lib/asn1/test/testSeqOf.erl b/lib/asn1/test/testSeqOf.erl index c50cc27f6f..7f8f4079b4 100644 --- a/lib/asn1/test/testSeqOf.erl +++ b/lib/asn1/test/testSeqOf.erl @@ -149,15 +149,9 @@ roundtrip(T, V) -> roundtrip(T, V, V). roundtrip(Type, Val, Expected) -> - M = 'SeqOf', - {ok,Enc} = M:encode(Type, Val), - {ok,Expected} = M:decode(Type, Enc), - ok. + asn1_test_lib:roundtrip('SeqOf', Type, Val, Expected). xroundtrip(T1, T2, Val) -> - M = 'XSeqOf', - {ok,Enc} = M:encode(T1, Val), - {ok,Enc} = M:encode(T2, Val), - {ok,Val} = M:decode(T1, Enc), - {ok,Val} = M:decode(T2, Enc), + Enc = asn1_test_lib:roundtrip_enc('XSeqOf', T1, Val), + Enc = asn1_test_lib:roundtrip_enc('XSeqOf', T2, Val), ok. |