diff options
| author | David Landgren <david@landgren.net> | 2006-05-09 15:03:22 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-09 13:45:43 +0000 |
| commit | 2b06bec16437d2ccbb6a387eb4ac5cf4f6eb08fe (patch) | |
| tree | f1d95cf6c9b85ab46ee451b25585d4036399ec8e /ext | |
| parent | cdc3231cb53dfb75cf0b9268f10ccda7f6b8d10d (diff) | |
| download | perl-2b06bec16437d2ccbb6a387eb4ac5cf4f6eb08fe.tar.gz | |
Re: [PATCH] ext/IPC/SysV/t/ipcsysv.t using test.pl
Message-ID: <446076FA.6010409@landgren.net>
p4raw-id: //depot/perl@28138
Diffstat (limited to 'ext')
| -rwxr-xr-x | ext/IPC/SysV/t/sem.t | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/ext/IPC/SysV/t/sem.t b/ext/IPC/SysV/t/sem.t index d7f89d28c6..2fb594f52d 100755 --- a/ext/IPC/SysV/t/sem.t +++ b/ext/IPC/SysV/t/sem.t @@ -2,11 +2,13 @@ BEGIN { chdir 't' if -d 't'; @INC = qw(. ../lib); - - require Config; import Config; require 'test.pl'; } +require Config; import Config; + +$TEST_COUNT = 11; + if ($Config{'extensions'} !~ /\bIPC\/SysV\b/) { skip_all('IPC::SysV was not built'); } @@ -17,7 +19,7 @@ elsif ($Config{'d_msg'} ne 'define') { skip_all('$Config{d_msg} undefined'); } else { - plan( tests => 11 ); + plan( tests => $TEST_COUNT ); } use IPC::SysV qw( @@ -33,17 +35,18 @@ use IPC::SysV qw( ); use IPC::Semaphore; +SKIP: { + my $sem = IPC::Semaphore->new(IPC_PRIVATE, 10, S_IRWXU | S_IRWXG | S_IRWXO | 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_COUNT); } else { # unexpected error - die "semget: ",$!+0," $!\n"; + die "IPC::Semaphore->new(): ",$!+0," $!\n"; } } @@ -75,3 +78,5 @@ END { ok($sem->remove,'release'); } } + +} # SKIP |