gnu/usr.bin/perl/dist/Env/t/env.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!./perl

BEGIN {
	$ENV{FOO} = "foo";
	$ENV{BAR} = "bar";
}

use strict;
use Test::More tests => 2;
use Env qw(FOO $BAR);

$FOO .= "/bar";
$BAR .= "/baz";

is($FOO, 'foo/bar');
is($BAR, 'bar/baz');