From: Jack Jansen <jack.jansen@cwi.nl>
Date: Tue, 7 Jan 1997 16:17:44 +0000 (+0000)
Subject: Minimal test of icglue module
X-Git-Tag: v1.5a1~567
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=3beb3363d4282916da5c28ed83d8a683cfec3265;p=python

Minimal test of icglue module
---

diff --git a/Mac/Lib/test/icgluetest.py b/Mac/Lib/test/icgluetest.py
new file mode 100644
index 0000000000..45529434bb
--- /dev/null
+++ b/Mac/Lib/test/icgluetest.py
@@ -0,0 +1,27 @@
+"""Test icglue module by printing all preferences"""
+
+import icglue
+import Res
+
+ici = icglue.ICStart('Pyth')
+ici.ICFindConfigFile()
+h = Res.Resource("")
+
+ici.ICBegin(1)
+numprefs = ici.ICCountPref()
+print "Number of preferences:", numprefs
+
+for i in range(1, numprefs+1):
+	key = ici.ICGetIndPref(i)
+	print "Key:  ", key
+	
+	h.data = ""
+	attrs = ici.ICFindPrefHandle(key, h)
+	print "Attr: ", attrs
+	print "Data: ", h.data
+
+ici.ICEnd()
+del ici
+
+import sys
+sys.exit(1)