[svn:dbd-oracle] r2322 - dbd-oracle/branches/pythian/t

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