function PathologicTest::testPathologic in Pathologic 8
File
- tests/src/Functional/PathologicTest.php, line 30
Class
- PathologicTest
- Tests Pathologic functionality.
Namespace
Drupal\Tests\pathologic\Functional
Code
function testPathologic() {
global $script_path;
$this
->assertEqual(_pathologic_url_to_protocol_relative('http://example.com/foo/bar'), '//example.com/foo/bar', t('Protocol-relative URL creation with http:// URL'));
$this
->assertEqual(_pathologic_url_to_protocol_relative('https://example.org/baz'), '//example.org/baz', t('Protocol-relative URL creation with https:// URL'));
$test_paths = [
'foo' => [
'path' => 'foo',
'opts' => [],
],
'foo/bar' => [
'path' => 'foo/bar',
'opts' => [],
],
'foo/bar?baz' => [
'path' => 'foo/bar',
'opts' => [
'query' => [
'baz' => NULL,
],
],
],
'foo/bar?baz=qux' => [
'path' => 'foo/bar',
'opts' => [
'query' => [
'baz' => 'qux',
],
],
],
'foo/bar#baz' => [
'path' => 'foo/bar',
'opts' => [
'fragment' => 'baz',
],
],
'foo/bar?baz=qux&quux=quuux#quuuux' => [
'path' => 'foo/bar',
'opts' => [
'query' => [
'baz' => 'qux',
'quux' => 'quuux',
],
'fragment' => 'quuuux',
],
],
'foo%20bar?baz=qux%26quux' => [
'path' => 'foo bar',
'opts' => [
'query' => [
'baz' => 'qux&quux',
],
],
],
'/' => [
'path' => '<front>',
'opts' => [],
],
];
foreach ([
'full',
'proto-rel',
'path',
] as $protocol_style) {
$format_id = _pathologic_build_format([
'settings_source' => 'local',
'local_settings' => [
'protocol_style' => $protocol_style,
],
]);
$paths = [];
foreach ($test_paths as $path => $args) {
$args['opts']['absolute'] = $protocol_style !== 'path';
$paths[$path] = _pathologic_content_url($args['path'], $args['opts']);
if ($protocol_style === 'proto-rel') {
$paths[$path] = _pathologic_url_to_protocol_relative($paths[$path]);
}
}
$t10ns = [
'@clean' => empty($script_path) ? t('Yes') : t('No'),
'@ps' => $protocol_style,
];
$this
->assertEqual(check_markup('<a href="foo"><img src="foo/bar" /></a>', $format_id), '<a href="' . $paths['foo'] . '"><img src="' . $paths['foo/bar'] . '" /></a>', t('Simple paths. Clean URLs: @clean; protocol style: @ps.', $t10ns));
$this
->assertEqual(check_markup('<a href="index.php?q=foo"></a><a href="index.php?q=foo/bar&baz=qux"></a>', $format_id), '<a href="' . $paths['foo'] . '"></a><a href="' . $paths['foo/bar?baz=qux'] . '"></a>', t('D7 and earlier-style non-clean URLs. Clean URLs: @clean; protocol style: @ps.', $t10ns));
$this
->assertEqual(check_markup('<a href="index.php/foo"></a><a href="index.php/foo/bar?baz=qux"></a>', $format_id), '<a href="' . $paths['foo'] . '"></a><a href="' . $paths['foo/bar?baz=qux'] . '"></a>', t('D8-style non-clean URLs. Clean URLs: @clean; protocol style: @ps.', $t10ns));
$this
->assertEqual(check_markup('<form action="foo/bar?baz"><IMG LONGDESC="foo/bar?baz=qux" /></a>', $format_id), '<form action="' . $paths['foo/bar?baz'] . '"><IMG LONGDESC="' . $paths['foo/bar?baz=qux'] . '" /></a>', t('Paths with query string. Clean URLs: @clean; protocol style: @ps.', $t10ns));
$this
->assertEqual(check_markup('<a href="foo/bar#baz">', $format_id), '<a href="' . $paths['foo/bar#baz'] . '">', t('Path with fragment. Clean URLs: @clean; protocol style: @ps.', $t10ns));
$this
->assertEqual(check_markup('<a href="#foo">', $format_id), '<a href="#foo">', t('Fragment-only href. Clean URLs: @clean; protocol style: @ps.', $t10ns));
$this
->assertEqual(check_markup('<a href="#">', $format_id), '<a href="#">', t('Hash-only href. Clean URLs: @clean; protocol style: @ps.', $t10ns));
$this
->assertEqual(check_markup('<a href="foo/bar?baz=qux&quux=quuux#quuuux">', $format_id), '<a href="' . $paths['foo/bar?baz=qux&quux=quuux#quuuux'] . '">', t('Path with query string and fragment. Clean URLs: @clean; protocol style: @ps.', $t10ns));
$this
->assertEqual(check_markup('<a href="foo%20bar?baz=qux%26quux">', $format_id), '<a href="' . $paths['foo%20bar?baz=qux%26quux'] . '">', t('Path with URL encoded parts. Clean URLs: @clean; protocol style: @ps.', $t10ns));
$this
->assertEqual(check_markup('<a href="/"></a>', $format_id), '<a href="' . $paths['/'] . '"></a>', t('Path with just slash. Clean URLs: @clean; protocol style: @ps', $t10ns));
}
global $base_path;
$this
->assertEqual(check_markup('<a href="' . $base_path . 'foo">bar</a>', $format_id), '<a href="' . _pathologic_content_url('foo', [
'absolute' => FALSE,
]) . '">bar</a>', t('Paths beginning with $base_path (like WYSIWYG editors like to make)'));
global $base_url;
$this
->assertEqual(check_markup('<a href="' . $base_url . '/foo">bar</a>', $format_id), '<a href="' . _pathologic_content_url('foo', [
'absolute' => FALSE,
]) . '">bar</a>', t('Paths beginning with $base_url'));
$this
->assertEqual(check_markup('<a href="//example.com/foo">bar</a>', $format_id), '<a href="//example.com/foo">bar</a>', t('Off-site schemeless URLs (//example.com/foo) ignored'));
$format_id = _pathologic_build_format([
'settings_source' => 'local',
'local_settings' => [
'local_paths' => "http://example.com/qux\nhttp://example.org\n/bananas",
'protocol_style' => 'full',
],
]);
$this
->assertEqual(check_markup('<a href="//example.org/foo">bar</a>', $format_id), '<a href="' . _pathologic_content_url('foo', [
'absolute' => TRUE,
]) . '">bar</a>', t('On-site schemeless URLs processed'));
$this
->assertEqual(check_markup('<a href="internal:foo">', $format_id), '<a href="' . _pathologic_content_url('foo', [
'absolute' => TRUE,
]) . '">', t('Path Filter compatibility (internal:)'));
$this
->assertEqual(check_markup('<a href="files:image.jpeg">look</a>', $format_id), '<a href="' . _pathologic_content_url(file_create_url(\Drupal::config('system.file')
->get('default_scheme') . '://image.jpeg'), [
'absolute' => TRUE,
]) . '">look</a>', t('Path Filter compatibility (files:)'));
$this
->assertEqual(check_markup('<a href="http://example.com/qux/foo"><img src="http://example.org/bar.jpeg" longdesc="/bananas/baz" /></a>', $format_id), '<a href="' . _pathologic_content_url('foo', [
'absolute' => TRUE,
]) . '"><img src="' . _pathologic_content_url('bar.jpeg', [
'absolute' => TRUE,
]) . '" longdesc="' . _pathologic_content_url('baz', [
'absolute' => TRUE,
]) . '" /></a>', t('"All base paths for this site" functionality'));
$this
->assertEqual(check_markup('<a href="webcal:foo">bar</a>', $format_id), '<a href="webcal:foo">bar</a>', t('URLs with likely protocols are ignored'));
$this
->assertEqual(check_markup('<a href="foo?test=add_foo_qpart">', $format_id), '<a href="' . _pathologic_content_url('foo', [
'absolute' => TRUE,
'query' => [
'test' => 'add_foo_qpart',
'foo' => 'bar',
],
]) . '">', t('hook_pathologic_alter(): Alter $url_params'));
$this
->assertEqual(check_markup('<a href="bar?test=use_original">', $format_id), '<a href="bar?test=use_original">', t('hook_pathologic_alter(): Passthrough with use_original option'));
$script_path = '';
$filtered_tag = check_markup('<img src="misc/druplicon.png" />', $format_id);
$this
->assertTrue(strpos($filtered_tag, 'q=') === FALSE, t('Paths to files don\'t have ?q= when clean URLs are off'));
$format_id = _pathologic_build_format([
'settings_source' => 'global',
'local_settings' => [
'protocol_style' => 'rel',
],
]);
$this
->config('pathologic.settings')
->set('protocol_style', 'proto-rel')
->set('local_paths', 'http://example.com/')
->save();
$this
->assertEqual(check_markup('<img src="http://example.com/foo.jpeg" />', $format_id), '<img src="' . _pathologic_url_to_protocol_relative(_pathologic_content_url('foo.jpeg', [
'absolute' => TRUE,
])) . '" />', t('Use global settings when so configured on the format'));
$original = '<a href="/Epic:failure">foo</a>';
$message = t('Fails sensibly when \\Drupal\\Core\\Url::fromUri() throws exception');
try {
$filtered = check_markup($original, $format_id);
$this
->assertEqual($original, $filtered, $message);
} catch (\Exception $e) {
$this
->fail($message);
}
}
