The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;
use strict;
use warnings;

BEGIN { use_ok('App::Mowyw', 'parse_str'); };

no warnings 'once';
$App::Mowyw::Quiet = 1;

{
    # Test without Vim::TextColor first
    local @INC = ();
    local $App::Mowyw::config{quiet} = 1;
    my $ps =  parse_str('[% syntax foobar %]<argl>[% endsyntax %]', {}); 

    ok $ps !~ m/<argl>/, 'Syntax hilighting at least escapes';
}

{
    my $ps =  parse_str('[% syntax foobar %]<argl>[% endsyntax %]', {}); 

    ok $ps !~ m/<argl>/, 'Syntax hilighting at least escapes';
}