Changeset 10569

Timestamp:

01/19/11 04:41:29 (2 years ago)

Author:

SvenDowideit

Message:

Item10269: it looks like PurePerl search has never been able to search for text/more, as there was a bug in the escaping code - this adds a unit test for it, and fixes the regex

Location:

branches/Release01x01

Files:

• UnitTestContrib/test/unit/Fn_SEARCH.pm (modified) (2 diffs)
• core/lib/Foswiki/Store/SearchAlgorithms/PurePerl.pm (modified) (1 diff)

branches/Release01x01/UnitTestContrib/test/unit/Fn_SEARCH.pm

@@ -1151 +1151 @@
 %META:FIELD{name="form" attributes="" title="Blah" value="form good"}%
 %META:FIELD{name="FORM" attributes="" title="Blah" value="FORM GOOD"}%
+%META:FIELD{name="NewField" attributes="" title="Item10269" value="TaxonProfile/Builder.TermForm"}%
 %META:FILEATTACHMENT{name="porn.gif" comment="Cor" date="15062" size="15504"}%
 %META:FILEATTACHMENT{name="flib.xml" comment="Cor" date="1157965062" size="1"}%
@@ -4467 +4468 @@
 }
 
+#TaxonProfile/Builder.TermForm
+sub verify_Item10269 {
+    my $this = shift;
+
+    $this->set_up_for_queries();
+
+    my $result =
+      $this->{test_topicObject}
+      ->expandMacros( '%SEARCH{"NewField=\'TaxonProfile/Builder.TermForm\'"' . $stdCrap );
+    $this->assert_str_equals( 'QueryTopicTwo', $result );
+}
+
 1;

branches/Release01x01/core/lib/Foswiki/Store/SearchAlgorithms/PurePerl.pm

@@ -33 +33 @@
         # Escape /, used as delimiter. This also blocks any attempt to use
         # the search string to execute programs on the server.
-        $searchString =~ s!/!\\/!g;
+        $searchString =~ s!/!\/!g;
     }
     else {