#!/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,
'hi',
'got a tag with attributes'
);
my $small_tag = small('text', {title => ''});
# diag($small_tag);
is(
$small_tag,
'text',
'got a tag with escaped attributes'
);