<?php

/**
 * @file
 * Tests for Twitter Block module.
 */
class TwitterBlockTestCase extends DrupalWebTestCase {
  protected $admin_user;

  public static function getInfo() {
    return array(
      'name' => 'Twitter Block functionality',
      'description' => 'Add, edit and delete custom Twitter block. Configure and move a Twitter block.',
      'group' => 'Twitter Block',
    );
  }

  function setUp() {
    parent::setUp('block', 'twitter_block');

    // Create and log in an administrative user.
    $this->admin_user = $this->drupalCreateUser(array(
      'administer blocks',
      'access administration pages',
    ));
    $this->drupalLogin($this->admin_user);

    // Define the existing regions
    $this->regions = array();
    $this->regions[] = 'header';
    $this->regions[] = 'sidebar_first';
    $this->regions[] = 'content';
    $this->regions[] = 'sidebar_second';
    $this->regions[] = 'footer';
  }

  /**
   * Test creating custom Twitter block, moving it to a specific region and then deleting it.
   */
  function testTwitterBlock() {
    // Confirm that the add Twitter block link appears on block overview pages.
    $this->drupalGet('admin/structure/block');
    $this->assertRaw(l(t('Add Twitter block'), 'admin/structure/block/add-twitter-block'), 'Add Twitter block link is present on block overview page for default theme.');
    $this->drupalGet('admin/structure/block/list/seven');
    $this->assertRaw(l(t('Add Twitter block'), 'admin/structure/block/list/seven/add-twitter-block'), 'Add Twitter block link is present on block overview page for non-default theme.');

    // Add a new custom Twitter block by filling out the input form on the admin/structure/block/add-twitter-block page.
    $twitter_block = array();
    $twitter_block['info'] = $this->randomName(8);
    $twitter_block['title'] = $this->randomName(8);
    $twitter_block['widget_id'] = $this->randomName(8);
    $twitter_block['username'] = $this->randomName(8);
    $this->drupalPost('admin/structure/block/add-twitter-block', $twitter_block, t('Save block'));

    // Confirm that the custom Twitter block has been created, and then query the created bid.
    $this->assertText(t('The block has been created.'), 'Custom Twitter block successfully created.');
    $bid = db_query("SELECT bid FROM {twitter_block} WHERE info = :info", array(':info' => $twitter_block['info']))->fetchField();

    // Check to see if the custom Twitter block was created by checking that it's in the database.
    $this->assertNotNull($bid, 'Custom Twitter block found in database');

    // Check whether the block can be moved to all available regions.
    $twitter_block['module'] = 'twitter_block';
    $twitter_block['delta'] = $bid;
    foreach ($this->regions as $region) {
      $this->moveBlockToRegion($twitter_block, $region);
    }

    // Verify presence of configure and delete links for custom Twitter block.
    $this->drupalGet('admin/structure/block');
    $this->assertLinkByHref('admin/structure/block/manage/twitter_block/' . $bid . '/configure', 0, 'Custom Twitter block configure link found.');
    $this->assertLinkByHref('admin/structure/block/administer/twitter_block/' . $bid . '/delete', 0, 'Custom Twitter block delete link found.');

    // Set visibility only for authenticated users, to verify delete functionality.
    $edit = array();
    $edit['roles[' . DRUPAL_AUTHENTICATED_RID . ']'] = TRUE;
    $this->drupalPost('admin/structure/block/manage/twitter_block/' . $bid . '/configure', $edit, t('Save block'));

    // Delete the created custom Twitter block & verify that it's been deleted and no longer appearing on the page.
    $this->clickLink(t('delete'));
    $this->drupalPost('admin/structure/block/administer/twitter_block/' . $bid . '/delete', array(), t('Delete'));
    $this->assertRaw(t('The block %title has been removed.', array('%title' => $twitter_block['info'])), 'Custom Twitter block successfully deleted.');
    $this->assertNoText(t($twitter_block['title']), 'Custom Twitter block no longer appears on page.');
    $count = db_query("SELECT 1 FROM {block_role} WHERE module = :module AND delta = :delta", array(':module' => $twitter_block['module'], ':delta' => $twitter_block['delta']))->fetchField();
    $this->assertFalse($count, 'Table block_role being cleaned.');
  }

  function moveBlockToRegion($block, $region) {
    // Set the created block to a specific region.
    $edit = array();
    $edit['blocks[' . $block['module'] . '_' . $block['delta'] . '][region]'] = $region;
    $this->drupalPost('admin/structure/block', $edit, t('Save blocks'));

    // Confirm that the block was moved to the proper region.
    $this->assertText(t('The block settings have been updated.'), format_string('Block successfully moved to %region_name region.', array('%region_name' => $region)));

    // Confirm that the block is being displayed.
    $this->drupalGet('node');
    $this->assertText(t($block['title']), 'Block successfully being displayed on the page.');

    // Confirm that the custom Twitter block was found at the proper region.
    $xpath = $this->buildXPathQuery('//div[@class=:region-class]//div[@id=:block-id]/*', array(
      ':region-class' => 'region region-' . str_replace('_', '-', $region),
      ':block-id' => 'block-' . drupal_clean_css_identifier($block['module']) . '-' . $block['delta'],
    ));
    $this->assertFieldByXPath($xpath, NULL, format_string('Custom Twitter block found in %region_name region.', array('%region_name' => $region)));
  }
}