public function TagadelicTaxonomyAdminWebTestCase::testCheckboxesGetDefaults in Tagadelic 7.2

File

tests/tagadelic_taxonomy.admin.test, line 55

Class

TagadelicTaxonomyAdminWebTestCase

Code

public function testCheckboxesGetDefaults() {
  $this
    ->createVocabularies(5);
  foreach ($this->vocabularies as $vocabulary) {
    $values[$vocabulary->vid] = $vocabulary->vid;
  }
  variable_set("tagadelic_taxonomy_vocabularies", $values);
  $this
    ->drupalGet($this->admin_url);
  foreach ($this->vocabularies as $vocabulary) {
    $id = "edit-tagadelic-taxonomy-vocabularies-{$vocabulary->vid}";
    $this
      ->assertFieldChecked($id);
  }
}