class TaxonomyTermTestCase

class TaxonomyTermTestCase extends TaxonomyWebTestCase {
  public static function getInfo() {
    return array(
      'name' => 'Taxonomy term functions and forms.',
      'description' => 'Test load, save and delete for taxonomy terms.',
      'group' => 'Taxonomy',
    );
  }
  function setUp() {
    parent::setUp('taxonomy');
    $this->admin_user = $this
      ->drupalCreateUser(array(
      'administer taxonomy',
      'bypass node access',
    ));
    $this
      ->drupalLogin($this->admin_user);
    $this->vocabulary = $this
      ->createVocabulary();
    $field = array(
      'field_name' => 'taxonomy_' . $this->vocabulary->machine_name,
      'type' => 'taxonomy_term_reference',
      'cardinality' => FIELD_CARDINALITY_UNLIMITED,
      'settings' => array(
        'allowed_values' => array(
          array(
            'vocabulary' => $this->vocabulary->machine_name,
            'parent' => 0,
          ),
        ),
      ),
    );
    field_create_field($field);
    $this->instance = array(
      'field_name' => 'taxonomy_' . $this->vocabulary->machine_name,
      'bundle' => 'article',
      'entity_type' => 'node',
      'widget' => array(
        'type' => 'options_select',
      ),
      'display' => array(
        'default' => array(
          'type' => 'taxonomy_term_reference_link',
        ),
      ),
    );
    field_create_instance($this->instance);
  }

  /**
   * Test terms in a single and multiple hierarchy.
   */
  function testTaxonomyTermHierarchy() {

    // Create two taxonomy terms.
    $term1 = $this
      ->createTerm($this->vocabulary);
    $term2 = $this
      ->createTerm($this->vocabulary);

    // Check that hierarchy is flat.
    $vocabulary = taxonomy_vocabulary_load($this->vocabulary->vid);
    $this
      ->assertEqual(0, $vocabulary->hierarchy, 'Vocabulary is flat.');

    // Edit $term2, setting $term1 as parent.
    $edit = array();
    $edit['parent[]'] = array(
      $term1->tid,
    );
    $this
      ->drupalPost('taxonomy/term/' . $term2->tid . '/edit', $edit, t('Save'));

    // Check the hierarchy.
    $children = taxonomy_get_children($term1->tid);
    $parents = taxonomy_get_parents($term2->tid);
    $this
      ->assertTrue(isset($children[$term2->tid]), 'Child found correctly.');
    $this
      ->assertTrue(isset($parents[$term1->tid]), 'Parent found correctly.');

    // Load and save a term, confirming that parents are still set.
    $term = taxonomy_term_load($term2->tid);
    taxonomy_term_save($term);
    $parents = taxonomy_get_parents($term2->tid);
    $this
      ->assertTrue(isset($parents[$term1->tid]), 'Parent found correctly.');

    // Create a third term and save this as a parent of term2.
    $term3 = $this
      ->createTerm($this->vocabulary);
    $term2->parent = array(
      $term1->tid,
      $term3->tid,
    );
    taxonomy_term_save($term2);
    $parents = taxonomy_get_parents($term2->tid);
    $this
      ->assertTrue(isset($parents[$term1->tid]) && isset($parents[$term3->tid]), 'Both parents found successfully.');
  }

  /**
   * Test that hook_node_$op implementations work correctly.
   *
   * Save & edit a node and assert that taxonomy terms are saved/loaded properly.
   */
  function testTaxonomyNode() {

    // Create two taxonomy terms.
    $term1 = $this
      ->createTerm($this->vocabulary);
    $term2 = $this
      ->createTerm($this->vocabulary);

    // Post an article.
    $edit = array();
    $langcode = LANGUAGE_NONE;
    $edit["title"] = $this
      ->randomName();
    $edit["body[{$langcode}][0][value]"] = $this
      ->randomName();
    $edit[$this->instance['field_name'] . '[' . $langcode . '][]'] = $term1->tid;
    $this
      ->drupalPost('node/add/article', $edit, t('Save'));

    // Check that the term is displayed when the node is viewed.
    $node = $this
      ->drupalGetNodeByTitle($edit["title"]);
    $this
      ->drupalGet('node/' . $node->nid);
    $this
      ->assertText($term1->name, 'Term is displayed when viewing the node.');

    // Edit the node with a different term.
    $edit[$this->instance['field_name'] . '[' . $langcode . '][]'] = $term2->tid;
    $this
      ->drupalPost('node/' . $node->nid . '/edit', $edit, t('Save'));
    $this
      ->drupalGet('node/' . $node->nid);
    $this
      ->assertText($term2->name, 'Term is displayed when viewing the node.');

    // Preview the node.
    $this
      ->drupalPost('node/' . $node->nid . '/edit', $edit, t('Preview'));
    $this
      ->assertNoUniqueText($term2->name, 'Term is displayed when previewing the node.');
    $this
      ->drupalPost(NULL, NULL, t('Preview'));
    $this
      ->assertNoUniqueText($term2->name, 'Term is displayed when previewing the node again.');
  }

  /**
   * Test term creation with a free-tagging vocabulary from the node form.
   */
  function testNodeTermCreationAndDeletion() {

    // Enable tags in the vocabulary.
    $instance = $this->instance;
    $instance['widget'] = array(
      'type' => 'taxonomy_autocomplete',
    );
    $instance['bundle'] = 'page';
    field_create_instance($instance);
    $terms = array(
      'term1' => $this
        ->randomName(),
      'term2' => $this
        ->randomName() . ', ' . $this
        ->randomName(),
      'term3' => $this
        ->randomName(),
    );
    $edit = array();
    $langcode = LANGUAGE_NONE;
    $edit["title"] = $this
      ->randomName();
    $edit["body[{$langcode}][0][value]"] = $this
      ->randomName();

    // Insert the terms in a comma separated list. Vocabulary 1 is a
    // free-tagging field created by the default profile.
    $edit[$instance['field_name'] . "[{$langcode}]"] = drupal_implode_tags($terms);

    // Preview and verify the terms appear but are not created.
    $this
      ->drupalPost('node/add/page', $edit, t('Preview'));
    foreach ($terms as $term) {
      $this
        ->assertText($term, 'The term appears on the node preview.');
    }
    $tree = taxonomy_get_tree($this->vocabulary->vid);
    $this
      ->assertTrue(empty($tree), 'The terms are not created on preview.');

    // taxonomy.module does not maintain its static caches.
    drupal_static_reset();

    // Save, creating the terms.
    $this
      ->drupalPost('node/add/page', $edit, t('Save'));
    $this
      ->assertRaw(t('@type %title has been created.', array(
      '@type' => t('Basic page'),
      '%title' => $edit["title"],
    )), 'The node was created successfully.');
    foreach ($terms as $term) {
      $this
        ->assertText($term, 'The term was saved and appears on the node page.');
    }

    // Get the created terms.
    $term_objects = array();
    foreach ($terms as $key => $term) {
      $term_objects[$key] = taxonomy_get_term_by_name($term);
      $term_objects[$key] = reset($term_objects[$key]);
    }

    // Test editing the node.
    $node = $this
      ->drupalGetNodeByTitle($edit["title"]);
    $this
      ->drupalPost('node/' . $node->nid . '/edit', $edit, t('Save'));
    foreach ($terms as $term) {
      $this
        ->assertText($term, 'The term was retained after edit and still appears on the node page.');
    }

    // Delete term 1.
    $this
      ->drupalPost('taxonomy/term/' . $term_objects['term1']->tid . '/edit', array(), t('Delete'));
    $this
      ->drupalPost(NULL, NULL, t('Delete'));
    $term_names = array(
      $term_objects['term2']->name,
      $term_objects['term3']->name,
    );

    // Get the node and verify that the terms that should be there still are.
    $this
      ->drupalGet('node/' . $node->nid);
    foreach ($term_names as $term_name) {
      $this
        ->assertText($term_name, format_string('The term %name appears on the node page after one term %deleted was deleted', array(
        '%name' => $term_name,
        '%deleted' => $term_objects['term1']->name,
      )));
    }
    $this
      ->assertNoText($term_objects['term1']->name, format_string('The deleted term %name does not appear on the node page.', array(
      '%name' => $term_objects['term1']->name,
    )));

    // Test autocomplete on term 2, which contains a comma.
    // The term will be quoted, and the " will be encoded in unicode (\u0022).
    $input = substr($term_objects['term2']->name, 0, 3);
    $this
      ->drupalGet('taxonomy/autocomplete/taxonomy_' . $this->vocabulary->machine_name . '/' . $input);
    $this
      ->assertRaw('{"\\u0022' . $term_objects['term2']->name . '\\u0022":"' . $term_objects['term2']->name . '"}', format_string('Autocomplete returns term %term_name after typing the first 3 letters.', array(
      '%term_name' => $term_objects['term2']->name,
    )));

    // Test autocomplete on term 3 - it is alphanumeric only, so no extra
    // quoting.
    $input = substr($term_objects['term3']->name, 0, 3);
    $this
      ->drupalGet('taxonomy/autocomplete/taxonomy_' . $this->vocabulary->machine_name . '/' . $input);
    $this
      ->assertRaw('{"' . $term_objects['term3']->name . '":"' . $term_objects['term3']->name . '"}', format_string('Autocomplete returns term %term_name after typing the first 3 letters.', array(
      '%term_name' => $term_objects['term3']->name,
    )));

    // Test taxonomy autocomplete with a nonexistent field.
    $field_name = $this
      ->randomName();
    $tag = $this
      ->randomName();
    $message = t("Taxonomy field @field_name not found.", array(
      '@field_name' => $field_name,
    ));
    $this
      ->assertFalse(field_info_field($field_name), format_string('Field %field_name does not exist.', array(
      '%field_name' => $field_name,
    )));
    $this
      ->drupalGet('taxonomy/autocomplete/' . $field_name . '/' . $tag);
    $this
      ->assertRaw($message, 'Autocomplete returns correct error message when the taxonomy field does not exist.');

    // Test the autocomplete path without passing a field_name and terms.
    // This should not trigger a PHP notice.
    $field_name = '';
    $message = t("Taxonomy field @field_name not found.", array(
      '@field_name' => $field_name,
    ));
    $this
      ->drupalGet('taxonomy/autocomplete');
    $this
      ->assertRaw($message, 'Autocomplete returns correct error message when no taxonomy field is given.');
  }

