[perl-ldap-checkins] CVS: ldap/t 70sortctrl.t,1.2,1.3

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

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