archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

referrer-tracking.t skips test without HTTPS

Browse Source 
As oddmuse.org now uses HTTPS, this test requires LWP::Protocol::https
to be installed.
This commit is contained in:
Alex Schroeder
2015-07-21 12:16:17 +02:00
parent 5e5a2b715e
commit 2feecd20ee
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
t/referrer-tracking.t
View File

@@ -30,16 +30,23 @@ SKIP: {
my $wiki = 'http://localhost/cgi-bin/wiki.pl';
my $ua = LWP::UserAgent->new;
my $response = $ua->get("$wiki?action=version");
skip("No wiki running at $wiki", 12)
unless $response->is_success;
# check that the wiki is capable of running these tests
skip("Wiki running at $wiki doesn't have the Referrer-Tracking Extension installed", 12)
unless $response->content =~ /referrer-tracking\.pl/;
# if we're running in some random environment where localhost is not
# a wiki for us to interact with
skip("Wiki running at $wiki has the Question Asker Extension installed", 12)
if $response->content =~ /questionasker\.pl/;
# if HTTPS is not supported
skip("No HTTPS support available: $@", 12)
unless eval { require LWP::Protocol::https; };
my $id = 'Random' . time;
# make sure we're not being fooled by 404 errors
$response = $ua->get("$wiki?title=$id;text=test");
@@ -59,8 +66,8 @@ SKIP: {
qq{//div[\@class="content refer"]/div/p/a[text()="$id"]});
# This page must actually exist and link back!
$response = $ua->get('http://oddmuse.org/test.html');
ok($response->is_success, "http://oddmuse.org/test.html exists");
$response = $ua->get('https://oddmuse.org/test.html');
ok($response->is_success, "https://oddmuse.org/test.html exists");
test_page($response->content, "http://localhost/cgi-bin/wiki.pl");
# If it is lost, here's what it should contain: