public function DomainInstallTest::testDomainInstall in Domain Access 7.3

File

tests/domain.test, line 154

Simpletest for Domain Access.

Class

DomainInstallTest

Code

public function testDomainInstall() {
  $domain = domain_default(TRUE, FALSE);
  $this
    ->assertTrue($domain['sitename'] == 'TestDomainSitename', t('Default domain created successfully'));
  $records = db_query("SELECT COUNT(domain_id) FROM {domain_export}")
    ->fetchField();
  $this
    ->assertTrue($records == 1, t('{domain_export} has one record.'));
  $domains = db_query("SELECT COUNT(domain_id) FROM {domain}")
    ->fetchField();
  $this
    ->assertTrue($domains == 1, t('{domain} has one record.'));
  $join = db_query("SELECT COUNT(d.domain_id) FROM {domain} d INNER JOIN {domain_export} de ON d.domain_id = de.domain_id")
    ->fetchField();
  $this
    ->assertTrue($join == 1, t('Database counts match.'));
  $join2 = db_query("SELECT COUNT(d.domain_id) FROM {domain} d INNER JOIN {domain_export} de ON d.domain_id = de.domain_id WHERE d.domain_id = 1")
    ->fetchField();
  $this
    ->assertTrue($join2 == 1, t('Database records match.'));
  $join = db_query("SELECT COUNT(d.domain_id) FROM {domain} d INNER JOIN {domain_export} de ON d.machine_name = de.machine_name")
    ->fetchField();
  $this
    ->assertTrue($join == 1, t('Machine names match.'));
}