Help language development. Donate to The Perl Foundation

Object::Permission::Group cpan:JSTOWE last updated on 2021-04-02

t/020-basic.t
#!raku

use v6;

use Test;

use Unix::Groups;
use Object::Permission::Group;

isa-ok $*AUTH-USER, Object::Permission::Group, '$*AUTH-USER is set correctly';

my @groups = Unix::Groups.new.groups-for-user($*USER.Str).map(-> $g { $g.Str });

ok $*AUTH-USER.permissions.sort.list ~~ @groups.sort.list, "and the permissions are the same as the users groups";

done-testing;
# vim: expandtab shiftwidth=4 ft=raku