From bcc02b78e322f87d942459de874ba68b3fc06c39 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Tue, 2 Nov 2021 06:57:43 +0000 Subject: init: respect umask when creating description I noticed a description for a new inbox had st_mode=0600. --- t/init.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 't') diff --git a/t/init.t b/t/init.t index 4bec6a2f..6f4c9dce 100644 --- a/t/init.t +++ b/t/init.t @@ -97,10 +97,16 @@ sub quiet_fail { $cmd = [ '-init', 'deep-non-existent', "$tmpdir/a/b/c/d", qw(http://example.com/abcd abcd@example.com) ]; $err = ''; + my $umask = umask(022) // xbail "umask: $!"; ok(run_script($cmd, $env, $rdr), 'initializes non-existent hierarchy'); + umask($umask) // xbail "umask: $!"; ok(-d "$tmpdir/a/b/c/d", 'directory created'); - is(PublicInbox::Inbox::try_cat("$tmpdir/a/b/c/d/description"), + my $desc = "$tmpdir/a/b/c/d/description"; + is(PublicInbox::Inbox::try_cat($desc), "public inbox for abcd\@example.com\n", 'description set'); + my $mode = (stat($desc))[2]; + is(sprintf('0%03o', $mode & 0777), '0644', + 'description respects umask'); open my $fh, '>', "$tmpdir/d" or BAIL_OUT "open: $!"; close $fh; -- cgit v1.2.3-24-ge0c7