[popfile-commit] engine tests.pl,1.48.4.1,1.48.4.2

[Manni H. <man...@us...>]

Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19794

Modified Files:
      Tag: b0_22_2
	tests.pl 
Log Message:
Fix indentation and get rid of tabs.

Index: tests.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests.pl,v
retrieving revision 1.48.4.1
retrieving revision 1.48.4.2
diff -C2 -d -r1.48.4.1 -r1.48.4.2
*** tests.pl	7 Feb 2006 11:09:54 -0000	1.48.4.1
--- tests.pl	9 Nov 2007 14:02:05 -0000	1.48.4.2
***************
*** 35,53 ****
      my $ok = 1;
  
!     my $subref = 
!         sub { 
!             my $f = $_; 
!             my $t = $f; 
!             $t =~ s/^$from/$to/; 
              if ( -d $f ) {
                  mkdir $t ;
              }
              else {
!                 copy( $f, $t) or $ok = 0; 
              }
          };
      my %optref = ( wanted => $subref, no_chdir => 1 );
      find ( \%optref , $from );
!     
      return $ok;
  }
--- 35,53 ----
      my $ok = 1;
  
!     my $subref =
!         sub {
!             my $f = $_;
!             my $t = $f;
!             $t =~ s/^$from/$to/;
              if ( -d $f ) {
                  mkdir $t ;
              }
              else {
!                 copy( $f, $t) or $ok = 0;
              }
          };
      my %optref = ( wanted => $subref, no_chdir => 1 );
      find ( \%optref , $from );
! 
      return $ok;
  }
***************
*** 97,118 ****
  sub test_report
  {
!         my ( $ok, $test, $file, $line, $context ) = @_;
  
!         spin( $line );
  
!         $test_count += 1;
  
!         if ( !$ok ) {
!                 $fail_messages .= "\n    $file:$line failed '$test'";
!                 if ( defined( $context ) ) {
!                         $fail_messages .= " ($context)";
!                 }
!                 $test_failures += 1;
!             print "Test fail at $file:$line ($test) ($context)\n";
!         } else {
! #            print "Test pass at $file:$line ($test) ($context)\n";
          }
  
!         flush STDOUT;
  }
  
--- 97,118 ----
  sub test_report
  {
!     my ( $ok, $test, $file, $line, $context ) = @_;
  
!     spin( $line );
  
!     $test_count += 1;
  
!     if ( !$ok ) {
!         $fail_messages .= "\n    $file:$line failed '$test'";
!         if ( defined( $context ) ) {
!             $fail_messages .= " ($context)";
          }
+         $test_failures += 1;
+         print "Test fail at $file:$line ($test) ($context)\n";
+     } else {
+ #            print "Test pass at $file:$line ($test) ($context)\n";
+     }
  
!     flush STDOUT;
  }