|
#!/usr/bin/perl
BEGIN {
$| = 1;
$^W = 1;
}
my $Circumference = Data::Vitals::Circumference->new( '38"' );
isa_ok( $Circumference , 'Data::Vitals::Circumference' );
is( $Circumference ->as_string, '97cm' , 'Returned correct string form' );
is( $Circumference ->as_metric, '97cm' , 'Returned correct metric form' );
is( $Circumference ->as_imperial, '38"' , 'Returned correct imperial form' );
is( $Circumference ->as_cms, '97cm' , 'Returned correct cm size' );
is( $Circumference ->as_inches, '38"' , 'Returned original size' );
exit (0);
|