Anchor words to replace in processReplacements. Fixes bug #11939.
This commit is contained in:
parent
59e848c6a8
commit
e66092deaa
3 changed files with 15 additions and 11 deletions
5
t/HTML.t
5
t/HTML.t
|
|
@ -129,6 +129,7 @@ my @htmlTextSets = (
|
|||
my $numTests = scalar @filterSets
|
||||
+ scalar @macroParamSets
|
||||
+ scalar @htmlTextSets
|
||||
+ 3
|
||||
;
|
||||
|
||||
plan tests => $numTests;
|
||||
|
|
@ -147,3 +148,7 @@ foreach my $testSet (@htmlTextSets) {
|
|||
my $text = WebGUI::HTML::html2text($testSet->{inputText});
|
||||
is($text, $testSet->{output}, $testSet->{comment});
|
||||
}
|
||||
|
||||
is(WebGUI::HTML::processReplacements($session, 'grass'), 'grass', 'processReplacements: grass is not replaced');
|
||||
is(WebGUI::HTML::processReplacements($session, 'shitake'), 'shitake', '... shitake is not replaced');
|
||||
is(WebGUI::HTML::processReplacements($session, 'This is shit.'), 'This is crap.', '... shit is replaced');
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue