| |
| |
|
|
| |
|
|
| |
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
| |
| |
|
|
| use strict; |
|
|
| my $prog = 'head'; |
|
|
| |
| @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3; |
|
|
| my $in = join ('', map { "$_\n" } 0..600); |
| my $in_1024 = substr $in, 0, 1024; |
|
|
| |
| my $x32_bit_long = 0; |
|
|
| my @Tests = |
| ( |
| ['idem-0', {IN=>''}, {OUT=>''}], |
| ['idem-1', {IN=>'a'}, {OUT=>'a'}], |
| ['idem-2', {IN=>"\n"}, {OUT=>"\n"}], |
| ['idem-3', {IN=>"a\n"}, {OUT=>"a\n"}], |
|
|
| ['basic-10', |
| {IN=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n"}, |
| {OUT=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n"}], |
|
|
| ['basic-09', |
| {IN=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n"}, |
| {OUT=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n"}], |
|
|
| ['basic-11', |
| {IN=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\nb\n"}, |
| {OUT=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n"}], |
|
|
| ['obs-0', '-1', {IN=>"1\n2\n"}, {OUT=>"1\n"}], |
| ['obs-1', '-1c', {IN=>''}, {OUT=>''}], |
| ['obs-2', '-1c', {IN=>'12'}, {OUT=>'1'}], |
| ['obs-3', '-14c', {IN=>'1234567890abcdefg'}, {OUT=>'1234567890abcd'}], |
| ['obs-4', '-2b', {IN=>$in}, {OUT=>$in_1024}], |
| ['obs-5', '-1k', {IN=>$in}, {OUT=>$in_1024}], |
|
|
| |
| |
| |
| |
|
|
| |
| ['fail-1', qw(-n 2048m), {IN=>"a\n"}, {OUT=>"a\n"}], |
|
|
| |
| ['null-1', {IN=>"a\0a\n"}, {OUT=>"a\0a\n"}], |
|
|
| |
| |
| ['no-oct-1', '-08', {IN=>"\n"x12}, {OUT=>"\n"x8}], |
| ['no-oct-2', '-010', {IN=>"\n"x12}, {OUT=>"\n"x10}], |
| ['no-oct-3', '-n 08', {IN=>"\n"x12}, {OUT=>"\n"x8}], |
| ['no-oct-4', '-c 08', {IN=>"\n"x12}, {OUT=>"\n"x8}], |
|
|
| |
| ['zero-1', '-z -n 1', {IN=>"x\0y"}, {OUT=>"x\0"}], |
| ['zero-2', '-z -n 2', {IN=>"x\0y"}, {OUT=>"x\0y"}], |
| ); |
|
|
| @Tests = triple_test \@Tests; |
|
|
| my $save_temps = $ENV{DEBUG}; |
| my $verbose = $ENV{VERBOSE}; |
|
|
| my $fail = run_tests ($prog, $prog, \@Tests, $save_temps, $verbose); |
| exit $fail; |
|
|