t('Link extraction tests'), 'description' => t('Test Link checker module link extraction functionality.'), 'group' => 'Link checker', ); } public function setUp() { parent::setUp('linkchecker', 'path'); $permissions = array( 'create page content', 'edit own page content', 'create url aliases', ); $user = $this->drupalCreateUser($permissions); $this->drupalLogin($user); } public function testLinkCheckerCreateNodeWithLinks() { // Enable all node type page for link extraction. variable_set('linkchecker_scan_nodetypes', array('page')); 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/2')); // 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_source', 1); variable_set('linkchecker_extract_from_video', 1); $body = << Send email Execute JavaScript Test image 1

../foo1/bar1 ./foo2/bar2 ../foo3/../foo4/foo5 ./foo4/../foo5/foo6 ./foo4/./foo5/foo6 URL with uncommon chars

EOT; // Save folder names in variables for reuse. $folder1 = $this->randomName(10); $folder2 = $this->randomName(5); // Allow the user to use the 'Full HTML' format. db_query("UPDATE {filter_formats} SET roles = '%s' WHERE format = %d", ',2,', 2); // Fill node array. $edit = array(); $edit['title'] = $this->randomName(32); $edit['body'] = $body; $edit['path'] = $folder1 . '/' . $folder2; $edit['format'] = 2; // Extract only full qualified URLs. variable_set('linkchecker_fqdn_only', 1); // Save node. $this->drupalPost('node/add/page', $edit, t('Save')); $this->assertRaw(t('@type %title has been created.', array('@type' => 'Page', '%title' => $edit['title'])), t('Node was created.')); // Verify if the content links are extracted correctly. $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', ); foreach ($urls_fqdn as $org_url => $check_url) { $link = $this->getLinkCheckerLink($check_url); if ($link) { $this->assertIdentical($link->url, $check_url, t('Absolute URL %org_url matches expected result %check_url.', array('%org_url' => $org_url, '%check_url' => $check_url))); } else { $this->fail(t('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, t('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. variable_set('linkchecker_fqdn_only', 0); $node = $this->drupalGetNodeByTitle($edit['title']); $this->assertTrue($node, t('Node found in database.')); $this->drupalPost('node/' . $node->nid . '/edit', $edit, t('Save')); $this->assertRaw(t('@type %title has been updated.', array('@type' => 'Page', '%title' => $edit['title']))); // Verify if the content links are extracted correctly. 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', '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', ); foreach ($urls_relative as $org_url => $check_url) { $link = $this->getLinkCheckerLink($check_url); if ($link) { $this->assertIdentical($link->url, $check_url, t('Relative URL %org_url matches expected result %check_url.', array('%org_url' => $org_url, '%check_url' => $check_url))); } else { $this->fail(t('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, t('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 . '/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, t('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/', ); foreach ($documentation_urls as $documentation_url) { $this->assertFalse($this->getLinkcheckerLink($documentation_url)->status, t('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 * Link object. */ function getLinkCheckerLink($url) { return db_fetch_object(db_query("SELECT * FROM {linkchecker_links} WHERE urlhash = '%s'", md5($url))); } /** * Get the current number of links in linkchecker_links table. */ function getLinkCheckerLinksCount() { return db_result(db_query("SELECT COUNT(1) FROM {linkchecker_links}")); } }