lei q: update messages to reflect --save default

I wanted to try --dedupe=none for something, but it failed
since I forgot --no-save :x  So hint users towards --no-save
if necessary.

diff --git a/lib/PublicInbox/LeiSavedSearch.pm b/lib/PublicInbox/LeiSavedSearch.pm
index 89f5c3596c42a25a71a79b0240bb56defe02e089..637456e41e9a728475148265cea17fd1150abcfa 100644 (file)
--- a/lib/PublicInbox/LeiSavedSearch.pm
+++ b/lib/PublicInbox/LeiSavedSearch.pm
@@ -94,7 +94,7 @@ sub translate_dedupe ($$$) {
        $dd //= 'content';
        return 1 if $dd eq 'content'; # the default
        return $self->{"-dedupe_$dd"} = 1 if ($dd eq 'oid' || $dd eq 'mid');
-       $lei->fail("--dedupe=$dd unsupported with --save");
+       $lei->fail("--dedupe=$dd requires --no-save");
 }
 
 sub up { # updating existing saved search via "lei up"
@@ -103,7 +103,7 @@ sub up { # updating existing saved search via "lei up"
        my $self = bless { ale => $lei->ale }, $cls;
        my $dir = $dst;
        output2lssdir($self, $lei, \$dir, \$f) or
-               return $lei->fail("--save was not used with $dst cwd=".
+               return $lei->fail("--no-save was used with $dst cwd=".
                                        $lei->rel2abs('.'));
        $self->{-cfg} = $lei->cfg_dump($f) // return $lei->fail;
        $self->{-ovf} = "$dir/over.sqlite3";

diff --git a/t/lei-q-save.t b/t/lei-q-save.t
index 9c17a0110f456198756a1830dae9630bd1db9b36..5940018cd6f95acbc3239bfe7c8f6e1f6a672b0e 100644 (file)
--- a/t/lei-q-save.t
+++ b/t/lei-q-save.t
@@ -69,11 +69,11 @@ test_lei(sub {
        ok(-s "$home/mbcl2" > $size, 'size increased after up');
 
        ok(!lei(qw(up -q), $home), 'up fails on unknown dir');
-       like($lei_err, qr/--save was not used/, 'error noted --save');
+       like($lei_err, qr/--no-save was used/, 'error noted --no-save');
 
        lei_ok(qw(q --no-save d:last.week.. -q -o), "$home/no-save");
        ok(!lei(qw(up -q), "$home/no-save"), 'up fails on --no-save');
-       like($lei_err, qr/--save was not used/, 'error noted --save');
+       like($lei_err, qr/--no-save was used/, 'error noted --no-save');
 
        lei_ok qw(ls-search); my @d = split(/\n/, $lei_out);
        lei_ok qw(ls-search -z); my @z = split(/\0/, $lei_out);
@@ -131,7 +131,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');
+       like($lei_err, qr/--no-save was used/, 'error noted --no-save');
 
        # dedupe=mid
        my $o = "$home/dd-mid";