diff --git a/home/caspar/ezsites/quadrupal7/modules/simpletest/tests/database_test.test b/modules/simpletest/tests/database_test.test
index b58578e..974829a 100644
--- a/home/caspar/ezsites/quadrupal7/modules/simpletest/tests/database_test.test
+++ b/modules/simpletest/tests/database_test.test
@@ -9,6 +9,8 @@
  */
 class FakeRecord { }
 
+class FakeSelectQuery extends SelectQueryExtender { }
+
 /**
  * Base test class for databases.
  *
@@ -2600,6 +2602,21 @@ class DatabaseTaggingTestCase extends DatabaseTestCase {
   }
 
   /**
+   * Test query-extender tagging "has at least one of these tags" functionality.
+   */
+  function testHasAnyTagExtender() {
+    $query = db_select('test');
+    $t = new FakeSelectQuery($query, Database::getConnection('default'));
+    $t->addField('test', 'name');
+    $t->addField('test', 'age', 'age');
+
+    $t->addTag('test');
+
+    $this->assertTrue($t->hasAnyTag('test', 'other'), 'extender hasAnyTag() returned true.');
+    $this->assertFalse($t->hasAnyTag('other', 'stuff'), 'extender hasAnyTag() returned false.');
+  }
+
+  /**
    * Test that we can attach meta data to a query object.
    *
    * This is how we pass additional context to alter hooks.