Update of /cvsroot/perl-ldap/ldap/t
In directory sc8-pr-cvs1:/tmp/cvs-serv13723/t
Modified Files:
54dse.t
Log Message:
Change root_dse to return a RootDSE object instead of an Entry
Remove supported_* methods from Net::LDAP as they are now
methods in the RootDSE class
Index: 54dse.t
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/t/54dse.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- 54dse.t 4 Feb 2002 18:59:03 -0000 1.2
+++ 54dse.t 9 May 2003 12:05:10 -0000 1.3
@@ -5,7 +5,7 @@
start_server(version => 3);
}
-print "1..2\n";
+print "1..4\n";
$ldap = client();
ok($ldap, "client");
@@ -13,7 +13,12 @@
$dse = $ldap->root_dse;
ok($dse, "dse");
-use Net::LDAP::LDIF;
-Net::LDAP::LDIF->new(qw(- w))->write_entry($dse) if $dse;
+$dse->dump if $dse and $ENV{TEST_VERBOSE};
+
+my @extn = $dse->get_value('supportedExtension');
+
+ok($dse->supported_extension(@extn), 'supported_extension');
+
+ok(!$dse->supported_extension('foobar'), 'extension foobar');
|
