Prado\Security\TUser::isInRole PHP Method

    public function isInRole($role)
    {
        foreach ($this->getRoles() as $r) {
            if (strcasecmp($role, $r) === 0) {
                return true;
            }
        }
        return false;
    }

 public function testIsInRole()
 {
     $user = new TUser(self::$mgr);
     $user->setRoles(array('Administrator', 'Writer'));
     // Roles are case insensitive
     self::assertTrue($user->IsInRole('writer'));
     self::assertTrue($user->IsInRole('Writer'));
     self::assertFalse($user->isInRole('Reader'));
 }