/trunk/Examples/test-suite/perl5/grouping_runme.pl
Perl | 17 lines | 10 code | 5 blank | 2 comment | 0 complexity | ed6e6ad9cbbdc2e9b9b3f9322f614aaf MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Test::More tests => 6;
- BEGIN { use_ok('grouping') }
- require_ok('grouping');
- # adapted from ../python/grouping_runme.py
- is(grouping::test1(42), 42);
- isnt(eval { grouping::test2(42) }, undef);
- is(grouping::do_unary(37, $grouping::NEGATE), -37);
- $grouping::test3 = 42;
- is($grouping::test3, 42);