| |
| |
|
|
| |
|
|
| |
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
| |
| |
|
|
| use strict; |
|
|
| (my $program_name = $0) =~ s|.*/||; |
| |
| # Turn off localization of executable's output. |
| @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3; |
| |
| my $prog = 'od'; |
| |
| use Errno qw(ERANGE); |
| my $ERANGE = do { local $! = ERANGE; "$!" }; |
| |
| # Use a file in /proc whose size is not likely to |
| |
| my $proc_file = '/proc/version'; |
| -f $proc_file |
| or $proc_file = '/dev/null'; |
|
|
| |
| my $len = 0; |
| open FH, '<', $proc_file |
| or die "$program_name: can't open '$proc_file' for reading: $!\n"; |
| while (defined (my $line = <FH>)) |
| { |
| $len += length $line; |
| } |
| close FH; |
| my $proc_file_byte_count = $len; |
|
|
| my @Tests = |
| ( |
| |
| |
| ['j-bug1', '-c -j 1 -An', {IN=>{g=>'a'}}, {OUT=>''}], |
| ['j-bug2', '-c -j 2 -An', {IN=>{g=>'a'}}, {IN=>{h=>'b'}}, {OUT=>''}], |
| |
| ['j-bug3', '-c -j 3 -An', {IN=>{g=>'a'}}, {IN=>{h=>'b'}}, |
| {IN=>{i=>'c'}}, {OUT=>''}], |
| |
| ['j-bug4', '-c -j 3 -An', {IN=>{g=>'a'}}, {IN=>{h=>'b'}}, |
| {IN=>{i=>'c'}}, {IN=>{j=>'d'}}, {OUT=>" d\n"}], |
|
|
| |
| |
| ['j-proc', "-An -c -j $proc_file_byte_count $proc_file", |
| {IN=>{f2=>'e'}}, {OUT=>" e\n"}], |
|
|
| |
| ['trad-dot1', '+1.', {IN_PIPE=>'a'}, {OUT=>"0000001\n"}], |
| ['trad-dot512', '+1.b', {IN_PIPE => 'a' x 512}, {OUT=>"0001000\n"}], |
|
|
| |
| ['invalid-off-1', '++0', {IN_PIPE=>""}, {EXIT=>1}, |
| {ERR=>"$prog: ++0: No such file or directory\n"}], |
| ['invalid-off-2', '+-0', {IN_PIPE=>""}, {EXIT=>1}, |
| {ERR=>"$prog: +-0: No such file or directory\n"}], |
| ['invalid-off-3', '"+ 0"', {IN_PIPE=>""}, {EXIT=>1}, |
| {ERR=>"$prog: '+ 0': No such file or directory\n"}], |
| ['invalid-off-4', '-- -0', {IN_PIPE=>""}, {EXIT=>1}, |
| {ERR=>"$prog: -0: No such file or directory\n"}], |
|
|
| |
| ['overflow-off-1', '-', '7' x 255, {IN_PIPE=>""}, {EXIT=>1}, |
| {ERR=>"od: ".('7' x 255).": $ERANGE\n"}], |
| ['overflow-off-2', '-', ('9' x 254).'.', {IN_PIPE=>""}, {EXIT=>1}, |
| {ERR=>"od: ".('9' x 254).".: $ERANGE\n"}], |
| ['overflow-off-3', '-', '0x'.('f' x 253), {IN_PIPE=>""}, {EXIT=>1}, |
| {ERR=>"od: 0x".('f' x 253).": $ERANGE\n"}], |
|
|
| |
| |
| |
| ['wide-a', '-a -w65537 -An', {IN=>{g=>'x'}}, {OUT=>" x\n"}], |
| ['wide-c', '-c -w65537 -An', {IN=>{g=>'x'}}, {OUT=>" x\n"}], |
| ['wide-x', '-tx1 -w65537 -An', {IN=>{g=>'B'}}, {OUT=>" 42\n"}], |
|
|
| |
| |
| ['invalid-w-1', '-w0 -An', {IN=>""}, {EXIT=>1}, |
| {ERR=>"$prog: invalid -w argument '0'\n"}], |
| ['invalid-w-2', '-w-1 -An', {IN=>""}, {EXIT=>1}, |
| {ERR=>"$prog: invalid -w argument '-1'\n"}], |
| ['invalid-w-3', '-ww -An', {IN=>""}, {EXIT=>1}, |
| {ERR=>"$prog: invalid -w argument 'w'\n"}], |
| ); |
|
|
| my $save_temps = $ENV{DEBUG}; |
| my $verbose = $ENV{VERBOSE}; |
|
|
| my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose); |
| exit $fail; |
|
|