Skip to content

Commit 0ec46e9

Browse files
jgebaljgebal
committed
Added boolean assertion be_true.
1 parent 68e0f2e commit 0ec46e9

127 files changed

Lines changed: 536 additions & 644 deletions

File tree

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

‎examples/RunAllExamples.sql‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
Clear Screen
22
set echo off
33
set feedback off
4+
set linesize 1000
45
prompt RunExampleComplexSuiteWithCustomDBMSOutputReporter
56
@@RunExampleComplexSuiteWithCustomDBMSOutputReporter.sql
67
prompt RunExampleTestSuite

‎examples/RunExpectations.sql‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@
33
--Suite Management packages are when developed will make this easier.
44
--Clear Screen
55
Set Serveroutput On Size Unlimited format truncated
6+
set linesize 1000
67
set echo off
78
--install the example unit test packages
89
@@demo_expectations.pck
@@ -15,5 +16,5 @@ end;
1516
/
1617

1718
drop type ut_custom_reporter;
18-
drop package demo_expectations;
19+
--drop package demo_expectations;
1920

‎examples/demo_expectations.pck‎

Lines changed: 121 additions & 206 deletions
Original file line numberDiff line numberDiff line change
@@ -2,222 +2,137 @@ create or replace package demo_expectations is
22

33
-- %suite(Demoing asserts)
44

5-
-- %test(success of equal varchar)
6-
procedure test1;
5+
-- %test(demo of failure for to_equal expectation on value mismatch)
6+
procedure demo_to_equal_failure;
77

8-
-- %test(failure of different varchar)
9-
procedure test2;
8+
-- %test(demo of failure for to_equal expectation on data type mismatch)
9+
procedure demo_to_equal_failure_types;
1010

11-
-- %test(success of equal number)
12-
procedure test3;
13-
14-
-- %test(failure of different number)
15-
procedure test4;
16-
17-
-- %test(success of equal clob)
18-
procedure test5;
19-
20-
-- %test(failure of different clob)
21-
procedure test6;
22-
23-
-- %test(failure varchar with clob)
24-
procedure test7;
25-
26-
-- %test(failure of clob with varchar)
27-
procedure test8;
28-
29-
-- %test(failure varchar with number)
30-
procedure test9;
31-
32-
-- %test(failure of number with varchar)
33-
procedure test10;
34-
35-
-- %test(failure number with clob)
36-
procedure test11;
37-
38-
39-
-- %test(failure of clob with number)
40-
procedure test12;
41-
42-
-- %test(success of equal blob)
43-
procedure test13;
44-
45-
-- %test(failure of different blob)
46-
procedure test14;
47-
48-
-- %test(failure of clob with blob)
49-
procedure test15;
50-
51-
-- %test(failure of blob with clob)
52-
procedure test16;
53-
54-
-- %test(expectation using ut.expect('value').to_(equal('value'));)
55-
procedure test17;
56-
57-
-- %test(expectation using ut.expect(1).to_(equal(2));)
58-
procedure test18;
59-
60-
-- %test(expectation using ut.expect(sysdate).to_(equal(sysdate));)
61-
procedure test19;
62-
63-
-- %test(expectation using ut.expect(to_clob('a') ).to_(equal(to_clob('b')));)
64-
procedure test20;
65-
66-
-- %test(expectation using ut.expect(to_blob('ffaa') ).to_(equal(to_blob('FFAA')));)
67-
procedure test21;
11+
-- %test(demo of success for to_equal expectation)
12+
procedure demo_to_equal_success;
6813

6914
end;
7015
/
7116

7217

7318
create or replace package body demo_expectations is
7419

