[perl-ExtUtils-Depends/win32-test-fix: 1/4] Rename test modules.
- From: Torsten Schönfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-ExtUtils-Depends/win32-test-fix: 1/4] Rename test modules.
- Date: Wed, 13 Aug 2014 17:57:43 +0000 (UTC)
commit 06a4ba1fdc49847a8d55e61875be01fb800db9fe
Author: Ed J <mohawk2 users noreply github com>
Date: Mon Aug 11 18:00:50 2014 +0100
Rename test modules.
t/02_save_load.t | 20 ++++++++++----------
1 files changed, 10 insertions(+), 10 deletions(-)
---
diff --git a/t/02_save_load.t b/t/02_save_load.t
index 3e52c7d..caae791 100644
--- a/t/02_save_load.t
+++ b/t/02_save_load.t
@@ -41,14 +41,14 @@ my @installed_files = qw(dep.h
$dep_info->install (@installed_files);
my $INC_FRAG = '-Ddistinctive';
-map { make_fake($_) } qw(Fakenew Fakeold);
-sub Fakenew::Install::Files::Inline { +{ INC => $INC_FRAG } }
-sub Fakenew::Install::Files::deps { qw(Fakeold) }
+map { make_fake($_) } qw(PkgStorenew PkgStoreold);
+sub PkgStorenew::Install::Files::Inline { +{ INC => $INC_FRAG } }
+sub PkgStorenew::Install::Files::deps { qw(PkgStoreold) }
{
no warnings 'once';
- @Fakeold::Install::Files::deps = qw(Fakenew);
- $Fakeold::Install::Files::inc = $INC_FRAG;
- $Fakeold::Install::Files::libs = '';
+ @PkgStoreold::Install::Files::deps = qw(PkgStorenew);
+ $PkgStoreold::Install::Files::inc = $INC_FRAG;
+ $PkgStoreold::Install::Files::libs = '';
}
sub make_fake {
my $class = shift . '::Install::Files';
@@ -59,14 +59,14 @@ sub make_fake {
}
sub test_load {
my ($info, $msg) = @_;
- my $install_part = qr|Fake.*Install|;
+ my $install_part = qr|PkgStore.*Install|;
like ($info->{inc}, $install_part, "$msg inc generic");
like ($info->{inc}, qr/$INC_FRAG/, "$msg inc specific");
- ok (scalar(grep { /Fake/ } @{$info->{deps}}), $msg);
+ ok (scalar(grep { /PkgStore/ } @{$info->{deps}}), $msg);
ok (exists $info->{libs}, $msg);
}
-test_load (ExtUtils::Depends::load('Fakenew'), 'load new scheme');
-test_load (ExtUtils::Depends::load('Fakeold'), 'load old scheme');
+test_load (ExtUtils::Depends::load('PkgStorenew'), 'load new scheme');
+test_load (ExtUtils::Depends::load('PkgStoreold'), 'load old scheme');
use Data::Dumper;
$Data::Dumper::Terse = 1;
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]