Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (11 sloc) 0.364 kB
use strict;
use warnings;
use Test::More;
use Text::VimColor;
my $tie = 'Tie::StdHandle';
plan skip_all => "$tie required for this test"
unless eval "require $tie";
plan tests => 1;
tie *STDOUT, $tie;
my $marked = Text::VimColor->new(filetype => 'perl', string => "1\n")->marked;
is_deeply $marked, [[Constant => 1], ['', "\n"]], 'marked with tied handle';
Jump to Line
Something went wrong with that request. Please try again.