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

gregoa pushed a commit to branch master
in repository libmoo-perl.

commit e52004ec808a462b317b4e3b651c69f6e981ad7d
Author: Graham Knop <ha...@haarg.org>
Date:   Fri Dec 9 08:46:13 2016 -0500

    fix asserter failure message and test
---
 lib/Method/Generate/Accessor.pm | 2 +-
 t/accessor-handles.t            | 9 +++++++++
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/lib/Method/Generate/Accessor.pm b/lib/Method/Generate/Accessor.pm
index 2f81458..a31eb71 100644
--- a/lib/Method/Generate/Accessor.pm
+++ b/lib/Method/Generate/Accessor.pm
@@ -638,7 +638,7 @@ sub _generate_asserter {
   "do {\n"
    ."  my \$val = ".$self->_generate_get($name, $spec).";\n"
    ."  ".$self->_generate_simple_has('$_[0]', $name, $spec)."\n"
-   ."    or Carp::croak('Attempted to access '.${name_str}.' but it is not 
set');\n"
+   ."    or Carp::croak(q{Attempted to access '}.${name_str}.q{' but it is not 
set});\n"
    ."  \$val;\n"
    ."}\n";
 }
diff --git a/t/accessor-handles.t b/t/accessor-handles.t
index 806c22b..af5af9e 100644
--- a/t/accessor-handles.t
+++ b/t/accessor-handles.t
@@ -66,6 +66,10 @@ use InlineModule (
                 handles => { foobar => '${\\Baz->can("is_passed_undefined")}'},
                 default => sub { undef } );
 
+  has foo8 => (
+    is => 'rw',
+    handles => [ 'foo8_gone' ],
+  );
 }
 
 my $bar = Bar->new(
@@ -88,6 +92,11 @@ is $bar->foobot, 'beep', 'asserter checks for existence not 
truth, on false valu
 
 is $bar->foobar, 'bar', 'asserter checks for existence not truth, on undef ';
 
+like exception {
+  $bar->foo8_gone;
+}, qr/^Attempted to access 'foo8' but it is not set/,
+  'asserter fails with correct message';
+
 ok(my $e = exception {
   package Baz;
   use Moo;

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libmoo-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