The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use strict;
my @scripts;

use Test::More tests => 3;

my $logfile = $0;
$logfile =~ s/t$/log/;

ok ( -e "./$logfile", "Verifying existance of $logfile")
   or diag("No log file found for '$0'");

use Test::Parser::KernelBuild;

my $parser = new Test::Parser::KernelBuild;
$parser->parse($logfile);

ok ($parser->num_errors() == 0, "Error count");
ok ($parser->num_warnings() == 19, "Warnings count");