13 lines
211 B
Perl
13 lines
211 B
Perl
|
use v5.32.0;
|
||
|
|
|
||
|
|
use Test2::V0;
|
||
|
|
use Path::Tiny;
|
||
|
|
|
||
|
|
require './script.pl';
|
||
|
|
|
||
|
|
my $input = path('./sample.html')->slurp;
|
||
|
|
|
||
|
|
like generate_output_table( extract_first_table($input) )->draw => qr/lonestar/;
|
||
|
|
|
||
|
|
done_testing();
|