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