find(sub {
return unless $_=~/pm$/;
- my $test_string =
+ create_or_update_test(
create_test_string
normalize_indent
extract_synopsis
- slurp_file $File::Find::name;
-
- create_or_update_test(
- $test_string,
+ slurp_file $File::Find::name,
create_test_path_from_lib($_),
);
}, File::Spec->catfile($Bin, '..', 'lib'));