CWS-TOOLING: integrate CWS automation32m47

2009-05-14 13:59:48 +0200 tbo  r271888 : i101523 take this hid.lst for dev300m49 - masterfix for dev300m48
2009-05-07 14:00:37 +0200 msc  r271662 : #101638#
2009-05-07 13:43:29 +0200 msc  r271659 : #101636#
2009-05-07 13:28:21 +0200 msc  r271656 : #101634#
2009-05-07 09:53:16 +0200 oc  r271630 : #i101400#
2009-05-07 09:50:43 +0200 oc  r271629 : #i101400
2009-05-07 08:42:30 +0200 hde  r271625 : #101414
2009-05-07 08:36:56 +0200 hde  r271623 : #101414
2009-05-07 08:24:30 +0200 hde  r271620 : #101602
2009-05-07 06:37:20 +0200 hde  r271617 : 101534
2009-05-06 12:53:20 +0200 wg  r271582 : i101568
2009-05-06 12:52:32 +0200 wg  r271581 : i101568
2009-05-06 11:23:46 +0200 wg  r271578 : i101568
2009-05-06 07:28:14 +0200 oc  r271561 : #i101532#
2009-05-05 15:59:28 +0200 oc  r271529 : #i101524#
2009-05-05 15:55:14 +0200 oc  r271528 : #i101523#
2009-05-05 15:45:52 +0200 oc  r271523 : #i101564#
2009-05-05 08:43:04 +0200 oc  r271498 : #i101526#
2009-05-04 13:28:56 +0200 jsk  r271449 : #i101405
2009-05-04 13:25:04 +0200 jsk  r271446 : #i101405
2009-05-04 12:55:33 +0200 jsk  r271445 : #i101405

3 files changed, 18 insertions, 23 deletions

diff --git a/testautomation/dbaccess/optional/includes/ctrl_Wizards.inc b/testautomation/dbaccess/optional/includes/ctrl_Wizards.inc
index 11cae40e2689..73527313b9f1 100755
--- a/testautomation/dbaccess/optional/includes/ctrl_Wizards.inc
+++ b/testautomation/dbaccess/optional/includes/ctrl_Wizards.inc
@@ -83,7 +83,7 @@ testcase tGroupBoxWithDatasource
    	 sleep(2)
    	 hMenuSelectNr (1)
    	 sleep(3)
-   	 Liste.TypeKeys "<DOWN>"
+   	 Liste.TypeKeys "<RETURN>",true
   	 sleep(3)
    	 Liste.OpenContextmenu
   	 sleep(2)
@@ -96,7 +96,7 @@ testcase tGroupBoxWithDatasource
    	 '/// set the datasource TT
      printlog "set the datasource TT"
      DataSource.setText(sDSName)
-	 TabDataForm.TypeKeys "<RETURN>" , true
+	 DataSource.TypeKeys "<RETURN>" , true
      '/// insert password 'testtool' into login dialog
      printlog "insert password 'testtool' into login dialog"
      Kontext "LoginDialog"
@@ -118,8 +118,7 @@ testcase tGroupBoxWithDatasource
     Kontext "TabDataForm"         
     '/// set the table TT_Control
      printlog "set the table TT_Control"    
-	 Content.setText("TT_Control")     
- 	 'WORKAROUND: for bug 106538
+	 Content.setText("TT_Control")
      Content.TypeKeys "<RETURN>" , true       
   	Kontext "ControlPropertiesDialog"
    	 ControlPropertiesDialog.Close
@@ -245,7 +244,6 @@ testcase tGroupBoxWithDatasource
      TabGeneralControl.TypeKeys "<TAB>" , true 'this tab is importent, I don't not why but it is.
      sleep(1)
      HelpURL.setText "HID:123456"
-     sleep(1)
      HelpURL.TypeKeys "<RETURN>",true
      sleep(1)
     Kontext "ControlPropertiesDialog" 
