use strict; use warnings; use Test::Base; use Moxy; sub _rewrite { Moxy::rewrite_html('http://localhost:9999/', shift, 'http://relative.example.jp/path/to?foo=bar&bar=baz#foobar'); } sub remove_crlf { my $x = shift; $x =~ s/[\r\n]//g; $x; } filters { input => ['_rewrite', 'remove_crlf'], expected => ['chomp'], }; plan tests => 1*blocks; run_is input => 'expected'; __END__ === --- input bar --- expected bar === relative --- input bar --- expected bar === upper case tag --- input bar --- expected bar === --- input bar --- expected bar === no href. --- input bar --- expected bar === --- input
--- expected
=== relative --- input
--- expected
=== relative img --- input --- expected === abs img --- input --- expected === p img --- input

foo

--- expected

foo

=== mailto --- input bar --- expected bar === tel: --- input bar --- expected bar