projects / platform / upstream / coreutils.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 20b960d)
apply spec_to_list to expected file, too.
authorJim Meyering <jim@meyering.net>
Sun, 15 Dec 1996 20:35:32 +0000 (20:35 +0000)
committerJim Meyering <jim@meyering.net>
Sun, 15 Dec 1996 20:35:32 +0000 (20:35 +0000)
tests/cut/mk-script.pl patch | blob | history
tests/head/mk-script.pl patch | blob | history
tests/join/mk-script.pl patch | blob | history
tests/ls/mk-script.pl patch | blob | history

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index f1a4fa4..9ae9778 100644 (file)
--- a/tests/cut/mk-script.pl
+++ b/tests/cut/mk-script.pl
@@ -111,20 +111,11 @@ EOF
 my $test_vector;
 foreach $test_vector (@Test::t)
   {
-    my ($test_name, $flags, $in_spec, $expected, $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');
 
-    my $exp_name = "t$test_name.exp";
-    my $out = "t$test_name.out";
-
-    open (EXP, ">$exp_name") || die "$0: $exp_name: $!\n";
-    print EXP $expected;
-    close (EXP) || die "$0: $exp_name: $!\n";
-
-    my $err_output = "t$test_name.err";
-
     my @srcdir_rel_in_file;
     my $f;
     foreach $f (@{ $in->{ALL_FILES} })
@@ -132,9 +123,14 @@ foreach $test_vector (@Test::t)
        push (@srcdir_rel_in_file, "\$srcdir/$f")
       }
 
+    my $Exp = spec_to_list ($exp_spec, $test_name, 'exp');
+    assert (@{ $Exp->{ALL_FILES} } == 1);
+    my $exp_name = "\$srcdir/$Exp->{ALL_FILES}->[0]";
+    my $out = "t$test_name.out";
+    my $err_output = "t$test_name.err";
+
     my $cmd = "\$xx $flags " . join (' ', @srcdir_rel_in_file)
       . " > $out 2> $err_output";
-    $exp_name = "\$srcdir/$exp_name";
     print <<EOF ;
 $cmd
 code=\$?
diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index f1a4fa4..9ae9778 100644 (file)
--- a/tests/head/mk-script.pl
+++ b/tests/head/mk-script.pl
@@ -111,20 +111,11 @@ EOF
 my $test_vector;
 foreach $test_vector (@Test::t)
   {
-    my ($test_name, $flags, $in_spec, $expected, $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');
 
-    my $exp_name = "t$test_name.exp";
-    my $out = "t$test_name.out";
-
-    open (EXP, ">$exp_name") || die "$0: $exp_name: $!\n";
-    print EXP $expected;
-    close (EXP) || die "$0: $exp_name: $!\n";
-
-    my $err_output = "t$test_name.err";
-
     my @srcdir_rel_in_file;
     my $f;
     foreach $f (@{ $in->{ALL_FILES} })
@@ -132,9 +123,14 @@ foreach $test_vector (@Test::t)
        push (@srcdir_rel_in_file, "\$srcdir/$f")
       }
 
+    my $Exp = spec_to_list ($exp_spec, $test_name, 'exp');
+    assert (@{ $Exp->{ALL_FILES} } == 1);
+    my $exp_name = "\$srcdir/$Exp->{ALL_FILES}->[0]";
+    my $out = "t$test_name.out";
+    my $err_output = "t$test_name.err";
+
     my $cmd = "\$xx $flags " . join (' ', @srcdir_rel_in_file)
       . " > $out 2> $err_output";
-    $exp_name = "\$srcdir/$exp_name";
     print <<EOF ;
 $cmd
 code=\$?
diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index f1a4fa4..9ae9778 100644 (file)
--- a/tests/join/mk-script.pl
+++ b/tests/join/mk-script.pl
@@ -111,20 +111,11 @@ EOF
 my $test_vector;
 foreach $test_vector (@Test::t)
   {
-    my ($test_name, $flags, $in_spec, $expected, $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');
 
-    my $exp_name = "t$test_name.exp";
-    my $out = "t$test_name.out";
-
-    open (EXP, ">$exp_name") || die "$0: $exp_name: $!\n";
-    print EXP $expected;
-    close (EXP) || die "$0: $exp_name: $!\n";
-
-    my $err_output = "t$test_name.err";
-
     my @srcdir_rel_in_file;
     my $f;
     foreach $f (@{ $in->{ALL_FILES} })
@@ -132,9 +123,14 @@ foreach $test_vector (@Test::t)
        push (@srcdir_rel_in_file, "\$srcdir/$f")
       }
 
+    my $Exp = spec_to_list ($exp_spec, $test_name, 'exp');
+    assert (@{ $Exp->{ALL_FILES} } == 1);
+    my $exp_name = "\$srcdir/$Exp->{ALL_FILES}->[0]";
+    my $out = "t$test_name.out";
+    my $err_output = "t$test_name.err";
+
     my $cmd = "\$xx $flags " . join (' ', @srcdir_rel_in_file)
       . " > $out 2> $err_output";
-    $exp_name = "\$srcdir/$exp_name";
     print <<EOF ;
 $cmd
 code=\$?
diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index f1a4fa4..9ae9778 100644 (file)
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/mk-script.pl
@@ -111,20 +111,11 @@ EOF
 my $test_vector;
 foreach $test_vector (@Test::t)
   {
-    my ($test_name, $flags, $in_spec, $expected, $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');
 
-    my $exp_name = "t$test_name.exp";
-    my $out = "t$test_name.out";
-
-    open (EXP, ">$exp_name") || die "$0: $exp_name: $!\n";
-    print EXP $expected;
-    close (EXP) || die "$0: $exp_name: $!\n";
-
-    my $err_output = "t$test_name.err";
-
     my @srcdir_rel_in_file;
     my $f;
     foreach $f (@{ $in->{ALL_FILES} })
@@ -132,9 +123,14 @@ foreach $test_vector (@Test::t)
        push (@srcdir_rel_in_file, "\$srcdir/$f")
       }
 
+    my $Exp = spec_to_list ($exp_spec, $test_name, 'exp');
+    assert (@{ $Exp->{ALL_FILES} } == 1);
+    my $exp_name = "\$srcdir/$Exp->{ALL_FILES}->[0]";
+    my $out = "t$test_name.out";
+    my $err_output = "t$test_name.err";
+
     my $cmd = "\$xx $flags " . join (' ', @srcdir_rel_in_file)
       . " > $out 2> $err_output";
-    $exp_name = "\$srcdir/$exp_name";
     print <<EOF ;
 $cmd
 code=\$?
Domain: System / Uncategorized;