diff --git a/lib/Mi6/Utils.rakumod b/lib/Mi6/Utils.rakumod index 6661ee5..fa9cfb1 100644 --- a/lib/Mi6/Utils.rakumod +++ b/lib/Mi6/Utils.rakumod @@ -195,8 +195,8 @@ sub lint($dir, :$debug, --> Str) is export { # to the user # get contents of the resources file - my @r = find :dir("$dir/resources"); - if 1 { + my @r = find :dir("$dir/resources"); # TODO type file + if $debug { say "DEBUG dir resources:"; say " $_" for @r; } @@ -204,7 +204,7 @@ sub lint($dir, :$debug, --> Str) is export { # get contents of the META6.json file my %m = from-json(slurp "$dir/META6.json"); my @r2 = @(%m); - if 1 { + if $debug { say "DEBUG META6.json resources:"; say " $_" for @r2; } @@ -212,7 +212,7 @@ sub lint($dir, :$debug, --> Str) is export { #===== # Compare the two # the files in META6.json do not have to be under the 'resources' - # directory but they must referenced as relative to it and exist + # directory, but they must referenced as relative to it and exist # in the file tree diff --git a/t/data/Foo/META6.json b/t/data/Foo/META6.json new file mode 100644 index 0000000..e69de29 diff --git a/t/data/Foo/lib/Foo.pm6 b/t/data/Foo/lib/Foo.pm6 new file mode 100644 index 0000000..6183eab --- /dev/null +++ b/t/data/Foo/lib/Foo.pm6 @@ -0,0 +1,4 @@ +unit class Foo; + +use Bar; +