Added tests for "this" assertion.

jgebal · jgebal · commit bbe334e815f2 · 2016-09-06T21:29:16.000+01:00
Added test for assertion with "message" provided.
diff --git a/tests/RunAll.sql b/tests/RunAll.sql
@@ -36,12 +36,18 @@ set serveroutput on size unlimited format truncated
 @@lib/RunTest.sql ut_assert/ut_assert.are_equal.number.GivesFailureWhenActualIsNull.sql
 @@lib/RunTest.sql ut_assert/ut_assert.are_equal.number.GivesFailureWhenBothAreNull.sql
 @@lib/RunTest.sql ut_assert/ut_assert.are_equal.number.GivesFailureWhenExpectedIsNull.sql
+@@lib/RunTest.sql ut_assert/ut_assert.are_equal.number.with_text.GivesTheProvidedTextAsMessage.sql
 
 @@lib/RunTest.sql ut_assert/ut_assert.are_equal.anydata.GivesSuccessWhenComparingTheSameData.sql
 @@lib/RunTest.sql ut_assert/ut_assert.are_equal.anydata.GivesFailureWhenComparingDifferentData.sql
 @@lib/RunTest.sql ut_assert/ut_assert.are_equal.anydata.PutsObjectStrucureIntoMessage.sql
 @@lib/RunTest.sql ut_assert/ut_assert.are_equal.cursor.GivesFailureWhenComparingDifferentResultSets.sql
 @@lib/RunTest.sql ut_assert/ut_assert.are_equal.cursor.GivesSuccessWhenComparingIdenticalResultSets.sql
+
+@@lib/RunTest.sql ut_assert/ut_assert.this.GivesFailureWhenExpressionEvaluatesToFalse.sql
+@@lib/RunTest.sql ut_assert/ut_assert.this.GivesFailureWhenExpressionEvaluatesToNull.sql
+@@lib/RunTest.sql ut_assert/ut_assert.this.GivesSuccessWhenExpressionEvaluatesToTrue.sql
+
 --Global cleanup
 drop package ut_example_tests;
 
diff --git a/tests/ut_assert/ut_assert.are_equal.number.with_text.GivesTheProvidedTextAsMessage.sql b/tests/ut_assert/ut_assert.are_equal.number.with_text.GivesTheProvidedTextAsMessage.sql
@@ -0,0 +1,19 @@
+PROMPT Gives The Provided Text As Message in the test result
+
+--Arrange
+declare
+  l_results      ut_objects_list;
+  l_test_message varchar2(30) := 'A test message';
+begin
+--Act
+  ut_assert.are_equal(l_test_message, 1, 1);
+  l_results :=  ut_assert.get_asserts_results();
+--Assert
+  if treat(l_results(1) as ut_assert_result).message like '%'||l_test_message||'%' then
+    :test_result := ut_utils.tr_success;
+  else
+    dbms_output.put_line('expected: '''||treat(l_results(1) as ut_assert_result).message||''' to match
+''%'||l_test_message||'%''' );
+  end if;
+end;
+/
diff --git a/tests/ut_assert/ut_assert.this.GivesFailureWhenExpressionEvaluatesToFalse.sql b/tests/ut_assert/ut_assert.this.GivesFailureWhenExpressionEvaluatesToFalse.sql
@@ -0,0 +1,3 @@
+PROMPT Gives failure when expression evaluates to false
+
+@@ut_assert/ut_assert.this.common '1 = 2' 'ut_utils.tr_failure'
diff --git a/tests/ut_assert/ut_assert.this.GivesFailureWhenExpressionEvaluatesToNull.sql b/tests/ut_assert/ut_assert.this.GivesFailureWhenExpressionEvaluatesToNull.sql
@@ -0,0 +1,3 @@
+PROMPT Gives failure when expression evaluates to null
+
+@@ut_assert/ut_assert.this.common '1 = null' 'ut_utils.tr_failure'
diff --git a/tests/ut_assert/ut_assert.this.GivesSuccessWhenExpressionEvaluatesToTrue.sql b/tests/ut_assert/ut_assert.this.GivesSuccessWhenExpressionEvaluatesToTrue.sql
@@ -0,0 +1,3 @@
+PROMPT Gives success when expression evaluates to true
+
+@@ut_assert/ut_assert.this.common '1 = 1' 'ut_utils.tr_success'
diff --git a/tests/ut_assert/ut_assert.this.common b/tests/ut_assert/ut_assert.this.common
@@ -0,0 +1,14 @@
+declare
+  l_result   integer;
+begin
+--Act
+  ut_assert.this( &1 );
+  l_result :=  ut_assert.get_aggregate_asserts_result();
+--Assert
+  if l_result = &&2 then
+    :test_result := ut_utils.tr_success;
+  else
+    dbms_output.put_line('expected: '''||&&2||''', got: '''||l_result||'''' );
+  end if;
+end;
+/

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+PROMPT Gives failure when expression evaluates to false`
	`2`	`+`
	`3`	`+@@ut_assert/ut_assert.this.common '1 = 2' 'ut_utils.tr_failure'`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+PROMPT Gives success when expression evaluates to true`
	`2`	`+`
	`3`	`+@@ut_assert/ut_assert.this.common '1 = 1' 'ut_utils.tr_success'`