Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Tests no longer use -T; author tests (boilerplate+pod) flagged as such

Test files' -T didn't like my local::lib environment.
Boilerplate and POD shouldn't really be tested by any end user.
  • Loading branch information...
commit f2ec4dc86df1dc1ddc1528e9e12f56a6fe68d3f3 1 parent 3239484
@mfontani authored
View
7 t/00-load.t
@@ -1,9 +1,12 @@
-#!perl -T
+#!perl
-use Test::More tests => 1;
+use Test::More tests => 4;
BEGIN {
use_ok('Net::RackSpace::CloudServers');
+ use_ok('Net::RackSpace::CloudServers::Flavor');
+ use_ok('Net::RackSpace::CloudServers::Image');
+ use_ok('Net::RackSpace::CloudServers::Server');
}
diag("Testing Net::RackSpace::CloudServers $Net::RackSpace::CloudServers::VERSION, Perl $], $^X");
View
2  t/01-author-list.t
@@ -1,4 +1,4 @@
-#!perl -T
+#!perl
use strict;
use warnings;
use Test::More;
View
26 t/boilerplate.t
@@ -1,8 +1,12 @@
-#!perl -T
+#!perl
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More;
+
+plan skip_all => 'author tests run only if $ENV{CLOUDSERVERS_AUTHOR_TESTS} set'
+ if ( !defined $ENV{'CLOUDSERVERS_AUTHOR_TESTS'} || !$ENV{'CLOUDSERVERS_AUTHOR_TESTS'} );
+plan 'no_plan';
sub not_in_file_ok {
my ( $filename, %regex ) = @_;
@@ -36,17 +40,9 @@ sub module_boilerplate_ok {
);
}
-TODO: {
- local $TODO = "Need to replace the boilerplate text";
-
- not_in_file_ok(
- README => "The README is used..." => qr/The README is used/,
- "'version information here'" => qr/to provide version information/,
- );
-
- not_in_file_ok( Changes => "placeholder date/time" => qr(Date/time) );
-
- module_boilerplate_ok('lib/Net/RackSpace/CloudServers.pm');
-
-}
+not_in_file_ok( Changes => "placeholder date/time" => qr(Date/time) );
+module_boilerplate_ok('lib/Net/RackSpace/CloudServers.pm');
+module_boilerplate_ok('lib/Net/RackSpace/CloudServers/Flavor.pm');
+module_boilerplate_ok('lib/Net/RackSpace/CloudServers/Image.pm');
+module_boilerplate_ok('lib/Net/RackSpace/CloudServers/Server.pm');
View
4 t/pod-coverage.t
@@ -1,7 +1,11 @@
+#!perl
use strict;
use warnings;
use Test::More;
+plan skip_all => 'author tests run only if $ENV{CLOUDSERVERS_AUTHOR_TESTS} set'
+ if ( !defined $ENV{'CLOUDSERVERS_AUTHOR_TESTS'} || !$ENV{'CLOUDSERVERS_AUTHOR_TESTS'} );
+
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
View
5 t/pod.t
@@ -1,9 +1,12 @@
-#!perl -T
+#!perl
use strict;
use warnings;
use Test::More;
+plan skip_all => 'author tests run only if $ENV{CLOUDSERVERS_AUTHOR_TESTS} set'
+ if ( !defined $ENV{'CLOUDSERVERS_AUTHOR_TESTS'} || !$ENV{'CLOUDSERVERS_AUTHOR_TESTS'} );
+
# Ensure a recent version of Test::Pod
my $min_tp = 1.22;
eval "use Test::Pod $min_tp";
Please sign in to comment.
Something went wrong with that request. Please try again.