module-build-checkins

[Ken W. <kwi...@us...>]

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

Modified Files:
	destinations.t 
Log Message:
Use the install_sets map for checking prefix

Index: destinations.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- destinations.t	19 Jun 2005 13:40:59 -0000	1.3
+++ destinations.t	19 Jun 2005 13:55:45 -0000	1.4
@@ -64,6 +64,7 @@
 ok( $m->{properties}{prefix} eq $prefix );
 
 my $c = \%Config;
+my $site_paths = $m->install_sets->{site};
 
 my $naive_prefix = sub {
   my ($path) = @_;
@@ -73,22 +74,22 @@
 };
 
 ok( $m->install_destination( 'lib' ),
-    $naive_prefix->($c->{installsitelib}) );
+    $naive_prefix->($site_paths->{lib}) );
 
 ok( $m->install_destination( 'arch' ),
-    $naive_prefix->($c->{installsitearch}) );
+    $naive_prefix->($site_paths->{arch}) );
 
 ok( $m->install_destination( 'bin' ),
-    $naive_prefix->($c->{installsitebin}) );
+    $naive_prefix->($site_paths->{bin}) );
 
 ok( $m->install_destination( 'script' ),
-    $naive_prefix->($c->{installscript}) );
+    $naive_prefix->($site_paths->{script}) );
 
 ok( $m->install_destination( 'bindoc' ),
-    $naive_prefix->($c->{installsiteman1dir} || $c->{installman1dir}) );
+    $naive_prefix->($site_paths->{bindoc}) );
 
 ok( $m->install_destination( 'libdoc' ),
-    $naive_prefix->($c->{installsiteman3dir} || $c->{installman3dir}));
+    $naive_prefix->($site_paths->{libdoc}));
 
 $m->install_base( $install_base );