Gensuitemodule generates python classes from aete/aeut resources

test_suite is a tiny test program for such a generated class

1 files changed, 29 insertions, 0 deletions

diff --git a/Mac/Lib/test/test_suite.py b/Mac/Lib/test/test_suite.py
new file mode 100644
index 0000000..6559f16
--- /dev/null
+++ b/Mac/Lib/test/test_suite.py
@@ -0,0 +1,29 @@
+#
+# Test of generated AE modules.
+#
+import addpack
+addpack.addpack('Tools')
+addpack.addpack('bgen')
+addpack.addpack('ae')
+import sys
+import macfs
+
+import aetools
+from AppleScript_Suite import AppleScript_Suite
+from Required_Suite import Required_Suite
+from Standard_Suite import Standard_Suite
+
+class ScriptableEditor(aetools.TalkTo, AppleScript_Suite, Required_Suite,
+		Standard_Suite):
+	
+	def __init__(self):
+		aetools.TalkTo.__init__(self, 'quil')
+		self.activate()
+		
+app = ScriptableEditor()
+rv = app.open(macfs.FSSpec(sys.argv[0]))
+print 'Opened', sys.argv[0]
+print 'Return value:', rv
+rv = app.get(aetools.Word(10, aetools.Document(1)))
+print 'Got word 10 doc 1:', rv
+sys.exit(1)