Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (14 sloc) 362 Bytes
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;
ok( $subfolder_exists, 'we have a "t" subfolder');
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.