xref: /openbsd/gnu/usr.bin/perl/dist/Env/t/env.t (revision e5dd7070)

#!./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');