Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10436/t
Modified Files:
metadata.t
Log Message:
Small style tweak, add parens
Index: metadata.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/metadata.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- metadata.t 1 Nov 2005 08:04:33 -0000 1.8
+++ metadata.t 5 Nov 2005 15:58:13 -0000 1.9
@@ -90,7 +90,7 @@
$VERSION = '1.23';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => {file => 'lib/Simple.pm',
version => '1.23'}});
@@ -99,7 +99,7 @@
package Simple;
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => {file => 'lib/Simple.pm'}});
@@ -111,7 +111,7 @@
$VERSION = '1.23';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Foo::Bar' => { file => 'lib/Simple.pm',
version => '1.23' }});
@@ -120,7 +120,7 @@
package Foo::Bar;
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Foo::Bar' => { file => 'lib/Simple.pm'}});
@@ -136,7 +136,7 @@
$VERSION = '1.23';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => { file => 'lib/Simple.pm',
version => '1.23' },
@@ -155,7 +155,7 @@
$VERSION = '1.23';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Foo' => { file => 'lib/Simple.pm',
version => '1.23' },
@@ -173,7 +173,7 @@
package Simple;
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => { file => 'lib/Simple.pm' }});
@@ -189,7 +189,7 @@
package Simple;
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => { file => 'lib/Simple.pm',
version => '1.23' }});
@@ -206,7 +206,7 @@
$VERSION = '1.23';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => { file => 'lib/Simple.pm',
version => '1.23' }});
@@ -224,7 +224,7 @@
---
$dist->regen( clean => 1 );
my $err = '';
-$err = stderr_of( sub { $mb = new_build } );
+$err = stderr_of( sub { $mb = new_build() } );
$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
is_deeply($provides,
{'Simple' => { file => 'lib/Simple.pm',
@@ -243,7 +243,7 @@
$VERSION = '2.34';
---
$dist->regen( clean => 1 );
-$err = stderr_of( sub { $mb = new_build } );
+$err = stderr_of( sub { $mb = new_build() } );
$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
is_deeply($provides,
{'Foo' => { file => 'lib/Simple.pm',
@@ -265,7 +265,7 @@
package Simple;
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => { file => 'lib/Simple.pm' }});
$dist->remove_file( 'lib/Simple2.pm' );
@@ -283,7 +283,7 @@
package Simple;
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => { file => 'lib/Simple.pm',
version => '1.23' }});
@@ -303,7 +303,7 @@
$VERSION = '1.23';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => { file => 'lib/Simple2.pm',
version => '1.23' }});
@@ -323,7 +323,7 @@
$VERSION = '2.34';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
is_deeply($provides,
{'Simple' => { file => 'lib/Simple.pm',
@@ -346,7 +346,7 @@
$VERSION = '1.23';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
is_deeply($provides,
{'Simple' => { file => 'lib/Simple.pm',
@@ -370,7 +370,7 @@
package Foo;
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
$provides = $mb->find_dist_packages;
ok( exists( $provides->{Foo} ) ); # it exist, can't predict which file
$dist->remove_file( 'lib/Simple2.pm' );
@@ -388,7 +388,7 @@
package Foo;
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Foo' => { file => 'lib/Simple.pm',
version => '1.23' }});
@@ -407,7 +407,7 @@
$VERSION = '1.23';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Foo' => { file => 'lib/Simple2.pm',
version => '1.23' }});
@@ -427,7 +427,7 @@
$VERSION = '2.34';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
# XXX Should 'Foo' exist ??? Can't predict values for file & version
ok( exists( $provides->{Foo} ) );
@@ -449,7 +449,7 @@
$VERSION = '1.23';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
ok( exists( $provides->{Foo} ) );
is( $provides->{Foo}{version}, '1.23' );
@@ -475,7 +475,7 @@
---
$dist->regen( clean => 1 );
$err = stderr_of( sub {
- $mb = new_build;
+ $mb = new_build();
} );
$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
is_deeply($provides,
@@ -501,7 +501,7 @@
---
$dist->regen( clean => 1 );
$err = stderr_of( sub {
- $mb = new_build;
+ $mb = new_build();
} );
$err = stderr_of( sub { $provides = $mb->find_dist_packages } );
is_deeply($provides,
@@ -527,7 +527,7 @@
$VERSION = '3.45';
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages,
{'Simple' => { file => 'lib/Simple.pm',
version => '1.23' }});
@@ -540,7 +540,7 @@
$dist->change_file( 'lib/Simple.pm', '' );
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply( $mb->find_dist_packages, {} );
# Simple.pm => =pod..=cut (no package declaration)
@@ -558,7 +558,7 @@
=cut
---
$dist->regen( clean => 1 );
-$mb = new_build;
+$mb = new_build();
is_deeply($mb->find_dist_packages, {});
|
