Changeset 26735

Timestamp:

12/15/08 13:19:06 (4 years ago)

Author:

holidays-l

Message:

lang/perl/Catalyst-Controller-Delegate: update tests

Location:

lang/perl/Catalyst-Controller-Delegate/trunk/t

Files:

• 00load.t (modified) (4 diffs)
• 01perlcritic.t (modified) (3 diffs)
• 02pod.t (modified) (3 diffs)
• 03pod-coverage.t (modified) (3 diffs)
• 04kwalitee.t (modified) (3 diffs)

lang/perl/Catalyst-Controller-Delegate/trunk/t/00load.t

@@ -1 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
 #
 # $Id$
@@ -8 +8 @@
 use version; our $VERSION = qv('0.0.1');
 
-use blib;
-use English qw(-no_match_vars);
+BEGIN {
+    use File::Spec;
+    use FindBin qw($Bin);
+    chdir File::Spec->catdir( $Bin, q{..} );
+    use lib qw(lib);
+}
 use Test::Base tests => 2;
 
@@ -19 +23 @@
             require Devel::SawAmpersand;
             Devel::SawAmpersand->import(qw(sawampersand));
-        };
-        if ($EVAL_ERROR) {
+          }
+          or do {
             $WHY_SKIP_SAWAMPERSAND =
               'Devel::SawAmpersand required for testing sawampersand';
-        }
+          };
     }
     else {
@@ -37 +41 @@
         skip $WHY_SKIP_SAWAMPERSAND, 1;
     }
-    ok( !sawampersand(), q{$`, $&, and $' should not appear} );    ## no critic
+    ## no critic (ValuesAndExpressions::RequireInterpolationOfMetachars)
+    ok( !sawampersand(), q{$`, $&, and $' should not appear} );
+    ## use critic
 }

lang/perl/Catalyst-Controller-Delegate/trunk/t/01perlcritic.t

@@ -1 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
 #
 # $Id$
@@ -8 +8 @@
 use version; our $VERSION = qv('0.0.1');
 
-use blib;
-use English qw(-no_match_vars);
+BEGIN {
+    use File::Spec;
+    use FindBin qw($Bin);
+    chdir File::Spec->catdir( $Bin, q{..} );
+}
 use Test::Base;
 
@@ -20 +23 @@
         require Test::Perl::Critic;
         Test::Perl::Critic->import( -format => $format, -severity => 1 );
-    };
-    if ($EVAL_ERROR) {
+      }
+      or do {
         plan skip_all =>
           'Test::Perl::Critic required for testing PBP compliance';
-    }
+      };
 }
 else {

lang/perl/Catalyst-Controller-Delegate/trunk/t/02pod.t

@@ -1 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
 #
 # $Id$
@@ -8 +8 @@
 use version; our $VERSION = qv('0.0.1');
 
-use blib;
-use English qw(-no_match_vars);
+BEGIN {
+    use File::Spec;
+    use FindBin qw($Bin);
+    chdir File::Spec->catdir( $Bin, q{..} );
+}
 use Test::Base;
 
@@ -16 +19 @@
         require Test::Pod;
         Test::Pod->import;
-    };
-    if ($EVAL_ERROR) {
+      }
+      or do {
         plan skip_all => 'Test::Pod required for testing POD';
-    }
+      };
 }
 else {

lang/perl/Catalyst-Controller-Delegate/trunk/t/03pod-coverage.t

@@ -1 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
 #
 # $Id$
@@ -8 +8 @@
 use version; our $VERSION = qv('0.0.1');
 
-use blib;
-use English qw(-no_match_vars);
+BEGIN {
+    use File::Spec;
+    use FindBin qw($Bin);
+    chdir File::Spec->catdir( $Bin, q{..} );
+}
 use Test::Base;
 
@@ -16 +19 @@
         require Test::Pod::Coverage;
         Test::Pod::Coverage->import;
-    };
-    if ($EVAL_ERROR) {
+        my $all_modules = Test::Pod::Coverage->can('all_modules');
+        ## no critic (TestingAndDebugging::ProhibitNoWarnings)
+        no warnings qw(redefine once);
+        ## use critic
+        *Test::Pod::Coverage::all_modules = sub {
+            my @modules = $all_modules->(@_);
+            @modules = grep { !m{^Stickam::Schema}msx } @modules;
+            return @modules;
+        };
+      }
+      or do {
         plan skip_all =>
           'Test::Pod::Coverage required for testing POD coverage';
-    }
+      };
 }
 else {

lang/perl/Catalyst-Controller-Delegate/trunk/t/04kwalitee.t

@@ -1 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
 #
 # $Id$
@@ -8 +8 @@
 use version; our $VERSION = qv('0.0.1');
 
-use blib;
-use English qw(-no_match_vars);
+BEGIN {
+    use File::Spec;
+    use FindBin qw($Bin);
+    chdir File::Spec->catdir( $Bin, q{..} );
+}
 use Test::Base;
 
@@ -16 +19 @@
         require Test::Kwalitee;
         Test::Kwalitee->import;
-    };
-    if ($EVAL_ERROR) {
+      }
+      or do {
         plan skip_all => 'Test::Kwalitee required for testing Kwalitee';
-    }
+      };
 }
 else {