X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/mLib/blobdiff_plain/20ba6b0b276f584060415023d68b59917de1e7e6..ce896b0b69481d8ec941e1601fddd2df5143b259:/test/tvec-output.c

diff --git a/test/tvec-output.c b/test/tvec-output.c
index 37d010d..a4a4415 100644
--- a/test/tvec-output.c
+++ b/test/tvec-output.c
@@ -1022,6 +1022,7 @@ struct tap_output {
   struct tvec_output _o;
   struct tvec_state *tv;
   struct layout lyt;
+  unsigned last;
   char *outbuf; size_t outsz;
   int maxlen;
 };
@@ -1030,11 +1031,11 @@ static int tap_writech(void *go, int ch)
   { struct tap_output *t = go; return (layout_char(&t->lyt, ch)); }
 
 static int tap_writem(void *go, const char *p, size_t sz)
-  { struct human_output *t = go; return (layout_string(&t->lyt, p, sz)); }
+  { struct tap_output *t = go; return (layout_string(&t->lyt, p, sz)); }
 
 static int tap_nwritef(void *go, size_t maxsz, const char *p, ...)
 {
-  struct human_output *t = go;
+  struct tap_output *t = go;
   size_t n;
   va_list ap;
 
@@ -1051,8 +1052,8 @@ static void tap_bsession(struct tvec_output *o, struct tvec_state *tv)
 {
   struct tap_output *t = (struct tap_output *)o;
 
-  t->tv = tv;
-  fputs("TAP version 13\n", t->lyt.fp);
+  t->tv = tv; t->last = 0;
+  fputs("TAP version 13\n", t->lyt.fp); /* but secretly 14 really */
 }
 
 static unsigned tap_grpix(struct tap_output *t)
@@ -1064,6 +1065,16 @@ static unsigned tap_grpix(struct tap_output *t)
   return (n);
 }
 
