#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Test::More tests => 4; | |
BEGIN { use_ok('typename') } | |
require_ok('typename'); | |
# adapted from ../python/typename_runme.py | |
my $f = typename::Foo->new(); | |
my $b = typename::Bar->new(); | |
my $x = typename::twoFoo($f); | |
is($x, 4.3656); | |
my $y = typename::twoBar($b); | |
is($y, 84); | |
# I would like this test better if I could pass in a float to the | |
# integer test and see it lose precision. |