File: use1.t

package info (click to toggle)
libgetopt-argvfile-perl 1.10-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 160 kB
  • ctags: 7
  • sloc: perl: 318; makefile: 38
file content (37 lines) | stat: -rw-r--r-- 696 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 

# set pragma
use strict;

# load test module
use Test::More qw(no_plan);

# prepare @ARGV
BEGIN {@ARGV=('~t/.prefix.t')}

# load the module
use Getopt::ArgvFile prefix=>'~';

# declare expected result
my @expected=(
              '-A',
              'A',
              '-b',
              'bb',
              '-ccc',
              'ccc ccc ccc',
              '-ddd',
              '\'d1 d2" d3\' d4 d5 d6',
              '-eee',
              '"e1 e2\\\' e3" e4 e5 e6',
              'par1',
              'par2',
              'par3',
              '~casca',
              '-case',
              'lower',
             );

# perform checks
is(@ARGV, @expected);
is_deeply(\@ARGV, \@expected);