#!/usr/local/bin/perl

use Test::More;

print STDERR "4 - 2 = " , ( 4 - 2 ) . "\n";

cmp_ok ( 4 - 2 , '==', 2, "maths works" );

print STDERR "\n";

print STDERR "-2.3 - -0.6 = " . ( -2.3 - -0.6 ) ."\n";

cmp_ok ( -2.3 - -0.6 , '==', -1.7, "maths works" );

done_testing();