If lei up and edit-search work on something, so should forget-search.
sub lei_forget_search {
my ($lei, $out) = @_;
sub lei_forget_search {
my ($lei, $out) = @_;
- my $d = PublicInbox::LeiSavedSearch::lss_dir_for($lei, \$out);
+ my $d = PublicInbox::LeiSavedSearch::lss_dir_for($lei, \$out, 1);
if (-e $d) {
my $save;
my $opt = { safe => 1 };
if (-e $d) {
my $save;
my $opt = { safe => 1 };
symlink($o, "$home/ln -s") or
skip "symlinks not supported in $home?: $!", 1;
lei_ok('up', "$home/ln -s");
symlink($o, "$home/ln -s") or
skip "symlinks not supported in $home?: $!", 1;
lei_ok('up', "$home/ln -s");
+ lei_ok('forget-search', "$home/ln -s");
};
my $v2 = "$home/v2"; # v2: as an output destination
};
my $v2 = "$home/v2"; # v2: as an output destination