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');