diff options
| author | Björn Gustavsson <[email protected]> | 2013-09-13 12:55:59 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-09-18 11:45:00 +0200 |
| commit | b8f57af261d72f9f078ddf7190201209dd846d53 (patch) | |
| tree | 01436d57b97d6d33f16e73730359a48ffbd32e24 /lib/asn1/test/asn1_SUITE.erl | |
| parent | 233089914b1d70c0b0ddc46b1977998aa4bd3780 (diff) | |
| download | otp-b8f57af261d72f9f078ddf7190201209dd846d53.tar.gz otp-b8f57af261d72f9f078ddf7190201209dd846d53.tar.bz2 otp-b8f57af261d72f9f078ddf7190201209dd846d53.zip | |
Simplify tests of CHOICE with OPTIONAL
Test ChoOptional and ChoOptionalImplicitTag with the same test code
and data.
Diffstat (limited to 'lib/asn1/test/asn1_SUITE.erl')
| -rw-r--r-- | lib/asn1/test/asn1_SUITE.erl | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/lib/asn1/test/asn1_SUITE.erl b/lib/asn1/test/asn1_SUITE.erl index 1f13faa220..51d22c7a0f 100644 --- a/lib/asn1/test/asn1_SUITE.erl +++ b/lib/asn1/test/asn1_SUITE.erl @@ -90,7 +90,6 @@ groups() -> testChoPrim, testChoExtension, testChoOptional, - testChoOptionalImplicitTag, testChoRecursive, testChoTypeRefCho, testChoTypeRefPrim, @@ -385,16 +384,9 @@ testChoExtension(Config, Rule, Opts) -> testChoOptional(Config) -> test(Config, fun testChoOptional/3). testChoOptional(Config, Rule, Opts) -> - asn1_test_lib:compile("ChoOptional", Config, [Rule|Opts]), - testChoOptional:optional(Rule). - -testChoOptionalImplicitTag(Config) -> - test(Config, fun testChoOptionalImplicitTag/3, - [ber]). -testChoOptionalImplicitTag(Config, Rule, Opts) -> - %% Only meaningful for ber & co - asn1_test_lib:compile("ChoOptionalImplicitTag", Config, [Rule|Opts]), - testChoOptionalImplicitTag:optional(Rule). + asn1_test_lib:compile_all(["ChoOptional", + "ChoOptionalImplicitTag"], Config, [Rule|Opts]), + testChoOptional:run(). testChoRecursive(Config) -> test(Config, fun testChoRecursive/3). testChoRecursive(Config, Rule, Opts) -> |