# Turn off localisation of executable's ouput.
@ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
+my $in_1k = 'a' x 1024;
+my $in_2k = 'b' x 2048;
+
my @Tests =
(
['1', {IN=> {f=> ''}}, {OUT=>"00000 0\n"}],
['6', {IN=> {f=> join ('', 'A'..'Z', 'a'..'z', '0'..'9')}},
{OUT=>"25587 1\n"}],
['7', {IN=> {f=> '1234567890' x 8}}, {OUT=>"21845 1\n"}],
+
+ ['a-r-1k', '-r', {IN=> {f=> $in_1k}}, {OUT=>"65409 1\n"}],
+ ['a-s-1k', '-s', {IN=> {f=> $in_1k}}, {OUT=>"33793 2 f\n"}],
+ ['b-r-2k', '-r', {IN=> {f=> $in_2k}}, {OUT=>"65223 2\n"}],
+ ['b-s-2k', '-s', {IN=> {f=> $in_2k}}, {OUT=>"4099 4 f\n"}],
+
+ ['1s', '-s', {IN=> {f=> ''}}, {OUT=>"0 0 f\n"}],
+ ['2s', '-s', {IN=> {f=> 'a'}}, {OUT=>"97 1 f\n"}],
+ ['3s', '-s', {IN=> {f=> 'abc'}}, {OUT=>"294 1 f\n"}],
+ ['4s', '-s', {IN=> {f=> 'message digest'}}, {OUT=>"1413 1 f\n"}],
+ ['5s', '-s', {IN=> {f=> 'abcdefghijklmnopqrstuvwxyz'}},
+ {OUT=>"2847 1 f\n"}],
+ ['6s', '-s', {IN=> {f=> join ('', 'A'..'Z', 'a'..'z', '0'..'9')}},
+ {OUT=>"5387 1 f\n"}],
+ ['7s', '-s', {IN=> {f=> '1234567890' x 8}}, {OUT=>"4200 1 f\n"}],
);
my $save_temps = $ENV{DEBUG};