75-
-- %test(success of equal varchar)
76-
procedure test1 is
77-
begin
78-
ut.expect( 'a varchar2 value' ).to_equal('a varchar2 value');
79-
end;
80-
81-
-- %test(failure of different varchar)
82-
procedure test2 is
83-
begin
84-
ut.expect('a varchar2 value').to_equal('a differernt varchar2 value');
85-
end;
86-
87-
88-
-- %test(success of equal number)
89-
procedure test3 is
90-
begin
91-
ut.expect(12345).to_equal(12345);
92-
end;
93-
94-
95-
-- %test(failure of different number)
96-
procedure test4 is
97-
begin
98-
ut.expect(.0987654321).to_equal(.09876543210987654321);
99-
end;
100-
101-
102-
-- %test(success of equal clob)
103-
procedure test5 is
104-
a clob := 'a3';
105-
b clob := 'a3';
106-
begin
107-
ut.expect(a).to_equal(b);
108-
end;
109-
110-
-- %test(failure of different clob)
111-
procedure test6 is
112-
a clob := 'a3';
113-
b clob := 'a4';
114-
begin
115-
ut.expect(a).to_equal(b);
116-
end;
117-
118-
-- %test(failure varchar with clob)
119-
procedure test7 is
120-
a clob := 'a3';
121-
begin
122-
ut.expect(a).to_equal('a3');
123-
end;
124-
20+
procedure demo_to_equal_failure is
21+
l_expected_blob blob := to_blob('AF12FF');
22+
l_expected_boolean boolean := true;
23+
l_expected_clob clob := 'a string';
24+
l_expected_date date := sysdate;
25+
l_expected_number number := 12345;
26+
l_expected_timestamp timestamp with time zone := sysdate;
27+
l_expected_timestamp_ltz timestamp with local time zone := sysdate;
28+
l_expected_timestamp_tz timestamp with time zone := sysdate;
29+
l_expected_varchar2 varchar2(100) := 'a string';
30+
l_actual_blob blob := to_blob('AF');
31+
l_actual_boolean boolean := false;
32+
l_actual_clob clob := 'a different string';
33+
l_actual_date date := sysdate - 1;
34+
l_actual_number number := 0.12345;
35+
l_actual_timestamp timestamp with time zone := sysdate - 1;
36+
l_actual_timestamp_ltz timestamp with local time zone := sysdate - 1;
37+
l_actual_timestamp_tz timestamp with time zone := sysdate - 1;
38+
l_actual_varchar2 varchar2(100) := 'a different string';
39+
begin
40+
ut.expect( l_actual_blob ).to_equal( l_expected_blob );
41+
ut.expect( l_actual_boolean ).to_equal( l_expected_boolean );
42+
ut.expect( l_actual_clob ).to_equal( l_expected_clob );
43+
ut.expect( l_actual_date ).to_equal( l_expected_date );
44+
ut.expect( l_actual_number ).to_equal( l_expected_number );
45+
ut.expect( l_actual_timestamp ).to_equal( l_expected_timestamp );
46+
ut.expect( l_actual_timestamp_ltz ).to_equal( l_expected_timestamp_ltz );
47+
ut.expect( l_actual_timestamp_tz ).to_equal( l_expected_timestamp_tz );
48+
ut.expect( l_actual_varchar2 ).to_equal( l_expected_varchar2 );
49+
50+
ut.expect( l_actual_blob ).to_( equal( l_expected_blob ) );
51+
ut.expect( l_actual_boolean ).to_( equal( l_expected_boolean ) );
52+
ut.expect( l_actual_clob ).to_( equal( l_expected_clob ) );
53+
ut.expect( l_actual_date ).to_( equal( l_expected_date ) );
54+
ut.expect( l_actual_number ).to_( equal( l_expected_number ) );
55+
ut.expect( l_actual_timestamp ).to_( equal( l_expected_timestamp ) );
56+
ut.expect( l_actual_timestamp_ltz ).to_( equal( l_expected_timestamp_ltz ) );
57+
ut.expect( l_actual_timestamp_tz ).to_( equal( l_expected_timestamp_tz ) );
58+
ut.expect( l_actual_varchar2 ).to_( equal( l_expected_varchar2 ) );
59+
60+
ut.expect( false ).to_be_true;
61+
ut.expect( false ).to_( be_true );
62+
63+
end;
64+
65+
procedure demo_to_equal_failure_types is
66+
l_blob blob := to_blob('AF12FF');
67+
l_boolean boolean := true;
68+
l_clob clob := 'a string';
69+
l_date date := sysdate;
70+
l_number number := 12345;
71+
l_timestamp timestamp with time zone := sysdate;
72+
l_timestamp_ltz timestamp with local time zone := sysdate;
73+
l_timestamp_tz timestamp with time zone := sysdate;
74+
l_varchar2 varchar2(100) := 'a string';
75+
begin
76+
ut.expect( l_blob ).to_equal( l_clob );
77+
ut.expect( l_boolean ).to_equal( l_number );
78+
ut.expect( l_clob ).to_equal( l_blob );
79+
ut.expect( l_date ).to_equal( l_timestamp );
80+
ut.expect( l_number ).to_equal( l_varchar2 );
81+
ut.expect( l_timestamp ).to_equal( l_timestamp_ltz );
82+
ut.expect( l_timestamp ).to_equal( l_timestamp_tz );
83+
ut.expect( l_timestamp_ltz ).to_equal( l_date );
84+
ut.expect( l_varchar2 ).to_equal( l_clob );
85+
86+
ut.expect( l_blob ).to_( equal( l_clob ) );
87+
ut.expect( l_boolean ).to_( equal( l_number ) );
88+
ut.expect( l_clob ).to_( equal( l_blob ) );
89+
ut.expect( l_date ).to_( equal( l_timestamp ) );
90+
ut.expect( l_number ).to_( equal( l_varchar2 ) );
91+
ut.expect( l_timestamp ).to_( equal( l_timestamp_ltz ) );
92+
ut.expect( l_timestamp ).to_( equal( l_timestamp_tz ) );
93+
ut.expect( l_timestamp_ltz ).to_( equal( l_date ) );
94+
ut.expect( l_varchar2 ).to_( equal( l_clob ) );
95+
96+
ut.expect( l_varchar2 ).to_be_true;
97+
ut.expect( l_varchar2 ).to_( be_true );
98+
99+
end;
100+
101+
102+
procedure demo_to_equal_success is
103+
l_blob blob := to_blob('AF12FF');
104+
l_boolean boolean := true;
105+
l_clob clob := 'a string';
106+
l_date date := sysdate;
107+
l_number number := 12345;
108+
l_timestamp timestamp with time zone := sysdate;
109+
l_timestamp_ltz timestamp with local time zone := sysdate;
110+
l_timestamp_tz timestamp with time zone := sysdate;
111+
l_varchar2 varchar2(100) := 'a string';
112+
begin
113+
ut.expect( l_blob ).to_equal( l_blob );
114+
ut.expect( l_boolean ).to_equal( l_boolean );
115+
ut.expect( l_clob ).to_equal( l_clob );
116+
ut.expect( l_date ).to_equal( l_date );
117+
ut.expect( l_number ).to_equal( l_number );
118+
ut.expect( l_timestamp ).to_equal( l_timestamp );
119+
ut.expect( l_timestamp_ltz ).to_equal( l_timestamp_ltz );
120+
ut.expect( l_timestamp_tz ).to_equal( l_timestamp_tz );
121+
ut.expect( l_varchar2 ).to_equal( l_varchar2 );
122+
123+
ut.expect( l_blob ).to_( equal( l_blob ) );
124+
ut.expect( l_boolean ).to_( equal( l_boolean ) );
125+
ut.expect( l_clob ).to_( equal( l_clob ) );
126+
ut.expect( l_date ).to_( equal( l_date ) );
127+
ut.expect( l_number ).to_( equal( l_number ) );
128+
ut.expect( l_timestamp ).to_( equal( l_timestamp ) );
129+
ut.expect( l_timestamp_ltz ).to_( equal( l_timestamp_ltz ) );
130+
ut.expect( l_timestamp_tz ).to_( equal( l_timestamp_tz ) );
131+
ut.expect( l_varchar2 ).to_( equal( l_varchar2 ) );
132+
133+
ut.expect( true ).to_be_true;
134+
ut.expect( true ).to_( be_true );
125135

