Item10461: add a failing unit test to remind me about a query I'm not…

… yet supporting

git-svn-id: http://svn.foswiki.org/trunk/MongoDBPlugin@11863 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

lib/Foswiki/Plugins/MongoDBPlugin/HoistMongoDB.pm

@@ -861,6 +861,10 @@ use Assert;
 sub hoistMongoDB {
     my $op   = shift;
     my $node = shift;
+
+    #use Data::Dumper;
+    #print STDERR "OP_eq: $node => ".Dumper($node)."\n" if Foswiki::Plugins::MongoDBPlugin::HoistMongoDB::MONITOR;
+
     ASSERT( ref($node) eq 'Foswiki::Query::Node' );
     ASSERT( ref( $node->{hoisted0} ) eq '' );
 

test/unit/HoistMongoDBsTests.pm

@@ -1530,6 +1530,24 @@ sub test_hoist_ImplicitFormNameBUG {
         }
     );
 }
+#'%SEARCH{"TestForm[name=\'Field1\'].value=\'A Field\'"'
+#TODO: this is a horridly complex way to say "Field1.value='A Field'"
+#but needs to be supported for other Meta attrs too
+sub test_formQuery3 {
+    my $this = shift;
+    my $s = "TestForm[name=\'Field1\'].value=\'A Field\'";
+
+    $this->do_Assert(
+        $s,
+
+        {
+          '$where' => 'foswiki_getField(this, \'FIELD.FormName.value\')'
+        }
+    );
+
+}
+
+
 #this is just to show that the above eg should be 'ok'
 sub test_hoist_ExplicitFormNameCompre {
     my $this = shift;