1 files changed, 13 insertions, 0 deletions
diff --git a/Examples/test-suite/perl5/sneaky1_runme.pl b/Examples/test-suite/perl5/sneaky1_runme.pl
new file mode 100755
index 0000000..097d446
--- /dev/null
+++ b/Examples/test-suite/perl5/sneaky1_runme.pl
@@ -0,0 +1,13 @@
+#!/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);