Select Code to Download

#!/usr/local/bin/perl

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

done_testing();

# ./p.pl
4 - 2 = 2
...
1..2
# Looks like you failed 1 test of 2.