[Module-build-checkins] Module-Build/t basic.t,1.27.2.3,1.27.2.4

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

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

Modified Files:
      Tag: release-0_26_branch
	basic.t 
Log Message:
Eliminate undef-var warning on module_name

Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.27.2.3
retrieving revision 1.27.2.4
diff -C2 -d -r1.27.2.3 -r1.27.2.4
*** basic.t	13 Nov 2004 15:07:10 -0000	1.27.2.3
--- basic.t	15 Nov 2004 19:51:10 -0000	1.27.2.4
***************
*** 3,7 ****
  use strict;
  use Test;
! BEGIN { plan tests => 37 }
  use Module::Build;
  ok(1);
--- 3,7 ----
  use strict;
  use Test;
! BEGIN { plan tests => 41 }
  use Module::Build;
  ok(1);
***************
*** 19,28 ****
  # Test object creation
  {
!   my $build = new Module::Build
!     (
!      module_name => 'ModuleBuildOne',
!     );
    ok $build;
    ok $build->module_name, 'ModuleBuildOne';
  }
  
--- 19,31 ----
  # Test object creation
  {
!   my $build = new Module::Build( module_name => 'ModuleBuildOne' );
    ok $build;
    ok $build->module_name, 'ModuleBuildOne';
+   ok $build->dist_name, 'ModuleBuildOne';
+   
+   $build = Module::Build->new( dist_name => 'ModuleBuildOne', dist_version => 7 );
+   ok $build;
+   ok $build->module_name, '';  # Make sure it's defined
+   ok $build->dist_name, 'ModuleBuildOne';
  }