new test for Choice

diff --git a/tests/70-xer-test-OK.asn1 b/tests/70-xer-test-OK.asn1
index 330b913..2c23f52 100644
--- a/tests/70-xer-test-OK.asn1
+++ b/tests/70-xer-test-OK.asn1
@@ -29,6 +29,8 @@
 		namedSetOfREAL		NamedSetOfREAL,
 		namedSetOfEnums		NamedSetOfEnums,
 		seqOfZuka		SeqOfZuka,
+		setOfChoice		SetOfChoice,
+		namedSetOfChoice	NamedSetOfChoice,
 		...
 	}
 
@@ -71,5 +73,9 @@
 	NamedSetOfEnums ::= SET OF name ENUMERATED { one, oneMore }
 	SequenceOf ::= SEQUENCE OF id INTEGER { one(1), two(2) }
 	SeqOfZuka ::= SEQUENCE OF zuka NULL
+	SetOfChoice ::= SET OF SimpleChoice
+	NamedSetOfChoice ::= SET OF whatever SimpleChoice
+
+	SimpleChoice ::= CHOICE { a NULL, b INTEGER }
 
 END