#!/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);