blob: a890ee591b849cf6f705f0d0efa4a51f04d56ad2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!perl -T
use strict;
use warnings;
use Test::More;
plan tests => 1;
use URI::file;
$ENV{PATH} = "/bin:/usr/bin";
my $cwd = eval { URI::file->cwd };
is($@, '', 'no exceptions');
|