Oracle PERL DBD - [svn:dbd-oracle] r2401

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

[svn:dbd-oracle] r2401 - dbd-oracle/trunk/t

timbo@cvs.perl.org

2006-01-12, 11:24 am

Author: timbo
Date: Thu Jan 12 08:19:33 2006
New Revision: 2401

Modified:
dbd-oracle/trunk/t/10general.t
Log:
Make system()/wait test more portable thanks to Charles Jardine

Modified: dbd-oracle/trunk/t/10general.t
====================
====================
====================
==================
--- dbd-oracle/trunk/t/10general.t (original)
+++ dbd-oracle/trunk/t/10general.t Thu Jan 12 08:19:33 2006
@@ -22,8 +22,9 @@ 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';
+ # after having connected to Oracle
+ is system("exit 1;"), 1<<8, 'system exit 1 should return 256';
+ is system("exit 0;"), 0, 'system exit 0 should return 0';
}

Sponsored Links