  /**
   * Tests term autocompletion edge cases with slashes in the names.
   */
  function testTermAutocompletion() {

    // Add a term with a slash in the name.
    $first_term = $this
      ->createTerm($this->vocabulary);
    $first_term->name = '10/16/2011';
    taxonomy_term_save($first_term);

    // Add another term that differs after the slash character.
    $second_term = $this
      ->createTerm($this->vocabulary);
    $second_term->name = '10/17/2011';
    taxonomy_term_save($second_term);

    // Add another term that has both a comma and a slash character.
    $third_term = $this
      ->createTerm($this->vocabulary);
    $third_term->name = 'term with, a comma and / a slash';
    taxonomy_term_save($third_term);

    // Try to autocomplete a term name that matches both terms.
    // We should get both term in a json encoded string.
    $input = '10/';
    $path = 'taxonomy/autocomplete/taxonomy_';
    $path .= $this->vocabulary->machine_name . '/' . $input;

    // The result order is not guaranteed, so check each term separately.
    $url = url($path, array(
      'absolute' => TRUE,
    ));
    $result = drupal_http_request($url);
    $data = drupal_json_decode($result->data);
    $this
      ->assertEqual($data[$first_term->name], check_plain($first_term->name), 'Autocomplete returned the first matching term.');
    $this
      ->assertEqual($data[$second_term->name], check_plain($second_term->name), 'Autocomplete returned the second matching term.');

    // Try to autocomplete a term name that matches first term.
    // We should only get the first term in a json encoded string.
    $input = '10/16';
    $url = 'taxonomy/autocomplete/taxonomy_';
    $url .= $this->vocabulary->machine_name . '/' . $input;
    $this
      ->drupalGet($url);
    $target = array(
      $first_term->name => check_plain($first_term->name),
    );
    $this
      ->assertRaw(drupal_json_encode($target), 'Autocomplete returns only the expected matching term.');

    // Try to autocomplete a term name with both a comma and a slash.
    $input = '"term with, comma and / a';
    $url = 'taxonomy/autocomplete/taxonomy_';
    $url .= $this->vocabulary->machine_name . '/' . $input;
    $this
      ->drupalGet($url);
    $n = $third_term->name;

    // Term names containing commas or quotes must be wrapped in quotes.
    if (strpos($third_term->name, ',') !== FALSE || strpos($third_term->name, '"') !== FALSE) {
      $n = '"' . str_replace('"', '""', $third_term->name) . '"';
    }
    $target = array(
      $n => check_plain($third_term->name),
    );
    $this
      ->assertRaw(drupal_json_encode($target), 'Autocomplete returns a term containing a comma and a slash.');
  }

