[Module-build-checkins] Module-Build/t basic.t,1.34,1.35

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

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

Modified Files:
	basic.t 
Log Message:
Add the runtime_params() method

Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** basic.t	7 Dec 2004 03:25:54 -0000	1.34
--- basic.t	4 Jan 2005 05:26:39 -0000	1.35
***************
*** 3,7 ****
  use strict;
  use Test;
! BEGIN { plan tests => 43 }
  use Module::Build;
  ok(1);
--- 3,7 ----
  use strict;
  use Test;
! BEGIN { plan tests => 52 }
  use Module::Build;
  ok(1);
***************
*** 123,127 ****
    chdir 'Sample';
  
!   eval {Module::Build->run_perl_script('Build.PL', [], ['--config', "foocakes=barcakes", '--foo', '--bar', '--bar', '-bat=hello', 'gee=whiz', '--any', 'hey'])};
    ok $@, '';
    
--- 123,127 ----
    chdir 'Sample';
  
!   eval {Module::Build->run_perl_script('Build.PL', [], ['--config', "foocakes=barcakes", '--foo', '--bar', '--bar', '-bat=hello', 'gee=whiz', '--any', 'hey', '--destdir', 'yo', '--verbose', '1'])};
    ok $@, '';
    
***************
*** 137,140 ****
--- 137,149 ----
    ok $b->args('any'), 'hey';
    ok $b->args('dee'), 'goo';
+   ok $b->destdir, 'yo';
+   ok $b->runtime_params('destdir'), 'yo';
+   ok $b->runtime_params('verbose'), '1';
+   ok !$b->runtime_params('license');
+   ok my %runtime = $b->runtime_params;
+   ok scalar keys %runtime, 3;
+   ok $runtime{destdir}, 'yo';
+   ok $runtime{verbose}, '1';
+   ok $runtime{config};
  
    ok my $argsref = $b->args;