Update of /cvsroot/perl-ldap/ldap/t
In directory usw-pr-cvs1:/tmp/cvs-serv25464/t
Modified Files:
00ldif-entry.t
Log Message:
Ensure dashes are only output between parts of an LDAP update entry
Index: 00ldif-entry.t
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/t/00ldif-entry.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- 00ldif-entry.t 2000/09/12 09:17:10 1.4
+++ 00ldif-entry.t 2001/10/29 16:48:12 1.5
@@ -26,6 +26,7 @@
$e->delete('objectclass');
$e->delete('o',['UM']);
$e->add('counting',[qw(one two three)]);
+$e->add('first',[qw(1 2 3)], 'second',[qw(a b c)]);
$e->replace('telephonenumber' => ['911']);
$outfile = "$TEMPDIR/00-out2.ldif";
@@ -41,10 +42,10 @@
$e->add('name' => 'Graham Barr');
$e->add('name;en-us' => 'Bob');
-print "not " unless join(":",sort $e->attributes) eq "associateddomain:counting:description:l:lastmodifiedby:lastmodifiedtime:name:name;en-us:o:postaladdress:st:streetaddress:telephonenumber";
+print "not " unless join(":",sort $e->attributes) eq "associateddomain:counting:description:first:l:lastmodifiedby:lastmodifiedtime:name:name;en-us:o:postaladdress:second:st:streetaddress:telephonenumber";
print "ok 3\n";
-print "not " unless join(":",sort $e->attributes(nooptions => 1)) eq "associateddomain:counting:description:l:lastmodifiedby:lastmodifiedtime:name:o:postaladdress:st:streetaddress:telephonenumber";
+print "not " unless join(":",sort $e->attributes(nooptions => 1)) eq "associateddomain:counting:description:first:l:lastmodifiedby:lastmodifiedtime:name:o:postaladdress:second:st:streetaddress:telephonenumber";
print "ok 4\n";
$r = $e->get_value('name', asref => 1);
|