aboutsummaryrefslogtreecommitdiffstats
path: root/lib/asn1/test/test_modified_x420.erl
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2013-02-07 13:15:15 +0100
committerBjörn Gustavsson <[email protected]>2013-02-07 13:15:15 +0100
commitf7eed05cb052fd479efaa7607118bf74b523ec33 (patch)
tree72b8ec5e4ae350b52fb58c75613b0d19ab7611e7 /lib/asn1/test/test_modified_x420.erl
parent2ec63b31743a177446884ed12736607d3fbea1ef (diff)
parentd45c6b727da8db7664d2cc08a16ef8ca68fe46df (diff)
downloadotp-f7eed05cb052fd479efaa7607118bf74b523ec33.tar.gz
otp-f7eed05cb052fd479efaa7607118bf74b523ec33.tar.bz2
otp-f7eed05cb052fd479efaa7607118bf74b523ec33.zip
Merge branch 'maint'
* maint: Prepare release Don't run testX420/1 on old slow Sparc systems testX420: Pass Options to the ASN.1 compiler asn1_erl_nif: Correct broken length encoding asn1_SUITE: Mend broken test_modified_x420/1 Revert "Prepare release" Conflicts: lib/asn1/doc/src/notes.xml lib/asn1/test/asn1_SUITE.erl
Diffstat (limited to 'lib/asn1/test/test_modified_x420.erl')
-rw-r--r--lib/asn1/test/test_modified_x420.erl22
1 files changed, 8 insertions, 14 deletions
diff --git a/lib/asn1/test/test_modified_x420.erl b/lib/asn1/test/test_modified_x420.erl
index 2e9dfeee87..ae9d1989fb 100644
--- a/lib/asn1/test/test_modified_x420.erl
+++ b/lib/asn1/test/test_modified_x420.erl
@@ -18,27 +18,21 @@
%%
%%
-module(test_modified_x420).
-
-%-compile(export_all).
--export([test_io/1]).
+-export([test/1]).
-include_lib("test_server/include/test_server.hrl").
-test_io(Config) ->
- io:format("~p~n~n", [catch test(Config)]).
-
test(Config) ->
- ?line DataDir = ?config(data_dir,Config),
-% ?line OutDir = ?config(priv_dir,Config),
+ DataDir = ?config(data_dir,Config),
- ?line Der = read_pem(filename:join([DataDir,modified_x420,"p7_signed_data.pem"])),
- ?line {ok, {_,_,SignedData}} = 'PKCS7':decode('ContentInfo', Der),
- ?line {ok,_} = 'PKCS7':decode('SignedData', SignedData).
+ Der = read_pem(filename:join([DataDir,modified_x420,"p7_signed_data.pem"])),
+ {ok,{_,_,SignedData}} = asn1_wrapper:decode('PKCS7', 'ContentInfo', Der),
+ {ok,_} = asn1_wrapper:decode('PKCS7', 'SignedData', SignedData).
read_pem(File) ->
- ?line {ok, Bin} = file:read_file(File),
- ?line ssl_base64:join_decode(lists:flatten(extract_base64(Bin))).
-
+ {ok,Bin} = file:read_file(File),
+ Der = base64:mime_decode(lists:flatten(extract_base64(Bin))),
+ binary_to_list(Der).
extract_base64(Binary) ->