Change 28138 by rgs@stencil on 2006/05/09 13:45:43
Subject: Re: [PATCH] ext/IPC/SysV/t/ipcsysv.t using test.pl
From: David Landgren <david (AT) landgren (DOT) net>
Date: Tue, 09 May 2006 13:03:22 +0200
Message-ID: <446076FA.6010409 (AT) landgren (DOT) net>
Affected files
//#6 edit
Differences
//#6 (xtext)
Index: perl/ext/IPC/SysV/t/sem.t
perl/ext/IPC/SysV/t/sem.t#5~28131~2006-05-08 14:11:37.000000000 -0700
perl/ext/IPC/SysV/t/sem.t2006-05-09 06:45:43.000000000 -0700
@@ -2,11 +2,13 @@
chdir 't' if -d 't';
@INC = qw(. /lib);
-
- require Config; import Config;
require 'test.pl';
}
+require Config; import Config;
+
+$TEST_**** = 11;
+
if ($Config{'extensions'} !~ /\bIPC\/SysV\b/) {
skip_all('IPC::SysV was not built');
}
@@ -17,7 +19,7 @@
skip_all('$Config{d_msg} undefined');
}
else {
- plan( tests =11 );
+ plan( tests =$TEST_**** );
}
use IPC::SysV qw(
@@ -33,17 +35,18 @@
);
use IPC::Semaphore;
+SKIP: {
+
my $sem =
IPC::Semaphore->new(IPC_PRIVATE, 10, S_IRWXU | S_IRWXG | S_IRWX | IPC_CREAT);
if (!$sem) {
if ($! eq 'No space left on device') {
# "normal" error
- diag("Bail out! cannot acquire a semaphore: $!");
- exit(1);
+ skip( "cannot proceed: IPC::Semaphore->new() said: $!", $TEST_****);
}
else {
# unexpected error
- die "semget: ",$!+0," $!\n";
+ die "IPC::Semaphore->new(): ",$!+0," $!\n";
}
}
@@ -75,3 +78,5 @@
ok($sem->remove,'release');
}
}
+
+} # SKIP
End of Patch.