Changeset 1cf3f8d3 for tester.c

Timestamp:

Jul 7, 2007, 5:42:45 PM (17 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

535d68b

Parents:

9a6cc40

Message:

Make the built-in regression tests output TAP and add a perl wrapper
to call it.

File:

• tester.c (modified) (3 diffs)

tester.c

@@ -143 +143 @@
 
 
+#define OWL_DICT_NTESTS  20
+#define OWL_UTIL_NTESTS  9
+#define OWL_OBARRAY_NTESTS  5
+#define OWL_VARIABLE_NTESTS  52
+#define OWL_FILTER_NTESTS  23
+
 int main(int argc, char **argv, char **env)
 {
@@ -149 +155 @@
 
   int numfailures=0;
-  if (argc==2 && 0==strcmp(argv[1],"reg")) {
+  if (argc==1 || (argc==2 && 0==strcmp(argv[1],"reg"))) {
+    printf("1..%d\n", OWL_UTIL_NTESTS+OWL_DICT_NTESTS+OWL_VARIABLE_NTESTS
+           +OWL_FILTER_NTESTS+OWL_OBARRAY_NTESTS);
     numfailures += owl_util_regtest();
     numfailures += owl_dict_regtest();
@@ -156 +164 @@
     numfailures += owl_obarray_regtest();
     if (numfailures) {
-      fprintf(stderr, "*** WARNING: %d failures total\n", numfailures);
+      fprintf(stderr, "# *** WARNING: %d failures total\n", numfailures);
     }
     return(numfailures);