1 files changed, 34 insertions, 0 deletions
diff --git a/xc/test/xsuite/xtest/tset/CH02/prtclrvsn/prtclrvsn.m b/xc/test/xsuite/xtest/tset/CH02/prtclrvsn/prtclrvsn.m
new file mode 100644
index 000000000..287c7b612
--- /dev/null
+++ b/xc/test/xsuite/xtest/tset/CH02/prtclrvsn/prtclrvsn.m
@@ -0,0 +1,34 @@
+/*
+ * 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$
+ */
+>>SET   macro
+>>TITLE XProtocolRevision CH02
+int
+XProtocolRevision(display)
+Display	*display = Dsp;
+>>ASSERTION Good A
+A call to xname returns the minor protocol revision number of the X server.
+>>STRATEGY
+Obtain the minor protocol revision using xname.
+>>CODE
+int	rev;
+
+	rev = XCALL;
+	if(rev != config.protocol_revision) {
+		report("%s() returned %d instead of %d.", TestName, rev, config.protocol_revision);
+		FAIL;
+	} else
+		PASS;