The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

MIYAGAWA / Apache-JavaScript-DocumentWrite-0.02 / t / 01_js.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

              
use strict;
use Apache::Test;
use Apache::TestRequest;
plan tests => 3, have_lwp;
{
    my $body = GET_BODY "/test.html";
    ok($body, qr/It's a module/);
}
{
    my $body = GET_BODY "/test.html.js";
    ok($body, qr/document\.writeln/);
    ok($body, qr/It's a module/);
}