dbms_output.put_line('Let us remove the remaining role, and verify the creation of a DELETED level in its place.');
DELETE FROM ident_security_roles
WHERE ident_serialNumber = v_ident_user
AND role_id = v_higher_role_id;
BEGIN
SELECT sl.value INTO t_level_value FROM security_levels sl
INNER JOIN security_permission_levels spl ON spl.level_id = sl.id
INNER JOIN ident_permission_levels ipl ON ipl.permission_level_id = spl.id
WHERE ipl.ident_serialNumber = v_ident_user;
EXCEPTION
WHEN NO_DATA_FOUND THEN
dbms_output.put_line('could not find a perm level in ident_permission_levels for this user, bogus!');
RAISE TEST_FAILED;
END;
IF t_level_value <> -1 THEN
dbms_output.put_line('Bogus, expected value of -1, found: ' || t_level_value);
RAISE TEST_FAILED;
END IF;
Tuesday, February 19, 2008
Morning. Meh.
Good morning, Internets. This is what I do for work.
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment