/Number-Fraction/dist/t/07_divide.t

[view plain text]

use Test::More tests => 13;
use Number::Fraction ':constants';

my $f = '1/2';
my $f2 = '1/4';

ok($f / $f2 eq '2/1');
ok($f / $f2 == 2);
ok($f / '1/4' eq '2/1');
ok($f / '1/4' == 2);
ok('1/4' / $f eq '1/2');
ok('1/4' / $f == 0.5);
ok('1/2' / '4/8' eq '1/1');
ok('1/2' / '4/8' == 1);
ok($f / 2 == 0.25);
ok($f / 0.5 == 1);
ok(2 / $f == 4);
ok(1.5 / $f == 3);
$f = eval { $f / [] };
ok($@);