+static unsigned tap_testix(struct tap_output *t)
+{
+  struct tvec_state *tv = t->tv;
+  unsigned i, n;
+
+  for (n = 0, i = 0; i < TVOUT_LIMIT; i++) n += tv->curr[i];
+  if (tv->f&TVSF_OPEN) n++;
+  return (n);
+}
+
 static int tap_esession(struct tvec_output *o)
 {
   struct tap_output *t = (struct tap_output *)o;
@@ -1083,7 +1094,10 @@ static int tap_esession(struct tvec_output *o)
 static void tap_bgroup(struct tvec_output *o)
 {
   struct tap_output *t = (struct tap_output *)o;
+  struct tvec_state *tv = t->tv;
+
   t->maxlen = register_maxnamelen(t->tv);
+  fprintf(t->lyt.fp, "# Subtest: %s\n", tv->test->name);
 }
 
 static void tap_skipgroup(struct tvec_output *o,
@@ -1091,76 +1105,45 @@ static void tap_skipgroup(struct tvec_output *o,
 {
   struct tap_output *t = (struct tap_output *)o;
 
+  fprintf(t->lyt.fp, "    1..%u\n", tap_testix(t));
   fprintf(t->lyt.fp, "ok %u %s # SKIP", tap_grpix(t), t->tv->test->name);
   if (excuse) { fputc(' ', t->lyt.fp); vfprintf(t->lyt.fp, excuse, *ap); }
   fputc('\n', t->lyt.fp);
 }
 
-static void tap_report_unusual(struct tap_output *t,
-			       unsigned nxfail, unsigned nskip)
-{
-  const char *sep = " (";
-  unsigned f = 0;
-#define f_any 1u
-
-  if (nxfail) {
-    fprintf(t->lyt.fp, "%s%u expected %s",
-	    sep, nxfail, nxfail == 1 ? "failure" : "failures");
-    sep = ", "; f |= f_any;
-  }
-
-  if (nskip) {
-    fprintf(t->lyt.fp, "%s%u skipped", sep, nskip);
-    sep = ", "; f |= f_any;
-  }
-
-  if (f&f_any) fputc(')', t->lyt.fp);
-
-#undef f_any
-}
-
 static void tap_egroup(struct tvec_output *o)
 {
   struct tap_output *t = (struct tap_output *)o;
   struct tvec_state *tv = t->tv;
-  unsigned
-    grpix = tap_grpix(t),
-    win = tv->curr[TVOUT_WIN],
-    xfail = tv->curr[TVOUT_XFAIL],
-    lose = tv->curr[TVOUT_LOSE],
-    skip = tv->curr[TVOUT_SKIP],
-    pass = win + xfail;
-
-  if (lose)
-    fprintf(t->lyt.fp, "not ok %u - %s: FAILED %u/%u",
-	    grpix, tv->test->name, lose, pass + lose);
-  else
-    fprintf(t->lyt.fp, "ok %u - %s: passed %u", grpix, tv->test->name, pass);
-  tap_report_unusual(t, xfail, skip);
-  fputc('\n', t->lyt.fp);
+
+  fprintf(t->lyt.fp, "    1..%u\n", tap_testix(t));
+  fprintf(t->lyt.fp, "%s %u - %s\n",
+	  tv->curr[TVOUT_LOSE] ? "not ok" : "ok",
+	  tap_grpix(t), tv->test->name);
 }
 
 static void tap_btest(struct tvec_output *o) { ; }
 
-static void tap_outcome(struct tvec_output *o, const char *outcome,
+static void tap_outcome(struct tvec_output *o,
+			const char *head, const char *tail,
 			const char *detail, va_list *ap)
 {
   struct tap_output *t = (struct tap_output *)o;
   struct tvec_state *tv = t->tv;
+  unsigned ix = tap_testix(t);
 
-  gprintf(&tap_printops, t, "%s:%u: `%s' %s",
-	  tv->infile, tv->test_lno, tv->test->name, outcome);
-  if (detail) {
-    layout_string(&t->lyt, ": ", 2);
-    vgprintf(&tap_printops, t, detail, ap);
-  }
-  layout_char(&t->lyt, '\n');
+  fprintf(t->lyt.fp, "    %s %u - %s:%u%s",
+	  ix == t->last ? "##" : head, ix, tv->infile, tv->test_lno, tail);
+  if (detail)
+    { fputc(' ', t->lyt.fp); vfprintf(t->lyt.fp, detail, *ap); }
+  fputc('\n', t->lyt.fp);
+  t->last = ix;
 }
 
 static void tap_skip(struct tvec_output *o, const char *excuse, va_list *ap)
-  { tap_outcome(o, "skipped", excuse, ap); }
+  { tap_outcome(o, "ok", " # SKIP", excuse, ap); }
 static void tap_fail(struct tvec_output *o, const char *detail, va_list *ap)
-  { tap_outcome(o, "FAILED", detail, ap); }
+  { tap_outcome(o, "not ok", "", detail, ap); }
 
 static void tap_dumpreg(struct tvec_output *o,
 			unsigned disp, const union tvec_regval *rv,
@@ -1177,7 +1160,16 @@ static void tap_dumpreg(struct tvec_output *o,
 }
 
 static void tap_etest(struct tvec_output *o, unsigned outcome)
-  { if (outcome == TVOUT_XFAIL) tap_outcome(o, "EXPECTED failure", 0, 0); }
+{
+  switch (outcome) {
+    case TVOUT_WIN:
+      tap_outcome(o, "ok", "", 0, 0);
+      break;
+    case TVOUT_XFAIL:
+      tap_outcome(o, "not ok", " # TODO expected failure", 0, 0);
+      break;
+  }
+}
 
 static void tap_bbench(struct tvec_output *o,
 		       const char *ident, unsigned unit)
@@ -1235,7 +1227,7 @@ struct tvec_output *tvec_tapoutput(FILE *fp)
   struct tap_output *t;
 
   t = xmalloc(sizeof(*t)); t->_o.ops = &tap_ops;
-  init_layout(&t->lyt, fp, "## ");
+  init_layout(&t->lyt, fp, "    ## ");
   t->outbuf = 0; t->outsz = 0;
   return (&t->_o);
 }