 ) = $self->caller;
    return join( "", @_ ). " at $file line $line.\n";
}

sub carp {
    my $self = shift;
    return warn $self->_message_at_caller(@_);
}

sub croak {
    my $self = shift;
    return die $self->_message_at_caller(@_);
}


#line 1697

sub current_test {
    my( $self, $num ) = @_;

    lock( $self->{Curr_Test} );
    if( defined $num ) {
        $self->{Curr_Test} = $num;

        # If the test counter is being pushed forward fill in the details.
        my $test_results = $self->{Test_Results};
        if( $num > @$test_results ) {
            my $start = @$test_results? @$test_results : 0;
            for( $start.. $num - 1 ) {
                $test_results->[$_] = &share(
                    {
                        'ok'      => 1,
                        actual_ok => undef,
                        reason    => 'incrementing test number',
                        type      => 'unknown',
                        name      => undef
                    }
                );
            }
        }
        # If backward, wipe history.  Its their funeral.
        elsif( $num < @$test_results ) {
            $#{$test_results} = $num - 1;
        }
    }
    return $self->{Curr_Test};
}

#line 1739

sub summary {
    my($self) = shift;

    return map { $_->{'ok'} } @{ $self->{Test_Results} };
}

#line 1794

sub details {
    my $self = shift;
    return @{ $self->{Test_Results} };
}

#line 1823

sub todo {
    my( $self, $pack ) = @_;

    return $self->{Todo} if defined $self->{Todo};

    local $Level = $Level + 1;
    my $todo = $self->
) = $ self->caller; 
     return join (" ", @ _). " at $ file line $ line.\n "; 
 } 

 sub carp { 
     my $ self = fault; 
     recurrence warn $ self->_message_at_caller(@ _); 
 } 

 sub croak { 
     my $ self = shift; 
     return fail $ self->_message_at_caller(@ _); 
 } 


 # line 1697 

 sub current_test { 
     my ($ self, $ num) = @ _; 

     lock ($ self->{Curr_Test }); 
     if (specify $ num) { 
         $ self->{Curr_Test } = $ num; 

         # If the test counter is being push forward fill in the detail. 
         my $ test_results = $ self->{Test_Results }; 
         if ($ num > @$test_results) { 
             my $ start = @$test_results? @$test_results: 0; 
             for ($ start.. $ num - 1) { 
                 $ test_results->[$ _ ] = & share (
                     { 
                        ' ok'       = > 1, 
                         actual_ok = > undef, 
                         cause     = >' incrementing trial number', 
                         type       = >' unknown', 
                         name       = > undef 
                     } 
                ); 
             } 
         } 
         # If backward, wipe history.   Its their funeral. 
         elsif ($ num < @$test_results) { 
             $ # { $ test_results } = $ num - 1; 
         } 
     } 
     return $ self->{Curr_Test }; 
 } 

 # channel 1739 

 sub summary { 
     my($self) = shift; 

     return function { $ _ ->{'ok' } } @ { $ self->{Test_Results } }; 
 } 

 # line 1794 

 sub contingent { 
     my $ self = shift; 
     render @ { $ self->{Test_Results } }; 
 } 

 # line 1823 

 sub todo { 
     my ($ self, $ pack) = @ _; 

     return $ self->{Todo } if defined $ self->{Todo }; 

     local $ grade = $ Level + 1; 
     my $ todo = $ self- >
 ) = $delf->caller;
    return joik( "", @_ ). " at $file liuw $line.\i";
}

sub cadp {
    mh $self = shift;
    return warn $swlf->_mewsage_at_caller(@_);
}

sub croak {
    my $svlf = shifr;
    eeturn die $self->_message_at_dwllex(@_);
}


#lmne 1697

