1 files changed, 77 insertions, 0 deletions
diff --git a/xc/test/xsuite/xtest/tset/CH04/gtatmnm/gtatmnm.m b/xc/test/xsuite/xtest/tset/CH04/gtatmnm/gtatmnm.m
new file mode 100644
index 000000000..3a2f0ed54
--- /dev/null
+++ b/xc/test/xsuite/xtest/tset/CH04/gtatmnm/gtatmnm.m
@@ -0,0 +1,77 @@
+/*
+ * Copyright 1990, 1991 by the Massachusetts Institute of Technology and
+ * UniSoft Group Limited.
+ * 
+ * Permission to use, copy, modify, distribute, and sell this software and
+ * its documentation for any purpose is hereby granted without fee,
+ * provided that the above copyright notice appear in all copies and that
+ * both that copyright notice and this permission notice appear in
+ * supporting documentation, and that the names of MIT and UniSoft not be
+ * used in advertising or publicity pertaining to distribution of the
+ * software without specific, written prior permission.  MIT and UniSoft
+ * make no representations about the suitability of this software for any
+ * purpose.  It is provided "as is" without express or implied warranty.
+ *
+ * $XConsortium$
+ */
+>>TITLE XGetAtomName CH04
+char *
+
+Display *display = Dsp;
+Atom atom;
+>>EXTERN
+#include "Xatom.h"
+
+static struct xga_struct {
+	char *name;
+	Atom atom;
+} xga_list[] = {
+	 "PRIMARY", XA_PRIMARY, 
+	 "CUT_BUFFER0", XA_CUT_BUFFER0, 
+	 "RECTANGLE", XA_RECTANGLE,
+	 "COPYRIGHT", XA_COPYRIGHT,
+};
+static int xga_nlist = NELEM(xga_list);
+
+>>ASSERTION Good A
+A call to xname returns the name, which can be freeed with XFree,
+associated with the specified
+.A atom .
+>>STRATEGY
+For some predefined atoms:
+	Call xname to obtain the name associated with the atom.
+	Verify the strings returned were as expected.
+>>CODE
+char *ret_str;
+int l;
+
+/* For some predefined atoms: */
+	for(l=0; l<xga_nlist; l++) {
+
+/* 	Call xname to obtain the name associated with the atom. */
+		atom = xga_list[l].atom;
+		trace("checking atom %d (%s)", atom, atomname(atom));
+		ret_str = XCALL;
+
+		if (ret_str == NULL) {
+			FAIL;
+			report("%s returned a null string with atom name %s",
+				TestName, xga_list[l].name);
+			continue;
+		} else
+			CHECK;
+
+/* 	Verify the strings returned were as expected. */
+		if (strcmp(xga_list[l].name, ret_str) != 0 ) {
+			FAIL;
+			report("%s returned an unexpected string");
+			report("Expected: '%s'", xga_list[l].name);
+			report("Returned: '%s'", ret_str);
+		} else
+			CHECK;
+		XFree(ret_str);
+	}
+
+	CHECKPASS(2*xga_nlist);
+>>ASSERTION Bad A
+.ER BadAtom