The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 9;

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

{
    my $format = Image::TextMode::Format->new;
    isa_ok( $format, 'Image::TextMode::Format' );

    # some defaults
    isa_ok( $format->font,    'Image::TextMode::Font::8x16' );
    isa_ok( $format->palette, 'Image::TextMode::Palette::VGA' );
    isa_ok( $format->sauce,   'Image::TextMode::SAUCE' );
}

{
    my $canvas = Image::TextMode::Canvas->new;
    isa_ok( $canvas, 'Image::TextMode::Canvas' );

    # some defaults
    is( $canvas->width,  0, 'default width' );
    is( $canvas->height, 0, 'default height' );
}