tests: restore CWD with "lei -C" and run_script

This simplifies test_lei users in t/*.t

diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index 092568528dc6879a5852a37e0c48f42ca415c5de..460c9da01ad41596fadf8bb77ff700fee1a32d79 100644 (file)
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -12,6 +12,7 @@ use IO::Socket::INET;
 use File::Spec;
 our @EXPORT;
 my $lei_loud = $ENV{TEST_LEI_ERR_LOUD};
+our ($lei_opt, $lei_out, $lei_err, $lei_cwdfh);
 BEGIN {
        @EXPORT = qw(tmpdir tcp_server tcp_connect require_git require_mods
                run_script start_script key2sub xsys xsys_e xqx eml_load tick
@@ -306,14 +307,16 @@ sub run_script ($;$$) {
                local %SIG = %SIG;
                local $0 = join(' ', @$cmd);
                my $orig_io = _prepare_redirects($fhref);
-               my $cwdfh;
+               my $cwdfh = $lei_cwdfh;
                if (my $d = $opt->{'-C'}) {
-                       opendir $cwdfh, '.' or die "opendir .: $!";
+                       unless ($cwdfh) {
+                               opendir $cwdfh, '.' or die "opendir .: $!";
+                       }
                        chdir $d or die "chdir $d: $!";
                }
                _run_sub($sub, $key, \@argv);
                eval { PublicInbox::Inbox::cleanup_task() };
-               die "chdir(restore): $!" if $cwdfh && !chdir($cwdfh);
+               die "fchdir(restore): $!" if $cwdfh && !chdir($cwdfh);
                _undo_redirects($orig_io);
                select STDOUT;
        }
@@ -469,7 +472,6 @@ sub have_xapian_compact () {
        PublicInbox::Spawn::which($ENV{XAPIAN_COMPACT} || 'xapian-compact');
 }
 
-our ($lei_opt, $lei_out, $lei_err);
 # favor lei() or lei_ok() over $lei for new code
 sub lei (@) {
        my ($cmd, $env, $xopt) = @_;
@@ -515,6 +517,8 @@ sub test_lei {
 SKIP: {
        my ($cb) = pop @_;
        my $test_opt = shift // {};
+       local $lei_cwdfh;
+       opendir $lei_cwdfh, '.' or xbail "opendir .: $!";
        require_git(2.6, 1) or skip('git 2.6+ required for lei test', 2);
        require_mods(qw(json DBD::SQLite Search::Xapian), 2);
        require PublicInbox::Config;

diff --git a/t/lei-externals.t b/t/lei-externals.t
index 2291dd992b619ee3a08ec3a9cbbac105b4872dd7..16241e02c30d18e35a2a70829a4aad5ddc5ebf87 100644 (file)
--- a/t/lei-externals.t
+++ b/t/lei-externals.t
@@ -4,7 +4,6 @@
 use strict; use v5.10.1; use PublicInbox::TestCommon;
 use Fcntl qw(SEEK_SET);
 use PublicInbox::Spawn qw(which);
-use PublicInbox::OnDestroy;
 require_git 2.6;
 require_mods(qw(json DBD::SQLite Search::Xapian));
 use POSIX qw(WTERMSIG WIFSIGNALED SIGPIPE);
@@ -266,10 +265,6 @@ test_lei(sub {
        {
                skip 'TEST_LEI_DAEMON_PERSIST_DIR in use', 1 if
                                        $ENV{TEST_LEI_DAEMON_PERSIST_DIR};
-               opendir my $dh, '.' or BAIL_OUT "opendir(.) $!";
-               my $od = PublicInbox::OnDestroy->new($$, sub {
-                       chdir $dh or BAIL_OUT "chdir: $!"
-               });
                my @q = qw(q -o mboxcl2:rel.mboxcl2 bye);
                lei_ok('-C', $home, @q);
                is(unlink("$home/rel.mboxcl2"), 1, '-C works before q');

diff --git a/t/lei-q-save.t b/t/lei-q-save.t
index 170f7ce5642067d2cc8e2c974b3120a1b28cda00..9f65e4a25e43206f5d7151ba762ca2c25a106f02 100644 (file)
--- a/t/lei-q-save.t
+++ b/t/lei-q-save.t
@@ -36,11 +36,9 @@ test_lei(sub {
        # ensure "lei up" works, since it compliments "lei q --save"
        $in = $doc2->as_string;
        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');
        is(scalar(keys %after), 1, 'one new message added');
@@ -89,7 +87,6 @@ test_lei(sub {
        print $mb $pre_existing;
        close $mb or xbail "close: $!";
        lei_ok(qw(q --save -o mboxrd:mbrd m:qp@example.com -C), $home);
-       chdir($dh) or xbail "fchdir . $!";
        open $mb, '<', "$home/mbrd" or xbail "open $!";
        is_deeply([grep(/pre-existing/, <$mb>)], [],
                'pre-existing messsage gone w/o augment');
@@ -103,7 +100,6 @@ test_lei(sub {
        print $mb $pre_existing;
        close $mb or xbail "close: $!";
        lei_ok(qw(q -a --save -o mboxrd:mbrd-aug m:qp@example.com -C), $home);
-       chdir($dh) or xbail "fchdir . $!";
        open $mb, '<', "$home/mbrd-aug" or xbail "open $!";
        $mb = do { local $/; <$mb> };
        like($mb, qr/pre-existing/, 'pre-existing message preserved w/ -a');

diff --git a/t/solver_git.t b/t/solver_git.t
index 8acf907fca7efb86d6015b2702d9bda3d5ae8571..6875e26b8f49311a1ac97bbcf60158be4ecd166b 100644 (file)
--- a/t/solver_git.t
+++ b/t/solver_git.t
@@ -50,11 +50,6 @@ test_lei({tmpdir => $tmpdir}, sub {
                        'non-existent blob fails');
        SKIP: {
                skip '/.git exists', 1 if -e '/.git';
-               require PublicInbox::OnDestroy;
-               opendir my $dh, '.' or xbail "opendir: $!";
-               my $end = PublicInbox::OnDestroy->new($$, sub {
-                       chdir $dh or xbail "chdir: $!";
-               });
                lei_ok(qw(-C / blob 69df7d5 -I), $ibx->{inboxdir},
                        "--git-dir=$git_dir");
                is($lei_out, $prev, '--git-dir works');