[Module-build-checkins] Module-Build/t extend.t,1.6,1.6.2.1
Status: Beta
Brought to you by:
kwilliams
From: Ken W. <kwi...@us...> - 2004-11-21 15:32:58
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7731/t Modified Files: Tag: release-0_26_branch extend.t Log Message: Simplify a test case Index: extend.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/extend.t,v retrieving revision 1.6 retrieving revision 1.6.2.1 diff -C2 -d -r1.6 -r1.6.2.1 *** extend.t 17 May 2004 04:18:27 -0000 1.6 --- extend.t 21 Nov 2004 15:32:13 -0000 1.6.2.1 *************** *** 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; |