aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2013-09-06 14:57:57 +0200
committerBjörn Gustavsson <[email protected]>2013-09-18 10:22:30 +0200
commit905036dccbf7150e26d2db8e8ba04cf779e26fb0 (patch)
treedd9005439d832bb368ba260658d22faeabed32e0
parent4051b16a2b2bf734c05ec8115b7871cb06b4d911 (diff)
downloadotp-905036dccbf7150e26d2db8e8ba04cf779e26fb0.tar.gz
otp-905036dccbf7150e26d2db8e8ba04cf779e26fb0.tar.bz2
otp-905036dccbf7150e26d2db8e8ba04cf779e26fb0.zip
Slightly clean up testX420
-rw-r--r--lib/asn1/test/testX420.erl20
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",