From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
|
#!perl
prep_environment();
my $tempfile = create_tempfile( ( '' ) x 3 );
my @results = run_ack( '^\s\s+$' , $tempfile ->filename);
is_empty_array( \ @results , '^\s\s+$ should never match a sequence of empty lines' );
done_testing();
exit 0;
|