[perl-ldap-checkins] CVS: ldap/t 01canon_dn.t,1.6,1.7

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

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

Modified Files:
	01canon_dn.t 
Log Message:
move some logic from canonical_dn into explode_dn and add some more
tests for DNs


Index: 01canon_dn.t
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/t/01canon_dn.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- 01canon_dn.t	2001/04/11 09:20:03	1.6
+++ 01canon_dn.t	2002/01/31 15:25:52	1.7
@@ -45,11 +45,106 @@
   same	cn=Clif Harden+IDNumber="a0125589 ",ou=tiPerson,ou=person,o=ti,c=us
 
 
-  ref   CN=\20\20Graham  Barr\20\20,OU=person,O=vc,C=us
-  same  Cn="  Graham  Barr  ",OU=person,O=vc,C=us
-  same  cn="  Graham \20Barr\20 ",OU=person,O=vc,C=us
+  ref	CN=\20\20Graham  Barr\20\20,OU=person,O=vc,C=us
+  same	Cn="  Graham  Barr  ",OU=person,O=vc,C=us
+  same	cn="  Graham \20Barr\20 ",OU=person,O=vc,C=us
+
+  # empty
+  ref
+
+  ref	UID=jsmith,DC=example,DC=net
+  same	UID=jsmith,DC=example,DC=net
+
+  ref	CN=J. Smith+OU=Sales,DC=example,DC=net
+  same	OU=Sales+CN=J. Smith,DC=example,DC=net
+
+  ref	CN=John Smith\, III,DC=example,DC=net
+  same	CN=John Smith\, III,DC=example,DC=net
+  same	CN=John Smith\2C III,DC=example,DC=net
+
+  ref	CN=Before\\0dAfter,DC=example,DC=net
+  same	CN=Before\\0dAfter,DC=example,DC=net
+
+  ref	CN=\#John Smith\20,DC=example,DC=net
+  same	CN=\23John Smith\20,DC=example,DC=net
+  same	CN=\#John Smith\ ,DC=example,DC=net
 
+  ref	1.3.6.1.4.1.1466.0=#04024869,DC=example,DC=com
+  same	1.3.6.1.4.1.1466.0=#04024869,DC=example,DC=com
+
+  ref	CN=Lu\\C4\\8Di\\C4\\87
+  same	CN=Lu\\C4\\8Di\\C4\\87
+
+  # empty value
+  ref	1.1.1=
+
+  # option
+  bad	uid;x-option=jsmith
+
+  # invalid attribute type name
+  bad	at_tr=jsmith
+
+  # invalid attribute type name
+  bad	-attr=jsmith
+
+  # invalid attribute type name
+  #bad	OID.1.1=jsmith
+
+  # invalid numeric OID
+  bad	1..1=jsmith
+
+  # invalid numeric OID
+  bad	1.1.=jsmith
 
+  # invalid numeric OID
+  #bad	01.1=jsmith
+
+  # invalid numeric OID
+  bad	1.ff=jsmith
+
+  # invalid HEX form
+  bad	1.1.1=#GG	
+
+  # invalid HEX form
+  bad	1.1.1=#000	
+
+  # invalid HEX form
+  bad	1.1.1=#F	
+
+  # invalid HEX form
+  bad	1.1.1=# 	
+
+  # spaces
+  #bad	UID=jsmith, DC=example, DC=net
+
+  # extra comma
+  bad	UID=jsmith,,DC=example,DC=net
+
+  # semi-colons
+  #bad	UID=jsmith;DC=example;DC=net
+
+  # quotes
+  #bad	CN="John Smith",DC=example,DC=net
+
+  # brackets
+  bad	<UID=jsmith,DC=example,DC=net>
+
+  # unescaped ,
+  bad	UID=john,smith
+
+  # unescaped +
+  bad	UID=john+smith
+
+  # invalid escape of ? or unescaped \
+  bad	UID=john\?smith
+
+  # invalid hex escape
+  bad	UID=john\Fsmith
+
+  # invalid hex escape
+  bad	UID=john\GGsmith
+
+
 EOS
 
 print "1..", scalar(@tests)>>1, "\n";
@@ -68,7 +163,7 @@
   }
   elsif ($op eq 'bad') {
     if ($failed = defined $canon) {
-      print "'$dn' should not have parsed\n";
+      print "'$dn' should not have parsed\n '$canon'\n";
     }
   }
   elsif ( $op eq 'same' ) {