diff options
| author | Björn Gustavsson <[email protected]> | 2013-08-29 13:06:30 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-08-30 10:13:17 +0200 |
| commit | 8fb5a3b6241a988c80dc1faac9bfb396c1aa32b7 (patch) | |
| tree | 7965eb63243f4b2648e90c81b314bbed3a1ca45d /lib/asn1/test/testDeepTConstr.erl | |
| parent | a5c7d1c0ecd8a8b78ae162aeb735501ef49e014b (diff) | |
| download | otp-8fb5a3b6241a988c80dc1faac9bfb396c1aa32b7.tar.gz otp-8fb5a3b6241a988c80dc1faac9bfb396c1aa32b7.tar.bz2 otp-8fb5a3b6241a988c80dc1faac9bfb396c1aa32b7.zip | |
Improve tests of deep table constraints
Diffstat (limited to 'lib/asn1/test/testDeepTConstr.erl')
| -rw-r--r-- | lib/asn1/test/testDeepTConstr.erl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/asn1/test/testDeepTConstr.erl b/lib/asn1/test/testDeepTConstr.erl index f17dedc043..f33e49ed7a 100644 --- a/lib/asn1/test/testDeepTConstr.erl +++ b/lib/asn1/test/testDeepTConstr.erl @@ -70,6 +70,21 @@ main(_Erule) -> {'Deeper_a',12, {'Deeper_a_s',{2,4},42}}, {'Deeper_b',13,{'Type-object1',14,true}}}), + + roundtrip('TConstr', 'Seq3', + {'Seq3', + {'Seq3_a',42,'TConstr':'id-object1'()}, + {'Seq3_b', + {'Type-object1',-777,true}, + 12345, + {'Seq3_b_bc',12345789,{'Type-object1',-999,true}}}}), + roundtrip('TConstr', 'Seq3-Opt', + {'Seq3-Opt', + {'Seq3-Opt_a',42,'TConstr':'id-object1'()}, + {'Seq3-Opt_b', + {'Type-object1',-777,true}, + 12345, + {'Seq3-Opt_b_bc',12345789,{'Type-object1',-999,true}}}}), ok. |