diff options
| author | Björn Gustavsson <[email protected]> | 2013-09-06 14:57:57 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-09-18 10:22:30 +0200 |
| commit | 905036dccbf7150e26d2db8e8ba04cf779e26fb0 (patch) | |
| tree | dd9005439d832bb368ba260658d22faeabed32e0 | |
| parent | 4051b16a2b2bf734c05ec8115b7871cb06b4d911 (diff) | |
| download | otp-905036dccbf7150e26d2db8e8ba04cf779e26fb0.tar.gz otp-905036dccbf7150e26d2db8e8ba04cf779e26fb0.tar.bz2 otp-905036dccbf7150e26d2db8e8ba04cf779e26fb0.zip | |
Slightly clean up testX420
| -rw-r--r-- | lib/asn1/test/testX420.erl | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/lib/asn1/test/testX420.erl b/lib/asn1/test/testX420.erl index 70bdb0640d..cbe14c2455 100644 --- a/lib/asn1/test/testX420.erl +++ b/lib/asn1/test/testX420.erl @@ -26,22 +26,12 @@ -include_lib("test_server/include/test_server.hrl"). -compile(Erule, Options, Config) -> - Specs = specs(), - 99 = length(Specs), - ok = compile_loop(Erule,Specs,Options,Config). - -compile_loop(_Erule, [], _Options, _Config) -> - ok; -compile_loop(Erule, [Spec|Specs], Options, Config) - when Erule =:= ber; Erule =:= per -> +compile(Erule, Options, Config) when Erule =:= ber; Erule =:= per -> + Specs0 = specs(), + 99 = length(Specs0), CaseDir = ?config(case_dir, Config), - asn1_test_lib:compile(filename:join([x420, Spec]), Config, - [Erule, {i, CaseDir} | Options]), - compile_loop(Erule, Specs, Options, Config); -compile_loop(_Erule, _Specs, _Options, _Config) -> - ok. - + Specs = [filename:join(x420, Spec) || Spec <- Specs0], + asn1_test_lib:compile_all(Specs, Config, [Erule,{i,CaseDir}|Options]). specs() -> ["ACSE-1", "AuthenticationFramework", "BasicAccessControl", |