function testGetModelByRDQL6()
    {
        if (isset($model2)) {
        }
        unset($model2);
        $_SESSION['test'] = 'simple rdql query6';
        $model = new MemModel();
        $model->load('employees.rdf');
        $query = '  SELECT ?resource, ?email
WHERE (?resource, vcard:N, ?blank1)
      (?blank1, vcard:Family, ?familyName)
      (?resource, vcard:EMAIL, ?blank2)
      (?blank2, rdf:value, ?email)
      (?blank2, rdf:type, vcard:work)
AND ?familyName ~~ "/^M/"
USING vcard FOR <http://www.w3.org/2001/vcard-rdf/3.0#>';
        $model2 = $model->getMemModelByRDQL($query);
        $this->assertEqual($model2->size(), 5);
    }