The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#!/perl
use strict;
use File::Temp qw/ tempdir /;
use Test::More 'no_plan';
ok( my $strip = App::Wubot::Reactor::ImageStrip->new(),
"Creating new console reactor object"
);
is( $strip->react( { body => 'some test body' }, { field => 'body' } )->{body},
'some test body',
"Calling image remover on body with no image"
);
is( $strip->react( { body => 'some <img src="http://x.com/test.png"></img> test body' }, { field => 'body' } )->{body},
'some test body',
"Calling image remover on body with no image"
);
is( $strip->react( { body => 'some <img src="http://x.com/test.png" border="0" ismap="true"></img> test body' }, { field => 'body' } )->{body},
'some test body',
"Calling image remover on body with no image"
);