Skip to content

Commit f335d46

Browse files
PazusPavel Kaplya
Pazus
authored and
Pavel Kaplya
committed
Configuration of the schema test suites based on the annotations in the schema's packages.
ut_metadata contains procedures to scan a package for pkg annotations and annotated procedures and defines necessary types. ut_suite_manager contains procedures to process ut_metadata annotations data and configure suites hierarchies based on them. For each package a suite is created. Also by setting %suitepackage annotation of the package like %suitepackage(parent.semiparent) one can define suites hierarchies. Suite configured for the package will be nested in the virtual suite "semiparent" which will also be nested in "parent" virtual suite. ut_suite_manager.config_schema procedure scans for annotations all the packages in the specified schema and configure whole schema suites (several root suites with nested suites if present). ut_suite_manager.run_schema_suites runs all suites for the schema reconfiguring it if needed ut_suite_manager.run_current_schema_suites does the same for the current schema ut_suite_manager is set to scan package and for annotations and generate schema suite hierarchy create suite and tests by parsing package spec Added suitesetup and suite teardown to the ut_test_suite object type Created example to demonstrate how such configuration operates.
1 parent b38a08a commit f335d46

12 files changed

+885
-26
lines changed

‎examples/RunAllExamples.sql‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -13,3 +13,5 @@ prompt RunExampleTestThroughBaseClass
1313
@@RunExampleTestThroughBaseClass.sql
1414
prompt RunExampleTestSuiteWithCompositeReporter
1515
@@RunExampleTestSuiteWithCompositeReporter.sql
16+
prompt RunExampleTestAnnotationBasedForCurrentSchema
17+
@@RunExampleTestAnnotationBasedForCurrentSchema.sql

‎examples/RunExampleTestAnnotationBasedForCurrentSchema.sql‎

Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
--Shows how to create a test suite with the default reporter which is dbms_output
2+
--No tables are used for this.
3+
--Suite Management packages are when developed will make this easier.
4+
--Clear Screen
5+
Set Serveroutput On Size Unlimited format truncated
6+
set echo off
7+
--install the example unit test packages
8+
@@test_pkg1.pck
9+
@@test_pkg2.pck
10+
@@ut_custom_reporter.tps
11+
@@ut_custom_reporter.tpb
12+
13+
begin
14+
ut_suite_manager.run_cur_schema_suites_static(ut_custom_reporter(a_tab_size => 2));
15+
end;
16+
/
17+
18+
drop type ut_custom_reporter;
19+
drop package test_pkg1;
20+
drop package test_pkg2;

‎examples/test_pkg1.pck‎

Lines changed: 107 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,107 @@
1+
create or replace package test_pkg1 is
2+
3+
/*
4+
This is the correct annotation
5+
*/
6+
-- %suite(Name of suite on test_pkg1)
7+
-- %suitepackage(all.globaltests)
8+
9+
/*
10+
Such comments are skipped
11+
12+
test name
13+
%test1
14+
%test2(name=123)
15+
%test3(name2=123,tete=123)
16+
%test4(name2=123,tete)
17+
*/
18+
/*
19+
This procedure is annotated incorrectly as no correct annotations specified
20+
Procedure is skipped while suite configuration
21+
*/
22+
--test name
23+
--%test1
24+
--%test2(name=123)
25+
---- %test3(name2=123,tete=123)
26+
---- asd %test4(name2=123,tete)
27+
-- t3 t4
28+
procedure foo;
29+
30+
-- %test(Name of test1)
31+
-- %testsetup(setup_test1)
32+
-- %testteardown(teardown_test1)
33+
procedure test1;
34+
35+
-- %test(Name of test2)
36+
procedure test2;
37+
38+
-- %suitesetup
39+
procedure global_setup;
40+
41+
procedure setup_test1;
42+
43+
procedure teardown_test1;
44+
45+
-- %setup
46+
procedure def_setup;
47+
48+
-- %teardown
49+
procedure def_teardown;
50+
51+
--%suiteteardown
52+
procedure global_teardown;
53+
54+
end;
55+
/
56+
create or replace package body test_pkg1 is
57+
58+
g_val1 number;
59+
g_val2 number;
60+
61+
procedure foo is
62+
begin
63+
null;
64+
end;
65+
66+
procedure test1 is
67+
begin
68+
ut_assert.are_equal(a_msg => '1 equals 1 check', a_expected => 1, a_actual => g_val1);
69+
end;
70+
71+
procedure test2 is
72+
begin
73+
--ut_assert.are_equal(a_msg => 'null equals null check', a_expected => to_number(null), a_actual => g_val1);
74+
ut_assert.are_equal(a_msg => '2 equals 2 check', a_expected => 2, a_actual => g_val2);
75+
end;
76+
77+
procedure global_setup is
78+
begin
79+
dbms_output.put_line('setup procedure of test_pkb1');
80+
end;
81+
82+
procedure setup_test1 is
83+
begin
84+
g_val1 := 1;
85+
end;
86+
87+
procedure teardown_test1 is
88+
begin
89+
g_val1 := null;
90+
end;
91+
92+
procedure def_setup is
93+
begin
94+
g_val2 := 2;
95+
end;
96+
97+
procedure def_teardown is
98+
begin
99+
g_val2 := null;
100+
end;
101+
102+
procedure global_teardown is
103+
begin
104+
dbms_output.put_line('global teardown procedure of test_pkb1');
105+
end;
106+
end test_pkg1;
107+
/

‎examples/test_pkg2.pck‎

