[libmoosex-lazyrequire-perl] 04/07: add an extra test to avoid an uninitialized value warning

Intrigeri intrigeri at moszumanska.debian.org
Wed Aug 27 21:25:27 UTC 2014


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

intrigeri pushed a commit to annotated tag v0.10
in repository libmoosex-lazyrequire-perl.

commit 5a8b3331cce5e012cfee15ba77ab0d18bac57fc5
Author: Karen Etheridge <ether at cpan.org>
Date:   Fri Mar 15 13:08:38 2013 -0700

    add an extra test to avoid an uninitialized value warning
---
 t/rt76054_inheritance.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t/rt76054_inheritance.t b/t/rt76054_inheritance.t
index 4efe5a1..9d7169e 100644
--- a/t/rt76054_inheritance.t
+++ b/t/rt76054_inheritance.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More;
 use Test::Fatal;
 
 local $TODO = 'RT#75054';
@@ -33,9 +33,13 @@ local $TODO = 'RT#75054';
 
 }
 my $r = AccountExt->new;
+
+my $e = exception { $r->password };
+isnt($e, undef, 'works on inherited attributes') &&
 like(
     exception { $r->password },
     qr/Attribute 'password' must be provided before calling reader/,
     'works on inherited attributes'
 );
 
+done_testing;

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



More information about the Pkg-perl-cvs-commits mailing list