Lines 44-50
At the end here, I actually have some regular text.
Link Here
|
44 |
|; |
44 |
|; |
45 |
|
45 |
|
46 |
print pretty_line("Original HTML:"), $html, "\n", pretty_line(); |
46 |
print pretty_line("Original HTML:"), $html, "\n", pretty_line(); |
47 |
$collapse and diag "Note: scrubber test output will have whitespace collapsed for readability\n"; |
47 |
$collapse and print "Note: scrubber test output will have whitespace collapsed for readability\n"; |
48 |
ok($scrubber = C4::Scrubber->new(), "Constructor: C4::Scrubber->new()"); |
48 |
ok($scrubber = C4::Scrubber->new(), "Constructor: C4::Scrubber->new()"); |
49 |
|
49 |
|
50 |
isa_ok($scrubber, 'HTML::Scrubber', 'Constructor returns HTML::Scrubber object'); |
50 |
isa_ok($scrubber, 'HTML::Scrubber', 'Constructor returns HTML::Scrubber object'); |
Lines 85-88
pass("Test should have failed on entry of 'Client' and it did. YAY!\n");
Link Here
|
85 |
|
85 |
|
86 |
print "######################################################\n"; |
86 |
print "######################################################\n"; |
87 |
|
87 |
|
88 |
diag "done.\n"; |
88 |
print "done.\n"; |
89 |
- |
|
|