Fixed install scripts.

Fixed examples and old tests.

Author: jgebal

examples/RunExpectations.sql

@@ -11,9 +11,11 @@ set echo off
 @@demo_expectations.pck
 
 begin
- ut_coverage.coverage_start_develop();
+ ut_coverage.coverage_start();
+ ut_coverage.set_develop_mode(true);
  ut.run();
- ut_coverage.coverage_stop_develop();
+ ut_coverage.set_develop_mode(false);
+ ut_coverage.coverage_stop();
 end;
 /
 

old_tests/RunAll.sql

@@ -34,7 +34,8 @@ create table ut$test_table (val varchar2(1));
 
 --Start coverage in develop mode (coverage for utPLSQL framework)
 --Regular coverage excludes the framework
-exec ut_coverage.coverage_start_develop();
+exec ut_coverage.coverage_start();
+exec ut_coverage.set_develop_mode(true);
 
 @@lib/RunTest.sql ut_expectation_processor/who_called_expectation.parseStackTrace.sql
 @@lib/RunTest.sql ut_expectation_processor/who_called_expectation.parseStackTraceWith0x.sql
@@ -449,7 +450,8 @@ begin
  l_reporter.after_calling_run(l_test_run);
  l_reporter.on_finalize(l_test_run);
 
- ut_coverage.coverage_stop_develop();
+ ut_coverage.set_develop_mode(false);
+ ut_coverage.coverage_stop();
 
  --run for the second time to get the coverage report
  l_reporter := ut_coverage_html_reporter(a_project_name => 'utPLSQL v3');

source/core/coverage/dbms_plssqlcode.sql

@@ -1,6 +1,8 @@
 begin
  $if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then
  dbms_plsql_code_coverage.create_coverage_tables(force_it => true);
+ $else
+ null;
  $end
 end;
 /

source/core/coverage/ut_coverage.pkb

@@ -157,7 +157,6 @@ create or replace package body ut_coverage is
  if not is_develop_mode() and not g_is_started then
  $if dbms_db_version.version = 12 and dbms_db_version.release >= 2 or dbms_db_version.version > 12 $then
  ut_coverage_helper_block.coverage_start( l_run_comment, g_coverage_id(gc_block_coverage) );
--- g_coverage_id(gc_block_coverage) := dbms_plsql_code_coverage.start_coverage( l_run_comment );
  $end
  ut_coverage_helper_profiler.coverage_start( l_run_comment, g_coverage_id(gc_proftab_coverage) );
  coverage_pause();

source/create_synonyms_and_grants_for_public.sql

@@ -93,6 +93,8 @@ begin
  execute immediate 'grant select, insert, delete, update on &&ut3_owner..dbmspcc_blocks to public';
  execute immediate 'grant select, insert, delete, update on &&ut3_owner..dbmspcc_runs to public';
  execute immediate 'grant select, insert, delete, update on &&ut3_owner..dbmspcc_units to public';
+ $else
+ null;
  $end
 end;
 /
@@ -148,6 +150,8 @@ begin
  execute immediate 'create public synonym dbmspcc_blocks for &&ut3_owner..dbmspcc_blocks';
  execute immediate 'create public synonym dbmspcc_runs for &&ut3_owner..dbmspcc_runs';
  execute immediate 'create public synonym dbmspcc_units for &&ut3_owner..dbmspcc_units';
+ $else
+ null;
  $end
 end;
 /

source/create_synonyms_and_grants_for_user.sql

@@ -113,8 +113,10 @@ begin
  execute immediate 'grant select, insert, delete, update on &&ut3_owner..dbmspcc_blocks to &ut3_user';
  execute immediate 'grant select, insert, delete, update on &&ut3_owner..dbmspcc_runs to &ut3_user';
  execute immediate 'grant select, insert, delete, update on &&ut3_owner..dbmspcc_units to &ut3_user';
+ $else
+ null;
  $end
- end;
+end;
 /
 
 
@@ -169,6 +171,8 @@ begin
  execute immediate 'create or replace synonym &ut3_user..dbmspcc_blocks for &&ut3_owner..dbmspcc_blocks';
  execute immediate 'create or replace synonym &ut3_user..dbmspcc_runs for &&ut3_owner..dbmspcc_runs';
  execute immediate 'create or replace synonym &ut3_user..dbmspcc_units for &&ut3_owner..dbmspcc_units';
+ $else
+ null;
  $end
- end;
+end;
 /