Group
Extension

Matches 2

Geo-Ellipsoid ( P/PJ/PJACKLAM/Geo-Ellipsoid-1.15.tar.gz, PJACKLAM, 2021; MetaCPAN )
Geo-Ellipsoid/t/01-create.t ( view source; MetaCPAN )
Number::Delta relative => 1e-6;
use Geo::Ellipsoid;

my $e1 = Geo::Ellipsoid->new(ell => 'AIRY');
isnt( $e1, undef, 'object is defined' );
isa_ok( $e1, 'Geo::Ellipsoid' );
is( $e1->{ellipsoid}, 'AIRY'
oids{'AIRY'}, 'ellipsoid "AIRY" exists' );

my $e2 = Geo::Ellipsoid->new(ell => 'AIRY-MODIFIED');
isnt( $e2, undef, 'object is defined' );
isa_ok( $e2, 'Geo::Ellipsoid' );
is( $e2->{ellipsoid}, 'AIRY-
FIED'}, 'ellipsoid "AIRY-MODIFIED" exists' );

my $e3 = Geo::Ellipsoid->new(ell => 'AUSTRALIAN');
isnt( $e3, undef, 'object is defined' );
isa_ok( $e3, 'Geo::Ellipsoid' );
is( $e3->{ellipsoid}, 'AUSTR
Geo-Ellipsoid ( P/PJ/PJACKLAM/Geo-Ellipsoid-1.15.tar.gz, PJACKLAM, 2021; MetaCPAN )
Geo-Ellipsoid/t/02-defaults.t ( view source; MetaCPAN )
{angle_unit}, 'degrees',
    'default angle unit is "degrees"' );
my $e3 = Geo::Ellipsoid->new();
isnt( $e3, undef, 'object is defined' );
isa_ok( $e3, 'Geo::Ellipsoid' );
is( $e3->{ellipsoid}, 'AIRY'
{angle_unit}, 'degrees',
    'default angle unit is "degrees"' );
my $e4 = Geo::Ellipsoid->new();
isnt( $e4, undef, 'object is defined' );
isa_ok( $e4, 'Geo::Ellipsoid' );
is( $e4->{ellipsoid}, 'AIRY-
{angle_unit}, 'degrees',
    'default angle unit is "degrees"' );
my $e5 = Geo::Ellipsoid->new();
isnt( $e5, undef, 'object is defined' );
isa_ok( $e5, 'Geo::Ellipsoid' );
is( $e5->{ellipsoid}, 'AUSTR

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.