Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (17 sloc) 534 Bytes
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';
}