class ThemeTestCase

class ThemeTestCase extends DrupalWebTestCase {
  protected $profile = 'testing';
  public static function getInfo() {
    return array(
      'name' => 'Theme API',
      'description' => 'Test low-level theme functions.',
      'group' => 'Theme',
    );
  }
  function setUp() {
    parent::setUp('theme_test');
    theme_enable(array(
      'test_theme',
    ));
  }

  /**
   * Test function theme_get_suggestions() for SA-CORE-2009-003.
   */
  function testThemeSuggestions() {

    // Set the front page as something random otherwise the CLI
    // test runner fails.
    variable_set('site_frontpage', 'nobody-home');
    $args = array(
      'node',
      '1',
      'edit',
    );
    $suggestions = theme_get_suggestions($args, 'page');
    $this
      ->assertEqual($suggestions, array(
      'page__node',
      'page__node__%',
      'page__node__1',
      'page__node__edit',
    ), 'Found expected node edit page suggestions');

    // Check attack vectors.
    $args = array(
      'node',
      '\\1',
    );
    $suggestions = theme_get_suggestions($args, 'page');
    $this
      ->assertEqual($suggestions, array(
      'page__node',
      'page__node__%',
      'page__node__1',
    ), 'Removed invalid \\ from suggestions');
    $args = array(
      'node',
      '1/',
    );
    $suggestions = theme_get_suggestions($args, 'page');
    $this
      ->assertEqual($suggestions, array(
      'page__node',
      'page__node__%',
      'page__node__1',
    ), 'Removed invalid / from suggestions');
    $args = array(
      'node',
      "1\0",
    );
    $suggestions = theme_get_suggestions($args, 'page');
    $this
      ->assertEqual($suggestions, array(
      'page__node',
      'page__node__%',
      'page__node__1',
    ), 'Removed invalid \\0 from suggestions');

    // Define path with hyphens to be used to generate suggestions.
    $args = array(
      'node',
      '1',
      'hyphen-path',
    );
    $result = array(
      'page__node',
      'page__node__%',
      'page__node__1',
      'page__node__hyphen_path',
    );
    $suggestions = theme_get_suggestions($args, 'page');
    $this
      ->assertEqual($suggestions, $result, 'Found expected page suggestions for paths containing hyphens.');
  }

  /**
   * Ensures preprocess functions run even for suggestion implementations.
   *
   * The theme hook used by this test has its base preprocess function in a
   * separate file, so this test also ensures that that file is correctly loaded
   * when needed.
   */
  function testPreprocessForSuggestions() {

    // Test with both an unprimed and primed theme registry.
    drupal_theme_rebuild();
    for ($i = 0; $i < 2; $i++) {
      $this
        ->drupalGet('theme-test/suggestion');
      $this
        ->assertText('Theme hook implementor=test_theme_theme_test__suggestion(). Foo=template_preprocess_theme_test', 'Theme hook suggestion ran with data available from a preprocess function for the base hook.');
    }
  }

  /**
   * Ensure page-front template suggestion is added when on front page.
   */
  function testFrontPageThemeSuggestion() {
    $q = $_GET['q'];

    // Set $_GET['q'] to node because theme_get_suggestions() will query it to
    // see if we are on the front page.
    $_GET['q'] = variable_get('site_frontpage', 'node');
    $suggestions = theme_get_suggestions(explode('/', $_GET['q']), 'page');

    // Set it back to not annoy the batch runner.
    $_GET['q'] = $q;
    $this
      ->assertTrue(in_array('page__front', $suggestions), 'Front page template was suggested.');
  }

  /**
   * Ensures theme hook_*_alter() implementations can run before anything is rendered.
   */
  function testAlter() {
    $this
      ->drupalGet('theme-test/alter');
    $this
      ->assertText('The altered data is test_theme_theme_test_alter_alter was invoked.', 'The theme was able to implement an alter hook during page building before anything was rendered.');
  }

