use Test::More tests => 6;
BEGIN { use_ok('Geo::Cache'); }
my $wpt = Geo::Cache->new(
lat => '37',
lon => '-85',
name => 'GC1234',
desc => 'Sample waypoint',
sym => 'Geocache',
type => 'Geocache|Traditional Cache',
time => '2004-06-12T20:48:32.0000000-07:00',
);
isa_ok( $wpt, 'Geo::Cache' );
is( $wpt->lat, 37, 'Lat' );
is( $wpt->lon, -85, 'Lon' );
is( $wpt->name, 'GC1234', 'Name' );
is( $wpt->desc, 'Sample waypoint', 'Description' );