| timbo@cvs.perl.org 2005-12-21, 1:24 pm |
| Author: timbo
Date: Wed Dec 21 10:25:10 2005
New Revision: 2322
Modified:
dbd-oracle/branches/pythian/t/10general.t
dbd-oracle/branches/pythian/t/20select.t
Log:
Add basic subprocess wait()/waitpid() check.
Fix test count in 20select.t
Modified: dbd-oracle/branches/pythian/t/10general.t
====================
====================
====================
==================
--- dbd-oracle/branches/pythian/t/10general.t (original)
+++ dbd-oracle/branches/pythian/t/10general.t Wed Dec 21 10:25:10 2005
@@ -4,9 +4,10 @@ use Test::More;
use DBI;
use Oraperl;
+use Config;
$| = 1;
-plan tests => 31;
+plan tests => 33;
my $dbuser = $ENV{ORACLE_USERID} || 'scott/tiger';
my $dbh = DBI-> connect('dbi:Oracle:
', $dbuser, '');
@@ -18,6 +19,14 @@ unless($dbh) {
my($sth, $p1, $p2, $tmp);
+SKIP: {
+ skip "not unix-like", 2 unless $Config{d_semctl};
+ # basic check that we can fork subprocesses and wait for the status
+ is system("false"), 1<<8, 'system false should return 256';
+ is system("true"), 0, 'system true should return 0';
+}
+
+
$sth = $dbh->prepare(q{
/* also test preparse doesn't get confused by ? :1 */
/* also test placeholder binding is case insensitive */
Modified: dbd-oracle/branches/pythian/t/20select.t
====================
====================
====================
==================
--- dbd-oracle/branches/pythian/t/20select.t (original)
+++ dbd-oracle/branches/pythian/t/20select.t Wed Dec 21 10:25:10 2005
@@ -53,8 +53,8 @@ my @test_sets = (
# Normal value 8 (to test 64KB threshold well)
my $sz = 8;
-my $tests = 2;
-my $tests_per_set = 12;
+my $tests = 3;
+my $tests_per_set = 11;
$tests += @test_sets * $tests_per_set;
print "1..$tests\n";
|