[svn:parrot] r25770 - in branches/tcif: lib/Parrot/Configure/Parallel t/configure

[jkeenan]

Author: jkeenan
Date: Sat Feb 16 10:48:31 2008
New Revision: 25770

Modified:
   branches/tcif/lib/Parrot/Configure/Parallel/Trace.pm
   branches/tcif/t/configure/062-parallel.t
   branches/tcif/t/configure/063-parallel.t
   branches/tcif/t/configure/064-parallel.t

Log:
Simplify name of subroutine from 'store_this_step_pure' to 'store_this_step'.

Modified: branches/tcif/lib/Parrot/Configure/Parallel/Trace.pm
==============================================================================
--- branches/tcif/lib/Parrot/Configure/Parallel/Trace.pm        (original)
+++ branches/tcif/lib/Parrot/Configure/Parallel/Trace.pm        Sat Feb 16 
10:48:31 2008
@@ -32,7 +32,7 @@
         conf        => $conf,
     } );
 
-    $trace->store_this_step_pure();
+    $trace->store_this_step();
 
 Used only in configuration step tests found in F<t/steps/>.
 
@@ -331,7 +331,7 @@
     return 1;
 }
 
-=head2 C<store_this_step_pure()>
+=head2 C<store_this_step()>
 
 B<Purpose:>  As needed:  Retrieves the configuration state from the
 Storable file on disk.  Constructs a Parrot::Configure::Parallel object,
@@ -356,7 +356,7 @@
 
 =cut 
 
-sub store_this_step_pure {
+sub store_this_step {
     my $self = shift;
     my $pkg = $self->{step};
     my $step_position = $self->get_step_position($pkg);

Modified: branches/tcif/t/configure/062-parallel.t
==============================================================================
--- branches/tcif/t/configure/062-parallel.t    (original)
+++ branches/tcif/t/configure/062-parallel.t    Sat Feb 16 10:48:31 2008
@@ -31,8 +31,8 @@
             't/steps/init_defaults-01.t'
     );
     ok(defined $trace, "Constructor returned defined value");
-    is($trace->store_this_step_pure(), 1,
-        "Got expected return value from store_this_step_pure()");
+    is($trace->store_this_step(), 1,
+        "Got expected return value from store_this_step()");
 
     my $sto = $trace->get_storable_file();
     ok( -e $sto,
@@ -41,8 +41,8 @@
             't/steps/init_defaults-02.t'
     );
     ok(defined $trace, "Constructor returned defined value");
-    is($trace->store_this_step_pure(), 2,
-        "Got expected return value from store_this_step_pure()");
+    is($trace->store_this_step(), 2,
+        "Got expected return value from store_this_step()");
 
     ok( (chdir $cwd), "Able to change back to starting directory");
 }

Modified: branches/tcif/t/configure/063-parallel.t
==============================================================================
--- branches/tcif/t/configure/063-parallel.t    (original)
+++ branches/tcif/t/configure/063-parallel.t    Sat Feb 16 10:48:31 2008
@@ -32,8 +32,8 @@
             't/steps/init_defaults-01.t'
     );
     ok(defined $trace, "Constructor returned defined value");
-    is($trace->store_this_step_pure(), 1,
-        "Got expected return value from store_this_step_pure()");
+    is($trace->store_this_step(), 1,
+        "Got expected return value from store_this_step()");
 
     my $sto = $trace->get_storable_file();
     ok( -e $sto,
@@ -42,8 +42,8 @@
             't/steps/init_install-01.t'
     );
     ok(defined $trace, "Constructor returned defined value");
-    is($trace->store_this_step_pure(), 1,
-        "Got expected return value from store_this_step_pure()");
+    is($trace->store_this_step(), 1,
+        "Got expected return value from store_this_step()");
 
     ok( (chdir $cwd), "Able to change back to starting directory");
 }

Modified: branches/tcif/t/configure/064-parallel.t
==============================================================================
--- branches/tcif/t/configure/064-parallel.t    (original)
+++ branches/tcif/t/configure/064-parallel.t    Sat Feb 16 10:48:31 2008
@@ -32,8 +32,8 @@
             't/steps/init_defaults-01.t'
     );
     ok(defined $trace, "Constructor returned defined value");
-    is($trace->store_this_step_pure(), 1,
-        "Got expected return value from store_this_step_pure()");
+    is($trace->store_this_step(), 1,
+        "Got expected return value from store_this_step()");
 
     my $state;
     $state = $trace->get_previous_state();
@@ -44,8 +44,8 @@
             't/steps/init_install-01.t'
     );
     ok(defined $trace, "Constructor returned defined value");
-    is($trace->store_this_step_pure(), 1,
-        "Got expected return value from store_this_step_pure()");
+    is($trace->store_this_step(), 1,
+        "Got expected return value from store_this_step()");
     $state = $trace->get_previous_state();
     ok(defined $state,
         "There was a previous config step, hence state is now defined");