Thanks to visit codestin.com
Credit goes to github.com

Skip to content

Commit ab87852

Browse files
jgebaljgebal
committed
Added tests for blob and clob assertions on to_equal
Renamed o_be_matching to to_match Renamed ut_assertion_varchar to ut_assertion_varchar2
1 parent 8e9769d commit ab87852

30 files changed

Lines changed: 109 additions & 23 deletions

File tree

‎source/assertions/ut.pkb‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10,9 +10,9 @@ create or replace package body ut is
1010
return ut_assertion_number(a_actual);
1111
end;
1212

13-
function expect(a_actual in varchar2, a_message varchar2 := null) return ut_assertion_varchar is
13+
function expect(a_actual in varchar2, a_message varchar2 := null) return ut_assertion_varchar2 is
1414
begin
15-
return ut_assertion_varchar(a_actual);
15+
return ut_assertion_varchar2(a_actual);
1616
end;
1717

1818
function expect(a_actual in clob, a_message varchar2 := null) return ut_assertion_clob is

‎source/assertions/ut.pks‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ create or replace package ut authid current_user as
55

66
function expect(a_actual in number, a_message varchar2 := null) return ut_assertion_number;
77

8-
function expect(a_actual in varchar2, a_message varchar2 := null) return ut_assertion_varchar;
8+
function expect(a_actual in varchar2, a_message varchar2 := null) return ut_assertion_varchar2;
99

1010
function expect(a_actual in clob, a_message varchar2 := null) return ut_assertion_clob;
1111

‎source/assertions/ut_assertion_clob.tpb‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@ create or replace type body ut_assertion_clob as
3131
self.build_assert_result(l_condition, 'to be like', ut_utils.to_string(a_mask)||l_escape_msg);
3232
end;
3333

