lib/Env/array.t

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