From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SHARYANTO / Unix-Passwd-File-0.01 / t / get_max_uid.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

              
#!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();