[Module-build-checkins] Module-Build/t extend.t,1.6,1.7
Status: Beta
Brought to you by:
kwilliams
From: Ken W. <kwi...@us...> - 2004-11-21 15:33:21
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7808/t Modified Files: extend.t Log Message: Integrate from bugfix branch Index: extend.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/extend.t,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** extend.t 17 May 2004 04:18:27 -0000 1.6 --- extend.t 21 Nov 2004 15:32:33 -0000 1.7 *************** *** 44,62 **** # Make sure we can add new kinds of stuff to the build sequence ! { ! package FooTester; ! @FooTester::ISA = qw(Module::Build); ! ! sub process_foo_files { ! my $self = shift; ! my $files = $self->_find_file_by_type('foo', File::Spec->curdir); ! while (my ($file, $dest) = each %$files) { ! $self->copy_if_modified(from => $file, ! to => File::Spec->catfile($self->blib, 'lib', $dest) ); ! } ! } ! } ! ! my $build = FooTester->new( module_name => 'Sample' ); ok $build; --- 44,49 ---- # Make sure we can add new kinds of stuff to the build sequence ! my $build = Module::Build->new( module_name => 'Sample', ! foo_files => {'test.foo', 'lib/test.foo'} ); ok $build; |