From 9c08efbbdb078f403feb1f9821fb13f12d868244 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sat, 17 Apr 2021 19:00:53 +0000 Subject: lei up: further improve Maildir canonicalization We want to be able to use "lei up ." when inside a Maildir. We'll also relax Maildir/mbox basenames to be any non-'/' character after converting relative paths to absolute. The old restriction on allowed characters was unnecessary and made it impossible to reliably map "." when used as the sole argument for "lei up". --- t/lei-q-save.t | 4 ++++ 1 file changed, 4 insertions(+) (limited to 't') diff --git a/t/lei-q-save.t b/t/lei-q-save.t index 6389825f..a8eda41e 100644 --- a/t/lei-q-save.t +++ b/t/lei-q-save.t @@ -29,6 +29,8 @@ test_lei(sub { lei_ok [qw(import -q -F eml -)], undef, { 0 => \$in, %$lei_opt }; opendir my $dh, '.' or xbail "opendir .: $!"; lei_ok qw(up -q md -C), $home; + lei_ok qw(up -q . -C), "$home/md"; + lei_ok qw(up -q), "/$home/md"; chdir($dh) or xbail "fchdir . $!"; my %after = map { $_ => 1 } glob("$home/md/cur/*"); is(delete $after{(keys(%before))[0]}, 1, 'original message kept'); @@ -51,5 +53,7 @@ test_lei(sub { lei_ok [qw(import -q -F eml -)], undef, { 0 => \$in, %$lei_opt }; lei_ok([qw(up mbcl2)], undef, { -C => $home, %$lei_opt }); ok(-s "$home/mbcl2" > $size, 'size increased after up'); + + ok(!lei(qw(up -q), $home), 'up fails w/o --save'); }); done_testing; -- cgit v1.2.3-24-ge0c7