summaryrefslogtreecommitdiff
path: root/tests/sha1sum/sample-vec
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2000-11-02 17:04:23 +0000
committerJim Meyering <jim@meyering.net>2000-11-02 17:04:23 +0000
commitfc1e3ad16685ae87df99c08db1e7d43c4f9bb879 (patch)
tree1191789f82d885e331cff993ead089220588a33e /tests/sha1sum/sample-vec
parent901ef41f7fc92e1508550325b51f3f31c9c82fdc (diff)
downloadcoreutils-fc1e3ad16685ae87df99c08db1e7d43c4f9bb879.tar.xz
argh!! use pack's `B', not `b' format
Diffstat (limited to 'tests/sha1sum/sample-vec')
-rwxr-xr-xtests/sha1sum/sample-vec39
1 files changed, 34 insertions, 5 deletions
diff --git a/tests/sha1sum/sample-vec b/tests/sha1sum/sample-vec
index 81b7c5539..c27c96831 100755
--- a/tests/sha1sum/sample-vec
+++ b/tests/sha1sum/sample-vec
@@ -34,14 +34,43 @@ my @Tests =
{OUT=>'CA775D8C80FAA6F87FA62BECA6CA6089D63B56E5'}],
);
-# Expand each input.
-# Convert each expected output string to lower case.
-# Append " f\n" to each expected output
-# Insert the `--text' argument for each test.
+sub binary_expand ($$)
+{
+ my ($test_name, $line) = @_;
+ my @a = split ' ', $line;
+ @a >= 2 or die "$test_name: too few args";
+ my $n = shift @a;
+ my $b = shift @a;
+ my $caret = pop @a;
+ $caret eq '^' or die "$test_name: missing `^'";
+ $b eq '1' || $b eq '0' or die "$test_name: bad `b'=$b\n";
+ my $n_bad = @a;
+ @a == $n or
+ die "$test_name: wrong number of args (expected $n, found $n_bad)\n";
+ my $bit_string = '';
+ foreach my $a (@a)
+ {
+ $bit_string .= $b x $a;
+ $b = 1 - $b;
+ }
+ my $t = pack ("B*", $bit_string);
+ # print "$bit_string\n $t\n";
+ return $t;
+}
+
my $t;
foreach $t (@Tests)
{
- splice @$t, 1, 0, '--text';
+ # Expand each input.
+ my $in = $t->[1]->{IN};
+ $in->{f} = binary_expand $t->[0], $in->{f};
+
+ # Convert each expected output string to lower case, and append " f\n".
+ my $h = $t->[2];
+ $h->{OUT} = lc $h->{OUT} . " f\n";
+
+ # Insert the `--text' argument for each test.
+ #splice @$t, 1, 0, '--text';
}
my $save_temps = $ENV{DEBUG};