-#!/usr/bin/perl -w
use strict;
+use warnings;
use RT::Test tests => 63;
my $plain_file = File::Spec->catfile( RT::Test->temp_directory, 'attachment.txt' );
my $m = shift;
my $link = $m->find_link(@_)->url;
$link =~ s{/(\d+)$}{"/" . ($1-1)}e; # get the parent attach
- $m->get_ok($baseurl . $link);
+ $m->get_ok($link);
}
sub follow_with_headers_link {
my $m = shift;
my $link = $m->find_link(@_)->url;
$link =~ s{/\d+/(\d+)/.+$}{/WithHeaders/$1}; # frob into a with headers url
- $m->get_ok($baseurl . $link);
+ $m->get_ok($link);
}
for my $type ( 'text/plain', 'text/html' ) {