1 files changed, 15 insertions, 0 deletions
diff --git a/Examples/test-suite/perl5/rename_scope_runme.pl b/Examples/test-suite/perl5/rename_scope_runme.pl
new file mode 100755
index 0000000..71c0cfc
--- /dev/null
+++ b/Examples/test-suite/perl5/rename_scope_runme.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Test::More tests => 5;
+BEGIN { use_ok('rename_scope') }
+require_ok('rename_scope');
+
+# adapted from ../python/rename_scope_runme.py
+
+my $a = rename_scope::Natural_UP->new();
+is($a->rtest(), 1);
+my $b = rename_scope::Natural_BP->new();
+is($b->rtest(), 1);
+
+isa_ok(rename_scope->can('equals'), 'CODE');