Minimal test of icglue module

jackjansen · jackjansen · commit 3beb3363d428 · 1997-01-07T16:17:44.000Z
diff --git a/Mac/Lib/test/icgluetest.py 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)
