René's URL Explorer Experiment

{"@context":"https://schema.org","@type":"DiscussionForumPosting","headline":"--%throws annotation named package constant/variable not recognized","articleBody":"When a test is executed, the named constant is being searched in scope of current user (user executing the tests.\r\nThis is not how it is expected to work.\r\n\r\nExample of the problem\r\n```sql\r\ncreate or replace package user1.error_codes as\r\n  some_error constant integer := -20001;\r\nend;\r\n/\r\n\r\ncreate or replace package user1.main_package as\r\n  function the_proc (a number , b number ) return number;\r\nend;\r\n/\r\n\r\ncreate or replace package body user1.main_package as\r\n  function the_proc(a number , b number ) return number is\r\n  begin\r\n     if b = 0 then\r\n        raise_application_error(error_codes.some_error, 'Cannot use \"0\"');\r\n     end if;\r\n     return a/b;\r\n  end;\r\nend;\r\n/\r\n\r\ncreate or replace package user1.ut_the_code as\r\n  --%suite\r\n\r\n  --%test\r\n  --%throws(error_codes.some_error)\r\n  procedure the_test;\r\n\r\nend;\r\n/\r\n\r\ncreate or replace package body user1.ut_the_code as\r\n  procedure the_test is\r\n    y number;\r\n  begin\r\n    y := main_package.the_proc (1,0);\r\n  end;\r\nend;\r\n/\r\n\r\n```\r\n\r\nThe above test will succeed when called from schema user1.\r\n```\r\nut_the_code\r\n  the_test [.019 sec]\r\n\r\nFinished in .027852 seconds\r\n1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)\r\n```\r\n\r\nIf called from user2, \r\n```\r\nut_the_code\r\n  the_test [.007 sec] (FAILED - 1)\r\n\r\nFailures:\r\n\r\n  1) the_test\r\n      ORA-20001: Cannot use \"0\"\r\n      ORA-06512: at \"USER1.MAIN_PACKAGE\", line 5\r\n      ORA-06512: at \"USER1.UT_THE_CODE\", line 5\r\n      ORA-06512: at line 6\r\n\r\nWarnings:\r\n\r\n  1) ut_the_code.the_test\r\n      Invalid parameter value \"error_codes.some_error\" for \"--%throws\" annotation. Parameter ignored.\r\n      at package \"USER1.UT_THE_CODE.THE_TEST\", line 4\r\n\r\nFinished in .010336 seconds\r\n1 tests, 0 failed, 1 errored, 0 disabled, 1 warning(s)\r\n```\r\n\r\n\r\nThis is because the value of `--%throws` annotation is evaluated at runtime within the scope of the user running the code.\r\n\r\nA change is needed so that the value is evaluated in scope of the executed UT package schema.\r\n\r\nIdeally, we should also allow for below syntax to be valid:\r\n```sql\r\ncreate or replace package user1.ut_the_code as\r\n  --%suite\r\n\r\n  some_error constant integer := -20003;\r\n  \r\n  --%test\r\n  --%throws(some_error)\r\n  procedure the_test;\r\n\r\nend;\r\n/\r\n```","author":{"url":"https://github.com/jgebal","@type":"Person","name":"jgebal"},"datePublished":"2022-08-02T19:18:23.000Z","interactionStatistic":{"@type":"InteractionCounter","interactionType":"https://schema.org/CommentAction","userInteractionCount":1},"url":"https://github.com/1223/utPLSQL/issues/1223"}