linkchecker.test in Link checker 7

Test file for Link checker module.

File

linkchecker.test

<?php

/**
 * @file
 * Test file for Link checker module.
 */
class LinkCheckerLinkExtractionTest extends DrupalWebTestCase {
  public static function getInfo() {
    return array(
      'name' => 'Link checker link extraction tests',
      'description' => 'Test Link checker module link extraction functionality.',
      'group' => 'Link checker',
    );
  }
  public function setUp() {
    parent::setUp('linkchecker', 'path');
    $full_html_format = filter_format_load('full_html');
    $permissions = array(
      'create page content',
      'edit own page content',
      'administer url aliases',
      'create url aliases',
      filter_permission_name($full_html_format),
    );
    $user = $this
      ->drupalCreateUser($permissions);
    $this
      ->drupalLogin($user);
  }
  public function testLinkCheckerCreateNodeWithLinks() {

    // Enable all node type page for link extraction.
    variable_set('linkchecker_scan_node_page', TRUE);
    variable_set('linkchecker_scan_blocks', 1);

    // Core enables the URL filter for "Full HTML" by default.
    // -> Blacklist / Disable URL filter for testing.
    variable_set('linkchecker_filter_blacklist', array(
      'filter_url' => 'filter_url',
    ));

    // Extract from all link checker supported HTML tags.
    variable_set('linkchecker_extract_from_a', 1);
    variable_set('linkchecker_extract_from_audio', 1);
    variable_set('linkchecker_extract_from_embed', 1);
    variable_set('linkchecker_extract_from_iframe', 1);
    variable_set('linkchecker_extract_from_img', 1);
    variable_set('linkchecker_extract_from_object', 1);
    variable_set('linkchecker_extract_from_video', 1);
    $body = <<<EOT
<!-- UNSUPPORTED for link checking: -->

<a href="mailto:[e-mail]">Send email</a>
<a href="javascript:foo()">Execute JavaScript</a>

<!-- SUPPORTED for link checking: -->

<!-- URL in HTML comment: http://example.com/test-if-url-filter-is-disabled -->

<!-- Relative URLs -->
<img src="test.png" alt="Test image 1" />
<img src="../foo1/test.png" alt="Test image 2" />

<a href="../foo1/bar1">../foo1/bar1</a>
<a href="./foo2/bar2">./foo2/bar2</a>
<a href="../foo3/../foo4/foo5">../foo3/../foo4/foo5</a>
<a href="./foo4/../foo5/foo6">./foo4/../foo5/foo6</a>
<a href="./foo4/./foo5/foo6">./foo4/./foo5/foo6</a>
<a href="./test/foo bar/is_valid-hack.test">./test/foo bar/is_valid-hack.test</a>

<!-- URL with uncommon chars that could potentially fail to extract. See https://drupal.org/node/465462. -->
<a href="http://www.lagrandeepicerie.fr/#e-boutique/Les_produits_du_moment,2/coffret_vins_doux_naturels,149">URL with uncommon chars</a>
<a href="http://example.com/foo bar/is_valid-hack.test">URL with space</a>
<a href="http://example.com/ajax.html#key1=value1&key2=value2">URL with ajax query params</a>
<a href="http://example.com/test.html#test">URL with standard anchor</a>
<a href="http://example.com/test.html#test%20ABC">URL with standard anchor and space</a>
<a name="test ABC">Anchor with space</a>

<!-- object tag: Embed SWF files -->
<object width="150" height="116"
  type="application/x-shockwave-flash"
  data="http://wetterservice.msn.de/phclip.swf?zip=60329&ort=Frankfurt">
    <param name="movie" value="http://wetterservice.msn.de/phclip.swf?zip=60329&ort=Frankfurt" />
    <img src="flash.png" width="150" height="116" alt="" /> <br />
      No weather report visible? At <a href="http://www.msn.de/">MSN</a>
      you are able to find the weather report missing here and the
      Flash plugin can be found at <a href="http://www.adobe.com/">Adobe</a>.
</object>

<!-- object tag: Embed Quicktime Movies on HTML pages -->
<object width="420" height="282"
  classid="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B"
  codebase="http://www.apple.com/qtactivex/qtplugin.cab">
  <param name="src" value="http://example.net/video/foo1.mov" />
  <param name="href" value="http://example.net/video/foo2.mov" />
  <param name="controller" value="true" />
  <param name="autoplay" value="false" />
  <param name="scale" value="aspect" />
  <!--[if gte IE 7]> <!-->
  <object type="video/quicktime" data="http://example.net/video/foo3.mov" width="420" height="282">
    <param name="controller" value="true" />
    <param name="autoplay" value="false" />
  </object>
  <!--<![endif]-->
</object>

<!-- object tag: Play MP4 videos on HTML pages -->
<object data="http://example.org/video/foo1.mp4" type="video/mp4" width="420" height="288">
  <param name="src" value="http://example.org/video/foo2.mp4" />
  <param name="autoplay" value="false" />
  <param name="autoStart" value="0" />
  <a href="http://example.org/video/foo3.mp4">/video/foo3.mp4</a>
</object>

<!-- object tag: Play MP4 videos with Quicktime -->
<object width="420" height="282" codebase="http://www.apple.com/qtactivex/qtplugin.cab">
  <param name="src" value="http://example.org/video/foo4.mp4" />
  <param name="href" value="http://example.org/video/foo5.mp4" />
  <param name="controller" value="true" />
  <param name="autoplay" value="false" />
  <param name="scale" value="aspect" />
  <!--[if gte IE 7]> <!-->
  <object type="video/quicktime" data="http://example.org/video/foo6.mp4" width="420" height="282">
    <param name="controller" value="true" />
    <param name="autoplay" value="false" />
  </object>
  <!--<![endif]-->
</object>

<!-- object tag: Play flash videos on HTML pages -->
<object type="application/x-shockwave-flash" data="http://example.org/video/player1.swf" width="420" height="270">
    <param name="movie" value="http://example.org/video/player2.swf" />
    <param src="movie" value="http://example.org/video/player3.swf" />
    <param name="flashvars" value="file=http://example.org/video/foo1.flv&width=420&height=270" />
</object>

<!-- Embed ActiveX control as objekt -->
<object width="267" height="175" classid="CLSID:05589FA1-C356-11CE-BF01-00AA0055595A">
  <param name="filename" value="ritmo.mid">
</object>

<!-- Add inline frames -->
<iframe src="http://example.com/iframe/" name="ExampleIFrame" width="300" height="200">
  <p>Your browser does not support inline frames.</p>
</iframe>

<!-- https://developer.mozilla.org/en/Using_audio_and_video_in_Firefox -->

<!-- http://www.theora.org/cortado/ -->
<video src="my_ogg_video.ogg" controls width="320" height="240">
  <object type="application/x-java-applet" width="320" height="240">
    <param name="archive" value="http://www.theora.org/cortado.jar">
    <param name="code" value="com.fluendo.player.Cortado.class">
    <param name="url" value="my_ogg_video.ogg">
    <p>You need to install Java to play this file.</p>
  </object>
</video>

<video src="video.ogv" controls>
  <object data="flvplayer1.swf" type="application/x-shockwave-flash">
    <param name="movie" value="flvplayer2.swf" />
  </object>
</video>

<video controls>
  <source src="http://v2v.cc/~j/theora_testsuite/pixel_aspect_ratio.ogg" type="video/ogg">
  <source src="http://v2v.cc/~j/theora_testsuite/pixel_aspect_ratio.mov">
  Your browser does not support the <code>video</code> element.
</video>

<video controls>
  <source src="foo.ogg" type="video/ogg; codecs=&quot;dirac, speex&quot;">
  Your browser does not support the <code>video</code> element.
</video>

<video src="http://v2v.cc/~j/theora_testsuite/320x240.ogg" controls>
  Your browser does not support the <code>video</code> element.
</video>
EOT;

    // Save folder names in variables for reuse.
    $folder1 = $this
      ->randomName(10);
    $folder2 = $this
      ->randomName(5);

    // Fill node array.
    $langcode = LANGUAGE_NONE;
    $edit = array();
    $edit['title'] = $this
      ->randomName(32);
    $edit["body[{$langcode}][0][value]"] = $body;
    $edit['path[alias]'] = $folder1 . '/' . $folder2;
    $edit["body[{$langcode}][0][format]"] = 'full_html';

    // Extract only full qualified URLs.
    variable_set('linkchecker_check_links_types', 1);

    // Verify path input field appears on add "Basic page" form.
    $this
      ->drupalGet('node/add/page');

    // Verify path input is present.
    $this
      ->assertFieldByName('path[alias]', '', 'Path input field present on add Basic page form.');

    // Save node.
    $this
      ->drupalPost('node/add/page', $edit, t('Save'));
    $this
      ->assertText(t('@type @title has been created.', array(
      '@type' => 'Basic page',
      '@title' => $edit['title'],
    )), 'Node was created.');

    // Verify if the content links are extracted properly.
    $urls_fqdn = array(
      'http://www.lagrandeepicerie.fr/#e-boutique/Les_produits_du_moment,2/coffret_vins_doux_naturels,149',
      'http://wetterservice.msn.de/phclip.swf?zip=60329&ort=Frankfurt',
      'http://www.msn.de/',
      'http://www.adobe.com/',
      'http://www.apple.com/qtactivex/qtplugin.cab',
      'http://example.net/video/foo1.mov',
      'http://example.net/video/foo2.mov',
      'http://example.net/video/foo3.mov',
      'http://example.org/video/foo1.mp4',
      'http://example.org/video/foo2.mp4',
      'http://example.org/video/foo3.mp4',
      'http://example.org/video/foo4.mp4',
      'http://example.org/video/foo5.mp4',
      'http://example.org/video/foo6.mp4',
      'http://example.org/video/player1.swf',
      'http://example.org/video/player2.swf',
      'http://example.org/video/player3.swf',
      'http://example.com/iframe/',
      'http://www.theora.org/cortado.jar',
      'http://v2v.cc/~j/theora_testsuite/pixel_aspect_ratio.ogg',
      'http://v2v.cc/~j/theora_testsuite/pixel_aspect_ratio.mov',
      'http://v2v.cc/~j/theora_testsuite/320x240.ogg',
      'http://example.com/foo bar/is_valid-hack.test',
      'http://example.com/ajax.html#key1=value1&key2=value2',
      'http://example.com/test.html#test',
      'http://example.com/test.html#test%20ABC',
    );
    foreach ($urls_fqdn as $org_url => $check_url) {
      $link = $this
        ->getLinkCheckerLink($check_url);
      if ($link) {
        $this
          ->assertIdentical($link->url, $check_url, format_string('Absolute URL %org_url matches expected result %check_url.', array(
          '%org_url' => $org_url,
          '%check_url' => $check_url,
        )));
      }
      else {
        $this
          ->fail(format_string('URL %check_url not found.', array(
          '%check_url' => $check_url,
        )));
      }
    }

    // Check if the number of links is correct.
    // - Verifies if all HTML tag regexes matched.
    // - Verifies that the linkchecker filter blacklist works well.
    $urls_in_database = $this
      ->getLinkCheckerLinksCount();
    $urls_expected_count = count($urls_fqdn);
    $this
      ->assertEqual($urls_in_database, $urls_expected_count, format_string('Found @urls_in_database URLs in database matches expected result of @urls_expected_count.', array(
      '@urls_in_database' => $urls_in_database,
      '@urls_expected_count' => $urls_expected_count,
    )));

    // Extract all URLs including relative path.
    variable_set('clean_url', 1);
    variable_set('linkchecker_check_links_types', 0);
    $node = $this
      ->drupalGetNodeByTitle($edit['title']);
    $this
      ->assertTrue($node, 'Node found in database.');
    $this
      ->drupalPost('node/' . $node->nid . '/edit', $edit, t('Save'));
    $this
      ->assertRaw(t('@type %title has been updated.', array(
      '@type' => 'Basic page',
      '%title' => $edit['title'],
    )));

    // @todo Path alias seems not saved!???
    // $this->assertIdentical($node->path, $edit['path'], format_string('URL alias "@node-path" matches path "@edit-path".', array('@node-path' => $node->path, '@edit-path' => $edit['path'])));
    // Verify if the content links are extracted properly.
    global $base_root, $base_path;
    $urls_relative = array(
      '../foo1/test.png' => $base_root . $base_path . 'foo1/test.png',
      'test.png' => $base_root . $base_path . $folder1 . '/test.png',
      '../foo1/bar1' => $base_root . $base_path . 'foo1/bar1',
      './foo2/bar2' => $base_root . $base_path . $folder1 . '/foo2/bar2',
      '../foo3/../foo4/foo5' => $base_root . $base_path . 'foo4/foo5',
      './foo4/../foo5/foo6' => $base_root . $base_path . $folder1 . '/foo5/foo6',
      './foo4/./foo5/foo6' => $base_root . $base_path . $folder1 . '/foo4/foo5/foo6',
      './test/foo bar/is_valid-hack.test' => $base_root . $base_path . $folder1 . '/test/foo bar/is_valid-hack.test',
      'flash.png' => $base_root . $base_path . $folder1 . '/flash.png',
      'ritmo.mid' => $base_root . $base_path . $folder1 . '/ritmo.mid',
      'my_ogg_video.ogg' => $base_root . $base_path . $folder1 . '/my_ogg_video.ogg',
      'video.ogv' => $base_root . $base_path . $folder1 . '/video.ogv',
      'flvplayer1.swf' => $base_root . $base_path . $folder1 . '/flvplayer1.swf',
      'flvplayer2.swf' => $base_root . $base_path . $folder1 . '/flvplayer2.swf',
      'foo.ogg' => $base_root . $base_path . $folder1 . '/foo.ogg',
    );
    $this
      ->verbose(theme('item_list', array(
      'items' => $urls_relative,
      'title' => 'Verify if following relative URLs exists:',
    )));
    $links_debug = array();
    $result = db_query('SELECT url FROM {linkchecker_link}');
    foreach ($result as $row) {
      $links_debug[] = $row->url;
    }
    $this
      ->verbose(theme('item_list', array(
      'items' => $links_debug,
      'title' => 'Following URLs exists:',
    )));
    foreach ($urls_relative as $org_url => $check_url) {
      $link = $this
        ->getLinkCheckerLink($check_url);
      if ($link) {
        $this
          ->assertIdentical($link->url, $check_url, format_string('Relative URL %org_url matches expected result %check_url.', array(
          '%org_url' => $org_url,
          '%check_url' => $check_url,
        )));
      }
      else {
        $this
          ->fail(format_string('URL %check_url not found.', array(
          '%check_url' => $check_url,
        )));
      }
    }

    // Check if the number of links is correct.
    $urls_in_database = $this
      ->getLinkCheckerLinksCount();
    $urls_expected_count = count($urls_fqdn + $urls_relative);
    $this
      ->assertEqual($urls_in_database, $urls_expected_count, format_string('Found @urls_in_database URLs in database matches expected result of @urls_expected_count.', array(
      '@urls_in_database' => $urls_in_database,
      '@urls_expected_count' => $urls_expected_count,
    )));

    // Verify if link check has been enabled for normal URLs.
    $urls = array(
      'http://www.lagrandeepicerie.fr/#e-boutique/Les_produits_du_moment,2/coffret_vins_doux_naturels,149',
      'http://wetterservice.msn.de/phclip.swf?zip=60329&ort=Frankfurt',
      'http://www.msn.de/',
      'http://www.adobe.com/',
      'http://www.apple.com/qtactivex/qtplugin.cab',
      'http://www.theora.org/cortado.jar',
      'http://v2v.cc/~j/theora_testsuite/pixel_aspect_ratio.ogg',
      'http://v2v.cc/~j/theora_testsuite/pixel_aspect_ratio.mov',
      'http://v2v.cc/~j/theora_testsuite/320x240.ogg',
      $base_root . $base_path . 'foo1/test.png',
      $base_root . $base_path . $folder1 . '/test.png',
      $base_root . $base_path . 'foo1/bar1',
      $base_root . $base_path . $folder1 . '/foo2/bar2',
      $base_root . $base_path . 'foo4/foo5',
      $base_root . $base_path . $folder1 . '/foo5/foo6',
      $base_root . $base_path . $folder1 . '/foo4/foo5/foo6',
      $base_root . $base_path . $folder1 . '/test/foo bar/is_valid-hack.test',
      $base_root . $base_path . $folder1 . '/flash.png',
      $base_root . $base_path . $folder1 . '/ritmo.mid',
      $base_root . $base_path . $folder1 . '/my_ogg_video.ogg',
      $base_root . $base_path . $folder1 . '/video.ogv',
      $base_root . $base_path . $folder1 . '/flvplayer1.swf',
      $base_root . $base_path . $folder1 . '/flvplayer2.swf',
      $base_root . $base_path . $folder1 . '/foo.ogg',
    );
    foreach ($urls as $url) {
      $this
        ->assertTrue($this
        ->getLinkcheckerLink($url)->status, format_string('Link check for %url is enabled.', array(
        '%url' => $url,
      )));
    }

    // Verify if link check has been disabled for example.com/net/org URLs.
    $documentation_urls = array(
      'http://example.net/video/foo1.mov',
      'http://example.net/video/foo2.mov',
      'http://example.net/video/foo3.mov',
      'http://example.org/video/foo1.mp4',
      'http://example.org/video/foo2.mp4',
      'http://example.org/video/foo3.mp4',
      'http://example.org/video/foo4.mp4',
      'http://example.org/video/foo5.mp4',
      'http://example.org/video/foo6.mp4',
      'http://example.org/video/player1.swf',
      'http://example.org/video/player2.swf',
      'http://example.org/video/player3.swf',
      'http://example.com/iframe/',
      'http://example.com/foo bar/is_valid-hack.test',
      'http://example.com/ajax.html#key1=value1&key2=value2',
      'http://example.com/test.html#test',
      'http://example.com/test.html#test%20ABC',
    );
    foreach ($documentation_urls as $documentation_url) {
      $this
        ->assertFalse($this
        ->getLinkcheckerLink($documentation_url)->status, format_string('Link check for %url is disabled.', array(
        '%url' => $documentation_url,
      )));
    }
  }

  /**
   * Get linkchecker link by url.
   *
   * @param string $url
   *   URL of the link to find.
   *
   * @return object
   *   The link object.
   */
  function getLinkCheckerLink($url) {
    return db_query('SELECT * FROM {linkchecker_link} WHERE urlhash = :urlhash', array(
      ':urlhash' => drupal_hash_base64($url),
    ))
      ->fetchObject();
  }

  /**
   * Get the current number of links in linkchecker_links table.
   */
  function getLinkCheckerLinksCount() {
    return db_query('SELECT COUNT(1) FROM {linkchecker_link}')
      ->fetchField();
  }

}
class LinkCheckerInterfaceTest extends DrupalWebTestCase {
  public static function getInfo() {
    return array(
      'name' => 'Link checker interface tests',
      'description' => 'Test the interface functionality.',
      'group' => 'Link checker',
    );
  }
  public function setUp() {
    parent::setUp('block', 'linkchecker', 'path');

    // @todo: Add comment interface test.
    // parent::setUp('block', 'comment', 'linkchecker', 'path');
    $full_html_format = filter_format_load('full_html');
    $permissions = array(
      // Block permissions.
      'administer blocks',
      // Comment permissions.
      'administer comments',
      'access comments',
      'post comments',
      'skip comment approval',
      'edit own comments',
      // Node permissions.
      'create page content',
      'edit own page content',
      // Path aliase permissions.
      'administer url aliases',
      'create url aliases',
      // Content filter permissions.
      filter_permission_name($full_html_format),
    );
    $user = $this
      ->drupalCreateUser($permissions);
    $this
      ->drupalLogin($user);
  }
  public function testLinkCheckerCreateNodeWithBrokenLinks() {

    // Enable all node type page for link extraction.
    variable_set('linkchecker_scan_node_page', TRUE);

    // Core enables the URL filter for "Full HTML" by default.
    // -> Blacklist / Disable URL filter for testing.
    variable_set('linkchecker_filter_blacklist', array(
      'filter_url' => 'filter_url',
    ));

    // Extract from all link checker supported HTML tags.
    variable_set('linkchecker_extract_from_a', 1);
    variable_set('linkchecker_extract_from_audio', 1);
    variable_set('linkchecker_extract_from_embed', 1);
    variable_set('linkchecker_extract_from_iframe', 1);
    variable_set('linkchecker_extract_from_img', 1);
    variable_set('linkchecker_extract_from_object', 1);
    variable_set('linkchecker_extract_from_video', 1);
    $url1 = 'http://example.com/node/broken/link';
    $body = 'Lorem ipsum dolor sit amet <a href="' . $url1 . '">broken link</a> sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat';

    // Save folder names in variables for reuse.
    $folder1 = $this
      ->randomName(10);
    $folder2 = $this
      ->randomName(5);

    // Fill node array.
    $langcode = LANGUAGE_NONE;
    $edit = array();
    $edit['title'] = $this
      ->randomName(32);
    $edit["body[{$langcode}][0][value]"] = $body;
    $edit['path[alias]'] = $folder1 . '/' . $folder2;
    $edit["body[{$langcode}][0][format]"] = 'full_html';

    // Extract only full qualified URLs.
    variable_set('linkchecker_check_links_types', 1);

    // Verify path input field appears on add "Basic page" form.
    $this
      ->drupalGet('node/add/page');

    // Verify path input is present.
    $this
      ->assertFieldByName('path[alias]', '', 'Path input field present on add Basic page form.');

    // Save node.
    $this
      ->drupalPost('node/add/page', $edit, t('Save'));
    $this
      ->assertText(t('@type @title has been created.', array(
      '@type' => 'Basic page',
      '@title' => $edit['title'],
    )), 'Node was created.');
    $node = $this
      ->drupalGetNodeByTitle($edit['title']);
    $this
      ->assertTrue($node, 'Node found in database.');

    // Verify if the content link is extracted properly.
    $link = $this
      ->getLinkCheckerLink($url1);
    if ($link) {
      $this
        ->assertIdentical($link->url, $url1, format_string('URL %url found.', array(
        '%url' => $url1,
      )));
    }
    else {
      $this
        ->fail(format_string('URL %url not found.', array(
        '%url' => $url1,
      )));
    }

    // Set link as failed once.
    $fail_count = 1;
    $status = '301';
    $this
      ->setLinkAsBroken($url1, $status, $fail_count);
    $this
      ->drupalGet('node/' . $node->nid . '/edit');
    $this
      ->assertRaw(format_plural($fail_count, 'Link check of <a href="@url">@url</a> failed once (status code: @code).', 'Link check of <a href="@url">@url</a> failed @count times (status code: @code).', array(
      '@url' => $url1,
      '@code' => $status,
    )), 'Link check failed once found.');

    // Set link as failed multiple times.
    $fail_count = 4;
    $status = '404';
    $this
      ->setLinkAsBroken($url1, $status, $fail_count);
    $this
      ->drupalGet('node/' . $node->nid . '/edit');
    $this
      ->assertRaw(format_plural($fail_count, 'Link check of <a href="@url">@url</a> failed once (status code: @code).', 'Link check of <a href="@url">@url</a> failed @count times (status code: @code).', array(
      '@url' => $url1,
      '@code' => $status,
    )), 'Link check failed multiple times found.');
  }
  public function testLinkCheckerCreateBlockWithBrokenLinks() {

    // Enable all blocks for link extraction.
    variable_set('linkchecker_scan_blocks', 1);

    // Confirm that the add block link appears on block overview pages.
    $this
      ->drupalGet('admin/structure/block');
    $this
      ->assertRaw(l(t('Add block'), 'admin/structure/block/add'), 'Add block link is present on block overview page for default theme.');
    $url1 = 'http://example.com/block/broken/link';
    $body = 'Lorem ipsum dolor sit amet <a href="' . $url1 . '">broken link</a> sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat';

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

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

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

    // Verify if the content link is extracted properly.
    $link = $this
      ->getLinkCheckerLink($url1);
    if ($link) {
      $this
        ->assertIdentical($link->url, $url1, format_string('URL %url found.', array(
        '%url' => $url1,
      )));
    }
    else {
      $this
        ->fail(format_string('URL %url not found.', array(
        '%url' => $url1,
      )));
    }

    // Set link as failed once.
    $fail_count = 1;
    $status = '301';
    $this
      ->setLinkAsBroken($url1, $status, $fail_count);
    $this
      ->drupalGet('admin/structure/block/manage/block/' . $bid . '/configure');
    $this
      ->assertRaw(format_plural($fail_count, 'Link check of <a href="@url">@url</a> failed once (status code: @code).', 'Link check of <a href="@url">@url</a> failed @count times (status code: @code).', array(
      '@url' => $url1,
      '@code' => $status,
    )), 'Link check failed once found.');

    // Set link as failed multiple times.
    $fail_count = 4;
    $status = '404';
    $this
      ->setLinkAsBroken($url1, $status, $fail_count);
    $this
      ->drupalGet('admin/structure/block/manage/block/' . $bid . '/configure');
    $this
      ->assertRaw(format_plural($fail_count, 'Link check of <a href="@url">@url</a> failed once (status code: @code).', 'Link check of <a href="@url">@url</a> failed @count times (status code: @code).', array(
      '@url' => $url1,
      '@code' => $status,
    )), 'Link check failed multiple times found.');
  }