  /**
   * Save, edit and delete a term using the user interface.
   */
  function testTermInterface() {
    $edit = array(
      'name' => $this
        ->randomName(12),
      'description[value]' => $this
        ->randomName(100),
    );

    // Explicitly set the parents field to 'root', to ensure that
    // taxonomy_form_term_submit() handles the invalid term ID correctly.
    $edit['parent[]'] = array(
      0,
    );

    // Create the term to edit.
    $this
      ->drupalPost('admin/structure/taxonomy/' . $this->vocabulary->machine_name . '/add', $edit, t('Save'));
    $terms = taxonomy_get_term_by_name($edit['name']);
    $term = reset($terms);
    $this
      ->assertNotNull($term, 'Term found in database.');

    // Submitting a term takes us to the add page; we need the List page.
    $this
      ->drupalGet('admin/structure/taxonomy/' . $this->vocabulary->machine_name);

    // Test edit link as accessed from Taxonomy administration pages.
    // Because Simpletest creates its own database when running tests, we know
    // the first edit link found on the listing page is to our term.
    $this
      ->clickLink(t('edit'));
    $this
      ->assertRaw($edit['name'], 'The randomly generated term name is present.');
    $this
      ->assertText($edit['description[value]'], 'The randomly generated term description is present.');
    $edit = array(
      'name' => $this
        ->randomName(14),
      'description[value]' => $this
        ->randomName(102),
    );

    // Edit the term.
    $this
      ->drupalPost('taxonomy/term/' . $term->tid . '/edit', $edit, t('Save'));

    // Check that the term is still present at admin UI after edit.
    $this
      ->drupalGet('admin/structure/taxonomy/' . $this->vocabulary->machine_name);
    $this
      ->assertText($edit['name'], 'The randomly generated term name is present.');
    $this
      ->assertLink(t('edit'));

    // View the term and check that it is correct.
    $this
      ->drupalGet('taxonomy/term/' . $term->tid);
    $this
      ->assertText($edit['name'], 'The randomly generated term name is present.');
    $this
      ->assertText($edit['description[value]'], 'The randomly generated term description is present.');

    // Did this page request display a 'term-listing-heading'?
    $this
      ->assertPattern('|class="taxonomy-term-description"|', 'Term page displayed the term description element.');

    // Check that it does NOT show a description when description is blank.
    $term->description = '';
    taxonomy_term_save($term);
    $this
      ->drupalGet('taxonomy/term/' . $term->tid);
    $this
      ->assertNoPattern('|class="taxonomy-term-description"|', 'Term page did not display the term description when description was blank.');

    // Check that the term feed page is working.
    $this
      ->drupalGet('taxonomy/term/' . $term->tid . '/feed');

    // Check that the term edit page does not try to interpret additional path
    // components as arguments for taxonomy_form_term().
    $this
      ->drupalGet('taxonomy/term/' . $term->tid . '/edit/' . $this
      ->randomName());

    // Delete the term.
    $this
      ->drupalPost('taxonomy/term/' . $term->tid . '/edit', array(), t('Delete'));
    $this
      ->drupalPost(NULL, NULL, t('Delete'));

    // Assert that the term no longer exists.
    $this
      ->drupalGet('taxonomy/term/' . $term->tid);
    $this
      ->assertResponse(404, 'The taxonomy term page was not found.');
  }

