BiblioKeywordWebTestCase.test in Bibliography Module 7

File

tests/BiblioKeywordWebTestCase.test

<?php

/**
 * Biblio keyword web tests.
 */
class BiblioKeywordWebTestCase extends BiblioWebTestCase {

  /**
   * {@inheritdoc}
   */
  public static function getInfo() {
    return array(
      'name' => 'Biblio keyword web tests',
      'description' => 'Web tests for keyword functions.',
      'group' => 'Biblio',
    );
  }

  /**
   * {@inheritdoc}
   */
  public function setUp() {
    parent::setUp('biblio');
    require_once __DIR__ . '/../includes/biblio.keywords.inc';
  }

  /**
   * Returns a new keyword with random properties.
   */
  public function createKeyword() {
    $keyword = array();
    $keyword['word'] = $this
      ->randomName();
    biblio_save_keyword($keyword);
    $this->kids[] = $keyword['kid'];
    return $keyword;
  }

  /**
   *
   */
  public function testBiblioSaveKeyword() {
    $keyword = $this
      ->createKeyword();
    $this
      ->assertTrue($keyword['kid'], t('Created and saved a single keyword'));
  }

  /**
   *
   */
  public function testBiblioDeleteKeyword() {
    $keyword = $this
      ->createKeyword();
    $num_deleted = biblio_delete_keyword($keyword['kid']);
    $this
      ->assertEqual($num_deleted, 1, t('Deleted a single keyword'));
  }

  /**
   *
   */
  public function testBiblioGetKeywordById() {
    $keyword = $this
      ->createKeyword();
    $word = (array) biblio_get_keyword_by_id($keyword['kid']);
    $this
      ->assertEqual($keyword, $word, 'Get keyword by ID');
  }

  /**
   *
   */
  public function testBiblioGetKeywordByName() {
    $keyword = $this
      ->createKeyword();

    // Load the term with the exact name.
    $word = biblio_get_keyword_by_name($keyword['word']);
    $this
      ->assertEqual($word->word, $keyword['word'], t('Keyword loaded using exact name.'));

    // Load the term with space concatenated.
    $word = biblio_get_keyword_by_name('  ' . $keyword['word'] . '   ');
    $this
      ->assertEqual($word->word, trim('  ' . $keyword['word'] . '   '), t('Keyword loaded with extra whitespace.'));

    // Load the term with name uppercased.
    $word = biblio_get_keyword_by_name(strtoupper($keyword['word']));
    $this
      ->assertEqual($word->word, $keyword['word'], t('Keyword loaded with uppercased name.'));

    // Load the term with name lowercased.
    $word = biblio_get_keyword_by_name(strtolower($keyword['word']));
    $this
      ->assertEqual($word->word, $keyword['word'], t('Keyword loaded with lowercased name.'));

    // Try to load an invalid term name.
    $word = biblio_get_keyword_by_name('Banana');
    $this
      ->assertFalse($word, t('Tried to load an invalid keyword'));

    // Try to load the term using a substring of the name.
    $word = biblio_get_keyword_by_name(drupal_substr($keyword['word'], 2));
    $this
      ->assertFalse($word, t('Tried to load a keyword using a substring of the word'));
  }

  /**
   *
   */
  public function testBiblioUpdateKeywords() {
    $term1 = $this
      ->createKeyword();
    $node = $this
      ->createNode();
    $node->biblio_keywords = array(
      $term1['word'],
    );
    $old_vid = $node->vid;
    $node->biblio_keywords[0] .= 'xxx';
    $node->revision = TRUE;
    node_save($node);
    $node = node_load($node->nid, NULL, TRUE);
    foreach ($node->biblio_keywords as $kid => $value) {
      $this
        ->assertEqual($value, $term1['word'] . 'xxx', 'Loaded updated keyword');

      // Add the new kids to the global array so we can delete them on teardown.
      $this->kids[] = $kid;
    }
    $node = node_load($node->nid, $old_vid, TRUE);
    foreach ($node->biblio_keywords as $kid => $value) {
      $this
        ->assertEqual($value, 'biblio_keywords', 'Loaded previous revision prior to update');

      // Add the new kids to the global array so we can delete them on teardown.
      $this->kids[] = $kid;
    }
    biblio_delete_keywords($node);
    $node = node_load($node->nid, NULL, TRUE);
    $this
      ->assertFalse(count($node->biblio_keywords), "Loaded node which no longer has any keywords");
  }

  /**
   *
   */
  public function testBiblioDeleteOrphanKeywords() {
    $this
      ->createKeyword();
    $this
      ->createKeyword();

    // $count = count($this->kids);.
    $num_records_before = db_query('SELECT COUNT(*) FROM {biblio_keyword_data} WHERE kid NOT IN (SELECT DISTINCT(kid) FROM {biblio_keyword})')
      ->fetchField();
    biblio_delete_orphan_keywords(TRUE);
    $num_records_after = db_query('SELECT COUNT(*) FROM {biblio_keyword_data} WHERE kid NOT IN (SELECT DISTINCT(kid) FROM {biblio_keyword})')
      ->fetchField();
    $this
      ->assertEqual($num_records_before, $num_records_after + $num_records_before, "Deleted {$num_records_before} orphan keywords");
  }

  /**
   *
   */
  public function testBiblioExplodeKeywords() {
    $keywords = array();
    $exploded = array();
    $words = array();
    $sep = variable_get('biblio_keyword_sep', ',');
    $wrong_sep = $sep == ',' ? ';' : ',';
    for ($i = 0; $i < 4; $i++) {
      $words[] = $this
        ->randomName();
    }
    $string = implode($sep, $words);
    $exploded = biblio_explode_keywords($string);
    $this
      ->assertIdentical($words, $exploded, 'Exploded keyword string with correct separator');
    $string = implode($wrong_sep, $words);
    $exploded = biblio_explode_keywords($string);
    $this
      ->assertNotIdentical($words, $exploded, 'Tried to explode keyword string with incorrect separator');
    $words[] = '"word1' . $sep . ' word2"';
    $string = implode($sep, $words);
    $exploded = biblio_explode_keywords($string);

    // Strip the quotes becuase that's the way it comes back.
    $words[4] = trim(str_replace('""', '"', preg_replace('/^"(.*)"$/', '\\1', $words[4])));
    $this
      ->assertEqual($words, $exploded, "Exploded a keyword string which contains and escaped separator");
  }

}

Classes

Name	Description
BiblioKeywordWebTestCase	Biblio keyword web tests.