view release on metacpan or  search on metacpan

t/syntax.t  view on Meta::CPAN

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';
}