| Lines 3-9
          
      
      
        Link Here | 
        
          | 3 | use strict; | 3 | use strict; | 
        
          | 4 | use warnings; | 4 | use warnings; | 
        
          | 5 |  | 5 |  | 
          
            
              | 6 | use Test::More tests => 11; | 6 | use Test::More tests => 19; | 
        
          | 7 | BEGIN { | 7 | BEGIN { | 
        
          | 8 | 	use FindBin; | 8 | 	use FindBin; | 
        
          | 9 | 	use lib $FindBin::Bin; | 9 | 	use lib $FindBin::Bin; | 
  
    | Lines 20-26
          sub pretty_line {
      
      
        Link Here | 
        
          | 20 |  | 20 |  | 
        
          | 21 | my ($scrubber,$html,$result,@types,$collapse); | 21 | my ($scrubber,$html,$result,@types,$collapse); | 
        
          | 22 | $collapse = 1; | 22 | $collapse = 1; | 
          
            
              | 23 | @types = qw(comment tag); | 23 | @types = qw(default comment tag staff); | 
        
          | 24 | $html = q| | 24 | $html = q| | 
        
          | 25 | <![CDATA[selfdestruct]]]> | 25 | <![CDATA[selfdestruct]]]> | 
        
          | 26 | <?php  echo(" EVIL EVIL EVIL "); ?>    <!-- COMMENT --> | 26 | <?php  echo(" EVIL EVIL EVIL "); ?>    <!-- COMMENT --> | 
  
    | Lines 58-64
          $collapse and $result =~ s/\s*\n\s*/\n/g;
      
      
        Link Here | 
        
          | 58 | print pretty_line('default'), $result, "\n", pretty_line(); | 58 | print pretty_line('default'), $result, "\n", pretty_line(); | 
        
          | 59 |  | 59 |  | 
        
          | 60 | foreach(@types) { | 60 | foreach(@types) { | 
          
            
              | 61 | 	ok($scrubber = C4::Scrubber->new($_), "Constructor: C4::Scrubber->new($_)"); | 61 | 	ok($scrubber = C4::Scrubber->new($_), "testing Constructor: C4::Scrubber->new($_)"); | 
        
          | 62 | 	ok(printf("# scrubber settings: default %s, comment %s, process %s\n", | 62 | 	ok(printf("# scrubber settings: default %s, comment %s, process %s\n", | 
        
          | 63 | 		$scrubber->default(),$scrubber->comment(),$scrubber->process()), | 63 | 		$scrubber->default(),$scrubber->comment(),$scrubber->process()), | 
        
          | 64 | 		"Outputting settings from scrubber object (type: $_)" | 64 | 		"Outputting settings from scrubber object (type: $_)" | 
  
    | Lines 67-70
          foreach(@types) {
      
      
        Link Here | 
        
          | 67 | 	$collapse and $result =~ s/\s*\n\s*/\n/g; | 67 | 	$collapse and $result =~ s/\s*\n\s*/\n/g; | 
        
          | 68 | 	print pretty_line($_), $result, "\n", pretty_line(); | 68 | 	print pretty_line($_), $result, "\n", pretty_line(); | 
        
          | 69 | } | 69 | } | 
            
              |  |  | 70 |  | 
            
              | 71 | print "\n\n######################################################\nStart of invalid tests\n"; | 
            
              | 72 |  | 
            
              | 73 | #Test for invalid new entry | 
            
              | 74 | eval{ | 
            
              | 75 | 	C4::Scrubber->new(""); | 
            
              | 76 | 	fail("test should fail on entry of ''\n"); | 
            
              | 77 | }; | 
            
              | 78 | pass("Test should have failed on entry of '' (empty string) and it did. YAY!\n"); | 
            
              | 79 |  | 
            
              | 80 | eval{ | 
            
              | 81 | 	C4::Scrubber->new("Client"); | 
            
              | 82 | 	fail("test should fail on entry of 'Client'\n"); | 
            
              | 83 | }; | 
            
              | 84 | pass("Test should have failed on entry of 'Client' and it did. YAY!\n"); | 
            
              | 85 |  | 
            
              | 86 | print "######################################################\n"; | 
            
              | 87 |  | 
        
          | 70 | diag "done.\n"; | 88 | diag "done.\n"; | 
            
              | 71 | -  |  |  |