Adjust perl unveil test to test the right thing

Normal users can't write to /dev/random, so the -w test would always
fail for root and succeed for everyone else no matter what unveil
did.  Testing with a temp file at least gives consistent results
no matter the user, even if I don't completely understand why the
-w and -r test results are different.

Noticed by bluhm@

diff --git a/gnu/usr.bin/perl/cpan/OpenBSD-Unveil/t/OpenBSD-Unveil.t b/gnu/usr.bin/perl/cpan/OpenBSD-Unveil/t/OpenBSD-Unveil.t
index 6fd3c2f..a38a2f4 100644 (file)
--- a/gnu/usr.bin/perl/cpan/OpenBSD-Unveil/t/OpenBSD-Unveil.t
+++ b/gnu/usr.bin/perl/cpan/OpenBSD-Unveil/t/OpenBSD-Unveil.t
@@ -1,4 +1,4 @@
-#      $OpenBSD: OpenBSD-Unveil.t,v 1.1 2019/07/09 20:41:54 afresh1 Exp $      #
+#      $OpenBSD: OpenBSD-Unveil.t,v 1.2 2023/07/07 02:07:35 afresh1 Exp $      #
 ## no critic 'version'
 ## no critic 'package'
 # Before 'make install' is performed this script should be runnable with
@@ -82,47 +82,58 @@ sub xsunveil_ok ($$)    ## no critic 'prototypes'
 
 
 xsunveil_ok "Basic Usage" => sub {
-       ok OpenBSD::Unveil::_unveil('/dev/random', 'r'),
-           "Unveiled /dev/random r";
+       my $tmpfile = File::Temp->new("OpenBSD-Unveil-XXXXXXXXX", TMPDIR => 1);
+       $tmpfile->printflush("This is a test\n");
+
+       ok OpenBSD::Unveil::_unveil("$tmpfile", 'r'),
+           "Unveiled tempfile r";
        ok OpenBSD::Unveil::_unveil('/dev/null',   'wc'),
            "Unvailed /dev/null wc";
 
-       ok !-e '/dev/zero',   "Can't see /dev/zero";
-       ok !-w '/dev/random', "Can't write to /dev/random";
-       ok !-r '/dev/null',   "Can't read from /dev/null";
-
-       ok open(my $rfh, '<', '/dev/random'), "Opened /dev/random for reading";
-       ok read( $rfh, my $data, 64),         "Read from /dev/random";
-       ok close($rfh),                       "Closed /dev/random";
-
        {
                ok open(my $wfh, '>', '/dev/null'),
-                                             "Opened /dev/null for writing";
-               ok print($wfh $data),         "Printed to /dev/null";
-               ok close($wfh),               "Closed /dev/null";
+                                        "Opened /dev/null for writing";
+               ok print($wfh "Test\n"), "Printed to /dev/null";
+               ok close($wfh),          "Closed /dev/null";
        }
 
        ok OpenBSD::Unveil::_unveil('/dev/null',   'w'),
            "Unvailed /dev/null w";
        ok OpenBSD::Unveil::_unveil(),
-               "locked unveil";
+           "locked unveil";
+
+       ok !-e '/dev/zero', "Stat says we can't see /dev/zero";
+       ok  -w $tmpfile,    "Stat says we can write to tempfile";
+       ok !-r '/dev/null', "Stat says we can't read from /dev/null";
 
        {
                ok sysopen(my $wfh, '/dev/null', O_WRONLY),
                                              "Sysopened /dev/null for writing";
-               ok syswrite($wfh, $data),     "Wrote to /dev/null";
+               ok syswrite($wfh, "Test\n"),  "Wrote to /dev/null";
                ok close($wfh),               "Closed /dev/null";
        }
 
+       {
+               ok open(my $rfh, '<', $tmpfile), "Opened tempfile for reading";
+               ok read( $rfh, my $data, 64),    "Read from tempfile";
+               ok close($rfh),                  "Closed tempfile";
+       }
+
+       {
+               ok !open(my $wfh, '>', $tmpfile),
+                       "Unable to 'open' tempfile for writing";
+               is $!, 'Permission denied', "Expected ERRNO from open";
+       }
+
        {
                ok !open(my $wfh, '>', '/dev/null'),
-                       "Unable to 'open' without 'create'";
+                       "Unable to 'open' /dev/null without 'create'";
+               is $!, 'Permission denied', "Expected ERRNO from open";
        }
 };
 
 xsunveil_ok "Invalid Path" => sub {
-       chdir "/tmp" or die "Unable to chdir to /tmp";
-       my $dir = File::Temp->newdir('OpenBSD-Unveil-XXXXXXXXX');
+       my $dir = File::Temp->newdir('OpenBSD-Unveil-XXXXXXXXX', TMPDIR => 1);
        ok !OpenBSD::Unveil::_unveil("$dir/nonexist/file", 'r'),
            "Unable to unveil with incorrect permissions";
        is $!, 'No such file or directory', "Expected ERRNO from _unveil";