module-build-checkins

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27422/t

Modified Files:
	basic.t destinations.t install.t manifypods.t 
Log Message:
Access hash type properties through their accessors when possible.

Index: manifypods.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/manifypods.t,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- manifypods.t	14 Nov 2005 05:47:58 -0000	1.17
+++ manifypods.t	21 Nov 2005 03:29:42 -0000	1.18
@@ -95,8 +95,8 @@
 	   sep  => $mb->manpage_separator,
 	   dir1 => 'man1',
 	   dir3 => 'man3',
-	   ext1 => $mb->{config}{man1ext},
-	   ext3 => $mb->{config}{man3ext},
+	   ext1 => $mb->config('man1ext'),
+	   ext3 => $mb->config('man3ext'),
 	  );
 
 my %distro = (

Index: install.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/install.t,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- install.t	14 Nov 2005 05:47:58 -0000	1.28
+++ install.t	21 Nov 2005 03:29:42 -0000	1.29
@@ -187,9 +187,12 @@
 
 {
   # Make sure 'install_path' overrides 'install_base'
-  my $mb = Module::Build->new( module_name => $dist->name,
-				  install_base => File::Spec->catdir('', 'foo'),
-				  install_path => {lib => File::Spec->catdir('', 'bar')});
+  my $mb = Module::Build->new( module_name  => $dist->name,
+			       install_base => File::Spec->catdir('', 'foo'),
+			       install_path => {
+                                 lib => File::Spec->catdir('', 'bar')
+                               }
+                             );
   ok $mb;
   is $mb->install_destination('lib'), File::Spec->catdir('', 'bar');
 }

Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- basic.t	20 Oct 2005 09:26:42 -0000	1.47
+++ basic.t	21 Nov 2005 03:29:42 -0000	1.48
@@ -150,8 +150,8 @@
   is $@, '';
 
   my $mb = Module::Build->resume;
-  is $mb->config->{cc}, $Config{cc};
-  is $mb->config->{foocakes}, 'barcakes';
+  is $mb->config('cc'), $Config{cc};
+  is $mb->config('foocakes'), 'barcakes';
 
   # Test args().
   is $mb->args('foo'), 1;

Index: destinations.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- destinations.t	14 Nov 2005 05:47:58 -0000	1.35
+++ destinations.t	21 Nov 2005 03:29:42 -0000	1.36
@@ -60,8 +60,6 @@
 );
 isa_ok( $mb, 'Module::Build::Base' );
 
-my $install_sets = $mb->install_sets;
-
 # Get us into a known state.
 $mb->install_base(undef);
 $mb->prefix(undef);
@@ -139,7 +137,7 @@
     $mb->prefix( $prefix );
     is( $mb->{properties}{prefix}, $prefix );
 
-    test_prefix($prefix, $install_sets->{site});
+    test_prefix($prefix, $mb->install_sets('site'));
 }