You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2009/09/07 01:27:15 UTC
svn commit: r811952 - in /lucene/lucy/trunk/boilerplater/t:
202-overridden_method.t 203-final_method.t
Author: marvin
Date: Sun Sep 6 23:27:14 2009
New Revision: 811952
URL: http://svn.apache.org/viewvc?rev=811952&view=rev
Log:
Add tests for "overriding" and "finalizing" Boilerplater::Method objects.
Added:
lucene/lucy/trunk/boilerplater/t/202-overridden_method.t (with props)
lucene/lucy/trunk/boilerplater/t/203-final_method.t (with props)
Added: lucene/lucy/trunk/boilerplater/t/202-overridden_method.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/boilerplater/t/202-overridden_method.t?rev=811952&view=auto
==============================================================================
--- lucene/lucy/trunk/boilerplater/t/202-overridden_method.t (added)
+++ lucene/lucy/trunk/boilerplater/t/202-overridden_method.t Sun Sep 6 23:27:14 2009
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use Boilerplater::Method;
+use Boilerplater::Parser;
+
+my $parser = Boilerplater::Parser->new;
+$parser->parcel_definition('parcel Boil;')
+ or die "failed to process parcel_definition";
+
+my %args = (
+ return_type => $parser->type('Obj*'),
+ class_name => 'Boil::Foo',
+ class_cnick => 'Foo',
+ param_list => $parser->param_list('(Foo *self)'),
+ macro_sym => 'Return_An_Obj',
+ parcel => 'Boil',
+);
+
+my $orig = Boilerplater::Method->new(%args);
+my $overrider = Boilerplater::Method->new(
+ %args,
+ param_list => $parser->param_list('(FooJr *self)'),
+ class_name => 'Boil::Foo::FooJr',
+ class_cnick => 'FooJr'
+);
+$overrider->override($orig);
+ok( !$overrider->novel );
+
Propchange: lucene/lucy/trunk/boilerplater/t/202-overridden_method.t
------------------------------------------------------------------------------
svn:eol-style = native
Added: lucene/lucy/trunk/boilerplater/t/203-final_method.t
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/boilerplater/t/203-final_method.t?rev=811952&view=auto
==============================================================================
--- lucene/lucy/trunk/boilerplater/t/203-final_method.t (added)
+++ lucene/lucy/trunk/boilerplater/t/203-final_method.t Sun Sep 6 23:27:14 2009
@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+use Boilerplater::Parser;
+
+my $parser = Boilerplater::Parser->new;
+$parser->parcel_definition('parcel Boil;')
+ or die "failed to process parcel_definition";
+
+my %args = (
+ return_type => $parser->type('Obj*'),
+ class_name => 'Boil::Foo',
+ class_cnick => 'Foo',
+ param_list => $parser->param_list('(Foo* self)'),
+ macro_sym => 'Return_An_Obj',
+ parcel => 'Boil',
+);
+
+my $not_final_method = Boilerplater::Method->new(%args);
+my $final_method = $not_final_method->finalize;
+ok( !$not_final_method->final, "not final by default" );
+ok( $final_method->final, "finalize" );
+
Propchange: lucene/lucy/trunk/boilerplater/t/203-final_method.t
------------------------------------------------------------------------------
svn:eol-style = native