mirror of
https://github.com/coreutils/coreutils.git
synced 2024-12-05 07:54:07 +08:00
in progress...
This commit is contained in:
Jim Meyering
parent
33448d128a
commit
0b3d661480
@ -9,6 +9,26 @@ use POSIX qw (assert);
|
||||
BEGIN { push @INC, '@srcdir@' if '@srcdir@' ne '.'; }
|
||||
use Test;
|
||||
|
||||
sub validate
|
||||
{
|
||||
my %seen;
|
||||
my $test_vector;
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
|
||||
@{$test_vector};
|
||||
assert (defined $e_ret_code && !defined $rest);
|
||||
assert (!ref $test_name);
|
||||
assert (!ref $flags);
|
||||
assert (!ref $expected);
|
||||
assert (!ref $e_ret_code);
|
||||
|
||||
die "$0: $.: duplicate test name \`$test_name'\n"
|
||||
if (defined $seen{$test_name});
|
||||
$seen{$test_name} = 1;
|
||||
}
|
||||
}
|
||||
|
||||
sub spec_to_list ($$$)
|
||||
{
|
||||
my ($spec, $test_name, $type) = @_;
|
||||
@ -75,8 +95,20 @@ sub spec_to_list ($$$)
|
||||
{
|
||||
$| = 1;
|
||||
|
||||
die "Usage: $0: program-name\n" if @ARGV != 1;
|
||||
|
||||
my $xx = $ARGV[0];
|
||||
|
||||
if ($xx eq '--list-generated')
|
||||
{
|
||||
validate ();
|
||||
# FIXME !!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
# Output two lists of files:
|
||||
# MAINT_GEN -- maintainer-generated files
|
||||
# RUN_GEN -- files created when running the tests
|
||||
exit 0;
|
||||
}
|
||||
|
||||
print <<EOF;
|
||||
#! /bin/sh
|
||||
# This script was generated automatically by build-script.
|
||||
@ -91,30 +123,12 @@ test "\$srcdir" || srcdir=.
|
||||
test "\$VERBOSE" && \$xx --version 2> /dev/null
|
||||
EOF
|
||||
|
||||
my %seen;
|
||||
|
||||
my $test_vector;
|
||||
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
|
||||
@{$test_vector};
|
||||
assert (defined $e_ret_code && !defined $rest);
|
||||
assert (!ref $test_name);
|
||||
assert (!ref $flags);
|
||||
assert (!ref $expected);
|
||||
assert (!ref $e_ret_code);
|
||||
|
||||
die "$0: $.: duplicate test name \`$test_name'\n"
|
||||
if (defined $seen{$test_name});
|
||||
$seen{$test_name} = 1;
|
||||
}
|
||||
}
|
||||
validate ();
|
||||
|
||||
my $test_vector;
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $exp_spec, $e_ret_code)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $exp_spec, $e_ret_code)
|
||||
= @{$test_vector};
|
||||
|
||||
my $in = spec_to_list ($in_spec, $test_name, 'in');
|
||||
@ -163,3 +177,4 @@ fi
|
||||
test \$errors = 0 || errors=1
|
||||
exit \$errors
|
||||
EOF2
|
||||
}
|
||||
|
||||
@ -9,6 +9,26 @@ use POSIX qw (assert);
|
||||
BEGIN { push @INC, '@srcdir@' if '@srcdir@' ne '.'; }
|
||||
use Test;
|
||||
|
||||
sub validate
|
||||
{
|
||||
my %seen;
|
||||
my $test_vector;
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
|
||||
@{$test_vector};
|
||||
assert (defined $e_ret_code && !defined $rest);
|
||||
assert (!ref $test_name);
|
||||
assert (!ref $flags);
|
||||
assert (!ref $expected);
|
||||
assert (!ref $e_ret_code);
|
||||
|
||||
die "$0: $.: duplicate test name \`$test_name'\n"
|
||||
if (defined $seen{$test_name});
|
||||
$seen{$test_name} = 1;
|
||||
}
|
||||
}
|
||||
|
||||
sub spec_to_list ($$$)
|
||||
{
|
||||
my ($spec, $test_name, $type) = @_;
|
||||
@ -75,8 +95,20 @@ sub spec_to_list ($$$)
|
||||
{
|
||||
$| = 1;
|
||||
|
||||
die "Usage: $0: program-name\n" if @ARGV != 1;
|
||||
|
||||
my $xx = $ARGV[0];
|
||||
|
||||
if ($xx eq '--list-generated')
|
||||
{
|
||||
validate ();
|
||||
# FIXME !!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
# Output two lists of files:
|
||||
# MAINT_GEN -- maintainer-generated files
|
||||
# RUN_GEN -- files created when running the tests
|
||||
exit 0;
|
||||
}
|
||||
|
||||
print <<EOF;
|
||||
#! /bin/sh
|
||||
# This script was generated automatically by build-script.
|
||||
@ -91,30 +123,12 @@ test "\$srcdir" || srcdir=.
|
||||
test "\$VERBOSE" && \$xx --version 2> /dev/null
|
||||
EOF
|
||||
|
||||
my %seen;
|
||||
|
||||
my $test_vector;
|
||||
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
|
||||
@{$test_vector};
|
||||
assert (defined $e_ret_code && !defined $rest);
|
||||
assert (!ref $test_name);
|
||||
assert (!ref $flags);
|
||||
assert (!ref $expected);
|
||||
assert (!ref $e_ret_code);
|
||||
|
||||
die "$0: $.: duplicate test name \`$test_name'\n"
|
||||
if (defined $seen{$test_name});
|
||||
$seen{$test_name} = 1;
|
||||
}
|
||||
}
|
||||
validate ();
|
||||
|
||||
my $test_vector;
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $exp_spec, $e_ret_code)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $exp_spec, $e_ret_code)
|
||||
= @{$test_vector};
|
||||
|
||||
my $in = spec_to_list ($in_spec, $test_name, 'in');
|
||||
@ -163,3 +177,4 @@ fi
|
||||
test \$errors = 0 || errors=1
|
||||
exit \$errors
|
||||
EOF2
|
||||
}
|
||||
|
||||
@ -9,6 +9,26 @@ use POSIX qw (assert);
|
||||
BEGIN { push @INC, '@srcdir@' if '@srcdir@' ne '.'; }
|
||||
use Test;
|
||||
|
||||
sub validate
|
||||
{
|
||||
my %seen;
|
||||
my $test_vector;
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
|
||||
@{$test_vector};
|
||||
assert (defined $e_ret_code && !defined $rest);
|
||||
assert (!ref $test_name);
|
||||
assert (!ref $flags);
|
||||
assert (!ref $expected);
|
||||
assert (!ref $e_ret_code);
|
||||
|
||||
die "$0: $.: duplicate test name \`$test_name'\n"
|
||||
if (defined $seen{$test_name});
|
||||
$seen{$test_name} = 1;
|
||||
}
|
||||
}
|
||||
|
||||
sub spec_to_list ($$$)
|
||||
{
|
||||
my ($spec, $test_name, $type) = @_;
|
||||
@ -75,8 +95,20 @@ sub spec_to_list ($$$)
|
||||
{
|
||||
$| = 1;
|
||||
|
||||
die "Usage: $0: program-name\n" if @ARGV != 1;
|
||||
|
||||
my $xx = $ARGV[0];
|
||||
|
||||
if ($xx eq '--list-generated')
|
||||
{
|
||||
validate ();
|
||||
# FIXME !!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
# Output two lists of files:
|
||||
# MAINT_GEN -- maintainer-generated files
|
||||
# RUN_GEN -- files created when running the tests
|
||||
exit 0;
|
||||
}
|
||||
|
||||
print <<EOF;
|
||||
#! /bin/sh
|
||||
# This script was generated automatically by build-script.
|
||||
@ -91,30 +123,12 @@ test "\$srcdir" || srcdir=.
|
||||
test "\$VERBOSE" && \$xx --version 2> /dev/null
|
||||
EOF
|
||||
|
||||
my %seen;
|
||||
|
||||
my $test_vector;
|
||||
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
|
||||
@{$test_vector};
|
||||
assert (defined $e_ret_code && !defined $rest);
|
||||
assert (!ref $test_name);
|
||||
assert (!ref $flags);
|
||||
assert (!ref $expected);
|
||||
assert (!ref $e_ret_code);
|
||||
|
||||
die "$0: $.: duplicate test name \`$test_name'\n"
|
||||
if (defined $seen{$test_name});
|
||||
$seen{$test_name} = 1;
|
||||
}
|
||||
}
|
||||
validate ();
|
||||
|
||||
my $test_vector;
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $exp_spec, $e_ret_code)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $exp_spec, $e_ret_code)
|
||||
= @{$test_vector};
|
||||
|
||||
my $in = spec_to_list ($in_spec, $test_name, 'in');
|
||||
@ -163,3 +177,4 @@ fi
|
||||
test \$errors = 0 || errors=1
|
||||
exit \$errors
|
||||
EOF2
|
||||
}
|
||||
|
||||
@ -9,6 +9,26 @@ use POSIX qw (assert);
|
||||
BEGIN { push @INC, '@srcdir@' if '@srcdir@' ne '.'; }
|
||||
use Test;
|
||||
|
||||
sub validate
|
||||
{
|
||||
my %seen;
|
||||
my $test_vector;
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
|
||||
@{$test_vector};
|
||||
assert (defined $e_ret_code && !defined $rest);
|
||||
assert (!ref $test_name);
|
||||
assert (!ref $flags);
|
||||
assert (!ref $expected);
|
||||
assert (!ref $e_ret_code);
|
||||
|
||||
die "$0: $.: duplicate test name \`$test_name'\n"
|
||||
if (defined $seen{$test_name});
|
||||
$seen{$test_name} = 1;
|
||||
}
|
||||
}
|
||||
|
||||
sub spec_to_list ($$$)
|
||||
{
|
||||
my ($spec, $test_name, $type) = @_;
|
||||
@ -75,8 +95,20 @@ sub spec_to_list ($$$)
|
||||
{
|
||||
$| = 1;
|
||||
|
||||
die "Usage: $0: program-name\n" if @ARGV != 1;
|
||||
|
||||
my $xx = $ARGV[0];
|
||||
|
||||
if ($xx eq '--list-generated')
|
||||
{
|
||||
validate ();
|
||||
# FIXME !!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
# Output two lists of files:
|
||||
# MAINT_GEN -- maintainer-generated files
|
||||
# RUN_GEN -- files created when running the tests
|
||||
exit 0;
|
||||
}
|
||||
|
||||
print <<EOF;
|
||||
#! /bin/sh
|
||||
# This script was generated automatically by build-script.
|
||||
@ -91,30 +123,12 @@ test "\$srcdir" || srcdir=.
|
||||
test "\$VERBOSE" && \$xx --version 2> /dev/null
|
||||
EOF
|
||||
|
||||
my %seen;
|
||||
|
||||
my $test_vector;
|
||||
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
|
||||
@{$test_vector};
|
||||
assert (defined $e_ret_code && !defined $rest);
|
||||
assert (!ref $test_name);
|
||||
assert (!ref $flags);
|
||||
assert (!ref $expected);
|
||||
assert (!ref $e_ret_code);
|
||||
|
||||
die "$0: $.: duplicate test name \`$test_name'\n"
|
||||
if (defined $seen{$test_name});
|
||||
$seen{$test_name} = 1;
|
||||
}
|
||||
}
|
||||
validate ();
|
||||
|
||||
my $test_vector;
|
||||
foreach $test_vector (@Test::t)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $exp_spec, $e_ret_code)
|
||||
{
|
||||
my ($test_name, $flags, $in_spec, $exp_spec, $e_ret_code)
|
||||
= @{$test_vector};
|
||||
|
||||
my $in = spec_to_list ($in_spec, $test_name, 'in');
|
||||
@ -163,3 +177,4 @@ fi
|
||||
test \$errors = 0 || errors=1
|
||||
exit \$errors
|
||||
EOF2
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user