@@ -283,8 +281,7 @@ testcase tGroupBoxWithDatasource
 	 TabGeneralControl.TypeKeys "<TAB>" , true 'this tab is importent, I don't not why but it is.
      sleep(1)
      HelpURL.setText "HID:1234567"
-     sleep(1)
-     HelpURL.TypeKeys "<RETURN>",true     
+     HelpURL.TypeKeys "<RETURN>", true
      sleep(1)
     Kontext "ControlPropertiesDialog" 
      ControlPropertiesDialog.close
@@ -320,11 +317,9 @@ testcase tGroupBoxWithDatasource
    	 sleep(5)
      
     Kontext "TabGeneralControl"
-     TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.
-     'sleep(1)
-     HelpURL.setText "HID:12345678"
-     'sleep(1)
-     HelpURL.TypeKeys "<RETURN>",true
+     TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.     
+     HelpURL.setText "HID:12345678"     
+     HelpURL.TypeKeys "<RETURN>", true
      sleep(1)
     Kontext "ControlPropertiesDialog" 
      ControlPropertiesDialog.close     
@@ -541,6 +536,8 @@ testcase tGroupBoxWithoutDatasource
    	ControlPropertiesTabControl.SetPage TabGeneralControl
    	sleep (2)
   	Kontext "TabGeneralControl"
+     TabGeneralControl.mouseDown(1,1)
+     TabGeneralControl.mouseUp(1,1)
 	 TabGeneralControl.TypeKeys "<TAB>" , true
      TabGeneralControl.TypeKeys "<MOD1 C>" , true     
      if getClipboard <> "Group 123" then
diff --git a/testautomation/dbaccess/optional/includes/db_Dbase.inc b/testautomation/dbaccess/optional/includes/db_Dbase.inc
index 24442dc85539..5701fda91de8 100755
--- a/testautomation/dbaccess/optional/includes/db_Dbase.inc
+++ b/testautomation/dbaccess/optional/includes/db_Dbase.inc
@@ -113,11 +113,9 @@ testcase db_Dbase
                        
             call db_Query(sFileName,"dbase")
             
-            'outcomment because of some bugs in forms
-            'use "dbaccess/optional/includes/b_lvl1_Forms.inc"
-            'call b_lvl1_Forms ("TT_dBase")
-            
-                      
+            use "dbaccess/optional/includes/db_IndexDesign.inc"
+            call tIndex(sFileName, sTableName)
+
 		else 
             warnlog "Data Source could not be created - beyond testcases stopped"
 		endif
diff --git a/testautomation/dbaccess/optional/includes/db_Text.inc b/testautomation/dbaccess/optional/includes/db_Text.inc
index 016df0a55caa..688b5b6e8c16 100755
--- a/testautomation/dbaccess/optional/includes/db_Text.inc
+++ b/testautomation/dbaccess/optional/includes/db_Text.inc
@@ -87,7 +87,7 @@ testcase tOpenUTF8File(sFilename as string)
     
     '/// copy the file TesttoolPath + dbaccess/optional/input/text_datasource/text_Database.txt" to your local wotk directory
     printlog "copy the file TesttoolPath + dbaccess/optional/input/text_datasource/text_Database.txt to your local wotk directory"
-    app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/text_datasource/text_Database.txt"),gOfficePath + ConvertPath("user/work/text_Database.txt")
+    app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/text_datasource/text_database.txt"),gOfficePath + ConvertPath("user/work/text_database.txt")
 
     '/// open the text database create in the bas file
     call fOpendatabase(sFileName)
@@ -123,11 +123,11 @@ testcase tOpenUTF8File(sFilename as string)
     Kontext "DatabaseProperties"
         DatabaseProperties.OK
     
-    '/// switch once the forms container and back to tables
-    printlog "switch once the forms container and back to tables"
-    '/// to refresh the tables
-    printlog "to refresh the tables"
-    ViewForms    
+    '/// save and close the database
+    call fCloseDatabase(true)
+    
+    '/// open the text database again
+    call fOpendatabase(sFileName)    
         
     '/// open the table text_database
     printlog "open the table text_database"