use strict;
use Test::More tests => 2;
BEGIN { use_ok('HTML::Menu::Select', 'menu') };
SKIP: {
eval "require Apache::Util";
if ($@) {
skip "Apache::Util not available", 1;
}
die "Apache::Util does not appear to be loaded"
unless exists $::INC{'Apache/Util.pm'};
my $html = menu(
name => ' < ',
value => [' > '],
);
my $regex1 = '<select name=" < ">';
my $regex2 = '<option value=" > "> > </option>';
my $regex3 = '</select>';
ok( $html =~ /\Q$regex1\E\s*\Q$regex2\E\s*\Q$regex3\E/s );
}