  /**
   * Save, edit and delete a term using the user interface.
   */
  function testTermReorder() {
    $this
      ->createTerm($this->vocabulary);
    $this
      ->createTerm($this->vocabulary);
    $this
      ->createTerm($this->vocabulary);

    // Fetch the created terms in the default alphabetical order, i.e. term1
    // precedes term2 alphabetically, and term2 precedes term3.
    drupal_static_reset('taxonomy_get_tree');
    drupal_static_reset('taxonomy_get_treeparent');
    drupal_static_reset('taxonomy_get_treeterms');
    list($term1, $term2, $term3) = taxonomy_get_tree($this->vocabulary->vid);
    $this
      ->drupalGet('admin/structure/taxonomy/' . $this->vocabulary->machine_name);

    // Each term has four hidden fields, "tid:1:0[tid]", "tid:1:0[parent]",
    // "tid:1:0[depth]", and "tid:1:0[weight]". Change the order to term2,
    // term3, term1 by setting weight property, make term3 a child of term2 by
    // setting the parent and depth properties, and update all hidden fields.
    $edit = array(
      'tid:' . $term2->tid . ':0[tid]' => $term2->tid,
      'tid:' . $term2->tid . ':0[parent]' => 0,
      'tid:' . $term2->tid . ':0[depth]' => 0,
      'tid:' . $term2->tid . ':0[weight]' => 0,
      'tid:' . $term3->tid . ':0[tid]' => $term3->tid,
      'tid:' . $term3->tid . ':0[parent]' => $term2->tid,
      'tid:' . $term3->tid . ':0[depth]' => 1,
      'tid:' . $term3->tid . ':0[weight]' => 1,
      'tid:' . $term1->tid . ':0[tid]' => $term1->tid,
      'tid:' . $term1->tid . ':0[parent]' => 0,
      'tid:' . $term1->tid . ':0[depth]' => 0,
      'tid:' . $term1->tid . ':0[weight]' => 2,
    );
    $this
      ->drupalPost(NULL, $edit, t('Save'));
    drupal_static_reset('taxonomy_get_tree');
    drupal_static_reset('taxonomy_get_treeparent');
    drupal_static_reset('taxonomy_get_treeterms');
    $terms = taxonomy_get_tree($this->vocabulary->vid);
    $this
      ->assertEqual($terms[0]->tid, $term2->tid, 'Term 2 was moved above term 1.');
    $this
      ->assertEqual($terms[1]->parents, array(
      $term2->tid,
    ), 'Term 3 was made a child of term 2.');
    $this
      ->assertEqual($terms[2]->tid, $term1->tid, 'Term 1 was moved below term 2.');
    $this
      ->drupalPost('admin/structure/taxonomy/' . $this->vocabulary->machine_name, array(), t('Reset to alphabetical'));

    // Submit confirmation form.
    $this
      ->drupalPost(NULL, array(), t('Reset to alphabetical'));
    drupal_static_reset('taxonomy_get_tree');
    drupal_static_reset('taxonomy_get_treeparent');
    drupal_static_reset('taxonomy_get_treeterms');
    $terms = taxonomy_get_tree($this->vocabulary->vid);
    $this
      ->assertEqual($terms[0]->tid, $term1->tid, 'Term 1 was moved to back above term 2.');
    $this
      ->assertEqual($terms[1]->tid, $term2->tid, 'Term 2 was moved to back below term 1.');
    $this
      ->assertEqual($terms[2]->tid, $term3->tid, 'Term 3 is still below term 2.');
    $this
      ->assertEqual($terms[2]->parents, array(
      $term2->tid,
    ), 'Term 3 is still a child of term 2.' . var_export($terms[1]->tid, 1));
  }