  /**
   * Ensures a theme's .info file is able to override a module CSS file from being added to the page.
   *
   * @see test_theme.info
   */
  function testCSSOverride() {

    // Reuse the same page as in testPreprocessForSuggestions(). We're testing
    // what is output to the HTML HEAD based on what is in a theme's .info file,
    // so it doesn't matter what page we get, as long as it is themed with the
    // test theme. First we test with CSS aggregation disabled.
    variable_set('preprocess_css', 0);
    $this
      ->drupalGet('theme-test/suggestion');
    $this
      ->assertNoText('system.base.css', 'The theme\'s .info file is able to override a module CSS file from being added to the page.');

    // Also test with aggregation enabled, simply ensuring no PHP errors are
    // triggered during drupal_build_css_cache() when a source file doesn't
    // exist. Then allow remaining tests to continue with aggregation disabled
    // by default.
    variable_set('preprocess_css', 1);
    $this
      ->drupalGet('theme-test/suggestion');
    variable_set('preprocess_css', 0);
  }

  /**
   * Ensures the theme registry is rebuilt when modules are disabled/enabled.
   */
  function testRegistryRebuild() {
    $this
      ->assertIdentical(theme('theme_test_foo', array(
      'foo' => 'a',
    )), 'a', 'The theme registry contains theme_test_foo.');
    module_disable(array(
      'theme_test',
    ), FALSE);
    $this
      ->assertIdentical(theme('theme_test_foo', array(
      'foo' => 'b',
    )), '', 'The theme registry does not contain theme_test_foo, because the module is disabled.');
    module_enable(array(
      'theme_test',
    ), FALSE);
    $this
      ->assertIdentical(theme('theme_test_foo', array(
      'foo' => 'c',
    )), 'c', 'The theme registry contains theme_test_foo again after re-enabling the module.');
  }

  /**
   * Test the list_themes() function.
   */
  function testListThemes() {
    $themes = list_themes();

    // Check if drupal_theme_access() retrieves enabled themes properly from list_themes().
    $this
      ->assertTrue(drupal_theme_access('test_theme'), 'Enabled theme detected');

    // Check if list_themes() returns disabled themes.
    $this
      ->assertTrue(array_key_exists('test_basetheme', $themes), 'Disabled theme detected');

    // Check for base theme and subtheme lists.
    $base_theme_list = array(
      'test_basetheme' => 'Theme test base theme',
    );
    $sub_theme_list = array(
      'test_subtheme' => 'Theme test subtheme',
    );
    $this
      ->assertIdentical($themes['test_basetheme']->sub_themes, $sub_theme_list, 'Base theme\'s object includes list of subthemes.');
    $this
      ->assertIdentical($themes['test_subtheme']->base_themes, $base_theme_list, 'Subtheme\'s object includes list of base themes.');

    // Check for theme engine in subtheme.
    $this
      ->assertIdentical($themes['test_subtheme']->engine, 'phptemplate', 'Subtheme\'s object includes the theme engine.');

    // Check for theme engine prefix.
    $this
      ->assertIdentical($themes['test_basetheme']->prefix, 'phptemplate', 'Base theme\'s object includes the theme engine prefix.');
    $this
      ->assertIdentical($themes['test_subtheme']->prefix, 'phptemplate', 'Subtheme\'s object includes the theme engine prefix.');
  }

  /**
   * Test the theme_get_setting() function.
   */
  function testThemeGetSetting() {
    $GLOBALS['theme_key'] = 'test_theme';
    $this
      ->assertIdentical(theme_get_setting('theme_test_setting'), 'default value', 'theme_get_setting() uses the default theme automatically.');
    $this
      ->assertNotEqual(theme_get_setting('subtheme_override', 'test_basetheme'), theme_get_setting('subtheme_override', 'test_subtheme'), 'Base theme\'s default settings values can be overridden by subtheme.');
    $this
      ->assertIdentical(theme_get_setting('basetheme_only', 'test_subtheme'), 'base theme value', 'Base theme\'s default settings values are inherited by subtheme.');
  }

  /**
   * Test the drupal_add_region_content() function.
   */
  function testDrupalAddRegionContent() {
    $this
      ->drupalGet('theme-test/drupal-add-region-content');
    $this
      ->assertText('Hello');
    $this
      ->assertText('World');
  }

}