Changeset 8340

Timestamp:

12/21/05 02:17:20 (3 years ago)

Author:

rafl

Message:

r23722@ata: rafl | 2005-12-19 19:12:17 +0100
JIB:

• Removed usage of File::Spec in favour of Path::Class.

Location:

misc/sixpan/JIB/t

Files:

• 001_JIB-Constants.t (modified) (1 diff)
• 002_JIB-Utils.t (modified) (1 diff)
• 003_JIB-Config.t (modified) (1 diff)
• 010_JIB-Meta.t (modified) (2 diffs)
• 011_JIB-Source.t (modified) (2 diffs)
• 015-JIB-Installation.t (modified) (1 diff)
• 020-JIB-Package.t (modified) (3 diffs)

misc/sixpan/JIB/t/001_JIB-Constants.t

@@ -1 +1 @@
 use Test::More 'no_plan';
 use strict;
-use File::Spec;
 
 BEGIN { chdir 't' if -d 't' };

misc/sixpan/JIB/t/002_JIB-Utils.t

@@ -1 +1 @@
 use Test::More 'no_plan';
 use strict;
-use File::Spec;
 
 BEGIN { chdir 't' if -d 't' };

misc/sixpan/JIB/t/003_JIB-Config.t

@@ -1 +1 @@
 use Test::More 'no_plan';
 use strict;
-use File::Spec;
 
 BEGIN { chdir 't' if -d 't' };

misc/sixpan/JIB/t/010_JIB-Meta.t

@@ -1 +1 @@
 use Test::More 'no_plan';
 use strict;
-use File::Spec;
+use Path::Class;
 
 BEGIN { chdir 't' if -d 't' };
@@ -9 +9 @@
 
 ### XXX Config
-my $File  = File::Spec->catfile( qw[src p5-b _jib META.info] );
+my $File  = file( qw[src p5-b _jib META.info] );
 
 ### XXX config

misc/sixpan/JIB/t/011_JIB-Source.t

@@ -1 +1 @@
 use Test::More 'no_plan';
 use strict;
-use File::Spec;
+use Path::Class;
 
 BEGIN { chdir 't' if -d 't' };
@@ -17 +17 @@
 
 ### XXX config
-my $Dir   = File::Spec->catdir( qw[src p5-b] );
+my $Dir   = dir( qw[src p5-b] );
 
 use_ok( $Class );

misc/sixpan/JIB/t/015-JIB-Installation.t

@@ -1 +1 @@
 use Test::More 'no_plan';
 use strict;
-use File::Spec;
 
 BEGIN { chdir 't' if -d 't' };

misc/sixpan/JIB/t/020-JIB-Package.t

@@ -1 +1 @@
 use Test::More 'no_plan';
 use strict;
-use File::Spec;
+use Path::Class;
 
 BEGIN { chdir 't' if -d 't' };
@@ -18 +18 @@
 ### XXX config
 my $Pkg     = 'p5-Foo-Bar-1.2-cpan+KANE';
-my $File    = File::Spec->catfile( 'src', $Pkg.'.jib' );
+my $File    = file( 'src', $Pkg.'.jib' );
 my @Parse   = qw[prefix name version authority];
 
@@ -72 +72 @@
     ### check for module
     ### XXX get this from config/object
-    {   my $pm = File::Spec->catfile( 
+    {   my $pm = file( 
                     $Inst->dir,
                     $Obj->package,