This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to annotated tag release-0.001
in repository libclass-tiny-perl.

commit 7d46fddf86b599a647087cd81b75cc9f0c1e739e
Author: David Golden <dagol...@cpan.org>
Date:   Fri Aug 16 10:26:39 2013 -0400

    remove test prerequisites
---
 META.json          |  7 ++++---
 dist.ini           |  4 ++++
 t/alfa.t           | 26 +++++++++++---------------
 t/baker.t          |  8 +++-----
 t/charlie.t        |  8 +++-----
 t/delta.t          |  8 +++-----
 t/echo.t           |  8 +++-----
 t/lib/TestUtils.pm | 28 ++++++++++++++++++++++++++++
 8 files changed, 59 insertions(+), 38 deletions(-)

diff --git a/META.json b/META.json
index ddb8879..8f6d48b 100644
--- a/META.json
+++ b/META.json
@@ -47,15 +47,16 @@
          }
       },
       "test" : {
+         "recommends" : {
+            "Test::FailWarnings" : "0"
+         },
          "requires" : {
+            "Exporter" : "0",
             "ExtUtils::MakeMaker" : "0",
             "File::Find" : "0",
             "File::Spec::Functions" : "0",
             "File::Temp" : "0",
             "List::Util" : "0",
-            "Test::Deep" : "0",
-            "Test::FailWarnings" : "0",
-            "Test::Fatal" : "0",
             "Test::More" : "0.96",
             "base" : "0",
             "lib" : "0",
diff --git a/dist.ini b/dist.ini
index 37a0ea6..55c8061 100644
--- a/dist.ini
+++ b/dist.ini
@@ -11,8 +11,12 @@ AutoMetaResources.bugtracker.github = user:dagolden
 stopwords = destructor
 
 [RemovePrereqs]
+remove = Test::FailWarnings
 remove = MRO::Compat
 remove = mro
 
+[Prereqs / TestRecommends ]
+Test::FailWarnings = 0
+
 [PerlVersionPrereqs / 5.010]
 MRO::Compat = 0
diff --git a/t/alfa.t b/t/alfa.t
index e46286e..727b2df 100644
--- a/t/alfa.t
+++ b/t/alfa.t
@@ -1,13 +1,11 @@
 use 5.008001;
 use strict;
 use warnings;
-use Test::More 0.96;
-use Test::FailWarnings;
-use Test::Deep '!blessed';
-use Test::Fatal;
-
 use lib 't/lib';
 
+use Test::More 0.96;
+use TestUtils;
+
 require_ok("Alfa");
 
 subtest "empty list constructor" => sub {
@@ -17,20 +15,20 @@ subtest "empty list constructor" => sub {
 };
 
 subtest "empty hash object constructor" => sub {
-    my $obj = new_ok("Alfa", [{}]);
+    my $obj = new_ok( "Alfa", [ {} ] );
     is( $obj->foo, undef, "foo is undef" );
     is( $obj->bar, undef, "bar is undef" );
 };
 
 subtest "one attribute set as list" => sub {
     my $obj = new_ok( "Alfa", [ foo => 23 ] );
-    is( $obj->foo, 23, "foo is set" );
+    is( $obj->foo, 23,    "foo is set" );
     is( $obj->bar, undef, "bar is undef" );
 };
 
 subtest "one attribute set as hash ref" => sub {
     my $obj = new_ok( "Alfa", [ { foo => 23 } ] );
-    is( $obj->foo, 23, "foo is set" );
+    is( $obj->foo, 23,    "foo is set" );
     is( $obj->bar, undef, "bar is undef" );
 };
 
@@ -48,16 +46,16 @@ subtest "both attributes set as hash ref" => sub {
 
 subtest "constructor makes shallow copy" => sub {
     my $fake = bless { foo => 23, bar => 42 }, "Fake";
-    my $obj = new_ok( "Alfa", [ $fake  ] );
+    my $obj = new_ok( "Alfa", [$fake] );
     is( ref $fake, "Fake", "object passed to constructor is original class" );
-    is( $obj->foo, 23, "foo is set" );
-    is( $obj->bar, 42, "bar is set" );
+    is( $obj->foo, 23,     "foo is set" );
+    is( $obj->bar, 42,     "bar is set" );
 };
 
 subtest "attributes are RW" => sub {
     my $obj = new_ok( "Alfa", [ { foo => 23, bar => 42 } ] );
     is( $obj->foo(24), 24, "changing foo returns new value" );
-    is( $obj->foo, 24, "accessing foo returns changed value" );
+    is( $obj->foo,     24, "accessing foo returns changed value" );
 };
 
 subtest "exceptions" => sub {
@@ -68,7 +66,7 @@ subtest "exceptions" => sub {
     );
 
     like(
-        exception { Alfa->new( qw/ foo bar baz/ ) },
+        exception { Alfa->new(qw/ foo bar baz/) },
         qr/Alfa->new\(\) got an odd number of elements/,
         "creating object with odd elements dies",
     );
@@ -79,8 +77,6 @@ subtest "exceptions" => sub {
         "creating object with array ref dies",
     );
 };
-    
-
 
 done_testing;
 # COPYRIGHT
diff --git a/t/baker.t b/t/baker.t
index 3860759..784e17b 100644
--- a/t/baker.t
+++ b/t/baker.t
@@ -1,13 +1,11 @@
 use 5.008001;
 use strict;
 use warnings;
-use Test::More 0.96;
-use Test::FailWarnings;
-use Test::Deep '!blessed';
-use Test::Fatal;
-
 use lib 't/lib';
 
+use Test::More 0.96;
+use TestUtils;
+
 require_ok("Baker");
 
 subtest "empty list constructor" => sub {
diff --git a/t/charlie.t b/t/charlie.t
index 7ba5754..1143ee0 100644
--- a/t/charlie.t
+++ b/t/charlie.t
@@ -1,13 +1,11 @@
 use 5.008001;
 use strict;
 use warnings;
-use Test::More 0.96;
-use Test::FailWarnings;
-use Test::Deep '!blessed';
-use Test::Fatal;
-
 use lib 't/lib';
 
+use Test::More 0.96;
+use TestUtils;
+
 require_ok("Charlie");
 
 subtest "all attributes set as list" => sub {
diff --git a/t/delta.t b/t/delta.t
index fc05cc9..d7e5a29 100644
--- a/t/delta.t
+++ b/t/delta.t
@@ -1,13 +1,11 @@
 use 5.008001;
 use strict;
 use warnings;
-use Test::More 0.96;
-use Test::FailWarnings;
-use Test::Deep '!blessed';
-use Test::Fatal;
-
 use lib 't/lib';
 
+use Test::More 0.96;
+use TestUtils;
+
 require_ok("Delta");
 
 subtest "attribute set as list" => sub {
diff --git a/t/echo.t b/t/echo.t
index f6a903e..41b708d 100644
--- a/t/echo.t
+++ b/t/echo.t
@@ -1,13 +1,11 @@
 use 5.008001;
 use strict;
 use warnings;
-use Test::More 0.96;
-use Test::FailWarnings;
-use Test::Deep '!blessed';
-use Test::Fatal;
-
 use lib 't/lib';
 
+use Test::More 0.96;
+use TestUtils;
+
 require_ok("Echo");
 
 subtest "attribute set as list" => sub {
diff --git a/t/lib/TestUtils.pm b/t/lib/TestUtils.pm
new file mode 100644
index 0000000..0ef7bf8
--- /dev/null
+++ b/t/lib/TestUtils.pm
@@ -0,0 +1,28 @@
+use 5.008001;
+use strict;
+use warnings;
+package TestUtils;
+
+use Carp;
+
+use Exporter;
+our @ISA = qw/Exporter/;
+our @EXPORT = qw(
+    exception
+);
+
+# If we have Test::FailWarnings, use it
+BEGIN {
+    eval { require Test::FailWarnings; 1 } and do { Test::FailWarnings->import 
};
+}
+
+sub exception(&) {
+    my $code = shift;
+    my $success = eval { $code->(); 1 };
+    my $err = $@;
+    return '' if $success;
+    croak "Execution died, but the error was lost" unless $@;
+    return $@;
+}
+
+1;

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libclass-tiny-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to