[Perl-ldap-checkins] CVS: ldap/t 00ldif-entry.t,1.4,1.5

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

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);