| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use Test::More 'no_plan'; | |
| BEGIN { use_ok('sneaky1') } | |
| require_ok('sneaky1'); | |
| # adapted from ../python/sneaky1_runme.py | |
| is(sneaky1::add(3,4), 7); | |
| is(sneaky1::subtract(3,4), -1); | |
| is(sneaky1::mul(3,4), 12); | |
| is(sneaky1::divide(3,4), 0); |