[Module-build-checkins] Module-Build/t basic.t,1.32,1.33

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

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

Modified Files:
	basic.t 
Log Message:
Integrate from bugfix branch

Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** basic.t	15 Nov 2004 02:56:28 -0000	1.32
--- basic.t	15 Nov 2004 19:58:42 -0000	1.33
***************
*** 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';
  }