From e9cee1f0529a508b6fa43efb23ffa97291f4e8d3 Mon Sep 17 00:00:00 2001
From: helmutm <helmutm@fd906abe-77d9-0310-91a1-e0d9ade77398>
Date: Thu, 3 Nov 2005 10:09:09 +0000
Subject: [PATCH] added functional test to relation package

git-svn-id: svn://svn.cy55.de/Zope3/src/cybertools/trunk@654 fd906abe-77d9-0310-91a1-e0d9ade77398
---
 relation/ftests.py | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100755 relation/ftests.py

diff --git a/relation/ftests.py b/relation/ftests.py
new file mode 100755
index 0000000..0159195
--- /dev/null
+++ b/relation/ftests.py
@@ -0,0 +1,34 @@
+# $Id$
+
+import unittest, doctest
+from zope.app.testing.functional import FunctionalTestCase
+from zope.testbrowser import Browser
+
+class BrowserTest(FunctionalTestCase):
+    "Functional tests for the relation package."
+
+    def test(self):
+        browser = Browser()
+        browser.handleErrors = False
+        browser.addHeader('Authorization', 'Basic mgr:mgrpw')
+        browser.addHeader('Accept-Language', 'en-US')
+        browser.open('http://localhost/++etc++site/default/@@contents.html')
+        self.assert_(browser.isHtml)
+        addLink = browser.getLink('Relations Registry Utility')
+        addLink.click()
+        self.assert_(browser.isHtml)
+        inp = browser.getControl(name='new_value')
+        inp.value = 'relations'
+        button = browser.getControl('Apply')
+        button.click()
+        self.assert_(browser.isHtml)
+        
+
+def test_suite():
+    flags = doctest.NORMALIZE_WHITESPACE | doctest.ELLIPSIS
+    #browser = FunctionalDocFileSuite('skin/cyberview.txt', optionflags=flags)
+    browser = unittest.makeSuite(BrowserTest)
+    return unittest.TestSuite((browser,))
+
+if __name__ == '__main__':
+    unittest.main(defaultTest='test_suite')