[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