Commit fab54fcc authored by Steven Lembark's avatar Steven Lembark 💬

release

parent 691fc549
......@@ -2,6 +2,10 @@ Revision history for FileSystem::Parent
{{$NEXT}}
- test cleanups.
- store resolved result for verbose output.
0.3.2 2019-06-14T13:38:59-05:00
- POD
......
......@@ -49,22 +49,27 @@ is export( :DEFAULT )
{
# resolve is only applied once, here.
my $path
= $resolve
?? $from.absolute.resolve.IO
!! $from.absolute.IO
;
my $start =
(
$resolve
?? $from.resolve( completely => True )
!! $from
)
.absolute.IO;
# note that $path may have nothing to do with $from
# note that $start may have nothing to do with $from
# at this point if $resolve is used w/ a symlink.
$path ~~ :d
or
$path = $path.parent;
my $path
= $start ~~ :d
?? $start
!! $start.parent
;
if $verbose
{
note '# Start: ' ~ $from.gist;
note '# From: ' ~ $from.gist;
note '# Start: ' ~ $start.gist;
note "# Path: '$path'";
note "# Append: '$append'";
}
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FindBin;
%*ENV< PERL6LIB > = Bin.add( '../lib' );
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
ok MY::<&scan-up>, 'scan-up installed by default.';
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
my $verbose = %*ENV< VERBOSE > ?? True !! False;
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
my $append = 'lib';
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
# $pass0 && $pass1 are Seq.
......
use v6.d;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
# $pass0 && $pass1 are Seq.
my $append = 'lib';
my $resolve = True;
my $pass0 = scan-up :$resolve, :$append;
ok $pass0, 'scan-up $append';
my $pass1 = scan-up :$resolve, :$append, from => $*PROGRAM-NAME;
ok $pass1, 'scan-up $append :from => $*PROGRAM-NAME';
put '# Pass0', $pass0;
put '# Pass1', $pass1;
ok $pass0.eager ~~ $pass1.eager, 'Bin and $*Program-Name return same list.';
ok $pass0 ~~ /$append $/, "Found $append";
done-testing;
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
# $pass0 && $pass1 are Seq.
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
my $verbose
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
my $verbose
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
my $verbose
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
my $verbose
......
use v6.d;
use Test;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;
use Test;
use FileSystem::Parent;
my $verbose
......
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