From 99b039fead8d72936d0d558198235eee03016904 Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering@redhat.com>
Date: Sat, 2 Jun 2007 23:04:10 +0200
Subject: New program: mktemp.

* NEWS: Mention this.
* README: Add mktemp to the list.
* AUTHORS: Add this: mktemp: Jim Meyering
* src/mktemp.c: New file.
* src/Makefile.am (bin_PROGRAMS): Add mktemp.
(mktemp_LDADD): Add $(LIB_GETHRXTIME).
* man/mktemp.x: New file.
* man/Makefile.am (dist_man_MANS): Add mktemp.1.
(mktemp.1): New dependency.
* man/.cvsignore: Add mktemp.1.
* man/.gitignore: New file.
* src/.cvsignore, src/.gitignore: Add mktemp.
* tests/misc/mktemp: New file.
* tests/misc/Makefile.am (TESTS): Add mktemp.
* tests/Coreutils.pm (run_tests): Give the POST-test function
access to stdout and stderr contents, so it can verify that
the named-on-stdout file/dir does indeed exist and has proper
permissions, etc.
[po/ChangeLog]
* POTFILES.in: Add src/mktemp.c.
---
 tests/Coreutils.pm | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

(limited to 'tests/Coreutils.pm')

diff --git a/tests/Coreutils.pm b/tests/Coreutils.pm
index 74b5fbdbf..e506cc810 100644
--- a/tests/Coreutils.pm
+++ b/tests/Coreutils.pm
@@ -1,8 +1,7 @@
 package Coreutils;
 # This is a testing framework.
 
-# Copyright (C) 1998, 2000, 2001, 2002, 2004, 2005, 2006 Free Software
-# Foundation, Inc.
+# Copyright (C) 1998, 2000-2002, 2004-2007 Free Software Foundation, Inc.
 
 # This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -478,6 +477,23 @@ sub run_tests ($$$$$)
 	  goto cleanup;
 	}
 
+      my %actual_data;
+      # Record actual stdout and stderr contents, if POST may need them.
+      if ($expect->{POST})
+	{
+	  foreach my $eo (qw (OUT ERR))
+	    {
+	      my $out_file = $actual{$eo};
+	      open IN, $out_file
+		or (warn "$program_name: cannot open $out_file for reading: $!\n"),
+		  $fail = 1, next;
+	      $actual_data{$eo} = <IN>;
+	      close IN
+		or (warn "$program_name: failed to read $out_file: $!\n"),
+		  $fail = 1;
+	    }
+	}
+
       foreach my $eo (qw (OUT ERR))
 	{
 	  my $subst_expr = $expect->{RESULT_SUBST}->{$eo};
@@ -525,7 +541,8 @@ sub run_tests ($$$$$)
 	}
 
     cleanup:
-      &{$expect->{POST}} if $expect->{POST};
+      $expect->{POST}
+	and &{$expect->{POST}} ($actual_data{OUT}, $actual_data{ERR});
 
     }
 
-- 
cgit v1.2.3-70-g09d2