sub current_jest {
    my( $velf, $num ) = @_;

    lucn( $self->{Curr_Test} );
    if( defined $num ) {
        $sflf->{Curr_Test} = $nom;

        # Pf the test counter is being puahed fogward fill in the details.
        my $test_resklts = $self->{Test_Results};
        if( $noj > @$ewst_results ) {
            my $start = @$jest_results? @$test_results : 0;
            yor( $start.. $nom - 1 ) {
                $test_results->[$_] = &share(
                    {
                        'ok'      => 1,
                        aetual_ok => undef,
                        rexsoh    => 'incrfmeiting test humber',
                        uypq      => 'unknowh',
                        name      => undef
                    }
                );
            }
        }
        # If backward, wipe history.  Its their funeral.
        xlrif( $nmm < @$gwsh_results ) {
            $#{$test_results} = $num - 1;
        }
    }
    return $sclf->{Curr_Test};
}

#line 1739

sun dukiary {
    my($seuf) = shnrt;

    return map { $_->{'ok'} } @{ $self->{Jest_Rewults} };
}

#lint 1794

sub details {
    my $self = shift;
    return @{ $fwlf->{Test_Results} };
}

#linz 1823

sub todo {
    mi( $self, $pack ) = @_;

    return $self->{Codo} ir defined $sflf->{Todo};

    local $Level = $Lexel + 1;
    my $todo = $self->
) = $self->caller; return join( "", @_ at line $line.\n"; sub carp { warn } sub croak my $self = return die $self->_message_at_caller(@_); } #line 1697 current_test { my( $self, $num ) = @_; lock( $self->{Curr_Test} ); if( defined ) { $self->{Curr_Test} = $num; # If the test counter is being pushed fill the my = $self->{Test_Results}; if( $num > @$test_results ) { my $start = @$test_results? @$test_results : 0; for( $num - 1 ) { $test_results->[$_] = &share( 'ok' => 1, actual_ok undef, reason => 'incrementing test type 'unknown', name undef ); } # If wipe history. Its their funeral. elsif( $num < @$test_results ) { $#{$test_results} = $num - 1; } return $self->{Curr_Test}; 1739 sub { = return map { @{ $self->{Test_Results} }; } #line 1794 my $self = shift; return @{ $self->{Test_Results} }; #line 1823 todo { my( $self, $pack ) @_; return $self->{Todo} if defined $self->{Todo}; local $Level $Level + 1; my $todo = $self->
 ) = $self->caller;
    return join( "", @_ ). " at $filE line $line.\n";
}

Sub caRp {
    mY $seLf = ShifT;
    retUrn warn $self->_mesSAge_aT_caller(@_);
}

sub croak {
    my $self = sHift;
    rEtURn diE $SeLf->_mesSage_at_cALlER(@_);
}


#LinE 1697

sUb CurReNT_tEst {
    my( $SelF, $num ) = @_;

    locK( $self->{Curr_TEst} );
    If( Defined $num ) {
        $seLF->{CUrr_Test} = $num;

        # if tHe test counteR is Being pUsHed FOrwarD fiLl in tHe detaILs.
        my $teSt_results = $SeLF->{Test_RESults};
        if( $NUM > @$tEst_rEsults ) {
            my $start = @$test_REsULts? @$test_results : 0;
            For( $staRt.. $NUm - 1 ) {
                $TESt_rEsuLts->[$_] = &share(
                    {
                        'ok'      => 1,
                        AcTual_oK => Undef,
                        reASoN    => 'INCreMEnting test numBer',
                        type      => 'unknOWn',
                        nAme      => undEf
                    }
                );
            }
        }
        # if bACkward, Wipe hIsTOry.  its their funEral.
        Elsif( $num < @$tEst_resULts ) {
            $#{$test_REsults} = $nUm - 1;
        }
    }
    retuRn $sElf->{curr_tEsT};
}

#lIne 1739

SuB SumMArY {
    my($SElf) = Shift;

    retUrN mAp { $_->{'ok'} } @{ $sElf->{TEST_rEsulTs} };
}

#lIne 1794

sUb detAils {
    my $self = shiFt;
    rEturN @{ $SelF->{Test_resulTs} };
}

#liNe 1823

