use warnings;
use Test::More;
use File::Temp qw(tempdir);
-# use Cwd qw(getcwd);
use_ok 'PublicInbox::Admin', qw(resolve_repo_dir);
my $tmpdir = tempdir('pi-admin.XXXXXX', TMPDIR => 1, CLEANUP => 1);
my $git_dir = "$tmpdir/v1";
use Test::More;
use Email::MIME;
use File::Temp qw/tempdir/;
-use Cwd;
eval { require IPC::Run };
plan skip_all => "missing IPC::Run for t/cgi.t" if $@;
use Test::More;
use File::Temp qw/tempdir/;
my $dir = tempdir('pi-git-XXXXXX', TMPDIR => 1, CLEANUP => 1);
-use Cwd qw/getcwd/;
use PublicInbox::Spawn qw(popen_rd);
eval { require IPC::Run } or plan skip_all => 'IPC::Run missing';
is(system(qw(git init -q --bare), $dir), 0, 'created git directory');
my $cmd = [ 'git', "--git-dir=$dir", 'fast-import', '--quiet' ];
- my $fi_data = getcwd().'/t/git.fast-import-data';
+ my $fi_data = './t/git.fast-import-data';
ok(-r $fi_data, "fast-import data readable (or run test at top level)");
IPC::Run::run($cmd, '<', $fi_data);
is($?, 0, 'fast-import succeeded');
my $cmd = [ 'git', "--git-dir=$dir", qw(hash-object -w --stdin) ];
# need a big file, use the AGPL-3.0 :p
- my $big_data = getcwd().'/COPYING';
+ my $big_data = './COPYING';
ok(-r $big_data, 'COPYING readable');
my $size = -s $big_data;
ok($size > 8192, 'file is big enough');
use Digest::SHA qw(sha1_hex);
use File::Temp qw/tempdir/;
-use Cwd qw/getcwd/;
use IO::Socket;
use IO::Socket::UNIX;
use Fcntl qw(:seek);
my $err = "$tmpdir/stderr.log";
my $out = "$tmpdir/stdout.log";
my $httpd = 'blib/script/public-inbox-httpd';
-my $psgi = getcwd()."/t/httpd-corner.psgi";
+my $psgi = "./t/httpd-corner.psgi";
my %opts = (
LocalAddr => '127.0.0.1',
ReuseAddr => 1,
use File::Temp qw/tempdir/;
use IO::Socket::UNIX;
-use Cwd qw/getcwd/;
my $tmpdir = tempdir('httpd-unix-XXXXXX', TMPDIR => 1, CLEANUP => 1);
my $unix = "$tmpdir/unix.sock";
my $httpd = 'blib/script/public-inbox-httpd';
-my $psgi = getcwd() . '/t/httpd-corner.psgi';
+my $psgi = './t/httpd-corner.psgi';
my $out = "$tmpdir/out.log";
my $err = "$tmpdir/err.log";
plan skip_all => "$mod missing for httpd.t" if $@;
}
use File::Temp qw/tempdir/;
-use Cwd qw/getcwd/;
use IO::Socket::INET;
require './t/common.perl';
use Test::More;
use Email::MIME;
use File::Temp qw/tempdir/;
-use Cwd;
+use Cwd qw(getcwd);
use PublicInbox::MID qw(mid2path);
eval { require IPC::Run };
plan skip_all => "missing IPC::Run for t/mda.t" if $@;
}
require PublicInbox::SearchIdx;
require PublicInbox::Msgmap;
-use Cwd;
use Email::Simple;
use IO::Socket;
use Socket qw(IPPROTO_TCP TCP_NODELAY);
}
chomp(my $git_dir = `git rev-parse --git-dir 2>/dev/null`);
plan skip_all => "$0 must be run from a git working tree" if $?;
+
+# needed for alternates, and --absolute-git-dir is only in git 2.13+
$git_dir = abs_path($git_dir);
use_ok "PublicInbox::$_" for (qw(Inbox V2Writable MIME Git SolverGit));
use strict;
use warnings;
use Test::More;
-use Cwd;
use Email::Simple;
use IO::File;
use File::Temp qw/tempdir/;