]> git.vpit.fr Git - perl/modules/Sub-Nary.git/blob - t/15-scalops.t
Importing Sub-Nary-0.01.tar.gz
[perl/modules/Sub-Nary.git] / t / 15-scalops.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 1;
7
8 use Sub::Nary;
9
10 my @scalops = Sub::Nary::scalops();
11 my $nbr     = Sub::Nary::scalops();
12
13 is($nbr, scalar @scalops, 'Sub::Nary::scalops return values in list/scalar context are consistent');