34-
member procedure to_be_matching(self in ut_assertion_clob, a_pattern in varchar2, a_modifier in varchar2 default null) is
34+
member procedure to_match(self in ut_assertion_clob, a_pattern in varchar2, a_modifier in varchar2 default null) is
3535
l_modifiers_msg varchar2(100) := case when a_modifier is not null then ' using modifiers '''||a_modifier||'''' end;
3636
begin
3737
self.build_assert_result((regexp_like(self.actual, a_pattern, a_modifier)), 'to be matching', ut_utils.to_string(a_pattern)||l_modifiers_msg);

‎source/assertions/ut_assertion_clob.tps‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,6 @@ create or replace type ut_assertion_clob under ut_assertion
44
constructor function ut_assertion_clob(self in out nocopy ut_assertion_clob, a_actual clob, a_message varchar2 default null) return self as result,
55
overriding member procedure to_equal(self in ut_assertion_clob, a_expected clob, a_nulls_are_equal boolean := null),
66
member procedure to_be_like(self in ut_assertion_clob, a_mask in varchar2, a_escape_char in varchar2 := null),
7-
member procedure to_be_matching(self in ut_assertion_clob, a_pattern in varchar2, a_modifier in varchar2 := null)
7+
member procedure to_match(self in ut_assertion_clob, a_pattern in varchar2, a_modifier in varchar2 := null)
88
)
99
/

‎source/assertions/ut_assertion_varchar.tps‎

Lines changed: 0 additions & 9 deletions
This file was deleted.

source/assertions/ut_assertion_varchar.tpb renamed to source/assertions/ut_assertion_varchar2.tpb

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
1-
create or replace type body ut_assertion_varchar as
1+
create or replace type body ut_assertion_varchar2 as
22

3-
constructor function ut_assertion_varchar(self in out nocopy ut_assertion_varchar, a_actual varchar2, a_message varchar2 default null) return self as result is
3+
constructor function ut_assertion_varchar2(self in out nocopy ut_assertion_varchar2, a_actual varchar2, a_message varchar2 default null) return self as result is
44
begin
55
self.data_type := 'varchar2';
66
self.message := a_message;
@@ -10,16 +10,16 @@ create or replace type body ut_assertion_varchar as
1010
return;
1111
end;
1212

13-
overriding member procedure to_equal(self in ut_assertion_varchar, a_expected varchar2, a_nulls_are_equal boolean := null) is
13+
overriding member procedure to_equal(self in ut_assertion_varchar2, a_expected varchar2, a_nulls_are_equal boolean := null) is
1414
begin
15-
ut_utils.debug_log('ut_assertion_varchar.to_equal(self in ut_assertion, a_expected varchar2)');
15+
ut_utils.debug_log('ut_assertion_varchar2.to_equal(self in ut_assertion, a_expected varchar2)');
1616
self.build_assert_result(
1717
( (a_expected is null and self.actual is null and coalesce(a_nulls_are_equal, ut_assert_processor.nulls_are_equal()))
1818
or (a_expected = self.actual)), 'to equal', ut_utils.to_string(a_expected)
1919
);
2020
end;
2121

22-
member procedure to_be_like(self in ut_assertion_varchar, a_mask in varchar2, a_escape_char in varchar2 := null) is
22+
member procedure to_be_like(self in ut_assertion_varchar2, a_mask in varchar2, a_escape_char in varchar2 := null) is
2323
l_condition boolean;
2424
l_escape_msg varchar2(100) := case when a_escape_char is not null then ' using escape '''||a_escape_char||'''' end;
2525
begin
@@ -31,7 +31,7 @@ create or replace type body ut_assertion_varchar as
3131
self.build_assert_result(l_condition, 'to be like', ut_utils.to_string(a_mask)||l_escape_msg);
3232
end;
3333

34-
member procedure to_be_matching(self in ut_assertion_varchar, a_pattern in varchar2, a_modifier in varchar2 default null) is
34+
member procedure to_match(self in ut_assertion_varchar2, a_pattern in varchar2, a_modifier in varchar2 default null) is
3535
l_modifiers_msg varchar2(100) := case when a_modifier is not null then ' using modifiers '''||a_modifier||'''' end;
3636
begin
3737
self.build_assert_result((regexp_like(self.actual, a_pattern, a_modifier)), 'to be matching', ut_utils.to_string(a_pattern)||l_modifiers_msg);

‎source/assertions/ut_assertion_varchar2.tps‎

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
create or replace type ut_assertion_varchar2 under ut_assertion
2+
(
3+
actual varchar2(32767 char),
4+
constructor function ut_assertion_varchar2(self in out nocopy ut_assertion_varchar2, a_actual varchar2, a_message varchar2 default null) return self as result,
5+
overriding member procedure to_equal(self in ut_assertion_varchar2, a_expected varchar2, a_nulls_are_equal boolean := null),
6+
member procedure to_be_like(self in ut_assertion_varchar2, a_mask in varchar2, a_escape_char in varchar2 := null),
7+
member procedure to_match(self in ut_assertion_varchar2, a_pattern in varchar2, a_modifier in varchar2 := null)
8+
)
9+
/

‎source/install.sql‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@ whenever oserror exit failure rollback
2222
@@assertions/ut_assert_processor.pks
2323
@@assertions/ut_assertion.tps
2424
@@assertions/ut_assertion_number.tps
25-
@@assertions/ut_assertion_varchar.tps
25+
@@assertions/ut_assertion_varchar2.tps
2626
@@assertions/ut_assertion_clob.tps
2727
@@assertions/ut_assertion_blob.tps
2828
@@assertions/ut.pks
@@ -45,7 +45,7 @@ whenever oserror exit failure rollback
4545
@@assertions/ut_assert_processor.pkb
4646
@@assertions/ut_assertion.tpb
4747
@@assertions/ut_assertion_number.tpb
48-
@@assertions/ut_assertion_varchar.tpb
48+
@@assertions/ut_assertion_varchar2.tpb
4949
@@assertions/ut_assertion_clob.tpb
5050
@@assertions/ut_assertion_blob.tpb
5151
@@assertions/ut.pkb

‎source/uninstall.sql‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@ drop type ut_assertion_blob;
88

99
drop type ut_assertion_clob;
1010

11-
drop type ut_assertion_varchar;
11+
drop type ut_assertion_varchar2;
1212

1313
drop type ut_assertion_number;
1414

‎tests/RunAll.sql‎

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -120,6 +120,28 @@ set serveroutput on size unlimited format truncated
120120
@@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParseAnnotationMixedWithWrongBeforeProcedure.sql
121121
@@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParseComplexPackage.sql
122122

123+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.GivesFailureForDifferentValues.sql
124+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.GivesFailureWhenActualIsNull.sql
125+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.GivesFailureWhenBothValuesAreNullAndArgumentAreNullEqualIsFalse.sql
126+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.GivesFailureWhenBothValuesAreNullAndConfigurationAreNullEqualIsFalse.sql
127+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.GivesFailureWhenExpectedIsNull.sql
128+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.GivesSuccessForEqualValues.sql
129+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.GivesSuccessWhenBothValuesAreNull.sql
130+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.GivesSuccessWhenBothValuesAreNullAndArgumentAreNullEqualIsTrue.sql
131+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.PutsNullIntoStringValueWhenActualIsNull.sql
132+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.blob.PutsNullIntoStringValueWhenExpectedIsNull.sql
133+
134+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.GivesFailureForDifferentValues.sql
135+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.GivesFailureWhenActualIsNull.sql
136+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.GivesFailureWhenBothValuesAreNullAndArgumentAreNullEqualIsFalse.sql
137+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.GivesFailureWhenBothValuesAreNullAndConfigurationAreNullEqualIsFalse.sql
138+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.GivesFailureWhenExpectedIsNull.sql
139+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.GivesSuccessForEqualValues.sql
140+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.GivesSuccessWhenBothValuesAreNull.sql
141+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.GivesSuccessWhenBothValuesAreNullAndArgumentAreNullEqualIsTrue.sql
142+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.PutsNullIntoStringValueWhenActualIsNull.sql
143+
@@lib/RunTest.sql asssertions/ut.expect.to_equal.clob.PutsNullIntoStringValueWhenExpectedIsNull.sql
144+
123145
@@lib/RunTest.sql asssertions/ut.expect.to_equal.number.GivesFailureForDifferentValues.sql
124146
@@lib/RunTest.sql asssertions/ut.expect.to_equal.number.GivesSuccessForEqualValues.sql
125147
@@lib/RunTest.sql asssertions/ut.expect.to_equal.number.GivesSuccessWhenBothValuesAreNull.sql

0 commit comments

Comments
 (0)