This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
un-TODO a test that passes on recent FreeBSD
authorTony Cook <tony@develop-help.com>
Sat, 26 Jan 2013 03:06:37 +0000 (03:06 +0000)
committerTony Cook <tony@develop-help.com>
Sun, 27 Jan 2013 04:21:07 +0000 (15:21 +1100)
It may pass on earlier FreeBSD, but I don't have it available to
check.

ext/POSIX/t/posix.t

index a397933..88fe2ca 100644 (file)
@@ -104,6 +104,7 @@ SKIP: {
        # So the kill() must not be done with this config in order to
        # finish the test.
        # For others (darwin & freebsd), let the test fail without crashing.
        # So the kill() must not be done with this config in order to
        # finish the test.
        # For others (darwin & freebsd), let the test fail without crashing.
+       # the test passes at least from freebsd 8.1
        my $todo = $^O eq 'netbsd' && $Config{osvers}=~/^1\.6/;
        my $why_todo = "# TODO $^O $Config{osvers} seems to lose blocked signals";
        if (!$todo) { 
        my $todo = $^O eq 'netbsd' && $Config{osvers}=~/^1\.6/;
        my $why_todo = "# TODO $^O $Config{osvers} seems to lose blocked signals";
        if (!$todo) { 
@@ -114,7 +115,7 @@ SKIP: {
        }
        sleep 1;
 
        }
        sleep 1;
 
-       $todo = 1 if ($^O eq 'freebsd')
+       $todo = 1 if ($^O eq 'freebsd' && $Config{osvers} < 8)
                  || ($^O eq 'darwin' && $Config{osvers} < '6.6');
        printf "%s 11 - masked SIGINT received %s\n",
            $sigint_called ? "ok" : "not ok",
                  || ($^O eq 'darwin' && $Config{osvers} < '6.6');
        printf "%s 11 - masked SIGINT received %s\n",
            $sigint_called ? "ok" : "not ok",