]> Sergey Matveev's repositories - public-inbox.git/blob - t/rename_noreplace.t
ds: introduce awaitpid, switch ProcessPipe users
[public-inbox.git] / t / rename_noreplace.t
1 #!perl -w
2 # Copyright (C) all contributors <meta@public-inbox.org>
3 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
4 use strict;
5 use v5.10.1;
6 use PublicInbox::TestCommon;
7 use_ok 'PublicInbox::Syscall', 'rename_noreplace';
8 my ($tmpdir, $for_destroy) = tmpdir;
9
10 open my $fh, '>', "$tmpdir/a" or xbail $!;
11 my @sa = stat($fh);
12 is(rename_noreplace("$tmpdir/a", "$tmpdir/b"), 1, 'rename_noreplace');
13 my @sb = stat("$tmpdir/b");
14 ok(scalar(@sb), 'new file exists');
15 ok(!-e "$tmpdir/a", 'original gone');
16 is("@sa[0,1]", "@sb[0,1]", 'same st_dev + st_ino');
17
18 is(rename_noreplace("$tmpdir/a", "$tmpdir/c"), undef, 'undef on ENOENT');
19 ok($!{ENOENT}, 'ENOENT set when missing');
20
21 open $fh, '>', "$tmpdir/a" or xbail $!;
22 is(rename_noreplace("$tmpdir/a", "$tmpdir/b"), undef, 'undef on EEXIST');
23 ok($!{EEXIST}, 'EEXIST set when missing');
24 is_deeply([stat("$tmpdir/b")], \@sb, 'target unchanged on EEXIST');
25
26 done_testing;