lei_saved_search: canonicalized relative save paths

[public-inbox.git] / t / lei-q-save.t

diff --git a/t/lei-q-save.t b/t/lei-q-save.t
index 694b33b2e1998914fc0e9272a9b69e8f8dd3327c..eada2dd48a99c4cdbc23ef4aa414935db815c34b 100644 (file)
--- a/t/lei-q-save.t
+++ b/t/lei-q-save.t
@@ -69,6 +69,7 @@ test_lei(sub {
        ok(-s "$home/mbcl2" > $size, 'size increased after up');
 
        ok(!lei(qw(up -q), $home), 'up fails w/o --save');
+       like($lei_err, qr/--save was not used/, 'error noted --save');
 
        lei_ok qw(ls-search); my @d = split(/\n/, $lei_out);
        lei_ok qw(ls-search -z); my @z = split(/\0/, $lei_out);
@@ -115,6 +116,8 @@ test_lei(sub {
        lei_ok(qw(up --all=local));
 
        ok(!lei(qw(forget-search), "$home/bogus"), 'bogus forget');
+       like($lei_err, qr/--save was not used/, 'error noted --save');
+
        lei_ok qw(_complete lei forget-search);
        like($lei_out, qr/mbrd-aug/, 'forget-search completion');
        lei_ok(qw(forget-search -v), "$home/mbrd-aug");
@@ -124,6 +127,7 @@ test_lei(sub {
        unlike($lei_out, qr/mbrd-aug/,
                'forget-search completion cleared after forget');
        ok(!lei('up', "$home/mbrd-aug"), 'lei up fails after forget');
+       like($lei_err, qr/--save was not used/, 'error noted --save');
 
        # dedupe=mid
        my $o = "$home/dd-mid";
@@ -195,5 +199,17 @@ test_lei(sub {
                        glob("$v2s/git/0.git/objects/*/*")));
        ok($shared < $orig, 'fewer bytes stored with --shared') or
                diag "shared=$shared orig=$orig";
+
+       lei_ok([qw(edit-search), $v2s], { VISUAL => 'cat', EDITOR => 'cat' });
+       like($lei_out, qr/^\[lei/sm, 'edit-search can cat');
+
+       lei_ok('-C', "$home/v2s",
+               qw(q -q --save -o ../s m:testmessage@example.com));
+       lei_ok qw(ls-search);
+       unlike $lei_out, qr{/\.\./s$}sm, 'relative path not in ls-search';
+       like $lei_out, qr{^\Q$home\E/s$}sm,
+               'absolute path appears in ls-search';
+       lei_ok qw(up ../s -C), "$home/v2s", \'relative lei up';
+       lei_ok qw(up), "$home/s", \'absolute lei up';
 });
 done_testing;