[perl-ldap-checkins] CVS: ldap/t 54dse.t,1.2,1.3

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

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