Commit 01fee005 authored by Steven Lembark's avatar Steven Lembark 💬

0.3.1

parent d8d8df34
......@@ -2,6 +2,12 @@ Revision history for FileSystem::Parent
{{$NEXT}}
0.3.1 2019-06-10T09:43:47-05:00
- Bool() in signatures.
- Test cleanups.
0.3.0 2019-05-21T16:28:39-05:00
- Add "skip-root" bool for use with FindBin::libs.
......
......@@ -3,9 +3,7 @@
"authors" : [
"lembark"
],
"build-depends" : [
"FindBin"
],
"build-depends" : [ ],
"depends" : [
"FindBin"
],
......@@ -19,8 +17,6 @@
"resources" : [ ],
"source-url" : "https://gitlab.com/lembark/perl6-filesystem-parent",
"tags" : [ ],
"test-depends" : [
"FindBin"
],
"version" : "0.3.0"
"test-depends" : [ ],
"version" : "0.3.1"
}
......@@ -4,7 +4,7 @@
use v6.d;
unit module FileSystem::Parent:ver<0.3.0>:auth<CPAN:lembark>;
unit module FileSystem::Parent:ver<0.3.1>:auth<CPAN:lembark>;
use FindBin;
......@@ -39,9 +39,9 @@ multi scan-up
Any :$filter,
Str :$append = '',
Bool :$resolve = False,
Bool :$verbose = False,
Bool :$skip-root = False,
Bool() :$resolve = False,
Bool() :$verbose = False,
Bool() :$skip-root = False,
IO() :$from = Bin( :$resolve, :$verbose )
--> Seq
)
......
use v6.d;
use Test;
use FileSystem::Parent;
my $append = 'lib';
my $found = scan-up :$append;
ok $found, 'scan-up $append';
put '# Found', $found;
ok $found ~~ / lib $/, "Found: '$append'";
done-testing;
......@@ -3,12 +3,6 @@ use Test;
use FileSystem::Parent;
my $verbose
= %*ENV< VERBOSE >
?? True
!! False
;
# $pass0 && $pass1 are Seq.
my $append = 'lib';
......@@ -24,4 +18,6 @@ put '# Pass1', $pass1;
ok $pass0.eager ~~ $pass1.eager, 'Bin and $*Program-Name return same list.';
ok $pass0 ~~ /$append $/, "Found $append";
done-testing;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment