use strict;
use warnings;
use Test::More tests => 13;
use File::Temp ();
BEGIN { $ENV{PAR_TEMP} = File::Temp::tempdir( CLEANUP => 1 ); }
BEGIN { use_ok('PAR::Repository::Client') };
chdir('t') if -d 't';
push @INC, 'lib', File::Spec->catdir(qw(t lib));
require RepoMisc;
{
# successful upgrade
my $path = File::Spec->catdir('data', 'lib_lower');
ok(-d $path, 'INC path exists');
unshift @INC, $path;
my $client = RepoMisc::client_ok( File::Spec->catdir('data', 'repo_with_compatible_module') );
my $idir = RepoMisc::set_installation_targets($client);
ok($client->upgrade_module("FunnyTestModule"), 'FunnyTestModule was upgraded');
ok(!$client->error, "no error after upgrade") or diag("Error: ".$client->error);
can_ok('FunnyTestModule', 'funny');
is(FunnyTestModule->VERSION, '1.68', 'FunnyTestModule VERSION okay'); # the old one
ok(-f File::Spec->catdir($idir, 'FunnyTestModule.pm'), 'Upgraded file exists');
ok(open my $fh, '<', File::Spec->catdir($idir, 'FunnyTestModule.pm')) or diag $!;
ok(do {local $/=undef; <$fh>} =~ /VERSION = '5.67'/, "freshly installed version correct");
close $fh;
}