2007-03-20 Rodney Dawes <dobey@novell.com>

	* scripts/evolution-webcal.py: Add a script for evolution-webcal

2 files changed, 38 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index d0d9d1a..28c039e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2007-03-20  Rodney Dawes  <dobey@novell.com>
 
+	* scripts/evolution-webcal.py: Add a script for evolution-webcal
+
+2007-03-20  Rodney Dawes  <dobey@novell.com>
+
 	* scripts/banshee.py: Up the initial sleep to 20 seconds
 
 2007-02-27  Rodney Dawes  <dobey@novell.com>
diff --git a/scripts/evolution-webcal.py b/scripts/evolution-webcal.py
new file mode 100755
index 0000000..bc278e0
--- /dev/null
+++ b/scripts/evolution-webcal.py
@@ -0,0 +1,34 @@
+#!/usr/bin/python
+
+import string, sys, os
+
+from ldtp import *
+from ldtputils import *
+from A11yTestUtils import *
+
+path = os.environ['PATH'];
+os.environ['PATH'] = path + ':/opt/gnome/lib/evolution-webcal:/usr/lib/evolution-webcal';
+path = os.environ['PATH'];
+
+log_name = 'evolution-webcal'
+program_name = 'evolution-webcal'
+
+for dir in string.split (path, ':'):
+    program = dir + '/evolution-webcal';
+    if (os.path.isfile (program)):
+        program_name = program;
+
+window_title = 'Subscribe to Calendar'
+
+calendar_url = 'webcal://icalx.com/public/prepgroove/200732NASCAR32Nextel32Cup32Series.ics'
+
+a11y_test_init (program_name, calendar_url, 0, log_name)
+
+while (guiexist (window_title) != 1):
+    continue;
+
+a11y_scan_window (window_title)
+	
+click (window_title, 'btnCancel')
+
+a11y_test_shutdown ()