The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 4;

BEGIN {
    use_ok('Geometry::Primitive::Ellipse');
};

my $circ = Geometry::Primitive::Ellipse->new(width => 4 , height => 2);
isa_ok($circ, 'Geometry::Primitive::Ellipse');

$circ->origin([1, 2]);
isa_ok($circ->origin, 'Geometry::Primitive::Point');

ok($circ->area =~ /^6.28/, 'area');