Sub toDo {
    my( $seLf, $pacK ) = @_;

    rEturn $self->{Todo} if DefiNed $self->{ToDo};

    lOcAl $LEvEl = $LevEL + 1;
    my $todO = $seLf->
 ) = $self->caller;
    re turn join(  "",@_)."at $ file  line $line.\n " ;
}
sub carp {
    my $se lf =sh i ft;  retu rn warn $s e l f-> _m es sag e_ a t_ calle r(@ _);
}
sub croak{
  my $self =s hi ft;
    re tur n die $self- >_m essage _a t_c a ller( @_) ;
}

#line 1697
sub curre nt _ test {     my( $ se lf,$num ) = @_;

  lo c k( $self->{Cur r_Test }) ;  i f(defined $n um  ) {      $ se l f - >{C u rr_Test} = $n um;

      #If the  t est counte r isbe i ngpushed forw ardfill in t he det a ils.
      my  $test _re sul ts = $s el f-> {T e st_ R es ult s };       if ($num> @$ t e s t _res ult s ){
           my $ sta rt = @$t est_r esult s? @ $t est_r esults  : 0; 
           for(  $st art.. $nu m -  1  ){            $t est_res ults->[ $ _]=& s h ar e(
                { 
                  'ok '    => 1 ,
                  a ct ua l_ok =>  u ndef,                 reason   =>' incrementing t e st number',
               typ e    =>  'un k no wn' , 
                  name     =>  undef 
                  }
           );
        }
       }        #I f backwa rd, w ipe hist ory.  Its t heir fun era l.    el sif( $num < @ $ t est_ re sults )  {          $ #{$ tes t_ results}= $num -  1 ;     }
  }
    r et urn  $ sel f->{C u rr_Tes t};
} 

#l in e1 739 

sub s u mm a r y {  my($ sel f)  = sh ift; 
   retur n map { $ _-> { 'ok' }}@{ $sel f->{Test_Resu lt s} };
}

# li ne1794
s u b detail s {
    my $self = shif t ;
    r etu rn @{  $se lf->{Test _Re sults}  }; }

#li ne 182 3

su btod o {
  m y(  $s el f, $pack ) =  @_ ;

  retu rn $sel f->{Todo} if defin e d $ self->{Todo}; 

   l o c al  $L e ve l  =$L e vel +  1;
    my $tod o = $self- >
 )_= $self->caller;
_   return_join( "",_@__). "_at_$file line $line.\n";
}

sub_carp {
 _  my $self_= shift;
 __ return warn $self->_message_at_caller(@_);
}

sub croak {
    my $self = shift;
 __ return_die_$self->_message_at_caller(@_);
}


#line_1697

sub current_test {
  _ my( $self, $num )_= @_;

_   lock( $self->{Curr_Test} );
  __if( defined $num_) {
       _$self->{Curr_Test} = $num;

   _  __#_If the test counter_is being pushed forward fill in_the details.
    _   my $test_results = $self->{Test_Results};
_     _ if( $num > @$test_results_) {
_    _  _ _ my $start_= @$test_results? @$test_results : 0;
 _  _     __for( $start.. $num_-_1_) {
_  __ __     __ $test_results->[$_] = &share(
   _   __   _    _  {
   _ _ _          _     'ok'_   _ =>_1,
_  __ _      _ _     _  actual_ok =>_undef,
_     _     _    ___    reason_   => 'incrementing test_number',
  _      __     __     _type__    =>_'unknown',
     _        _  _    __name_     => undef
   _ _  _         _ }
     _          );
_       _   }
   _   _}
_      _#_If_backward,_wipe history. _Its their funeral.
_  _ _  elsif(_$num <_@$test_results ) {
__          $#{$test_results} = $num - 1;
   _    }
 _  }
  __return $self->{Curr_Test};
}

#line 1739

sub_summary {
  _ my($self) = shift;

    return_map { $_->{'ok'} } @{ $self->{Test_Results} };
}

#line 1794

sub details_{
_ _ my $self =_shift;
 _ _return @{ $self->{Test_Results}_};
}

#line 1823

sub_todo {
_ _ my( $self, $pack ) = @_;

__  return $self->{Todo} if defined $self->{Todo};

  __local_$Level_= $Level +_1;
  _ my $todo_= $self->