- #!/usr/bin/env perl
- use strict;
- use warnings;
-
- use lib 'lib';
-
- use Test::More tests => 2;
- use App::WRT::HTML qw(:all);
-
- my $a_tag = a('hi', {href => 'https://example.com/', title => 'example'});
- # diag($a_tag);
-
- is(
- $a_tag,
- '<a href="https://example.com/" title="example">hi</a>',
- 'got a tag with attributes'
- );
-
- my $small_tag = small('text', {title => '<thing with angle brackets>'});
- # diag($small_tag);
-
- is(
- $small_tag,
- '<small title="<thing with angle brackets>">text</small>',
- 'got a tag with escaped attributes'
- );
|