Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (14 sloc) 0.362 kb
use v6;
# L<S28/Named variables/$*CWD>
# See also S16-io/cwd.t
use Test;
plan 2;
# $*CWD is currently just a string
ok( defined($*CWD), 'we have something in our $CWD');
# check if there is a t subfolder
my $subfolder_exists = 0;
if "$*CWD/t".IO ~~ :e {
$subfolder_exists = 1;
}#if
ok( $subfolder_exists, 'we have a "t" subfolder');
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.