Codebase list libgraphics-primitive-perl / HEAD t / 70-op-fill.t
HEAD

Tree @HEAD (Download .tar.gz)

70-op-fill.t @HEAD — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
use Test::More tests => 2;

use Graphics::Primitive::Paint::Solid;

BEGIN {
    use_ok('Graphics::Primitive::Operation::Fill');
}

my $stroke = Graphics::Primitive::Operation::Fill->new(
    paint => Graphics::Primitive::Paint::Solid->new
);
isa_ok($stroke, 'Graphics::Primitive::Operation::Fill');