use strict;
use warnings;
use Test::More tests => 3;

use Perl6::Form;

my $var = " a b c ";

my $got1 = form "#{'(8+)'}#", $var;
is( $got1, "#$var#", "'(8+)'");

my $got2 = form "#{'+}#", $var;
is( $got2, "#$var#", "'+");

my $got3 = form "#{''''}#", $var;
is( $got3, "#$var#", "''''");

##</code><code>##

1..3
not ok 1 - '(8+)'
#   Failed test ''(8+)''
#   at /home/boldra/form_test.pl line 10.
#          got: '#a b c   #
# '
#     expected: '# a b c #'
not ok 2 - '+
#   Failed test ''+'
#   at /home/boldra/form_test.pl line 13.
#          got: '#a b c#
# '
#     expected: '# a b c #'
not ok 3 - ''''
#   Failed test ''''''
#   at /home/boldra/form_test.pl line 16.
#          got: '# a b c#
# '
#     expected: '# a b c #'
# Looks like you failed 3 tests of 3.