Item10484: Add unit tests

git-svn-id: http://svn.foswiki.org/branches/Release01x01@11057 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

UnitTestContrib/test/unit/Fn_SEARCH.pm

@@ -1368,6 +1368,42 @@ sub verify_refQuery {
     $this->assert_str_equals( 'QueryTopicTwo', $result );
 }
 
+sub verify_lc_field_short {
+    my $this = shift;
+
+    $this->set_up_for_queries();
+
+    my $result =
+      $this->{test_topicObject}->expandMacros(
+        '%SEARCH{"lc(Firstname) ~ lc(\'Emma\')"'
+          . $stdCrap );
+    $this->assert_str_equals( 'QueryTopic', $result );
+}
+
+sub verify_lc_field_qualified {
+    my $this = shift;
+
+    $this->set_up_for_queries();
+
+    my $result =
+      $this->{test_topicObject}->expandMacros(
+        '%SEARCH{"lc(TestForm.Firstname) ~ lc(\'Emma\')"'
+          . $stdCrap );
+    $this->assert_str_equals( 'QueryTopic', $result );
+}
+
+sub verify_lc_field_fully_qualified {
+    my $this = shift;
+
+    $this->set_up_for_queries();
+
+    my $result =
+      $this->{test_topicObject}->expandMacros(
+        '%SEARCH{"lc(TestForm[name=\'Firstname\'].value) ~ lc(\'Emma\')"'
+          . $stdCrap );
+    $this->assert_str_equals( 'QueryTopic', $result );
+}
+
 # make sure syntax errors are handled cleanly. All the error cases thrown by
 # the infix parser are tested more thoroughly in Fn_IF, and don't have to
 # be re-tested here.