use Test::More tests => 7;

use strict;
use warnings;

use_ok( 'Image::TextMode::Format::ANSI' );

my $ansi = Image::TextMode::Format::ANSI->new;
isa_ok( $ansi->reader, 'Image::TextMode::Reader::ANSI::XS' );
$ansi->read( "t/data/blink.ans" );

isa_ok( $ansi, 'Image::TextMode::Format::ANSI' );
is( $ansi->width,  4, "blink.ans width()" );
is( $ansi->height, 1, "blink.ans height()" );

is( $ansi->render_options->{ blink_mode }, 0, "iCEColor On" );

is_deeply(
    $ansi->pixeldata,
    [   [   { char => 'T', attr => 8 },
            { char => 'E', attr => 207 },
            { char => 'S', attr => 68 },
            { char => 'T', attr => 35 },
        ]
    ],
    "blink.ans pixeldata"
);