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