# HG changeset patch
# User Jim Meyering <jim@meyering.net>
# Date 916022793 0
# Node ID 3072de0902650630eb16c8968c40e8ed17977672
# Parent  0ff41da90847deca4d544eaddbea3c9055012c4d
(main) [TEST_CANON_HOST]: Add a simple test driver.

diff --git a/lib/canon-host.c b/lib/canon-host.c
--- a/lib/canon-host.c
+++ b/lib/canon-host.c
@@ -78,3 +78,17 @@
 #endif /* HAVE_GETHOSTBYNAME */
   return 0;
 }
+
+#ifdef TEST_CANON_HOST
+int
+main (int argc, char **argv)
+{
+  int i;
+  for (i = 1; i < argc; i++)
+    {
+      char *s = canon_host (argv[i]);
+      printf ("%s: %s\n", argv[i], (s ? s : "<undef>"));
+    }
+  exit (0);
+}
+#endif /* TEST_CANON_HOST */