The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use warnings;
use strict;

=head1 DESCRIPTION

A basic test to fix point syntaxe.

=cut

use Test::More tests => 3;

use_ok('App::WIoZ::Point');


my $center = App::WIoZ::Point->new( x => 10, y => 20 );
is($center->x,10,'x set to 10');
is($center->y,20,'y set to 20');