[glom] Added LDTP test to check creation of a new self-hosted postgres database

[Armin Burgmeier <arminb src gnome org>]

commit 2f12049c3b9c689dcbe9eea7e489fdf6bd63d1c2
Author: Armin Burgmeier <armin arbur net>
Date:   Mon Jun 8 20:43:42 2009 +0200

    Added LDTP test to check creation of a new self-hosted postgres database
    
    	* ldtp/database-creation/self-hosted.py: Added a LDTP test script
    	which checks creation of a new self-hosted database from the Small
    	Business Example file.
    
    	* ldtp/test.xml: Added an XML file for ldtprunner. Run "ldtprunner
    	test.xml" to execute the test.
---
 ChangeLog                             |    9 +++
 ldtp/database-creation/self-hosted.py |  123 +++++++++++++++++++++++++++++++++
 ldtp/test.xml                         |   13 ++++
 3 files changed, 145 insertions(+), 0 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9b60f69..043a9e0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,14 @@
 2009-06-08  Armin Burgmeier  <armin openismus com>
 
+	* ldtp/database-creation/self-hosted.py: Added a LDTP test script
+	which checks creation of a new self-hosted database from the Small
+	Business Example file.
+
+	* ldtp/test.xml: Added an XML file for ldtprunner. Run "ldtprunner
+	test.xml" to execute the test.
+
+2009-06-08  Armin Burgmeier  <armin openismus com>
+
 	* glom/utility_widgets/db_adddel/db_adddel.cc: Added an accessible
 	name for the TreeView.
 
diff --git a/ldtp/database-creation/self-hosted.py b/ldtp/database-creation/self-hosted.py
new file mode 100755
index 0000000..b5e7f68
--- /dev/null
+++ b/ldtp/database-creation/self-hosted.py
@@ -0,0 +1,123 @@
+#!/usr/bin/python
+from ldtp import *
+from ldtputils import *
+
+import os
+import shutil
+import threading
+
+errorMessage = ''
+errorHappened = threading.Event()
+errorHappened.clear()
+
+def error_cb():
+	global errorMessage
+	# We already stop at the first error that occurs
+	if not errorHappened.isSet():
+		# TODO: Read the actual error message from the error
+		# dialog window:
+		errorMessage = 'Failed to create new database'
+		errorHappened.set()
+
+try:
+	# Start glom:
+	launchapp('glom')
+
+	# Wait for the initial dialog to appear. The argument matches on the
+	# Window title, so make sure to set a window title in Glade or in the
+	# code for each window.
+	# Wildcard (* and ?) can be used.
+	if waittillguiexist('*Glom*') == 0:
+		raise LdtpExecutionError('Glom main window does not show up')
+	if waittillguiexist('Welcome to Glom') == 0:
+		raise LdtpExecutionError('Glom initial dialog does not show up')
+
+	# Create a new document from the Small Business Example:
+	# The notebook and treeview widgets are accessed via their
+	# "accessible name". It can be set in Glade on the Accessibility tab,
+	# or in code via widget->get_accessible()->set_name("").
+	# It is meant to be a human-readable, translatable string describing
+	# the widget. To access the widget in LDTP, all spaces are removed
+	# from that string, so "Create New Document" becomes
+	# "CreateNewDocument". Each widget type also has an (optional, I
+	# believe) prefix, for example notebooks are prefixed by 'ptl' and
+	# treeviews are prefixed by 'ttbl'.
+	selecttab('Welcome to Glom', 'ptlOpenorcreateDocument', 'Create New Document')
+	selectrow('Welcome to Glom', 'ttblCreateNewDocument', 'Small Business Example')
+
+	# Buttons (prefix: 'btn') are addressed via their label text:
+	click('Welcome to Glom', 'btnSelect')
+
+	# Create a directory into which to create the new Glom documents:
+	if not os.path.exists('TestDatabase'):
+		os.mkdir('TestDatabase')
+
+	# Wait for the file chooser dialog to appear:
+	if waittillguiexist('Creating From Example File') == 0:
+		raise LdtpExecutionError('File chooser does not show up')
+
+	# Navigate into the newly created folder:
+	doubleclickrow('Creating From Example File', 'tblFiles', 'TestDatabase')
+
+	# Call the new document 'Test':
+	settextvalue('Creating From Example File', 'txtName', 'Test');
+
+	# Make sure we use the self-hosted postgresql backend:
+	click('Creating From Example File', 'rbtnCreatePostgreSQLdatabaseinitsownfolder,tobehostedbythiscomputer.')
+
+	# Make sure the Glom main window still exists
+	if not guiexist('*Glom*'):
+		raise LdtpExecutionError('The Glom main window does not exist anymore')
+
+	# Be notified when error dialogs pop up during database creation
+	onwindowcreate('Warning', error_cb)
+	onwindowcreate('Error', error_cb)
+
+	# Acknowledge the dialog:
+	click('Creating From Example File', 'btnSave')
+
+	# Wait for the list view to pop up in the main Glom window:
+	# Note that the Window title of the Glom Window changes when the file
+	# has loaded. If we use wildcards for the Window title (*Glom*) here,
+	# then objectexist does not find the notebook_data
+	# (ptlListOrDetailsView) widget, even when it has actually appeared.
+	# TODO: Maybe we can use setcontext(), to avoid this.
+	# TODO: Or maybe this has been fixed in LDTP in the meanwhile,
+	# see bug #583021.
+	while not guiexist('Glom-SmallBusinessExample') or not objectexist('Glom-SmallBusinessExample', 'ptlListOrDetailsView'):
+		if errorHappened.isSet():
+			raise LdtpExecutionError(errorMessage)
+		# Wait a bit and then try again:
+		wait()
+
+	# Everything finished, so check the created database for consistency.
+	if(getrowcount('*Glom*', 'tblTableContent') != 9):
+		raise LdtpExecutionError("Newly created database does not contain all 8 rows"); # Note there is one placeholder row
+
+	selecttab('*Glom*', 'ptlListOrDetailsView', 'Details')
+
+	# TODO: Check that there is an image present.
+	# Accerciser shows the Image Size for the widget which we may use to
+	# check this. However, LDTP does not implement this yet.
+
+	# Exit the application. Here, the wildcard *Glom* works again. I
+	# suppose this is because the menu already existed when we used the
+	# Wildcard for the first time, in contrast to the notebook_data.
+	selectmenuitem('*Glom*', 'mnuFile;mnuClose')
+
+	if waittillguinotexist('Glom-SmallBusinessExample') == 0:
+		raise LdtpExecutionError('The Glom Window does not disappear after closing the application')
+
+	# Remove the test database again
+        shutil.rmtree('TestDatabase')
+
+except LdtpExecutionError, msg:
+	print msg
+
+	# Remove the created directory also on error, so that the test
+	# does not fail because of the database already existing next time
+	shutil.rmtree('TestDatabase')
+
+        raise LdtpExecutionError (msg)
+#        TODO: Terminate the Glom application
+#	os.kill(whatpid?, signal.SIGTERM)
diff --git a/ldtp/test.xml b/ldtp/test.xml
new file mode 100644
index 0000000..ce4c295
--- /dev/null
+++ b/ldtp/test.xml
@@ -0,0 +1,13 @@
+<ldtp>
+	<logfileoverwrite>1</logfileoverwrite>
+	<logfile>glom-test-log.xml</logfile>
+
+	<group>
+		<testcaseid>database-creation</testcaseid>
+		<comment>Test whether creation of a new database work for all available backends</comment>
+		<script>
+			<name>database-creation/self-hosted.py</name>
+		</script>
+	</group>
+
+</ldtp>