The reason `dir('a', test => { .IO.d })` doesn't work like you expect is that it is passed strings.
> dir('a', test => {.say}); . c b .. ("a/.".IO "a/c".IO "a/b".IO "a/..".IO) So `.IO.d` is looking to see if the CWD directory had a directory of that name, not the `a` directory. To get it to work append the `a` > dir('a', test => { "a/$_".IO.d }) ("a/.".IO "a/b".IO "a/..".IO) --- I would argue that inside of the `test` that `$*CWD` should be set to `a`, and/or the values should be IO objects. (They are going to become IO objects eventually anyway.) This would make it so your code would just work. sub dir ( $path, :&test ){ my @paths = &CORE::dir($path); indir $path, { # set $*CWD my @results = @paths.grep: { test( $_.IO ) # use IO object, not Str } } @results } On Sat, Nov 24, 2018 at 3:19 PM Fernando Santagata <nando.santag...@gmail.com> wrote: > > Hello, > > I think that I don't understand how the 'test' argument of 'dir' works. > I have a directory 'a', which contains a subdirectory 'b' and a file 'c'; I > want to select only the subdirectories of 'a'. > > Using the REPL I tried to ask the content of the directory 'a': > > > my @dirs = dir('a') > ["a/c".IO "a/b".IO] > > my @dirs = dir('a', test => { .IO.d }) > ["a/.".IO "a/..".IO] > Why omitting the test the code returns the right list, while adding the test > it returns just '.' and '..'? > > If I do the same thing for the top level directory '.' the behavior is > different: > > > my @dirs = dir('.', test => { .IO.d }) > [".".IO "a".IO "..".IO] > > Now I can see the directory 'a'. > If I descend a level, doing a 'cd a', the behavior is consistent with what I > see at the previous level. > I'm confused. > > I'm using version 2018.10. > > -- > Fernando Santagata