From d2ee96d2bd7769dee621c7d33d123c3d3c23a30d Mon Sep 17 00:00:00 2001
From: Jakob Unterwurzacher <jakobunt@gmail.com>
Date: Sat, 22 Jul 2017 19:04:45 +0200
Subject: [PATCH] tests: print "mode=standard", "mode=paranoia" progress

We run through everything in normal.t.pl two times, once
in "standard" mode and once in "paranoia" mode. Print some
context. Also, bail out if file creation fails.

Output now looks like this:

$ ./test.sh
tests/normal.t.pl ...
runTests: mode=standard
tests/normal.t.pl ... 54/116
runTests: mode=paranoia
tests/normal.t.pl ... ok
tests/reverse.t.pl .. ok
All tests successful.
Files=2, Tests=141, 21 wallclock secs ( 0.04 usr  0.00 sys + 20.03 cusr  0.36 csys = 20.43 CPU)
Result: PASS
---
 tests/normal.t.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/normal.t.pl b/tests/normal.t.pl
index b65274c..d15951a 100755
--- a/tests/normal.t.pl
+++ b/tests/normal.t.pl
@@ -22,6 +22,7 @@ my $tempDir = $ENV{'TMPDIR'} || "/tmp";
 sub runTests
 {
     my $mode = shift;
+    print STDERR "\nrunTests: mode=$mode\n";
 
     &newWorkingDir;
 
@@ -191,8 +192,8 @@ sub truncate
 sub fileCreation
 {
     # create a file
-    qx(df -ah > "$crypt/df.txt" 2> /dev/null);
-    ok( -f "$crypt/df.txt", "file created" );
+    qx(date > "$crypt/df.txt");
+    ok( -f "$crypt/df.txt", "file created" ) || BAIL_OUT("file create failed");
 
     # ensure there is an encrypted version.
     my $c = encName("df.txt");