Author: timbo
Date: Mon May 10 14:03:01 2004
New Revision: 333
Modified:
dbi/trunk/DBI.pm
dbi/trunk/ToDo
dbi/trunk/t/01basics.t
dbi/trunk/t/02dbidrv.t
dbi/trunk/t/03handle.t
dbi/trunk/t/04mods.t
dbi/trunk/t/05thrclone.t
dbi/trunk/t/07kids.t
dbi/trunk/t/08keeperr.t
dbi/trunk/t/10examp.t
dbi/trunk/t/15array.t
dbi/trunk/t/20meta.t
dbi/trunk/t/30subclass.t
dbi/trunk/t/40profile.t
dbi/trunk/t/41prof_dump.t
dbi/trunk/t/42prof_data.t
dbi/trunk/t/60preparse.t
dbi/trunk/t/80proxy.t
dbi/trunk/t/pod.t
Log:
Add "1;" to end of tests so the zv??_* tests don't complain.
Fixed some remaining uses of "ok(0,1)" triggered by PurePerl.
Modified: dbi/trunk/DBI.pm
==============================================================================
--- dbi/trunk/DBI.pm (original)
+++ dbi/trunk/DBI.pm Mon May 10 14:03:01 2004
@@ -9,7 +9,7 @@
require 5.006_00;
BEGIN {
-$DBI::VERSION = "1.42"; # ==> ALSO update the version in the pod text below!
+$DBI::VERSION = "1.43"; # ==> ALSO update the version in the pod text below!
}
=head1 NAME
@@ -118,8 +118,7 @@
=head2 NOTES
-This is the DBI specification that corresponds to the DBI version 1.42
-(C<$Date: 2004/02/01 11:16:16 $>).
+This is the DBI specification that corresponds to the DBI version 1.43.
The DBI is evolving at a steady pace, so it's good to check that
you have the latest copy.
Modified: dbi/trunk/ToDo
==============================================================================
--- dbi/trunk/ToDo (original)
+++ dbi/trunk/ToDo Mon May 10 14:03:01 2004
@@ -75,6 +75,9 @@
--- Changes that may affect driver authors
+Mandate the NUM_OF_FIELDS must be set by execute() and
+can't be deferred till $sth->{NUM_OF_FIELDS} or fetch*_*() called.
+
Add PERL_NO_GET_CONTEXT for multiplicity/threads?
force it for drivers?
And enable xsbypass in dispatch if possible.
Modified: dbi/trunk/t/01basics.t
==============================================================================
--- dbi/trunk/t/01basics.t (original)
+++ dbi/trunk/t/01basics.t Mon May 10 14:03:01 2004
@@ -273,3 +273,4 @@
like("@installed_drivers", qr/Sponge/, '... make sure at least one of them is
DBI::Spounge');
}
+1;
Modified: dbi/trunk/t/02dbidrv.t
==============================================================================
--- dbi/trunk/t/02dbidrv.t (original)
+++ dbi/trunk/t/02dbidrv.t Mon May 10 14:03:01 2004
@@ -225,3 +225,4 @@
ok(!$drh->can('disconnect_all'), '... ');
}
+1;
Modified: dbi/trunk/t/03handle.t
==============================================================================
--- dbi/trunk/t/03handle.t (original)
+++ dbi/trunk/t/03handle.t Mon May 10 14:03:01 2004
@@ -154,4 +154,4 @@
# Can't locate object method "nonesuch" via package "DBI::db" (perhaps you forgot to
load "DBI::db"?)
eval { ref($dbh)->nonesuch; };
-exit 0;
+1;
Modified: dbi/trunk/t/04mods.t
==============================================================================
--- dbi/trunk/t/04mods.t (original)
+++ dbi/trunk/t/04mods.t Mon May 10 14:03:01 2004
@@ -12,3 +12,4 @@
ok(keys %GetInfoReturnTypes);
ok(keys %GetInfoReturnValues);
+1;
Modified: dbi/trunk/t/05thrclone.t
==============================================================================
--- dbi/trunk/t/05thrclone.t (original)
+++ dbi/trunk/t/05thrclone.t Mon May 10 14:03:01 2004
@@ -52,4 +52,4 @@
ok(1);
-exit 0;
+1;
Modified: dbi/trunk/t/07kids.t
==============================================================================
--- dbi/trunk/t/07kids.t (original)
+++ dbi/trunk/t/07kids.t Mon May 10 14:03:01 2004
@@ -62,3 +62,4 @@
pass('... test_kid error handler running');
}
+1;
Modified: dbi/trunk/t/08keeperr.t
==============================================================================
--- dbi/trunk/t/08keeperr.t (original)
+++ dbi/trunk/t/08keeperr.t Mon May 10 14:03:01 2004
@@ -177,4 +177,5 @@
is($dbh->errstr, "errstr99");
is($dbh->state, "OV123");
+1;
# end
Modified: dbi/trunk/t/10examp.t
==============================================================================
--- dbi/trunk/t/10examp.t (original)
+++ dbi/trunk/t/10examp.t Mon May 10 14:03:01 2004
@@ -68,7 +68,7 @@
#$dbh->trace(2);
$dbh->{AutoCommit} = 1;
$dbh->{PrintError} = 0;
-ok($dbh->{Taint} == 1) unless $DBI::PurePerl && ok(0,1);
+ok($dbh->{Taint} == 1) unless $DBI::PurePerl && ok(1);
ok($dbh->{AutoCommit} == 1);
ok($dbh->{PrintError} == 0);
#$dbh->trace(0); die;
@@ -104,7 +104,7 @@
print "others\n";
eval { $dbh->commit('dummy') };
ok($@ =~ m/DBI commit: invalid number of arguments:/, $@)
- unless $DBI::PurePerl && ok(0,1);
+ unless $DBI::PurePerl && ok(1);
ok($dbh->ping);
@@ -195,7 +195,7 @@
my($col0, $col1, $col2, $rows);
my(@row_a, @row_b);
-ok($csr_a->{Taint} = 1) unless $DBI::PurePerl && ok(0,1);
+ok($csr_a->{Taint} = 1) unless $DBI::PurePerl && ok(1);
#$csr_a->trace(5);
ok($csr_a->bind_columns(undef, \($col0, $col1, $col2)) );
ok($csr_a->execute( $dir ), $DBI::errstr);
@@ -558,7 +558,7 @@
$HandleErrorReturn = 2;
$r = eval { $csr_c = $dbh->prepare($error_sql); };
ok(!$@, $@);
-ok($r==42) unless $dbh->{mx_handle_list} && ok(0,1); # skip for Multiplex
+ok($r==42) unless $dbh->{mx_handle_list} && ok(1); # skip for Multiplex
$dbh->{HandleError} = undef;
ok(!$dbh->{HandleError});
@@ -659,3 +659,4 @@
$dbh->disconnect;
ok(!$dbh->{Active});
+1;
Modified: dbi/trunk/t/15array.t
==============================================================================
--- dbi/trunk/t/15array.t (original)
+++ dbi/trunk/t/15array.t Mon May 10 14:03:01 2004
@@ -154,3 +154,4 @@
is( $sth->bind_param_array(":foo", [ qw(a b c) ]), undef );
is( $sth->errstr, "Can't use named placeholders for non-driver supported
bind_param_array");
+1;
Modified: dbi/trunk/t/20meta.t
==============================================================================
--- dbi/trunk/t/20meta.t (original)
+++ dbi/trunk/t/20meta.t Mon May 10 14:03:01 2004
@@ -28,3 +28,4 @@
is($dbh->type_info(SQL_VARCHAR)->{DATA_TYPE}, SQL_VARCHAR);
is($dbh->type_info(SQL_VARCHAR)->{TYPE_NAME}, 'VARCHAR');
+1;
Modified: dbi/trunk/t/30subclass.t
==============================================================================
--- dbi/trunk/t/30subclass.t (original)
+++ dbi/trunk/t/30subclass.t Mon May 10 14:03:01 2004
@@ -170,3 +170,4 @@
};
is(substr($@,0,36), q{Can't locate object method "connect"});
+1;
Modified: dbi/trunk/t/40profile.t
==============================================================================
--- dbi/trunk/t/40profile.t (original)
+++ dbi/trunk/t/40profile.t Mon May 10 14:03:01 2004
@@ -189,4 +189,4 @@
DBI->trace(0, "STDOUT"); # close current log to flush it
ok(-s $LOG_FILE);
-exit 0;
+1;
Modified: dbi/trunk/t/41prof_dump.t
==============================================================================
--- dbi/trunk/t/41prof_dump.t (original)
+++ dbi/trunk/t/41prof_dump.t Mon May 10 14:03:01 2004
@@ -60,3 +60,4 @@
# unlink("dbi.prof"); # now done by 'make clean'
+1;
Modified: dbi/trunk/t/42prof_data.t
==============================================================================
--- dbi/trunk/t/42prof_data.t (original)
+++ dbi/trunk/t/42prof_data.t Mon May 10 14:03:01 2004
@@ -119,3 +119,4 @@
# cleanup
# unlink("dbi.prof"); # now done by 'make clean'
+1;
Modified: dbi/trunk/t/60preparse.t
==============================================================================
--- dbi/trunk/t/60preparse.t (original)
+++ dbi/trunk/t/60preparse.t Mon May 10 14:03:01 2004
@@ -165,4 +165,4 @@
return $ok;
}
-
+1;
Modified: dbi/trunk/t/80proxy.t
==============================================================================
--- dbi/trunk/t/80proxy.t (original)
+++ dbi/trunk/t/80proxy.t Mon May 10 14:03:01 2004
@@ -417,3 +417,5 @@
unlink $f if $f;
$? = $status;
};
+
+1;
Modified: dbi/trunk/t/pod.t
==============================================================================
--- dbi/trunk/t/pod.t (original)
+++ dbi/trunk/t/pod.t Mon May 10 14:03:01 2004
@@ -2,3 +2,4 @@
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
all_pod_files_ok();
+1;
