diff options
| author | Björn Gustavsson <[email protected]> | 2014-10-01 14:51:37 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-01-12 11:40:25 +0100 |
| commit | 86a2bbe5c88c1be6450b53a2b5cb30a099683762 (patch) | |
| tree | 6729cc7855fe80ce39dc642c00dfda765b6b3917 /lib/asn1/test/asn1_SUITE.erl | |
| parent | 07ecfe45e8c22c1d8bde26a39aa833ac6901c348 (diff) | |
| download | otp-86a2bbe5c88c1be6450b53a2b5cb30a099683762.tar.gz otp-86a2bbe5c88c1be6450b53a2b5cb30a099683762.tar.bz2 otp-86a2bbe5c88c1be6450b53a2b5cb30a099683762.zip | |
Fix object set duplication test
Wrong fields in the record where checked when sorting, which caused
duplicate objects to exist in constructed object sets and later caused
an error.
Diffstat (limited to 'lib/asn1/test/asn1_SUITE.erl')
| -rw-r--r-- | lib/asn1/test/asn1_SUITE.erl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/asn1/test/asn1_SUITE.erl b/lib/asn1/test/asn1_SUITE.erl index 668a8a2648..2eff210ee2 100644 --- a/lib/asn1/test/asn1_SUITE.erl +++ b/lib/asn1/test/asn1_SUITE.erl @@ -135,6 +135,7 @@ groups() -> testChoiceIndefinite, per_open_type, testInfObjectClass, + testUniqueObjectSets, testInfObjExtract, testParam, testFragmented, @@ -767,6 +768,11 @@ testInfObjectClass(Config, Rule, Opts) -> testInfObjectClass:main(Rule), testInfObj:main(Rule). +testUniqueObjectSets(Config) -> test(Config, fun testUniqueObjectSets/3). +testUniqueObjectSets(Config, Rule, Opts) -> + CaseDir = ?config(case_dir, Config), + testUniqueObjectSets:main(CaseDir, Rule, Opts). + testInfObjExtract(Config) -> test(Config, fun testInfObjExtract/3). testInfObjExtract(Config, Rule, Opts) -> asn1_test_lib:compile("InfObjExtract", Config, [Rule|Opts]), |