#!perl

use Test::More;
use Net::LDAP::Util qw(canonical_dn);

# Each line has an opcode and a DN, opcode are
# bad   cacnonical_dn should return undef
# ref   Set new reference DN
# same  Should be the same as the current refdn
# diff  Should be different to the current refdn

my @tests = map { /^(\w+)\s+(.*)/ } <DATA>;

plan tests => scalar(@tests) >> 1;


my $refdn;
while(my($op,$dn) = splice(@tests,0,2)) {

  my $canon = canonical_dn($dn);
  my $failed = 0;

  if ($op eq 'ref') {
    $refdn=$dn;
    if ($failed = !defined $canon) {
      print "'$dn' should have parsed\n";
    }
  }
  elsif ($op eq 'bad') {
    if ($failed = defined $canon) {
      print "'$dn' should not have parsed\n '$canon'\n";
    }
  }
  elsif ( $op eq 'same' ) {
    if ($failed = !defined $canon) {
      print "'$dn' failed to parse\n";
    }
    elsif ($failed = $canon ne $refdn) {
      print "'$refdn'\n\ndid not match\n\n from '$dn'\n  got '$canon'\n";
    }
  }
  elsif ($op eq 'diff' ) {
    if ($failed = !defined $canon) {
      print "'$dn' failed to parse\n";
    }
    elsif ($failed = $canon eq $refdn) {
      print "'$refdn'\n\nmatched\n\n'$dn'\n'$canon'\n";
    }
  }
  else {
    $failed = 1;
    warn "Bad opcode $op\n";
  }

  ok(!$failed, "$dn is " . (($op eq 'bad') ? 'illegal' : 'legal'));
}


__DATA__

bad	OU=Sales+CN=J. Smith,O=Widget Inc.,C=US,

ref	CN=J. Smith+OU=Sales,O=Widget Inc.,C=US
same	ou=Sales+cn=J. Smith,O=Widget Inc.,C=US
same	cn=J. Smith+ou=Sales,O=Widget Inc.,C=US
same	cn=J.\20Smith+ou=Sales,O=Widget\20Inc.,C=US
same	OU=Sales+CN=J. Smith;O=Widget Inc.;C=US
same	OU=Sales + CN=J. Smith,O=Widget Inc.,C=US
same	OU=Sales+CN=J. Smith , O=Widget Inc. , C=US
same	OU = Sales+CN =J. Smith,O= Widget Inc.,C=US
same	OU="Sales"+CN=J. Smith,O=Widget Inc.,C=US
diff	OU="Sales+CN=J. Smith",O=Widget Inc.,C=US

ref	cn=J.\20Smith\+ou=Sales,O=Widget\20Inc.,C=US

ref	cn=Clerk #1\+ou=Sales,O=Widget\20Inc.,C=US

ref	CN=Babs Jensen,O=Widget Inc.,C=US
same	cn=Babs Jensen,o=Widget Inc.,c=US

# This is here to test a restriction that
# canonical_dn does not decode BER encoded values
ref	1.3.6.1.4.1.1466.0=#04024869,O=Test,C=GB
same	1.3.6.1.4.1.1466.0=#04024869,O=Test,C=GB
diff	1.3.6.1.4.1.1466.0=\04\02Hi,O=Test,C=GB

ref	1.3.6.1.4.1.1466.0=Hi,O=Test,C=GB
same	oid.1.3.6.1.4.1.1466.0=Hi,O=Test,C=GB
same	OID.1.3.6.1.4.1.1466.0=Hi,O=Test,C=GB

ref	CN=Clif Harden+IDNUMBER=a0125589\20,OU=tiPerson,OU=person,O=ti,C=us
diff	cn=Clif Harden+IDNumber=a0125589,ou=tiPerson,ou=person,o=ti,c=us
same	cn=Clif Harden+IDNumber=a0125589\ ,ou=tiPerson,ou=person,o=ti,c=us
same	cn=Clif Harden+IDNumber=a0125589\20 ,ou=tiPerson,ou=person,o=ti,c=us
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

# 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\2c 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=\23John 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čić
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

ref  CN=John Smith \2c 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  DISTINGUISHEDNAMETABLEKEY=cn\3dDSA\2c c\3dGB,CN=bilateral table,CN=DSA,C=US
same distinguishedNameTableKey=cn\=DSA\, c\=GB, cn=bilateral table, cn=DSA, c=US

# RT 51165
ref  CN=tester\2c karl,OU=test,DC=example,DC=com
same cn=tester\,  karl,ou=test,dc=example,dc=com