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;
|