  /**
   * Set an URL as broken.
   *
   * @param string $url
   *   URL of the link to find.
   * @param string $status
   *   A fake HTTP code for testing.
   */
  function setLinkAsBroken($url = NULL, $status = '404', $fail_count = 0) {
    db_update('linkchecker_link')
      ->condition('urlhash', drupal_hash_base64($url))
      ->fields(array(
      'code' => $status,
      'error' => 'Not available (test running)',
      'fail_count' => $fail_count,
      'last_checked' => time(),
      'status' => 1,
    ))
      ->execute();
  }

  /**
   * Get linkchecker link by url.
   *
   * @param string $url
   *   URL of the link to find.
   *
   * @return object
   *   The link object.
   */
  function getLinkCheckerLink($url) {
    return db_query('SELECT * FROM {linkchecker_link} WHERE urlhash = :urlhash', array(
      ':urlhash' => drupal_hash_base64($url),
    ))
      ->fetchObject();
  }

}

/**
 * Test case for impersonating users.
 *
 * Based on http://drupal.org/node/287292#comment-3162350
 */
class LinkCheckerImpersonatingUserTestCase extends DrupalWebTestCase {
  public static function getInfo() {
    return array(
      'name' => 'Link checker impersonate users',
      'description' => 'Temporarily impersonate another user, and then restore the original user.',
      'group' => 'Link checker',
    );
  }
  function setUp() {
    parent::setUp('linkchecker');
  }
  function testLinkCheckerImpersonateUser() {
    global $user;
    $original_user = $user;

    // If not currently logged in, use linkchecker_impersonate_user() to switch to
    // user 1. If logged in, switch to the anonymous user instead.
    if (user_is_anonymous()) {
      linkchecker_impersonate_user(1);
    }
    else {
      linkchecker_impersonate_user(0);
    }

    // Verify that the active user has changed, and that session saving is
    // disabled.
    $this
      ->assertEqual($user->uid, $original_user->uid == 0 ? 1 : 0, 'User switched');
    $this
      ->assertFalse(drupal_save_session(), 'Session saving is disabled.');

    // Perform a second (nested) impersonation.
    linkchecker_impersonate_user(1);
    $this
      ->assertEqual($user->uid, 1, 'User switched.');

    // Revert to the user which was active between the first and second
    // impersonation attempt.
    linkchecker_revert_user();

    // Since we are still impersonating the user from the first attempt,
    // session handling still needs to be disabled.
    $this
      ->assertEqual($user->uid, $original_user->uid == 0 ? 1 : 0, 'User switched.');
    $this
      ->assertFalse(drupal_save_session(), 'Session saving is disabled.');

    // Revert to the original user which was active before the first
    // impersonation attempt.
    linkchecker_revert_user();

    // Assert that the original user is the active user again, and that session
    // saving has been re-enabled.
    $this
      ->assertEqual($user->uid, $original_user->uid, 'Original user successfully restored.');

    // Simpletest uses linkchecker_impersonate_user() too, revert the impersonation by
    // Simpletest to enable session saving again. This is safe because calling
    // linkchecker_revert_user() too often simply results in returning the active user.
    linkchecker_revert_user();
    $this
      ->assertTrue(drupal_save_session(), 'Session saving is enabled.');
  }

}

Classes

Name	Description
LinkCheckerImpersonatingUserTestCase	Test case for impersonating users.
LinkCheckerInterfaceTest
LinkCheckerLinkExtractionTest	@file Test file for Link checker module.