  /**
   * Test saving a term with multiple parents through the UI.
   */
  function testTermMultipleParentsInterface() {

    // Add a new term to the vocabulary so that we can have multiple parents.
    $parent = $this
      ->createTerm($this->vocabulary);

    // Add a new term with multiple parents.
    $edit = array(
      'name' => $this
        ->randomName(12),
      'description[value]' => $this
        ->randomName(100),
      'parent[]' => array(
        0,
        $parent->tid,
      ),
    );

    // Save the new term.
    $this
      ->drupalPost('admin/structure/taxonomy/' . $this->vocabulary->machine_name . '/add', $edit, t('Save'));

    // Check that the term was successfully created.
    $terms = taxonomy_get_term_by_name($edit['name']);
    $term = reset($terms);
    $this
      ->assertNotNull($term, 'Term found in database.');
    $this
      ->assertEqual($edit['name'], $term->name, 'Term name was successfully saved.');
    $this
      ->assertEqual($edit['description[value]'], $term->description, 'Term description was successfully saved.');

    // Check that the parent tid is still there. The other parent (<root>) is
    // not added by taxonomy_get_parents().
    $parents = taxonomy_get_parents($term->tid);
    $parent = reset($parents);
    $this
      ->assertEqual($edit['parent[]'][1], $parent->tid, 'Term parents were successfully saved.');
  }

  /**
   * Test taxonomy_get_term_by_name().
   */
  function testTaxonomyGetTermByName() {
    $term = $this
      ->createTerm($this->vocabulary);

    // Load the term with the exact name.
    $terms = taxonomy_get_term_by_name($term->name);
    $this
      ->assertTrue(isset($terms[$term->tid]), 'Term loaded using exact name.');

    // Load the term with space concatenated.
    $terms = taxonomy_get_term_by_name('  ' . $term->name . '   ');
    $this
      ->assertTrue(isset($terms[$term->tid]), 'Term loaded with extra whitespace.');

    // Load the term with name uppercased.
    $terms = taxonomy_get_term_by_name(strtoupper($term->name));
    $this
      ->assertTrue(isset($terms[$term->tid]), 'Term loaded with uppercased name.');

    // Load the term with name lowercased.
    $terms = taxonomy_get_term_by_name(strtolower($term->name));
    $this
      ->assertTrue(isset($terms[$term->tid]), 'Term loaded with lowercased name.');

    // Try to load an invalid term name.
    $terms = taxonomy_get_term_by_name('Banana');
    $this
      ->assertFalse($terms);

    // Try to load the term using a substring of the name.
    $terms = taxonomy_get_term_by_name(drupal_substr($term->name, 2));
    $this
      ->assertFalse($terms);

    // Create a new term in a different vocabulary with the same name.
    $new_vocabulary = $this
      ->createVocabulary();
    $new_term = new stdClass();
    $new_term->name = $term->name;
    $new_term->vid = $new_vocabulary->vid;
    taxonomy_term_save($new_term);

    // Load multiple terms with the same name.
    $terms = taxonomy_get_term_by_name($term->name);
    $this
      ->assertEqual(count($terms), 2, 'Two terms loaded with the same name.');

    // Load single term when restricted to one vocabulary.
    $terms = taxonomy_get_term_by_name($term->name, $this->vocabulary->machine_name);
    $this
      ->assertEqual(count($terms), 1, 'One term loaded when restricted by vocabulary.');
    $this
      ->assertTrue(isset($terms[$term->tid]), 'Term loaded using exact name and vocabulary machine name.');

    // Create a new term with another name.
    $term2 = $this
      ->createTerm($this->vocabulary);

    // Try to load a term by name that doesn't exist in this vocabulary but
    // exists in another vocabulary.
    $terms = taxonomy_get_term_by_name($term2->name, $new_vocabulary->machine_name);
    $this
      ->assertFalse($terms, 'Invalid term name restricted by vocabulary machine name not loaded.');

    // Try to load terms filtering by a non-existing vocabulary.
    $terms = taxonomy_get_term_by_name($term2->name, 'non_existing_vocabulary');
    $this
      ->assertEqual(count($terms), 0, 'No terms loaded when restricted by a non-existing vocabulary.');
  }

}