[perl-ExtUtils-Depends/win32-test-fix: 4/4] Rename test packages to 8.3 unique.



commit 517d1ec41bf9238d24b15d9c671f6648a034e80b
Author: Ed J <mohawk2 users noreply github com>
Date:   Mon Aug 11 18:41:32 2014 +0100

    Rename test packages to 8.3 unique.

 t/02_save_load.t |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)
---
diff --git a/t/02_save_load.t b/t/02_save_load.t
index 7118d70..eaf1f72 100644
--- a/t/02_save_load.t
+++ b/t/02_save_load.t
@@ -123,11 +123,11 @@ is_deeply ([ DepTest::Install::Files->deps ], [], 'api check deps method');
 # --------------------------------------------------------------------------- #
 
 my $INC_FRAG = '-Ddistinctive';
-make_test_pkg('PkgStorenew', <<EOF);
+make_test_pkg('PSnew', <<EOF);
 sub Inline { +{ INC => '$INC_FRAG' } }
-sub deps { qw(PkgStoreold) }
+sub deps { qw(PSold) }
 EOF
-make_test_pkg('PkgStoreold', "\ deps = qw(PkgStorenew); \$inc = '$INC_FRAG';");
+make_test_pkg('PSold', "\ deps = qw(PSnew); \$inc = '$INC_FRAG';");
 sub make_test_pkg {
   my ($base, $text) = @_;
   my $dir = catdir($tmp_inc, $base, qw(Install));
@@ -139,14 +139,14 @@ sub make_test_pkg {
 }
 sub test_load {
   my ($info, $msg) = @_;
-  my $install_part = qr|PkgStore.*Install|;
+  my $install_part = qr|PS.*Install|;
   like ($info->{inc}, $install_part, "$msg inc generic");
   like ($info->{inc}, qr/$INC_FRAG/, "$msg inc specific");
-  ok (scalar(grep { /PkgStore/ } @{$info->{deps}}), $msg);
+  ok (scalar(grep { /PS/ } @{$info->{deps}}), $msg);
   ok (exists $info->{libs}, $msg);
 }
-test_load (ExtUtils::Depends::load('PkgStorenew'), 'load new scheme');
-test_load (ExtUtils::Depends::load('PkgStoreold'), 'load old scheme');
+test_load (ExtUtils::Depends::load('PSnew'), 'load new scheme');
+test_load (ExtUtils::Depends::load('PSold'), 'load old scheme');
 
 # --------------------------------------------------------------------------- #
 


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]