[Module-build-checkins] Module-Build/t signature.t,1.9,1.10

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

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

Modified Files:
	signature.t 
Log Message:
Use the DistGen module for tests.

Index: signature.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/signature.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- signature.t	28 Jun 2005 04:27:16 -0000	1.9
+++ signature.t	28 Jun 2005 05:02:26 -0000	1.10
@@ -23,32 +23,41 @@
 
 #########################
 
-
 use Cwd ();
 my $cwd = Cwd::cwd;
 
-
+use DistGen;
+my $dist = DistGen->new;
+$dist->change_file( 'Build.PL', <<"---" );
 use Module::Build;
 
-my $base_dir = File::Spec->catdir( $cwd, 't', 'Sample' );
-chdir $base_dir or die "can't chdir to $base_dir: $!";
+my \$build = new Module::Build(
+  module_name => @{[$dist->name]},
+  license     => 'perl',
+  sign        => 1,
+);
+\$build->create_build_script;
+---
+$dist->regen;
 
+chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
+
+#########################
+
+use Module::Build;
+
+my $build = Module::Build->new_from_context;
 
-my $build = Module::Build->new( module_name => 'Sample',
-			        requires => { 'File::Spec' => 0 },
-			        license => 'perl',
-			        sign => 1,
-			      );
 
 {
   eval {$build->dispatch('distdir')};
   ok ! $@;
-  chdir $build->dist_dir or die "Can't chdir to ", $build->dist_dir, ": $!";
+  chdir( $build->dist_dir ) or die "Can't chdir to '@{[$build->dist_dir]}': $!";
   ok -e 'SIGNATURE';
   
   # Make sure the signature actually verifies
   ok Module::Signature::verify() == Module::Signature::SIGNATURE_OK();
-  chdir $base_dir or die "can't chdir back to $base_dir: $!";
+  chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
 }
 
 {
@@ -68,3 +77,8 @@
 
 eval { $build->dispatch('realclean') };
 ok ! $@;
+
+
+# cleanup
+chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
+$dist->remove;