several testcases for perl

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10403 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/test-suite/perl5/aggregate_runme.pl

@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Test::More tests => 7;
+BEGIN { use_ok('aggregate') }
+require_ok('aggregate');
+
+# adapted from ../java/aggregate_runme.java
+
+# Confirm that move() returns correct results under normal use
+is(aggregate::move($aggregate::UP), $aggregate::UP, "UP");
+
+is(aggregate::move($aggregate::DOWN), $aggregate::DOWN, "DOWN");
+
+is(aggregate::move($aggregate::LEFT), $aggregate::LEFT, "LEFT");
+
+is(aggregate::move($aggregate::RIGHT), $aggregate::RIGHT, "RIGHT");
+
+# Confirm that move() raises an exception when the contract is violated
+eval { aggregate::move(0) };
+like($@, qr/\bRuntimeError\b/);
+