use v6.d;
use Test;

use FileSystem::Parent;

my $verbose 
= %*ENV< VERBOSE > 
?? True 
!! False
;

# $pass0 && $pass1 are Seq.

my $append  = 'lib';

my $pass0   = scan-up :$verbose, :$append;
ok $pass0,   'scan-up';

my $pass1   = scan-up :$verbose  :$append, start => $*PROGRAM-NAME;
ok $pass1,   'scan-up :start(...)';

put '# Pass0', $pass0;
put '# Pass1', $pass1;

ok $pass0.eager ~~ $pass1.eager, 'Bin and $*Program-Name return same list.';

done-testing;
