Remove "Written by Ben Pfaff <blp@gnu.org>" lines everywhere.
[pspp-builds.git] / tests / libpspp / llx-test.c
index 0de38b02c80ade4f731b3e45846b8251ffa1d2e4..1b069a212efef60f8f3177fd279e6d2ae5aa0021 100644 (file)
@@ -1,6 +1,5 @@
 /* PSPP - computes sample statistics.
    Copyright (C) 2006 Free Software Foundation, Inc.
-   Written by Ben Pfaff <blp@gnu.org>.
 
    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License as
@@ -41,6 +40,9 @@
 #define UNUSED
 #endif
 
+/* Currently running test. */
+static const char *test_name;
+
 /* Exit with a failure code.
    (Place a breakpoint on this function while debugging.) */
 static void
@@ -56,7 +58,8 @@ check_func (bool ok, int line)
 {
   if (!ok) 
     {
-      printf ("check failed at %s, line %d\n", __FILE__, line);
+      printf ("Check failed in %s test at %s, line %d\n",
+              test_name, __FILE__, line);
       check_die ();
     }
 }
@@ -2018,10 +2021,10 @@ test_allocation_failure (void)
 static void
 run_test (void (*test_function) (void), const char *name) 
 {
-  printf ("Running %s test...  ", name);
+  test_name = name;
+  putchar ('.');
   fflush (stdout);
   test_function ();
-  printf ("done.\n");
 }
 
 int
@@ -2058,6 +2061,7 @@ main (void)
   run_test (test_insert_ordered, "insert_ordered");
   run_test (test_partition, "partition");
   run_test (test_allocation_failure, "allocation failure");
+  putchar ('\n');
 
   return 0;
 }