use strict;
use warnings;

use Test::More;

my @good = (
	'* leading asterisk',
	'trailing asterisk *',
	'multiple *** asterisk'
);

my @bad = (
	'foo',
	'',
	'^'
);

my $re = qr/\*/;

plan tests => @good + @bad;

for my $str (@good) {
	like ($str, $re, "$str matched");
}
for my $str (@bad) {
	unlike ($str, $re, "$str not matched");
}