The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
BRICAS / Image-XBin-0.06 / t / 13-pixel.t 
use Test::More tests => 6;

BEGIN { 
    use_ok( 'Image::XBin::Pixel' );
}

my $pixel = Image::XBin::Pixel->new;

isa_ok( $pixel, 'Image::XBin::Pixel' );

$pixel->fg( 1 );
is( $pixel->fg, 1, '$pixel->fg' );

$pixel->bg( 1 );
is( $pixel->bg, 1, '$pixel->bg' );

$pixel->blink( 1 );
is( $pixel->blink, 1, '$pixel->blink' );

$pixel->char( 'A' );
is( $pixel->char, 'A', '$pixel->char' );