Test Perl operator overloading of Err objects
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/f87eb6e2 Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/f87eb6e2 Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/f87eb6e2 Branch: refs/heads/master Commit: f87eb6e23932c717a4c9de630d97d4ac4264fef3 Parents: 2aac5c2 Author: Nick Wellnhofer <[email protected]> Authored: Tue May 12 17:52:15 2015 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Mon May 18 21:25:33 2015 +0200 ---------------------------------------------------------------------- runtime/perl/t/binding/034-err.t | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/f87eb6e2/runtime/perl/t/binding/034-err.t ---------------------------------------------------------------------- diff --git a/runtime/perl/t/binding/034-err.t b/runtime/perl/t/binding/034-err.t index ae91063..84b7d36 100644 --- a/runtime/perl/t/binding/034-err.t +++ b/runtime/perl/t/binding/034-err.t @@ -27,10 +27,13 @@ package GloriousDeath; use base qw( Clownfish::Err ); package main; -use Test::More tests => 10; +use Test::More tests => 12; -isa_ok( Clownfish::Err->new("Bad stuff happened"), - 'Clownfish::Err', "new" ); +my $err = Clownfish::Err->new("Bad stuff happened"); +isa_ok( $err, 'Clownfish::Err', "new" ); +my $mess = $err->get_mess; +is( "$err", $mess, "Err stringification works" ); +ok( $err eq $mess, "Err eq overload works" ); my $glorious = GloriousDeath->new("Banzai"); isa_ok( $glorious, 'GloriousDeath', "subclass" );
