anchor.diff:      ?assertEqual({executed, 0}, DropFunStmt:exec_stmt()),
       ?assertEqual(ok, DropFunStmt:close()).
   
  -procedure_test({_, OciSession}) ->
  -    ?ELog("+----------------------------------------------------------------+"),
  -    ?ELog("|                       procedure_test                           |"),
  +procedure_scalar_test({_, OciSession}) ->
  +    ?ELog("+----------------------------------------------------------------+"),
  +    ?ELog("|                     procedure_scalar_test                      |"),
       ?ELog("+----------------------------------------------------------------+"),
   
       CreateProcedure = OciSession:prep_sql(<<"
  
positive.code:         begin
              p_result := p_first + to_number(p_second);
              p_second := 'The sum is ' || to_char(p_result);
          end;
          ">>),
      ?assertMatch({?PORT_MODULE, statement, _, _, _}, CreateProcedure),
      ?assertEqual({executed, 0}, CreateProcedure:exec_stmt()),
  
negative.code:             , fun lob_test/1
              , fun describe_test/1
              , fun function_test/1
              , fun procedure_scalar_test/1
              , fun procedure_cur_test/1
          ]}
      }}.
  
  