Fixed inconsistency with ANYDATA, where matcher was not failing with error when comparing different datatypes.

jgebal · jgebal · commit 0b0377082cd7 · 2017-01-08T02:35:04.000Z
diff --git a/source/expectations/data_values/ut_data_value_anydata.tpb b/source/expectations/data_values/ut_data_value_anydata.tpb
@@ -3,7 +3,7 @@ create or replace type body ut_data_value_anydata as
   constructor function ut_data_value_anydata(self in out nocopy ut_data_value_anydata, a_value anydata) return self as result is
   begin
     self.datavalue := a_value;
-    self.datatype  := a_value.gettypename;
+    self.datatype  := lower(a_value.gettypename);
     return;
   end;
 
diff --git a/source/expectations/matchers/equal.tpb b/source/expectations/matchers/equal.tpb
@@ -94,7 +94,9 @@ create or replace type body equal as
   overriding member function run_matcher(self in out nocopy equal, a_actual ut_data_value) return boolean is
     l_result boolean;
   begin
-    if self.expected is of (ut_data_value_anydata) and a_actual is of (ut_data_value_anydata) then
+    if self.expected is of (ut_data_value_anydata) and a_actual is of (ut_data_value_anydata)
+      --anydata can hold many different data types
+      and self.expected.datatype = a_actual.datatype then
       declare
         l_expected ut_data_value_anydata := treat(self.expected as ut_data_value_anydata);
         l_actual   ut_data_value_anydata := treat(a_actual as ut_data_value_anydata);
