Skip to content

Commit

Permalink
Fix a smart match/! binding problem
Browse files Browse the repository at this point in the history
  • Loading branch information
perlDreamer committed Sep 22, 2010
1 parent d9aaa70 commit 93b30c6
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion t/Group.t
Expand Up @@ -485,7 +485,7 @@ is( $mob[0]->isInGroup($gY->getId), 1, 'mob[0] is in group Y after setting dbQue
is( $mob[0]->isInGroup($gZ->getId), 1, 'mob[0] isInGroup Z');

ok( $mob[0]->userId ~~ $gY->getAllUsers, 'mob[0] in list of group Y users');
ok( ! $mob[0]->userId ~~ $gZ->getUsers, 'mob[0] not in list of group Z users');
ok( ! ($mob[0]->userId ~~ $gZ->getUsers), 'mob[0] not in list of group Z users');

ok( $mob[0]->userId ~~ $gZ->getAllUsers, 'mob[0] in list of group Z users, recursively');

Expand Down

0 comments on commit 93b30c6

Please sign in to comment.