| jurl@cvs.perl.org 2005-06-03, 8:27 pm |
| Author: jurl
Date: Thu Oct 21 06:28:10 2004
New Revision: 507
Modified:
dbd-oracle/trunk/t/60reauth.t
Log:
Fixed to give reason for skipping and to fix spelling errors for "skipped"
Modified: dbd-oracle/trunk/t/60reauth.t
====================
====================
====================
==================
--- dbd-oracle/trunk/t/60reauth.t (original)
+++ dbd-oracle/trunk/t/60reauth.t Thu Oct 21 06:28:10 2004
@@ -22,19 +22,18 @@
sub give_up { warn @_ if @_; print "1..0\n"; exit 0; }
if ($dbuser_2 eq '') {
- print("ORACLE_USERID_2 not defined.\nTests skiped.\n");
- give_up();
+ give_up("ORACLE_USERID_2 not defined.\nTests skipped.\n");
}
(my $uid1 = uc $dbuser) =~ s:/.*::;
(my $uid2 = uc $dbuser_2) =~ s:/.*::;
if ($uid1 eq $uid2) {
- give_up("ORACLE_USERID_2 not unique.\nTests skiped.\n")
+ give_up("ORACLE_USERID_2 not unique.\nTests skipped.\n")
}
my $dbh = DBI-> connect('dbi:Oracle:
', $dbuser, '');
unless($dbh) {
- give_up("Unable to connect to Oracle ($DBI::errstr)\nTest
s skiped.\n");
+ give_up("Unable to connect to Oracle ($DBI::errstr)\nTest
s skipped.\n");
}
print "1..3\n";
|