[Module-build-checkins] Module-Build/t notes.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-serv7511/t

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

Index: notes.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/notes.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- notes.t	23 Jun 2005 07:58:08 -0000	1.9
+++ notes.t	23 Jun 2005 08:20:22 -0000	1.10
@@ -3,13 +3,33 @@
 
 use Test::More tests => 9;
 
+use Cwd ();
+my $cwd = Cwd::cwd;
+
+use DistGen;
+my $dist = DistGen->new;
+$dist->regen;
+
+chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
+
 use Module::Build;
 ok(1);
 
 ###################################
-my $m = Module::Build->current;
+$dist->change_file( 'Build.PL', <<"---" );
+use Module::Build;
+my \$build = Module::Build->new(
+  module_name => @{[$dist->name]},
+  license     => 'perl'
+);
+\$build->create_build_script;
+\$build->notes(foo => 'bar');
+---
+
+$dist->regen;
+
+my $m = Module::Build->new_from_context;
 
-# This was set in Build.PL
 is $m->notes('foo'), 'bar';
 
 # Try setting & checking a new value
@@ -26,9 +46,7 @@
 
 ###################################
 # Make sure notes set before create_build_script() get preserved
-my $testdir = Module::Build->localize_file_path('t/Sample');
-chdir $testdir or die "Can't chdir($testdir): $!";
-$m = Module::Build->new(module_name => 'Sample');
+$m = Module::Build->new(module_name => $dist->name);
 ok $m;
 $m->notes(foo => 'bar');
 is $m->notes('foo'), 'bar';
@@ -38,3 +56,7 @@
 $m = Module::Build->resume;
 ok $m;
 is $m->notes('foo'), 'bar';
+
+
+chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
+$dist->remove;