block.test in SimpleTest 6.2

Backport of Drupal 7 block.test with modifications, see BACKPORT.txt.

Copyright 2008-2009 by Jimmy Berry ("boombatower", http://drupal.org/user/214218)

File

tests/block.test

<?php

/**
 * @file
 * Backport of Drupal 7 block.test with modifications, see BACKPORT.txt.
 *
 * Copyright 2008-2009 by Jimmy Berry ("boombatower", http://drupal.org/user/214218)
 */
class BlockTestCase extends DrupalWebTestCase {

  /**
   * Implementation of getInfo().
   */
  public static function getInfo() {
    return array(
      'name' => t('Block functionality'),
      'description' => t('Add, edit and delete custom block. Configure and move a module-defined block.'),
      'group' => t('Block'),
    );
  }

  /**
   * Implementation of setUp().
   */
  function setUp() {
    parent::setUp();

    // Create and login user
    $admin_user = $this
      ->drupalCreateUser(array(
      'administer blocks',
    ));
    $this
      ->drupalLogin($admin_user);
  }

  /**
   * Test creating custom block (i.e. box), moving it to a specific region and then deleting it.
   */
  function testBox() {

    // Add a new box by filling out the input form on the admin/build/block/add page.
    $box = array();
    $box['info'] = $this
      ->randomName(8);
    $box['title'] = $this
      ->randomName(8);
    $box['body'] = $this
      ->randomName(32);
    $this
      ->drupalPost('admin/build/block/add', $box, t('Save block'));

    // Confirm that the box has been created, and then query the created bid.
    $this
      ->assertText(t('The block has been created.'), t('Box successfully created.'));
    $bid = db_result(db_query("SELECT bid FROM {boxes} WHERE info = '%s'", array(
      $box['info'],
    )));

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

    // Set the created box to a specific region.
    // TODO: Implement full region checking.
    $edit = array();
    $edit['block_' . $bid . '[region]'] = 'left';
    $this
      ->drupalPost('admin/build/block', $edit, t('Save blocks'));

    // Confirm that the box was moved to the proper region.
    $this
      ->assertText(t('The block settings have been updated.'), t('Box successfully moved to left region.'));

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

    // Delete the created box & verify that it's been deleted and no longer appearing on the page.
    $this
      ->drupalPost('admin/build/block/delete/' . $bid, array(), t('Delete'));
    $this
      ->assertRaw(t('The block %title has been removed.', array(
      '%title' => $box['info'],
    )), t('Box successfully deleted.'));
    $this
      ->assertNoText(t($box['title']), t('Box no longer appears on page.'));
  }

  /**
   * Test configuring and moving a module-define block to specific regions.
   */
  function testBlock() {

    // Select the Navigation block to be configured and moved.
    $block = array();
    $block['module'] = 'user';
    $block['delta'] = 1;
    $block['title'] = $this
      ->randomName(8);

    // Set block title to confirm that interface works and override any custom titles.
    $this
      ->drupalPost('admin/build/block/configure/' . $block['module'] . '/' . $block['delta'], array(
      'title' => $block['title'],
    ), t('Save block'));
    $this
      ->assertText(t('The block configuration has been saved.'), t('Block title set.'));
    $bid = db_result(db_query("SELECT bid FROM {blocks} WHERE module = '%s' AND delta = '%s'", array(
      $block['module'],
      $block['delta'],
    )));

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

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

    // Confirm that the block was moved to the proper region.
    // TODO: Implement full region checking.
    $this
      ->assertText(t('The block settings have been updated.'), t('Block successfully moved to left region.'));

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

    // Set the block to the disabled region.
    $edit = array();
    $edit[$block['module'] . '_' . $block['delta'] . '[region]'] = '-1';
    $this
      ->drupalPost('admin/build/block', $edit, t('Save blocks'));

    // Confirm that the block was moved to the proper region.
    $this
      ->assertText(t('The block settings have been updated.'), t('Block successfully move to disabled region.'));
    $this
      ->assertNoText(t($block['title']), t('Block no longer appears on page.'));

    // For convenience of developers, put the navigation block back.
    $edit = array();
    $edit[$block['module'] . '_' . $block['delta'] . '[region]'] = 'left';
    $this
      ->drupalPost('admin/build/block', $edit, t('Save blocks'));
    $this
      ->assertText(t('The block settings have been updated.'), t('Block successfully move to disabled region.'));
    $this
      ->drupalPost('admin/build/block/configure/' . $block['module'] . '/' . $block['delta'], array(
      'title' => 'Navigation',
    ), t('Save block'));
    $this
      ->assertText(t('The block configuration has been saved.'), t('Block title set.'));
  }

}

Classes

Name	Description
BlockTestCase	@file Backport of Drupal 7 block.test with modifications, see BACKPORT.txt.