view release on metacpan or  search on metacpan

t/reload.t  view on Meta::CPAN

my $location = '/reload';

my @tests = qw(const prototype simple subpackage);

my $header = join '', <DATA>;

my $initial = <<'EOF';
sub simple { 'simple' }
use constant const => 'const';
sub prototype($) { 'prototype' }
sub promised;
EOF

my $modified = <<'EOF';
sub simple { 'SIMPLE' }
use constant const => 'CONST';
sub prototype($$) { 'PROTOTYPE' }
EOF

t_write_test_lib($test_file, $header, $initial);

{
    my $expected = join '', map { "$_:$_\n" } sort @tests;
    my $received = GET $location;
    ok t_cmp($received->content, $expected, 'Initial');
}