perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r20840 - trunk/t/configure

Subject: [svn:parrot] r20840 - trunk/t/configure
From:
Date: Sat, 25 Aug 2007 08:52:41 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: jkeenan
Date: Sat Aug 25 08:52:40 2007
New Revision: 20840

Modified:
   trunk/t/configure/028-option_or_data.t

Log:
Instead of providing hard-coded argument to option_or_data(), provide call with 
Parrot::Configure::Data::get().  Inspired by bug report from Infinoid on 
#parrot.

Modified: trunk/t/configure/028-option_or_data.t
==============================================================================
--- trunk/t/configure/028-option_or_data.t      (original)
+++ trunk/t/configure/028-option_or_data.t      Sat Aug 25 08:52:40 2007
@@ -55,8 +55,10 @@
 $ret = $step->runstep($conf);
 ok(defined $ret, "$step_name runstep() returned defined value");
 
-my $val = $conf->option_or_data('cc');
-is($val, q{cc}, 'option_or_data() returned expected value');
+my $arg = q{cc};
+my $val = $conf->option_or_data( $arg );
+is($val, $conf->data->get( $arg ),
+    'option_or_data() returned expected value when no option provided');
 
 pass("Completed all tests in $0");
 

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r20840 - trunk/t/configure, jkeenan <=