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#", "''''");