diff options
| author | Adam Lindberg <[email protected]> | 2012-02-06 11:57:35 +0100 |
|---|---|---|
| committer | Adam Lindberg <[email protected]> | 2012-02-28 14:59:32 +0100 |
| commit | 659fcc5ebd03b72a4081bf0853538800ddf16f86 (patch) | |
| tree | 4353be135a4cd2e718d5a918cf3e06cd5c925743 /lib/asn1/test/testMegaco.erl | |
| parent | aa4e27ebac9eb287069fab859fe5dcdab82c75bf (diff) | |
| download | otp-659fcc5ebd03b72a4081bf0853538800ddf16f86.tar.gz otp-659fcc5ebd03b72a4081bf0853538800ddf16f86.tar.bz2 otp-659fcc5ebd03b72a4081bf0853538800ddf16f86.zip | |
[asn1] Parallelize test suites
Diffstat (limited to 'lib/asn1/test/testMegaco.erl')
| -rw-r--r-- | lib/asn1/test/testMegaco.erl | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/lib/asn1/test/testMegaco.erl b/lib/asn1/test/testMegaco.erl index 8413d00c25..f4edcebb7e 100644 --- a/lib/asn1/test/testMegaco.erl +++ b/lib/asn1/test/testMegaco.erl @@ -108,26 +108,17 @@ compile(_Config,ber,[optimize]) -> compile(_Config,per,[optimize]) -> {ok,no_module,no_module}; compile(Config,Erule,Options) -> - ?line DataDir = ?config(data_dir,Config), - ?line OutDir = ?config(priv_dir,Config), - ?line true = code:add_patha(?config(priv_dir,Config)), - - ?line ok = asn1ct:compile(DataDir ++ - "MEDIA-GATEWAY-CONTROL.asn", - [Erule,{outdir,OutDir}]++Options), - - ?line ok = asn1ct:compile(DataDir ++ - "OLD-MEDIA-GATEWAY-CONTROL.asn", - [Erule,{outdir,OutDir}]++Options), + asn1_test_lib:compile("MEDIA-GATEWAY-CONTROL.asn", Config, [Erule|Options]), + asn1_test_lib:compile("OLD-MEDIA-GATEWAY-CONTROL.asn", Config, [Erule|Options]), {ok,'OLD-MEDIA-GATEWAY-CONTROL','MEDIA-GATEWAY-CONTROL'}. main(no_module,_) -> ok; main('OLD-MEDIA-GATEWAY-CONTROL',Config) -> % Msg = msg11(), - OutDir = ?config(priv_dir, Config), + CaseDir = ?config(case_dir, Config), {ok,Msg} = asn1ct:value('OLD-MEDIA-GATEWAY-CONTROL','MegacoMessage', - [{i, OutDir}]), + [{i, CaseDir}]), ?line {ok,Bytes} = asn1_wrapper:encode('OLD-MEDIA-GATEWAY-CONTROL', 'MegacoMessage',Msg), ?line {ok,Msg} = asn1_wrapper:decode('OLD-MEDIA-GATEWAY-CONTROL', @@ -178,7 +169,7 @@ request(Mid, TransId, ContextId, CmdReq) when is_list(CmdReq) -> msg11() -> TimeStamp = #'TimeNotation'{date = "19990729", - time = "22010001"}, + time = "22012001"}, Parm = #'EventParameter'{eventParameterName = "ds", value = "916135551212"}, |