1*0Sstevel@tonic-gate#!./perl 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gateBEGIN { 4*0Sstevel@tonic-gate chdir 't' if -d 't'; 5*0Sstevel@tonic-gate @INC = '../lib'; 6*0Sstevel@tonic-gate} 7*0Sstevel@tonic-gate 8*0Sstevel@tonic-gateBEGIN { 9*0Sstevel@tonic-gate $ENV{FOO} = "foo"; 10*0Sstevel@tonic-gate $ENV{BAR} = "bar"; 11*0Sstevel@tonic-gate} 12*0Sstevel@tonic-gate 13*0Sstevel@tonic-gateuse Env qw(FOO $BAR); 14*0Sstevel@tonic-gate 15*0Sstevel@tonic-gate$FOO .= "/bar"; 16*0Sstevel@tonic-gate$BAR .= "/baz"; 17*0Sstevel@tonic-gate 18*0Sstevel@tonic-gateprint "1..2\n"; 19*0Sstevel@tonic-gate 20*0Sstevel@tonic-gateprint "not " if $FOO ne 'foo/bar'; 21*0Sstevel@tonic-gateprint "ok 1\n"; 22*0Sstevel@tonic-gate 23*0Sstevel@tonic-gateprint "not " if $BAR ne 'bar/baz'; 24*0Sstevel@tonic-gateprint "ok 2\n"; 25*0Sstevel@tonic-gate 26