The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl

use 5.010;
use strict;
use warnings;
use FindBin '$Bin';

use Test::More 0.96;
use Unix::Passwd::File qw(get_max_uid);

subtest "default" => sub {
    my $res = get_max_uid(etc_dir=>"$Bin/data/debian");
    is($res->[2], 65534);
};

DONE_TESTING:
done_testing();