/trunk/Examples/test-suite/perl5/grouping_runme.pl

 1#!/usr/bin/perl
 2use strict;
 3use warnings;
 4use Test::More tests => 6;
 5BEGIN { use_ok('grouping') }
 6require_ok('grouping');
 7
 8# adapted from ../python/grouping_runme.py
 9
10is(grouping::test1(42), 42);
11
12isnt(eval { grouping::test2(42) }, undef);
13
14is(grouping::do_unary(37, $grouping::NEGATE), -37);
15
16$grouping::test3 = 42;
17is($grouping::test3, 42);