[perl-ldap-checkins] CVS: asn/t 10choice.t,1.1,1.2

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/asn/t
In directory usw-pr-cvs1:/tmp/cvs-serv7018/t

Modified Files:
	10choice.t 
Log Message:
Fix for nested CHOICEs and tagged CHOICEs in SEQUENCES


Index: 10choice.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/10choice.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 10choice.t	25 Mar 2002 09:06:18 -0000	1.1
+++ 10choice.t	19 Aug 2002 23:51:38 -0000	1.2
@@ -42,3 +42,12 @@
 ntest 5, 13, $seq->{list}->[0]->{prime};
 ntest 6, 28, $seq->{list}->[1]->{product}->{perfect};
 ntest 7, 42, $seq->{list}->[2]->{product}->{plain};
+
+
+btest 8, $asn->prepare( 'Foo ::= [1] EXPLICIT CHOICE { a  NULL }' ) or warn $asn->error;
+$nl = $asn->find('Foo');
+$buf = $nl->encode( a => 1 );
+$result = pack 'C*', map hex, qw(A1 02 05 00);
+stest 9, $result, $buf;
+$seq = $nl->decode( $result )  or warn $asn->error;
+btest 10, $seq->{a};