From a4eda78b73cea22f36435f62ed52d071395bfc4f Mon Sep 17 00:00:00 2001
From: "martin@ashbysoft.com" <martin@ashbysoft.com>
Date: Sun, 12 Jun 2022 21:38:17 +0000
Subject: added tests for ex1-13.c

---
 ex1-13.c | 117 +++++++++++++++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 96 insertions(+), 21 deletions(-)

diff --git a/ex1-13.c b/ex1-13.c
index 87fe0b0..ff2d53d 100644
--- a/ex1-13.c
+++ b/ex1-13.c
@@ -1,8 +1,10 @@
 #include <stdio.h>
 #include <stdint.h>
 #include <stdbool.h>
+#include <string.h>
 
 #define max_word 100
+#define max(a, b) ((a) > (b) ? (a) : (b))
 
 typedef enum _state {in,out} state;
 bool is_word(char c) {
@@ -10,43 +12,51 @@ bool is_word(char c) {
    && c != '\t' 
    && c != '\n';
 }
+
 /* print a histogram of word lengths
    read from input
    print histo to output
    print errors warnings to output_err */
 int whisto(FILE* input, FILE* output, FILE* output_err) {
-  uint32_t lens[max_word]={0};
-  int c = fgetc(input);
-  if (c == EOF) {
-    fprintf(output_err, "warning: no input!\n");
-    goto spout;
-  }
-  state s = is_word(c) ? in : out;
-  uint32_t cl = s == in ? 1 : 0;
-  while ((c = fgetc(stdin))!= EOF){
+  uint32_t lens[max_word+1]={0};
+  state s = out;
+  uint32_t cl = 0;
+  while(true) {
+    int c = fgetc(input);
     if (is_word(c)){
-      if (s == in) {
-        cl++;
-      } else { 
+      if (s == out) {
         s = in;
         cl=1;
+      } else { 
+        cl++;
       }
     } else {
       if (s == in) {
         s = out;
+        if (cl > max_word) {
+          printf("cl=%d\n", cl);
+          fprintf(output_err, "word too long\n");
+          fflush(output_err);
+          return 1;
+        }
         lens[cl]++;
       } else {
         // do nothing I guess
-      }
+      } 
+    }
+
+    if (c == EOF) {
+      break;
     }
   }
-  // need to count final word 
-  if (s == in) {
-    lens[cl]++;
-  }
-spout:
+  // Do 2 passes to find the longest word length with some data in it
+  uint16_t mx = 0;
+  for(uint16_t i=1;
+      i<=max_word;
+      i ++)
+    mx = max(mx, lens[i]>0 ? i : 0);
   for(uint16_t i=1;
-      i<max_word;
+      i<=mx;
       i ++) {
     fprintf(output, "%2d: ",i);
     for(uint16_t j=0;
@@ -55,10 +65,75 @@ spout:
       fputc('-', output);
     fputc('\n', output);
   }
+  fflush(output);
   return 0;
 }
 
-int main(void){
-  whisto(stdin, stdout, stderr);
+#ifndef test
+
+int main(void) {
+    return whisto(stdin, stdout, stderr);
+}
+
+#else
+
+#include "CuTest.h"
+
+void do_test(CuTest* tc, char* input, const char* expected, const char* err_expected, int res_expected) {
+    char buf[100] = {0};
+    char err_buf[100] = {0};
+    FILE* tin = fmemopen(input, strlen(input), "r");
+    FILE* tout = fmemopen(buf, 100, "w");
+    FILE* terr = fmemopen(err_buf, 100, "w");
+    int res = whisto(tin, tout, terr);
+    CuAssertIntEquals(tc, res_expected, res);
+    CuAssertStrEquals(tc, expected, buf);
+    CuAssertStrEquals(tc, err_expected, err_buf);
+}
+void test_whisto_empty(CuTest* tc) {
+    do_test(tc, "", "", "", 0);
 }
+void test_whisto_oneword(CuTest* tc) {
+    do_test(tc, "fo", 
+      " 1: \n"
+      " 2: -\n", 
+      "", 
+      0);
+}
+void test_whisto_leadtrailspace(CuTest* tc) {
+    do_test(tc, "  fuzz fizz   bar  ", 
+      " 1: \n"
+      " 2: \n"
+      " 3: -\n"
+      " 4: --\n", 
+      "",
+      0);
+}
+void test_whisto_overflow(CuTest* tc) {
+    // 101 characters
+    do_test(tc, "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901",
+      "",
+      "word too long\n",
+      1);
+}
+CuSuite* whisto_suite() {
+    CuSuite* suite = CuSuiteNew();
+    SUITE_ADD_TEST(suite, test_whisto_empty);
+    SUITE_ADD_TEST(suite, test_whisto_oneword);
+    SUITE_ADD_TEST(suite, test_whisto_leadtrailspace);
+    SUITE_ADD_TEST(suite, test_whisto_overflow);
+    return suite;
+}
+int main(void) {
+    CuString* output = CuStringNew();
+    CuSuite* suite = CuSuiteNew();
+    CuSuiteAddSuite(suite, whisto_suite());
+    CuSuiteRun(suite);
+    CuSuiteSummary(suite, output);
+    CuSuiteDetails(suite, output);
+    printf("%s\n", output->buffer);
+    return 0;
+}
+
+#endif
   
\ No newline at end of file
-- 
cgit v1.2.3-ZIG