tagadelic_taxonomy.admin.test in Tagadelic 7.2

File

tests/tagadelic_taxonomy.admin.test

<?php

class TagadelicTaxonomyAdminWebTestCase extends DrupalWebTestCase {
  private $admin_url = "admin/structure/tagadelic_taxonomy";

  /**
   * getInfo sets information about this test
   *
   * @scope public static
   * @returns Array  Descriptive array for this test
   */
  public static function getInfo() {
    return array(
      "name" => "Tagadelic Taxonomy Admin Test",
      "description" => "Tests admin area in Tagadelic Taxonomy",
      "group" => "Tagadelic",
    );
  }

  /**
   * @scope public
   * @returns Type  Description of return value
   */
  public function setUp() {
    parent::setUp(array(
      'tagadelic_taxonomy',
    ));
    $this
      ->deleteVocabularies();
    $web_user = $this
      ->drupalCreateUser(array(
      "administer site configuration",
    ));
    $this
      ->drupalLogin($web_user);
  }
  public function testHasTagaDelicPage() {
    $this
      ->drupalGet($this->admin_url);
    $this
      ->assertResponse(200, "Can Access Page");
    $this
      ->assertText(t("Tag Cloud"), "Title of page is Tag Cloud");
  }
  public function testIsOnlyAccessibleForAdmin() {
    $web_user = $this
      ->drupalCreateUser(array(
      'access content',
    ));
    $this
      ->drupalLogin($web_user);
    $this
      ->drupalGet($this->admin_url);
    $this
      ->assertResponse(403);
  }
  public function testHasCheckboxesForAllVocabularies() {
    $this
      ->createVocabularies(5);
    $this
      ->drupalGet($this->admin_url);
    foreach ($this->vocabularies as $vocabulary) {
      $id = "edit-tagadelic-taxonomy-vocabularies-{$vocabulary->vid}";
      $this
        ->assertHasCheckbox($id);
    }
  }
  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);
    }
  }
  public function testSelectedVocabulariesAreSaved() {
    $values = $edit = array();
    $this
      ->createVocabularies(5);
    $this
      ->drupalGet($this->admin_url);

    //Create the form item
    foreach ($this->vocabularies as $vocabulary) {
      $values[$vocabulary->vid] = $vocabulary->vid;
      $key = "tagadelic_taxonomy_vocabularies[{$vocabulary->vid}]";
      $edit[$key] = TRUE;
    }
    $this
      ->drupalPost(NULL, $edit, "Save configuration");
    $this
      ->assertVariableIs("tagadelic_taxonomy_vocabularies", $values);
  }
  protected function assertHasCheckbox($id, $message = '', $group = 'Other') {
    if (empty($message)) {
      $message = "checkbox '{$id}' not found";
    }
    $this
      ->assertHasXpath(".//input[@id='{$id}'][@type='checkbox']");
  }
  protected function assertHasXpath($xpath, $message = '', $group = 'Other') {
    if (empty($message)) {
      $message = "xpath '{$xpath}' not found.";
    }
    $xpath = $this
      ->xpath($xpath);
    $truthiness = count($xpath) > 0;
    return $this
      ->assertTrue($truthiness, $message, $group);
  }
  protected function assertVariableIs($name, $expected_value, $refresh = FALSE, $message = '', $group = 'Other') {
    if ($refresh) {
      $this
        ->refreshVariables();
    }
    $real_value = variable_get($name, NULL);

    // We want identical-ish arrays.
    if (is_array($expected_value)) {
      ksort($expected_value);
    }
    if (is_array($real_value)) {
      ksort($real_value);
    }
    if (empty($message)) {
      $expected = var_export($expected_value, TRUE);
      $real = var_export($real_value, TRUE);
      $message = "variable {$name} with {$expected} not found. Was {$real}.";
    }
    return $this
      ->assertIdentical($expected_value, $real_value, $message);
  }

  /*
   * Builder functions
   */
  private function createVocabularies($amount) {
    $tx_test = new TaxonomyWebTestCase();
    for ($i = 0; $i < $amount; $i++) {
      $this->vocabularies[] = $tx_test
        ->createVocabulary();
    }
    return $this;
  }
  private function deleteVocabularies() {
    foreach (taxonomy_vocabulary_load_multiple(FALSE) as $vocabulary) {
      taxonomy_vocabulary_delete($vocabulary->vid);
    }
  }

}

Classes

Name	Description
TagadelicTaxonomyAdminWebTestCase