126-
-- %test(failure of clob with varchar)
127-
procedure test8 is
128-
a clob := 'a3';
129-
begin
130-
ut.expect('a3').to_equal(a);
131-
end;
132-
133-
-- %test(failure varchar with number)
134-
procedure test9 is
135-
begin
136-
ut.expect('12345').to_equal(12345);
137-
end;
138-
139-
-- %test(failure of number with varchar)
140-
procedure test10 is
141-
begin
142-
ut.expect(12345).to_equal('12345');
143-
end;
144-
145-
-- %test(failure number with clob)
146-
procedure test11 is
147-
a clob := '3';
148-
begin
149-
ut.expect(a).to_equal(3);
150-
end;
151-
152-
153-
-- %test(failure of clob with number)
154-
procedure test12 is
155-
a clob := '3';
156-
begin
157-
ut.expect(3).to_equal(a);
158-
end;
159-
160-
-- %test(success of equal blob)
161-
procedure test13 is
162-
a blob := utl_raw.cast_to_raw('a3');
163-
b blob := utl_raw.cast_to_raw('a3');
164-
begin
165-
ut.expect(a).to_equal(b);
166-
end;
167-
168-
-- %test(failure of different blob)
169-
procedure test14 is
170-
a blob := utl_raw.cast_to_raw('a3');
171-
b blob := utl_raw.cast_to_raw('a4');
172-
begin
173-
ut.expect(a).to_equal(b);
174-
end;
175-
176-
-- %test(failure of clob with blob)
177-
procedure test15 is
178-
a clob := 'a3';
179-
b blob := utl_raw.cast_to_raw('a3');
180-
begin
181-
ut.expect(a).to_equal(b);
182-
end;
183-
184-
-- %test(failure of blob with clob)
185-
procedure test16 is
186-
a blob := utl_raw.cast_to_raw('a3');
187-
b clob := 'a3';
188-
begin
189-
ut.expect(a).to_equal(b);
190-
end;
191-
192-
-- %test(expectation using ut.expect('value').to_(equal('value'));)
193-
procedure test17 is
194-
begin
195-
ut.expect('value').to_(equal('value'));
196-
end;
197-
198-
199-
-- %test(expectation using ut.expect(1).to_(equal(2));)
200-
procedure test18 is
201-
begin
202-
ut.expect(1).to_(equal(2));
203-
end;
204-
205-
-- %test(expectation using ut.expect(sysdate).to_(equal(sysdate));)
206-
procedure test19 is
207-
begin
208-
ut.expect(sysdate).to_(equal(sysdate-1));
209-
end;
210-
211-
-- %test(expectation using ut.expect(to_clob('a') ).to_(equal(to_clob('a')));)
212-
procedure test20 is
213-
begin
214-
ut.expect(to_clob('a') ).to_(equal(to_clob('b')));
215-
end;
216-
217-
-- %test(expectation using ut.expect(to_blob('ffaa') ).to_(equal(to_blob('FFAA')));)
218-
procedure test21 is
219-
begin
220-
ut.expect(to_blob('ffaa') ).to_(equal(to_blob('FFAABB')));
221136
end;
222137

223138
end;

0 commit comments

Comments
 (0)