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

1 files changed, 60 insertions, 60 deletions

diff --git a/ext/POSIX/t/unimplemented.t b/ext/POSIX/t/unimplemented.t
index 6ed6205045..54fc648489 100644
--- 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");
 }