From: Jim Meyering <jim@meyering.net>
Date: Mon, 11 Jan 1999 02:46:33 +0000 (+0000)
Subject: (main) [TEST_CANON_HOST]: Add a simple test driver.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eef6a0f21a7b5a7020a1fecd599b23838c469b61;p=pspp

(main) [TEST_CANON_HOST]: Add a simple test driver.
---

diff --git a/lib/canon-host.c b/lib/canon-host.c
index db195385f4..1f6b575ee1 100644
--- a/lib/canon-host.c
+++ b/lib/canon-host.c
@@ -78,3 +78,17 @@ canon_host (const char *host)
 #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 */