Lines changed: 30 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,30 @@
1+
create or replace package test_pkg2 is
2+
3+
/*
4+
This is the correct annotation
5+
*/
6+
-- %suite(Name of suite on test_pkg2)
7+
-- %suitepackage(all)
8+
9+
-- %test(Name of test1)
10+
procedure test1;
11+
12+
-- %test(Name of test2)
13+
procedure test2;
14+
15+
end;
16+
/
17+
create or replace package body test_pkg2 is
18+
19+
procedure test1 is
20+
begin
21+
ut_assert.are_equal(a_msg => '1 equals 1 check', a_expected => 1, a_actual => 1);
22+
end;
23+
24+
procedure test2 is
25+
begin
26+
ut_assert.are_equal(a_msg => '2 equals 2 check', a_expected => 2, a_actual => 2);
27+
end;
28+
29+
end test_pkg2;
30+
/

‎source/install.sql‎

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,6 @@
33
@@types/ut_composite_object.tps
44
@@types/ut_executable.tps
55
@@types/ut_assert_result.tps
6-
@@ut_metadata.pks
76
@@ut_assert.pks
87
@@types/ut_suite_reporter.tps
98
@@types/ut_reporters_list.tps
@@ -14,6 +13,8 @@
1413
@@types/ut_reporter_decorator.tps
1514
@@types/ut_dbms_output_suite_reporter.tps
1615
@@ut_utils.pks
16+
@@ut_metadata.pks
17+
@@ut_suite_manager.pks
1718

1819
@@ut_utils.pkb
1920
@@types/ut_assert_result.tpb
@@ -28,4 +29,5 @@
2829
@@types/ut_dbms_output_suite_reporter.tpb
2930
@@ut_metadata.pkb
3031
@@ut_assert.pkb
32+
@@ut_suite_manager.pkb
3133

‎source/test_pkgs.sql‎

Lines changed: 94 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,94 @@
1+
CREATE OR REPLACE PACKAGE test_tt AS
2+
3+
-- %suite(Name of suite)
4+
-- %suitepackage(all.globaltests)
5+
6+
/*
7+
test name
8+
%test1
9+
%test2(name=123)
10+
%test3(name2=123,tete=123)
11+
%test4(name2=123,tete)
12+
*/
13+
--test name
14+
--%test1
15+
--%test2(name=123)
16+
---- %test3(name2=123,tete=123)
17+
---- asd %test4(name2=123,tete)
18+
-- t3 t4
19+
PROCEDURE foo;
20+
21+
-- %test(Name of test1)
22+
-- %testsetup(setup_test1)
23+
-- %testteardown(teardown_test1)
24+
PROCEDURE test1;
25+
26+
-- %test(Name of test2)
27+
PROCEDURE test2;
28+
29+
-- %suitesetup
30+
PROCEDURE setup;
31+
32+
PROCEDURE setup_test1;
33+
34+
PROCEDURE teardown_test1;
35+
36+
-- %setup
37+
procedure def_setup;
38+
39+
-- %teardown
40+
procedure def_teardown;
41+
42+
--%suiteteardown
43+
PROCEDURE global_teardown;
44+
45+
END;
46+
/
47+
48+
CREATE OR REPLACE PACKAGE test_tt2 AS
49+
50+
-- %suite(Name of suite)
51+
-- %suitepackage(all.globaltests)
52+
53+
54+
-- %test(Name of test2)
55+
PROCEDURE test2;
56+
57+
-- %suitesetup
58+
PROCEDURE setup;
59+
60+
-- %setup
61+
procedure def_setup;
62+
63+
-- %teardown
64+
procedure def_teardown;
65+
66+
--%suiteteardown
67+
PROCEDURE global_teardown;
68+
69+
END;
70+
/
71+
72+
CREATE OR REPLACE PACKAGE test_tt3 AS
73+
74+
-- %suite(Name of suite)
75+
-- %suitepackage(all)
76+
77+
78+
-- %test(Name of test2)
79+
PROCEDURE test2;
80+
81+
-- %suitesetup
82+
PROCEDURE setup;
83+
84+
-- %setup
85+
procedure def_setup;
86+
87+
-- %teardown
88+
procedure def_teardown;
89+
90+
--%suiteteardown
91+
PROCEDURE global_teardown;
92+
93+
END;
94+
/

‎source/test_tt.spc‎

Lines changed: 46 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,46 @@
1+
CREATE OR REPLACE PACKAGE test_tt AS
2+
3+
-- %suite(Name of suite)
4+
-- %suitepackage(all.globaltests)
5+
6+
/*
7+
test name
8+
%test1
9+
%test2(name=123)
10+
%test3(name2=123,tete=123)
11+
%test4(name2=123,tete)
12+
*/
13+
--test name
14+
--%test1
15+
--%test2(name=123)
16+
---- %test3(name2=123,tete=123)
17+
---- asd %test4(name2=123,tete)
18+
-- t3 t4
19+
PROCEDURE foo;
20+
21+
-- %test(Name of test1)
22+
-- %testsetup(setup_test1)
23+
-- %testteardown(teardown_test1)
24+
PROCEDURE test1;
25+
26+
-- %test(Name of test2)
27+
PROCEDURE test2;
28+
29+
-- %suitesetup
30+
PROCEDURE setup;
31+
32+
PROCEDURE setup_test1;
33+
34+
PROCEDURE teardown_test1;
35+
36+
-- %setup
37+
procedure def_setup;
38+
39+
-- %teardown
40+
procedure def_teardown;
41+
42+
--%suiteteardown
43+
PROCEDURE global_teardown;
44+
45+
END;
46+
/

‎source/uninstall.sql‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,5 @@
1+
drop package ut_suite_manager;
2+
13
drop package ut_assert;
24

35
drop package ut_metadata;

0 commit comments

Comments
 (0)