# t/02_specified.t - tests for specified length
use Test::More tests => 55;
use strict;
use warnings;
BEGIN { use_ok( 'String::PerlIdentifier' ); }
use lib ("t/");
use Auxiliary qw{ _first_and_subsequent };
our (%eligibles, %chars);
require "t/eligible_chars";
specified_length_tests($_) for (3..20);
sub specified_length_tests {
my $specified = shift;
my $varname = make_varname($specified);
my $length = length($varname);
is( $length, $specified, "length of string is $specified as specified");
_first_and_subsequent($varname);
}