|
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 |
- |
|
|