File: 22-ENV.t

package info (click to toggle)
libsystem-sub-perl 0.162800-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 196 kB
  • sloc: perl: 253; sh: 6; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 548 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use strict;
use warnings;

use Test::More tests => 2;
use File::Spec;

use System::Sub printenv => [ 0 => $^X,
                              ARGV => [ File::Spec->catfile(qw(t printenv.pl)) ],
                              ENV => {
                                Toto => 'Titi',
                                Lala => 'Lulu'
                              },
                            ];

is(scalar printenv('Toto'), 'Titi', 'scalar context');
is_deeply([ printenv(qw(Toto Lala)) ], [ qw(Titi Lulu) ], 'list context');

# vim:set et sw=4 sts=4: