Update of /cvsroot/perl-ldap/ldap/t
In directory sc8-pr-cvs1:/tmp/cvs-serv18203/t
Modified Files:
70sortctrl.t
Log Message:
Say why we are skipping the test when we do
Index: 70sortctrl.t
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/t/70sortctrl.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- 70sortctrl.t 5 Sep 2001 12:13:52 -0000 1.2
+++ 70sortctrl.t 8 May 2003 19:40:44 -0000 1.3
@@ -34,13 +34,24 @@
LDAP_SUCCESS
);
+unless ($EXTERNAL_TESTS) {
+ print "1..0 # Skip External tests disabled\n";
+ exit 0;
+}
+
my($host, $base, $filter, $order) = @sortctrl{qw(host base filter order)};
-my $ldap = $EXTERNAL_TESTS && $host && Net::LDAP->new($host, version => 3);
+my $ldap = $host && Net::LDAP->new($host, version => 3);
+
+unless ($ldap) {
+ print "1..0 # Skip Cannot connect to host\n";
+ exit 0;
+}
+
my $dse = $ldap && $ldap->root_dse;
unless ($dse and grep { $_ eq LDAP_CONTROL_SORTREQUEST } $dse->get_value('supportedControl')) {
- print "1..0\n";
+ print "1..0 # Skip server does not support LDAP_CONTROL_SORTREQUEST\n";
exit;
}
|