<commit_before>use v6;

say "1..2";

use NativeCall;
use HTTP::Server::Tiny;
use LWP::Simple; # bundled

sub fork()
    returns Int
    is native { ... }

constant SIGTERM = 15;

sub kill(int $pid, int $sig)
    returns Int
    is native { ... }

my $server = HTTP::Server::Tiny.new('127.0.0.1', 0);
my $port = $server.localport;

my $pid = fork();
if $pid == 0 { # child
    my $app = sub ($env) {
        my $bullet = EVALFILE("eg/hello.psgi6");
        $bullet($env);
    };
    $server.run($app);
    die "should not reach here";
} elsif $pid > 0 { # parent
    sleep 0.1;
    my $content = LWP::Simple.get("http://127.0.0.1:$port/");<commit_msg>use run-shotgun<commit_after>use v6;

say "1..2";

use NativeCall;
use HTTP::Server::Tiny;
use LWP::Simple; # bundled

sub fork()
    returns Int
    is native { ... }

constant SIGTERM = 15;

sub kill(int $pid, int $sig)
    returns Int
    is native { ... }

my $server = HTTP::Server::Tiny.new('127.0.0.1', 0);
my $port = $server.localport;

my $pid = fork();
if $pid == 0 { # child
    $server.run-shotgun('eg/hello.psgi');
    die "should not reach here";
} elsif $pid > 0 { # parent
    sleep 0.1;
    my $content = LWP::Simple.get("http://127.0.0.1:$port/");
{'fraction_non_alphanumeric': 0.1934156378600823, 'fraction_numerical': 0.037037037037037035, 'mean_word_length': 2.8238993710691824, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 4, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7007795', 'n_tokens_mistral': 492, 'n_tokens_neox': 469, 'n_words': 124}