The more regular POSIX "unimplemented" diagnostics simplify the tests.

diff --git a/ext/POSIX/t/unimplemented.t b/ext/POSIX/t/unimplemented.t
index 6ed6205..54fc648 100644 (file)
--- a/ext/POSIX/t/unimplemented.t
+++ b/ext/POSIX/t/unimplemented.t
@@ -9,20 +9,20 @@ plan(skip_all => "POSIX is unavailable")
 
 require POSIX;
 
-foreach ([atexit => ' is C-specific, use END {} instead'],
-        [atof => ' is C-specific, stopped'],
-        [atoi => ' is C-specific, stopped'],
-        [atol => ' is C-specific, stopped'],
-        [bsearch => ' is not supplied'],
-        [calloc => ' is C-specific, stopped'],
+foreach ([atexit => 'C-specific, use END {} instead'],
+        [atof => 'C-specific, stopped'],
+        [atoi => 'C-specific, stopped'],
+        [atol => 'C-specific, stopped'],
+        [bsearch => 'not supplied'],
+        [calloc => 'C-specific, stopped'],
         [clearerr => \'IO::Handle::clearerr'],
-        [div => ' is C-specific, use /, % and int instead'],
-        [execl => ' is C-specific, stopped'],
-        [execle => ' is C-specific, stopped'],
-        [execlp => ' is C-specific, stopped'],
-        [execv => ' is C-specific, stopped'],
-        [execve => ' is C-specific, stopped'],
-        [execvp => ' is C-specific, stopped'],
+        [div => 'C-specific, use /, % and int instead'],
+        [execl => 'C-specific, stopped'],
+        [execle => 'C-specific, stopped'],
+        [execlp => 'C-specific, stopped'],
+        [execv => 'C-specific, stopped'],
+        [execve => 'C-specific, stopped'],
+        [execvp => 'C-specific, stopped'],
         [fclose => \'IO::Handle::close'],
         [fdopen => \'IO::Handle::new_from_fd'],
         [feof => \'IO::Handle::eof'],
@@ -33,64 +33,64 @@ foreach ([atexit => ' is C-specific, use END {} instead'],
         [fgets => \'IO::Handle::gets'],
         [fileno => \'IO::Handle::fileno'],
         [fopen => \'IO::File::open'],
-        [fprintf => ' is C-specific, use printf instead'],
-        [fputc => ' is C-specific, use print instead'],
-        [fputs => ' is C-specific, use print instead'],
-        [fread => ' is C-specific, use read instead'],
-        [free => ' is C-specific, stopped'],
-        [freopen => ' is C-specific, use open instead'],
-        [fscanf => ' is C-specific, use <> and regular expressions instead'],
+        [fprintf => 'C-specific, use printf instead'],
+        [fputc => 'C-specific, use print instead'],
+        [fputs => 'C-specific, use print instead'],
+        [fread => 'C-specific, use read instead'],
+        [free => 'C-specific, stopped'],
+        [freopen => 'C-specific, use open instead'],
+        [fscanf => 'C-specific, use <> and regular expressions instead'],
         [fseek => \'IO::Seekable::seek'],
         [fsetpos => \'IO::Seekable::setpos'],
         [fsync => \'IO::Handle::sync'],
         [ftell => \'IO::Seekable::tell'],
-        [fwrite => ' is C-specific, use print instead'],
-        [labs => ' is C-specific, use abs instead'],
-        [ldiv => ' is C-specific, use /, % and int instead'],
-        [longjmp => ' is C-specific, use die instead'],
-        [malloc => ' is C-specific, stopped'],
-        [memchr => ' is C-specific, use index() instead'],
-        [memcmp => ' is C-specific, use eq instead'],
-        [memcpy => ' is C-specific, use = instead'],
-        [memmove => ' is C-specific, use = instead'],
-        [memset => ' is C-specific, use x instead'],
-        [offsetof => ' is C-specific, stopped'],
-        [putc => ' is C-specific, use print instead'],
-        [putchar => ' is C-specific, use print instead'],
-        [puts => ' is C-specific, use print instead'],
-        [qsort => ' is C-specific, use sort instead'],
-        [rand => ' is non-portable, use Perl\'s rand instead'],
-        [realloc => ' is C-specific, stopped'],
-        [scanf => ' is C-specific, use <> and regular expressions instead'],
+        [fwrite => 'C-specific, use print instead'],
+        [labs => 'C-specific, use abs instead'],
+        [ldiv => 'C-specific, use /, % and int instead'],
+        [longjmp => 'C-specific, use die instead'],
+        [malloc => 'C-specific, stopped'],
+        [memchr => 'C-specific, use index() instead'],
+        [memcmp => 'C-specific, use eq instead'],
+        [memcpy => 'C-specific, use = instead'],
+        [memmove => 'C-specific, use = instead'],
+        [memset => 'C-specific, use x instead'],
+        [offsetof => 'C-specific, stopped'],
+        [putc => 'C-specific, use print instead'],
+        [putchar => 'C-specific, use print instead'],
+        [puts => 'C-specific, use print instead'],
+        [qsort => 'C-specific, use sort instead'],
+        [rand => 'non-portable, use Perl\'s rand instead'],
+        [realloc => 'C-specific, stopped'],
+        [scanf => 'C-specific, use <> and regular expressions instead'],
         [setbuf => \'IO::Handle::setbuf'],
-        [setjmp => ' is C-specific, use eval {} instead'],
+        [setjmp => 'C-specific, use eval {} instead'],
         [setvbuf => \'IO::Handle::setvbuf'],
-        [siglongjmp => ' is C-specific, use die instead'],
-        [sigsetjmp => ' is C-specific, use eval {} instead'],
-        [srand => ' is not supplied, refer to Perl\'s srand documentation'],
-        [sscanf => ' is C-specific, use regular expressions instead'],
-        [strcat => ' is C-specific, use .= instead'],
-        [strchr => ' is C-specific, use index() instead'],
-        [strcmp => ' is C-specific, use eq instead'],
-        [strcpy => ' is C-specific, use = instead'],
-        [strcspn => ' is C-specific, use regular expressions instead'],
-        [strlen => ' is C-specific, use length instead'],
-        [strncat => ' is C-specific, use .= instead'],
-        [strncmp => ' is C-specific, use eq instead'],
-        [strncpy => ' is C-specific, use = instead'],
-        [strpbrk => ' is C-specific, stopped'],
-        [strrchr => ' is C-specific, use rindex() instead'],
-        [strspn => ' is C-specific, stopped'],
-        [strtok => ' is C-specific, stopped'],
+        [siglongjmp => 'C-specific, use die instead'],
+        [sigsetjmp => 'C-specific, use eval {} instead'],
+        [srand => 'not supplied, refer to Perl\'s srand documentation'],
+        [sscanf => 'C-specific, use regular expressions instead'],
+        [strcat => 'C-specific, use .= instead'],
+        [strchr => 'C-specific, use index() instead'],
+        [strcmp => 'C-specific, use eq instead'],
+        [strcpy => 'C-specific, use = instead'],
+        [strcspn => 'C-specific, use regular expressions instead'],
+        [strlen => 'C-specific, use length instead'],
+        [strncat => 'C-specific, use .= instead'],
+        [strncmp => 'C-specific, use eq instead'],
+        [strncpy => 'C-specific, use = instead'],
+        [strpbrk => 'C-specific, stopped'],
+        [strrchr => 'C-specific, use rindex() instead'],
+        [strspn => 'C-specific, stopped'],
+        [strtok => 'C-specific, stopped'],
         [tmpfile => \'IO::File::new_tmpfile'],
         [ungetc => \'IO::Handle::ungetc'],
-        [vfprintf => ' is C-specific, stopped'],
-        [vprintf => ' is C-specific, stopped'],
-        [vsprintf => ' is C-specific, stopped'],
+        [vfprintf => 'C-specific, stopped'],
+        [vprintf => 'C-specific, stopped'],
+        [vsprintf => 'C-specific, stopped'],
        ) {
     my ($func, $action) = @$_;
     my $expect = ref $action ? qr/Use method $$action\(\) instead at \(eval/
-       : qr/Unimplemented: POSIX::$func\(\)\Q$action\E at \(eval/;
+       : qr/Unimplemented: POSIX::$func\(\) is \Q$action\E at \(eval/;
     is(eval "POSIX::$func(); 1", undef, "POSIX::$func fails as expected");
     like($@, $expect, "POSIX::$func gives expected error message");
 }