update dev300-m58
[ooovba.git] / testautomation / writer / optional / includes / formatpage / w_formatpage3.inc
blob96ed5a3dfc53bde22a059d1f7a3faa501e083aa8
1 'encoding UTF-8  Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '* 
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: w_formatpage3.inc,v $
11 '* $Revision: 1.2 $
13 '* last change: $Author: vg $ $Date: 2008-08-18 12:28:45 $
15 '* This file is part of OpenOffice.org.
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org.  If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
32 '/************************************************************************
34 '* owner : helge.delfs@sun.com
36 '* short description : Test the functionality of Page Formatting / Page Styles - 3
38 '************************************************************************
40 ' #1 tFormatPage_29      'check for same content on left/right pages in header
41 ' #1 tFormatPage_30      'check for different content on left/right pages in header
42 ' #1 tFormatPage_31      'check for same content on left/right pages in footer
43 ' #1 tFormatPage_32      'check for different content on left/right pages in footer
44 ' #1 tFormatPage_33      'cursor should jump to header when inserting a header via menu
45 ' #1 tFormatPage_34      'cursor shouldn't jump to header when inserting a header via checking 'Header on'
46 ' #1 tFormatPage_35      'cursor should jump to footer when inserting a footer via menu
47 ' #1 tFormatPage_36      'cursor shouldn't jump to footer when inserting a footer via checking 'Footer on'
48 ' #1 tFormatPage_37      'Header must be applied to the current page style when inserting via menu
49 ' #1 tFormatPage_38      'Footer must be applied to the current page style when inserting via menu
50 ' #1 tFormatPage_39      'Set multi column via controls in page dialog
51 ' #1 tFormatPage_40      'Set multi column via spinfield in page dialog
52 ' #1 tFormatPage_41      'create columns with different width
53 ' #1 tFormatPage_42      'vary distance between columns
54 ' #1 tFormatPage_43      'seperator line between columns - change height/position of seperator
55 ' #1 tFormatPage_44      'seperator line between columns - different line formats
56 ' #1 tFormatPage_45      'shouldn't exist spacing after remove separator line
57 ' #1 tFormatPage_46      'Check if the settings are kept after reopening the file
58 ' #1 tFormatPage_47      'Test Travel through the 5 columns preset boxes
60 '\***********************************************************************
62 testcase tFormatPage_29
64     Dim sTestFile as String  ,  sNewContent as String
65     Dim sContentInHeaderInPage1 as String  ,  sContentInHeaderInPage2 as String
67     sTestFile                = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testHeaderContent29.sxw")
68     sContentInHeaderInPage1  = "Header1"
69     sContentInHeaderInPage2  = "Header2"
70     sNewContent              = "MyTest"
72     PrintLog "- check for same content on left/right pages in header"
73     '/// check for same content on left/right pages in header
75     Call hNewDocument
77     '/// Open test file testHeaderContent29.sxw
78     '/// + (The test file include 2 pages , and the
79     '/// + content in header are different )
80     Call hFileOpen(sTestFile)
81     Call sMakeReadOnlyDocumentEditable
83     '/// formatPage , tabpage header , check 'same content left/right'
84     fFormatPageWriter("TabKopfzeile")
85     InhaltLinksRechtsGleich.Check
86     Sleep 1
87     TabKopfzeile.OK
89     Kontext
90     EditSearchAndReplace
91     Kontext "FindAndReplace"
92     SearchFor.SetText sContentInHeaderInPage2
93     Sleep 1
94     SearchAll.Click
95     Sleep 1
97     Kontext "Active"
98     if Active.Exists then
99         if Active.GetRT = 304 then  Active.OK
100     else
101         warnlog "The content should be same after checking 'same content left/right' !"
102     end if
104     Kontext "FindAndReplace"
105     FindAndReplace.Close
107     '/// type some new content in the header in page1
108      Kontext
109      EditSearchAndReplace
110      Kontext "FindAndReplace"
111        SearchFor.SetText sContentInHeaderInPage1
112        Sleep 1
113        SearchAll.Click
114        Sleep 1
115      FindAndReplace.Close
117      Call wTypeKeys "<Right>"
118      Call wTypeKeys "<Backspace>" , 7
119      Call wTypeKeys sNewContent
120      Sleep 1
122     '/// Check if the content in footer in page2 is changed
123      Kontext
124      EditSearchAndReplace
125      Kontext "FindAndReplace"
126        SearchFor.SetText sContentInHeaderInPage1
127        Sleep 1
128        SearchAll.Click
129        Sleep 1
131        Kontext "Active"
132        if Active.Exists then
133            if Active.GetRT = 304 then  Active.OK
134        else
135             warnlog "The content should be same after changing content in header in 1st page!"
136        end if
138        Kontext "FindAndReplace"
139      FindAndReplace.Close
141     printlog "  Close active document "
142     Do Until GetDocumentCount = 0
143         Call hCloseDocument
144     Loop
145 endcase
147 '-------------------------------------------------------------------------------------------
149 testcase tFormatPage_30
151     Dim sTestFile as String
152     Dim sContentInHeader as String  ,  sNewContent as String
153     Dim sPage2 as String
155     sTestFile         = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testHeaderContent30.sxw")
156     sContentInHeader  = "Header"
157     sNewContent       = "MyTest"
158     sPage2            = "Second"
160     PrintLog "- check for different content on left/right pages in header"
161     '/// check for different content on left/right pages in header
163     Call hNewDocument
165     '/// Open test file testHeaderContent30.sxw
166     '/// + (The test file include 2 pages , and the
167     '/// + content in header is same )
168      Call hFileOpen(sTestFile)
169      Call sMakeReadOnlyDocumentEditable
171     '/// formatPage , tabpage header , Uncheck 'same content left/right'
172      fFormatPageWriter("TabKopfzeile")
173        InhaltLinksRechtsGleich.UnCheck
174      TabKopfzeile.OK
176     '/// type some new content in the header in page1
177      Kontext
178      EditSearchAndReplace
179      Kontext "FindAndReplace"
180        SearchFor.SetText sContentInHeader
181        Sleep 1
182        SearchAll.Click
183        Sleep 1
184      FindAndReplace.Close
186      Call wTypeKeys "<Right>"
187      Call wTypeKeys "<Backspace>" , 6
188      Call wTypeKeys sNewContent
189      Sleep 1
191     '/// Check if the content in footer in page2 is changed
192      Kontext
193      EditSearchAndReplace
194      Kontext "FindAndReplace"
195        SearchFor.SetText sContentInHeader
196        Sleep 1
197        SearchAll.Click
198        Sleep 1
199      FindAndReplace.Close
201      Kontext "Navigator"
202      if Not Navigator.Exists then ViewNavigator
203      Kontext "NavigatorWriter"
204      Sleep 1
205      if Seitennummer.GetText <> "1" then warnlog "Something wrong in Header in 1st page!"
206      fCloseNavigator
208     printlog "  Close active document "
209     Do Until GetDocumentCount = 0
210         Call hCloseDocument
211     Loop
212 endcase
214 '-------------------------------------------------------------------------------------------
217 testcase tFormatPage_31
219     Dim sTestFile as String  ,  sNewContent as String
220     Dim sContentInFooterInPage1 as String  ,  sContentInFooterInPage2 as String
222     sTestFile                = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testFooterContent31.sxw")
223     sContentInFooterInPage1  = "Footer1"
224     sContentInFooterInPage2  = "Footer2"
225     sNewContent              = "MyTest"
227     PrintLog "- check for same content on left/right pages in footer"
228     '/// check for same content on left/right pages in footer
230     Call hNewDocument
232     '/// Open test file testFooterContent31.sxw
233     '/// + (The test file include 2 pages , and the content
234     '/// + in footer are different )
235      Call hFileOpen(sTestFile)
236      Call sMakeReadOnlyDocumentEditable
238     '/// + formatPage , tabpage footer , check 'same content left/right'
239      fFormatPageWriter("TabFusszeile")
240        InhaltLinksRechtsGleich.Check
241        Sleep 1
242      TabFusszeile.OK
244      Kontext
245      EditSearchAndReplace
246      Kontext "FindAndReplace"
247        SearchFor.SetText sContentInFooterInPage2
248        Sleep 1
249        SearchAll.Click
250        Sleep 1
252        Kontext "Active"
253        if Active.Exists then
254            if Active.GetRT = 304 then  Active.OK
255        else
256            warnlog "The content should be same after checking 'same content left/right' !"
257        end if
259        Kontext "FindAndReplace"
260      FindAndReplace.Close
262     '/// type some new content in the footer in page1
263      Kontext
264      EditSearchAndReplace
265      Kontext "FindAndReplace"
266        SearchFor.SetText sContentInFooterInPage1
267        Sleep 1
268        SearchAll.Click
269        Sleep 1
270      FindAndReplace.Close
272      Call wTypeKeys "<Right>"
273      Call wTypeKeys "<Backspace>" , 7
274      Call wTypeKeys sNewContent
275      Sleep 1
277     '/// Check if the content in footer in page2 is changed
278      Kontext
279      EditSearchAndReplace
280      Kontext "FindAndReplace"
281        SearchFor.SetText sContentInFooterInPage1
282        Sleep 1
283        SearchAll.Click
284        Sleep 1
286        Kontext "Active"
287        if Active.Exists then
288            if Active.GetRT = 304 then  Active.OK
289        else
290             warnlog "The content should be same after changing content in footer in 1st page!"
291        end if
293        Kontext "FindAndReplace"
294      FindAndReplace.Close
296     printlog "  Close active document "
297     Do Until GetDocumentCount = 0
298         Call hCloseDocument
299     Loop
300 endcase
302 '-------------------------------------------------------------------------------------------
304 testcase tFormatPage_32
306     Dim sTestFile as String
307     Dim sContentInFooter as String  ,  sNewContent as String
308     Dim sPage2 as String
310     sTestFile         = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testFooterContent32.sxw")
311     sContentInFooter  = "Footer"
312     sNewContent       = "MyTest"
313     sPage2            = "Second"
315     PrintLog "- check for different content on left/right pages in footer"
316     '/// check for different content on left/right pages in footer
318     Call hNewDocument
320     '/// Open test file testFooterContent32.sxw
321     '/// + (The test file include 2 pages , and the
322     '/// + content in footer is same )
323      Call hFileOpen(sTestFile)
324      Call sMakeReadOnlyDocumentEditable
326     '/// formatPage , tabpage footer , Uncheck 'same content left/right'
327      fFormatPageWriter("TabFusszeile")
328        InhaltLinksRechtsGleich.UnCheck
329      TabFusszeile.OK
331     '/// type some new content in the footer in page1
332      Kontext
333      EditSearchAndReplace
334      Kontext "FindAndReplace"
335        SearchFor.SetText sContentInFooter
336        Sleep 1
337        SearchAll.Click
338        Sleep 1
339      FindAndReplace.Close
341      Call wTypeKeys "<Right>"
342      Call wTypeKeys "<Backspace>" , 6
343      Call wTypeKeys sNewContent
344      Sleep 1
346     '/// Check if the content in the footer in page2 is changed
347      Kontext
348      EditSearchAndReplace
349      Kontext "FindAndReplace"
350        SearchFor.SetText sContentInFooter
351        Sleep 1
352        SearchAll.Click
353        Sleep 1
354      FindAndReplace.Close
356      Kontext "Navigator"
357      if Not Navigator.Exists then ViewNavigator
358      Kontext "NavigatorWriter"
359      Sleep 1
360      if Seitennummer.GetText <> "1" then warnlog "Something wrong in Footer in 1st page!"
361      fCloseNavigator
363     printlog "  Close active document "
364     Do Until GetDocumentCount = 0
365         Call hCloseDocument
366     Loop
367 endcase
369 '-------------------------------------------------------------------------------------------
371 testcase tFormatPage_33
373     Dim sTest as String
375     sTest = "Test"
377     PrintLog "- cursor should jump to header when inserting a header via menu"
378     '/// cursor should jump to header when inserting a header via menu
380     Call hNewDocument
382     '/// Input some test words
383      Call wTypeKeys "ABC"
385     '/// Insert a header via menu
386      DocumentWriter.UseMenu
387      MenuSelect(Menugetitemid(4))
388      Sleep 2
389      MenuSelect(Menugetitemid(9))
390      Sleep 2
391      MenuSelect(Menugetitemid(1))
392      Sleep 2
394     '/// type some test words -- it should be in the header
395      Call wTypeKeys sTest
397     '/// check if the text in header is right
398      Kontext
399      EditSearchAndReplace
400      Kontext "FindAndReplace"
401        SearchFor.SetText sTest
402        Sleep 1
403        SearchAll.Click
404        Sleep 1
405      FindAndReplace.Close
406      Sleep 1
408      EditSelectAll
409      EditCopy
411      if GetClipboardText <> sTest then warnlog "The content in the header isn't right, should be " &sTest &  " but get " & GetClipboardText
413     '/// Remove the header
414      Kontext
415      Kontext "DocumentWriter"
416      DocumentWriter.UseMenu
417      MenuSelect(Menugetitemid(4))
418      Sleep 2
419      MenuSelect(Menugetitemid(9))
420      Sleep 2
421      MenuSelect(Menugetitemid(1))
422      Sleep 2
424      Kontext "Active"
425      if Active.Exists then
426          if Active.GetRT = 304 then  Active.Yes
427      else
428           warnlog "There should be a warning message appear when turn off header !"
429      end if
430      Sleep 1
432     '/// Check if the content in header is removed
433      Kontext
434      EditSearchAndReplace
435      Kontext "FindAndReplace"
436        SearchFor.SetText sTest
437        Sleep 1
438        SearchAll.Click
439        Sleep 1
441        Kontext "Active"
442        if Active.Exists then
443            if Active.GetRT = 304 then  Active.OK
444        else
445            warnlog "The content in header should be removed!"
446        end if
448        Kontext "FindAndReplace"
449      FindAndReplace.Close
451     Call hCloseDocument
453 endcase
455 '-------------------------------------------------------------------------------------------
457 testcase tFormatPage_34
459     Dim sTest as String
461     sTest = "Test"
463     PrintLog "- cursor shouldn't jump to header when inserting a header via checking 'Header on'"
464     '/// cursor shouldn't jump to header when inserting a header via  checking 'Header on'
466     Call hNewDocument
468      Call wTypeKeys "ABC"
470     '/// formatPage , tabpage header
471      fFormatPageWriter("TabKopfzeile")
473     '/// + turn on header (check Header on)
474        KopfzeileMitAbstand.Check
475      TabKopfzeile.OK
476      Sleep 1
478     '/// type some test words -- it should be in the header
479      Call wTypeKeys sTest
481     '/// check if the text in header is right
482      Kontext
483      EditSearchAndReplace
484      Kontext "FindAndReplace"
485         WholeWordsOnly.UnCheck
486        Sleep 1
487        SearchFor.SetText sTest
488        Sleep 1
489        SearchAll.Click
490        Sleep 1
491      FindAndReplace.Close
492      Sleep 1
494      EditSelectAll
495      EditCopy
497      if GetClipboardText <> "ABC"+sTest then warnlog "The content in the header isn't right, should be null"
499     Call hCloseDocument
501 endcase
503 '-------------------------------------------------------------------------------------------
505 testcase tFormatPage_35
507     Dim sTest as String
509     sTest = "Test"
511     PrintLog "- cursor should jump to footer when inserting a footer via menu"
512     '/// cursor should jump to footer when inserting a footer via menu
514     Call hNewDocument
516      Call wTypeKeys "ABC"
518     '/// Insert a footer via menu
519      DocumentWriter.UseMenu
520      MenuSelect(Menugetitemid(4))
521      Sleep 2
522      MenuSelect(Menugetitemid(9))
523      Sleep 2
524      MenuSelect(Menugetitemid(1))
525      Sleep 2
527     '/// type some test words - it should be in the footer
528      Call wTypeKeys sTest
530     '/// check if the text in footer is right
531      Kontext
532      EditSearchAndReplace
533      Kontext "FindAndReplace"
534        SearchFor.SetText sTest
535        Sleep 1
536        SearchAll.Click
537        Sleep 1
538      FindAndReplace.Close
539      Sleep 1
541      EditSelectAll
542      EditCopy
544      if GetClipboardText <> sTest then warnlog "The content in the footer isn't right, should be " &sTest &  " but get " & GetClipboardText
546     '/// Remove the footer
547      Kontext
548      Kontext "DocumentWriter"
549      DocumentWriter.UseMenu
550      MenuSelect(Menugetitemid(4))
551      Sleep 2
552      MenuSelect(Menugetitemid(9))
553      Sleep 2
554      MenuSelect(Menugetitemid(1))
555      Sleep 2
557      Kontext "Active"
558      if Active.Exists then
559          if Active.GetRT = 304 then  Active.Yes
560      else
561           warnlog "There should be a warning message appear when turn off footer !"
562      end if
563      Sleep 1
565     '/// Check if the content in footer is removed
566      Kontext
567      EditSearchAndReplace
568      Kontext "FindAndReplace"
569        SearchFor.SetText sTest
570        Sleep 1
571        SearchAll.Click
572        Sleep 1
574        Kontext "Active"
575        if Active.Exists then
576            if Active.GetRT = 304 then  Active.OK
577        else
578            warnlog "The content in footer should be removed!"
579        end if
581        Kontext "FindAndReplace"
582      FindAndReplace.Close
584     Call hCloseDocument
586 endcase
588 '-------------------------------------------------------------------------------------------
590 testcase tFormatPage_36
592     Dim sTest as String
594     sTest = "Test"
596     PrintLog "- cursor shouldn't jump to footer when inserting a footer via checking 'Footer on'"
597     '/// cursor shouldn't jump to footer when inserting a footer via  checking 'Footer on'
599     Call hNewDocument
601      Call wTypeKeys "ABC"
603     '/// formatPage , tabpage footer
604      fFormatPageWriter("TabKopfzeile")
606     '/// + turn on footer (check Footer on)
607        KopfzeileMitAbstand.Check
608      TabKopfzeile.OK
609      Sleep 1
611     '/// type some test words - it should be in the footer
612      Call wTypeKeys sTest
614     '/// check if the text in footer is right
615      Kontext
616      EditSearchAndReplace
617      Kontext "FindAndReplace"
618        WholeWordsOnly.UnCheck
619        Sleep 1
620        SearchFor.SetText sTest
621        Sleep 1
622        SearchAll.Click
623        Sleep 1
624      FindAndReplace.Close
625      Sleep 1
627      EditSelectAll
628      EditCopy
630      if GetClipboardText <> "ABC"+sTest then warnlog "The content in the footer isn't right, should be null"
632     Call hCloseDocument
634 endcase
636 '-------------------------------------------------------------------------------------------
638 testcase tFormatPage_37
640     Dim sHeader as String
642     Select case iSprache
643         case 01   : sHeader = "Header"
644         case 31   : sHeader = "Koptekst"
645         case 33   : sHeader = "En-tête"
646         case 34   : sHeader = "Encabezamiento"
647         case 39   : sHeader = "Riga d'intestazione"
648         case 46   : sHeader = "Sidhuvud"
649         case 49   : sHeader = "Kopfzeile"
650         case 55   : sHeader = "Cabeçalho"
651         case 81   : sHeader = "ヘッダ"
652         case 82   : sHeader = "머리글"
653         case 86   : sHeader = "页眉"
654         case 88   : sHeader = "頁首"
655         case else : QAErrorLog "The test does not support the language " + iSprache
656                     Goto endsub
657     end select
659     PrintLog "- Header must be applied to the current page style when inserting via menu"
660     '/// Header must be applied to the current page style when inserting via menu
662     Call hNewDocument
664     '/// Insert a header via menu
665      DocumentWriter.UseMenu
666      MenuSelect(Menugetitemid(4))
667      Sleep 2
668      MenuSelect(Menugetitemid(9))
669      Sleep 2
670      MenuSelect(Menugetitemid(1))
671      Sleep 2
673     '/// Check if header can be seen in status bar
674      Kontext "TableObjectbar"
676      if Vorlage2.GetSelText <> sHeader then
677          warnlog "The header can't be seen in status bar ! "
678      end if
680     Call hCloseDocument
682 endcase
684 '-------------------------------------------------------------------------------------------
686 testcase tFormatPage_38
688     Dim sFooter as String
690     Select case iSprache
691         case 01   : sFooter = "Footer"
692         case 31   : sFooter = "Voettekst"
693         case 33   : sFooter = "Pied de page"
694         case 34   : sFooter = "Pie de página"
695         case 39   : sFooter = "Piè di pagina"
696         case 46   : sFooter = "Sidfot"
697         case 49   : sFooter = "Fußzeile"
698         case 55   : sFooter = "Rodapé"
699         case 81   : sFooter = "フッタ"
700         case 82   : sFooter = "바닥글"
701         case 86   : sFooter = "页脚"
702         case 88   : sFooter = "頁尾"
703         case else : QAErrorLog "The test does not support the language " + iSprache
704                     Goto endsub
705     end select
707     PrintLog "- Footer must be applied to the current page style when inserting via menu"
708     '/// Footer must be applied to the current page style when inserting via menu
710     Call hNewDocument
712     '/// Insert a footer via menu
713      DocumentWriter.UseMenu
714      MenuSelect(Menugetitemid(4))
715      Sleep 2
716      MenuSelect(Menugetitemid(10))
717      Sleep 2
718      MenuSelect(Menugetitemid(1))
719      Sleep 2
721     '/// Check if header can be seen in status bar
722      Kontext "TableObjectbar"
724      if Vorlage2.GetSelText <> sFooter then
725          warnlog "The footer can't be seen in status bar ! "
726      end if
728     Call hCloseDocument
730 endcase
732 '-------------------------------------------------------------------------------------------
734 testcase tFormatPage_39
736     Dim sTestFile as String
737     Dim sColumn as String
739     sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnInPage.sxw")
740     sColumn    = "3"
742     PrintLog "- Set multi column via controls in page dialog"
743     '/// Set multi column via controls in page dialog
745     Call hNewDocument
747     '/// Open test file testColumnInPage.sxw
748     '/// + (The test file includes 2 pages , some text
749     '/// + is in 1st page and another is in 2nd page)
750      Call hFileOpen(sTestFile)
751      Call sMakeReadOnlyDocumentEditable
753     '/// formatPage , tabpage columns , change column to 3 via controls
754      fFormatPageWriter("TabSpalten")
755        Anzahl.TypeKeys "<Up>", 2
756        Sleep 1
757      TabSpalten.OK
759     '/// Check if the text in 1st page in the 1st column
760      Kontext
761      EditSearchAndReplace
762      Kontext "FindAndReplace"
763        SearchFor.SetText "ABCD"
764        Sleep 1
765        SearchAll.Click
766        Sleep 1
767      FindAndReplace.Close
769      Call wTypeKeys "<Home>"
770      Call wTypeKeys "<Shift End>"
771      EditCopy
772      if Len(GetClipboardText) = 26 then warnlog "the first column isn't right!"
774     '/// Check if the text in 2nd page in the 2nd column
775      Kontext
776      EditSearchAndReplace
777      Kontext "FindAndReplace"
778        SearchFor.SetText "This"
779        Sleep 1
780        SearchAll.Click
781        Sleep 1
782      FindAndReplace.Close
784      Kontext "Navigator"
785        if Not Navigator.Exists then ViewNavigator
786        Kontext "NavigatorWriter"
787        Sleep 1
788        if Seitennummer.GetText <> "1" then warnlog "the second column isn't right!"
789      fCloseNavigator
791     printlog "  Close active document "
792     Do Until GetDocumentCount = 0
793         Call hCloseDocument
794     Loop
795 endcase
797 '-------------------------------------------------------------------------------------------
799 testcase tFormatPage_40
801     Dim sTestFile as String
802     Dim sColumn as String
804     sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnInPage.sxw")
805     sColumn    = "3"
807     PrintLog "- Set multi column via spinfield in page dialog"
808     '/// Set multi column via spinfield in page dialog
810     Call hNewDocument
812     '/// Open test file testColumnInPage.sxw
813     '/// + (The test file includes 2 pages , some text is
814     '/// + in 1st page and another is in 2nd page)
815      Call hFileOpen(sTestFile)
816      Call sMakeReadOnlyDocumentEditable
818     '/// formatPage , tabpage columns , change column to 3 via spinfield
819      fFormatPageWriter("TabSpalten")
820        ColumnValueset.TypeKeys "<Right>"
821        Sleep 1
822        ColumnValueset.TypeKeys "<Right>"
823        Sleep 1
824        ColumnValueset.TypeKeys "<Right>"
825        Sleep 1
826      TabSpalten.OK
828     '/// Check if the text in 1st page in the 1st column
829      Kontext
830      EditSearchAndReplace
831      Kontext "FindAndReplace"
832        SearchFor.SetText "ABCD"
833        Sleep 1
834        SearchAll.Click
835        Sleep 1
836      FindAndReplace.Close
838      Call wTypeKeys "<Home>"
839      Call wTypeKeys "<Shift End>"
840      EditCopy
841      if Len(GetClipboardText) = 26 then warnlog "the first column isn't right!"
843     '/// Check if the text in 2nd page in the 2nd column
844      Kontext
845      EditSearchAndReplace
846      Kontext "FindAndReplace"
847        SearchFor.SetText "This"
848        Sleep 1
849        SearchAll.Click
850        Sleep 1
851      FindAndReplace.Close
853      Kontext "Navigator"
854        if Not Navigator.Exists then ViewNavigator
855        Kontext "NavigatorWriter"
856        Sleep 1
857        if Seitennummer.GetText <> "1" then warnlog "the second column isn't right!"
858      fCloseNavigator
860     printlog "  Close active document "
861     Do Until GetDocumentCount = 0
862         Call hCloseDocument
863     Loop
864 endcase
866 '-------------------------------------------------------------------------------------------
868 testcase tFormatPage_41
870     Dim sTestFile as String
871     Dim sColumn as String
872     Dim sWidthColumn1 as String
873     Dim sWidthColumn2 as String
874     Dim sWidthColumn3 as String
875     
876     sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnInPage2.sxw")
877     sColumn       = "3"
878     sWidthColumn1 = "2" + gSeperator + "00"
879     sWidthColumn2 = "4" + gSeperator + "00"
880     
881     PrintLog "- create columns with different width "
882     '/// create columns with different width
883     
884     Call hNewDocument
885     
886     '/// Open test file testColumnInPage2.sxw
887     '/// + (The test file includes 2 pages , some text is
888     '/// + in 1st page and another is in 2nd page)
889     Call hFileOpen(sTestFile)
890     Call sMakeReadOnlyDocumentEditable
891     
892     '/// Create 3 with different columns . formatPage ,
893     '/// + tabpage columns , set 3 columns
894     Call fFormatPageWriter("TabSpalten")
895     Anzahl.TypeKeys "<Up>", 2
896     Sleep 1
897     AutomBreite.Uncheck
898     Sleep 1
899     Spaltenbreite1.SetText sWidthColumn1
900     wait 500
901     Spaltenbreite2.SetText sWidthColumn2
902     wait 500
903     Art.Select 1
904     wait 500
905     sWidthColumn3 = Spaltenbreite3.GetText
906     wait 500
907     TabSpalten.OK
908     
909     '/// Check if columns' width is right
910     fFormatPageWriter("TabSpalten")
911     if Left$(Spaltenbreite1.GetText,4) <> sWidthColumn1 then Warnlog "the column1's width isn't set correctly !"
912     if Left$(Spaltenbreite2.GetText,4) <> sWidthColumn2 then Warnlog "the column2's width isn't set correctly !"
913     if Spaltenbreite3.GetText <> sWidthColumn3 then Warnlog "the column3's width isn't set correctly !"
914     TabSpalten.Cancel
915     
916     'detailed check for column1
917     Kontext
918     EditSearchAndReplace
919     Kontext "FindAndReplace"
920     SearchFor.SetText "ABCD"
921     Sleep 1
922     SearchAll.Click
923     Sleep 1
924     FindAndReplace.Close
925     
926     Call wTypeKeys "<Home>"
927     Call wTypeKeys "<Shift End>"
928     EditCopy
929     if Len(GetClipboardText) > 8 then Warnlog "Something wrong in the column1"
930     
931     'detailed check for column2
932     Kontext
933     EditSearchAndReplace
934     Kontext "FindAndReplace"
935     SearchFor.SetText "ZYXW"
936     Sleep 1
937     SearchAll.Click
938     Sleep 1
939     FindAndReplace.Close
940     
941     Call wTypeKeys "<Home>"
942     Call wTypeKeys "<Shift End>"
943     EditCopy
944     if Len(GetClipboardText) > 14 then Warnlog "Something wrong in the column2"
945     
946     printlog "  Close active document "
947     Do Until GetDocumentCount = 0
948         Call hCloseDocument
949     Loop
950 endcase
952 '-------------------------------------------------------------------------------------------
954 testcase tFormatPage_42
956     Dim sTestFile as String
957     Dim sColumn as String
958     Dim sWidthColumn1 as String
959     Dim sWidthColumn2 as String
960     Dim sWidthColumn3 as String
961     Dim sSpacing1 as String
962     Dim sSpacing2 as String
964     sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnInPage2.sxw")
965     sColumn       = "3"
967     sWidthColumn1 = "2" + gSeperator + "00" + gMeasurementUnit
968     sWidthColumn2 = "4" + gSeperator + "00" + gMeasurementUnit
969     sSpacing1     = "1" + gSeperator + "00" + gMeasurementUnit
970     sSpacing2     = "2" + gSeperator + "00" + gMeasurementUnit
972     PrintLog "- vary distance between columns "
973     '/// vary distance between columns
975     Call hNewDocument
977     '/// Open test file testColumnInPage2.sxw
978     '/// + (The test file includes 2 pages , some text is
979     '/// + in 1st page and another is in 2nd page)
980      Call hFileOpen(sTestFile)
981      Call sMakeReadOnlyDocumentEditable
983     '/// formatPage , tabpage columns , set 3 columns
984      fFormatPageWriter("TabSpalten")
985        Anzahl.TypeKeys "<Up>", 2
986        Sleep 1
987      TabSpalten.OK
989     '/// vary distance between columns
990      fFormatPageWriter("TabSpalten")
991        AutomBreite.Uncheck
992        Sleep 1
993        Spaltenbreite1.SetText sWidthColumn1
994        wait 500
995        Spaltenbreite2.SetText sWidthColumn2
996        wait 500
997        Abstand12.SetText sSpacing1
998        Sleep 2
999        Abstand23.SetText sSpacing2
1000        Sleep 2
1001        Art.Select 1
1002        Sleep 1
1003        sWidthColumn2 = "3" + gSeperator + "00" + gMeasurementUnit
1004        sWidthColumn3 = Spaltenbreite3.GetText
1005        wait 500
1006      TabSpalten.OK
1008     '/// Check if columns' width and spacing are right
1009      fFormatPageWriter("TabSpalten")
1010        if Spaltenbreite1.GetText <> sWidthColumn1 then Warnlog "the column1's width isn't set correctly !"
1011        if Spaltenbreite2.GetText <> sWidthColumn2 then Warnlog "the column2's width isn't set correctly !"
1012        if Spaltenbreite3.GetText <> sWidthColumn3 then Warnlog "the column3's width isn't set correctly !"
1013        if Abstand12.GetText      <> sSpacing1     then Warnlog "the spacing1 isn't correct!"
1014        if Abstand23.GetText      <> sSpacing2     then Warnlog "the spacing1 isn't correct!"
1015      TabSpalten.Cancel
1017     'detailed check for column2
1018      Kontext
1019      EditSearchAndReplace
1020      Kontext "FindAndReplace"
1021        SearchFor.SetText "ZYXW"
1022        Sleep 1
1023        SearchAll.Click
1024        Sleep 1
1025      FindAndReplace.Close
1027      Call wTypeKeys "<Home>"
1028      Call wTypeKeys "<Shift End>"
1029      EditCopy
1030      if Len(GetClipboardText) > 11 then Warnlog "Somthing wrong in the column2"
1032     printlog "  Close active document "
1033     Do Until GetDocumentCount = 0
1034         Call hCloseDocument
1035     Loop
1036 endcase
1038 '-------------------------------------------------------------------------------------------
1040 testcase tFormatPage_43
1042     Dim sColumn as String
1043     Dim sHeight as String
1044     Dim iLine as Integer
1045     Dim iPosition as Integer
1047     sColumn        = "2"
1048     sHeight        = "50%"
1049     iLine          = 2
1050     iPosition      = 2
1052     PrintLog "- seperator line between columns - change height/position of seperator"
1053     '/// seperator line between columns - change height/position of seperator
1055     Call hNewDocument
1057     '/// formatPage , tabpage columns , set 2 columns
1058      fFormatPageWriter("TabSpalten")
1059        Anzahl.TypeKeys "<Up>"
1060        Sleep 1
1061      TabSpalten.OK
1063     '/// + Change height/position of seperator
1064      fFormatPageWriter("TabSpalten")
1065        Art.Select      iLine
1066        Sleep 1
1067        Hoehe.SetText   sHeight
1068        Sleep 1
1069        Position.Select iPosition
1070        Sleep 1
1071      TabSpalten.OK
1073     '/// Check if height/position of seperator is changed
1074      fFormatPageWriter("TabSpalten")
1075        if Hoehe.GetText        <> sHeight    then Warnlog "Height isn't correct!"
1076        Sleep 1
1077        if Position.GetSelIndex <> iPosition  then Warnlog "Position isn't correct!"
1078      TabSpalten.Cancel
1080     Call hCloseDocument
1082 endcase
1084 '-------------------------------------------------------------------------------------------
1086 testcase tFormatPage_44
1088     Dim sColumn as String
1089     Dim i as Integer
1091     sColumn = "2"
1093     PrintLog "- seperator line between columns - different line formats "
1094     '/// seperator line between columns - different line formats
1096     Call hNewDocument
1098     '/// formatPage , tabpage columns , set 2 columns
1099      fFormatPageWriter("TabSpalten")
1100        Anzahl.TypeKeys "<Up>"
1101        Sleep 1
1102      TabSpalten.OK
1104     '/// + Change seperator line style
1106     '/// Check if height/position  of seperator is changed
1108      fFormatPageWriter("TabSpalten")
1109      for i = 1 to Art.GetItemCount
1110          if i > 1 then fFormatPageWriter("TabSpalten")
1111            Art.Select  i
1112            Sleep 1
1113          TabSpalten.OK
1115          fFormatPageWriter("TabSpalten")
1116            if Art.GetSelIndex <> i  then Warnlog "Seperator line isn't correct!"
1117          TabSpalten.Cancel
1118      next i
1120     Call hCloseDocument
1122 endcase
1124 '-------------------------------------------------------------------------------------------
1126 testcase tFormatPage_45
1128     Dim sTestFile as String
1129     Dim sTestText as String
1130     Dim iTestTextLength as Integer
1132     sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testSeparatorLine.sxw")
1133     sTestText     = "llll"
1135     PrintLog "- shouldn't exist spacing after remove separator line"
1136     '/// shouldn't exist spacing after remove separator line
1138     Call hNewDocument
1140     '/// Open test file testSeparatorLine.sxw
1141     '/// + (The test file includes 6 columns , some
1142     '/// + test text lllll... is in 2nd column
1143      Call hFileOpen(sTestFile)
1144      Call sMakeReadOnlyDocumentEditable
1146      Kontext
1147      EditSearchAndReplace
1148      Kontext "FindAndReplace"
1149        SearchFor.SetText sTestText
1150        Sleep 1
1151        SearchAll.Click
1152        Sleep 1
1153      FindAndReplace.Close
1155      Call wTypeKeys "<Home>"
1156      Call wTypeKeys "<Shift End>"
1157      EditCopy
1158      iTestTextLength = Len(GetClipboardText)
1160     '/// formatPage , tabpage columns, set Separator line to 5pt
1161      fFormatPageWriter("TabSpalten")
1162        Art.Select  Art.GetItemCount
1163        Sleep 1
1164      TabSpalten.OK
1166      Kontext
1167      EditSearchAndReplace
1168      Kontext "FindAndReplace"
1169        SearchFor.SetText sTestText
1170        Sleep 1
1171        SearchAll.Click
1172        Sleep 1
1173      FindAndReplace.Close
1175      Call wTypeKeys "<Home>"
1176      Call wTypeKeys "<Shift End>"
1177      EditCopy
1178      if iTestTextLength <= Len(GetClipboardText) then Warnlog "Seperator line isn't correct!"
1180     '/// + set separator line to null
1181      fFormatPageWriter("TabSpalten")
1182        Art.Select  1
1183        Sleep 1
1184      TabSpalten.OK
1186     '/// Check if column is covered to former
1187      Kontext
1188      EditSearchAndReplace
1189      Kontext "FindAndReplace"
1190        SearchFor.SetText sTestText
1191        Sleep 1
1192        SearchAll.Click
1193        Sleep 1
1194      FindAndReplace.Close
1196      Call wTypeKeys "<Home>"
1197      Call wTypeKeys "<Shift End>"
1198      EditCopy
1199      if iTestTextLength <> Len(GetClipboardText) then Warnlog "The column isn't covered to former! #112632"
1201     printlog "  Close active document "
1202     Do Until GetDocumentCount = 0
1203         Call hCloseDocument
1204     Loop
1205 endcase
1207 '-------------------------------------------------------------------------------------------
1209 testcase tFormatPage_46
1211     Dim sColumn as String
1212     Dim sWidthColumn1 as String
1213     Dim sWidthColumn2 as String
1214     Dim sWidthColumn3 as String
1215     Dim sSpacing1 as String
1216     Dim sSpacing2 as String
1217     Dim iLine as Integer
1218     Dim sLineHeight as String
1219     Dim iLinePosition as Integer
1221     sColumn       = "3"
1222     sWidthColumn1 = "2" + gSeperator + "00" + gMeasurementUnit
1223     sWidthColumn2 = "4" + gSeperator + "00" + gMeasurementUnit
1224     sSpacing1     = "0" + gSeperator + "30" + gMeasurementUnit
1225     sSpacing2     = "0" + gSeperator + "50" + gMeasurementUnit
1226     iLine         = 4
1227     sLineHeight   = "50%"
1228     iLinePosition = 2
1230     PrintLog "- Check if the settings are kept after reopening the file"
1231     '/// Check if the settings are kept after reopening the file
1233     Call hNewDocument
1235     '/// Format/Page / columns , do some configurations
1237     'set 3 columns
1238      fFormatPageWriter("TabSpalten")
1239        Anzahl.TypeKeys "<Up>", 2
1240        Sleep 1
1241      TabSpalten.OK
1243     'UnCheck autowidth , set different width to 3 columns
1244      fFormatPageWriter("TabSpalten")
1245        AutomBreite.Uncheck
1246        Sleep 1
1247        Abstand12.SetText      sSpacing1
1248        Sleep 1
1249        Abstand23.SetText      sSpacing2
1250        Sleep 1
1251        Spaltenbreite1.SetText sWidthColumn1
1252        wait 500
1253        Spaltenbreite2.SetText sWidthColumn2
1254        wait 500
1255        Art.Select             iLine
1256        wait 500
1257        Hoehe.SetText          sLineHeight
1258        Sleep 1
1259        Position.Select        iLinePosition
1260        Sleep 1
1261        sWidthColumn3 = Spaltenbreite3.GetText
1262        wait 500
1263      TabSpalten.OK
1265     '/// Save the file , close the file and reopen it
1266      Call hFileSaveAsWithFilterKill(gOfficepath + "user\work\tFormatPage_46.odt", "writer8")
1267      Call hCloseDocument
1269      Call hNewDocument
1270      Call hFileOpen(gOfficepath + "user\work\tFormatPage_46.odt")
1272     '/// Check if the setting are still kept
1273      fFormatPageWriter("TabSpalten")
1274        if AutomBreite.Ischecked  =  TRUE          then Warnlog "Autowidth shouldn't be checked !"
1275        if Abstand12.GetText      <> sSpacing1     then Warnlog "Spacing1 isn't right , should be " &sSpacing1 & " but get " &Abstand12.GetText
1276        if Abstand23.GetText      <> sSpacing2     then Warnlog "Spacing2 isn't right , should be " &sSpacing2 & " but get " &Abstand23.GetText
1277        if Spaltenbreite1.GetText <> sWidthColumn1 then Warnlog "column1 isn't right , should be " &sWidthColumn1 & " but get " &Spaltenbreite1.GetText
1278        if Spaltenbreite2.GetText <> sWidthColumn2 then Warnlog "column1 isn't right , should be " &sWidthColumn2 & " but get " &Spaltenbreite2.GetText
1279        if Spaltenbreite3.GetText <> sWidthColumn3 then Warnlog "column1 isn't right , should be " &sWidthColumn2 & " but get " &Spaltenbreite3.GetText
1280        if Art.GetSelIndex        <> iLine         then Warnlog "Line style isn't right !"
1281        if Hoehe.GetText          <> sLineHeight   then Warnlog "Height isn't correct!"
1282        if Position.GetSelIndex   <> iLinePosition then Warnlog "Position isn't correct!"
1283      TabSpalten.Cancel
1285     Call hCloseDocument
1287 endcase
1289 '-------------------------------------------------------------------------------------------
1291 testcase tFormatPage_47
1293     Dim sWidth as String
1294     Dim sLeft as String  ,  sRight as String  ' set margin size
1295     Dim sWidth1 as String  ,  sWidth2 as String  ,  sWidth3 as String
1297     sWidth     = "20" + gSeperator + "00" + gMeasurementUnit
1298     sLeft      = "2"  + gSeperator + "00" + gMeasurementUnit
1299     sRight     = "3"  + gSeperator + "00" + gMeasurementUnit
1301     PrintLog "- Test Travel through the 5 columns preset boxes "
1302     '/// Test Travel through the 5 columns preset boxes
1304     Call hNewDocument
1306     'Set page's width to 20cm and left margin: 3cm , right margin : 2cm
1307      fFormatPageWriter("TabSeite")
1308        Breite.SetText  sWidth
1309        Wait 500
1310        Links.SetText   sLeft
1311        Wait 500
1312        Rechts.SetText  sRight
1313        Wait 500
1314      TabSeite.OK
1316     '/// formatPage , tabpage columns
1317      fFormatPageWriter("TabSpalten")
1319       '/// - Select fisrt box ==> only 1 column
1320        ColumnValueset.TypeKeys "<Right>"
1321        Sleep 1
1322        if Len(Spaltenbreite1.GetText) <> 0     then Warnlog "width1 shouldn't be writable when there is only 1 column !"
1323        Sleep 1
1325       '/// - Select second box ==> 2 columns ( 1st = 2rd )
1326        ColumnValueset.TypeKeys "<Right>"
1327        Sleep 1
1328        sWidth1     = "7" + gSeperator + "50" + gMeasurementUnit
1329        sWidth2     = "7" + gSeperator + "50" + gMeasurementUnit
1330        if Spaltenbreite1.GetText <> sWidth1 then Warnlog "2.width1 should be " &sWidth1 & " but get " &Spaltenbreite1.GetText
1331        if Spaltenbreite2.GetText <> sWidth2 then Warnlog "2.width2 should be " &sWidth2 & " but get " &Spaltenbreite2.GetText
1332        if AutomBreite.IsChecked  <> TRUE    then Warnlog "2.Autowidth should be checked !"
1334       '/// - Select third box ==> 3 columns ( 1st = 2rd = third )
1335        ColumnValueset.TypeKeys "<Right>"
1336        Sleep 1
1337        sWidth1     = "5" + gSeperator + "00" + gMeasurementUnit
1338        sWidth2     = "5" + gSeperator + "00" + gMeasurementUnit
1339        sWidth3     = "5" + gSeperator + "00" + gMeasurementUnit
1340        if Spaltenbreite1.GetText <> sWidth1 then Warnlog "3.width1 should be " &sWidth1 & " but get " &Spaltenbreite1.GetText
1341        if Spaltenbreite2.GetText <> sWidth2 then Warnlog "3.width2 should be " &sWidth2 & " but get " &Spaltenbreite2.GetText
1342        if Spaltenbreite3.GetText <> sWidth3 then Warnlog "3.width3 should be " &sWidth2 & " but get " &Spaltenbreite3.GetText
1343        if AutomBreite.IsChecked  <> TRUE    then Warnlog "3.Autowidth should be checked !"
1345       '/// - Select forth box ==> 2 columns ( 1st : 2rd = 2:1 )
1346        ColumnValueset.TypeKeys "<Right>"
1347        Sleep 1
1348        sWidth1     = "10" + gSeperator + "00" + gMeasurementUnit
1349        sWidth2     = "5"  + gSeperator + "00" + gMeasurementUnit
1350        if Spaltenbreite1.GetText <> sWidth1 then Warnlog "4.width1 should be " &sWidth1 & " but get " &Spaltenbreite1.GetText
1351        if Spaltenbreite2.GetText <> sWidth2 then Warnlog "4.width2 should be " &sWidth2 & " but get " &Spaltenbreite2.GetText
1352        if AutomBreite.IsChecked  =  TRUE    then Warnlog "4.Autowidth should be Unchecked !"
1354       '/// - Select fifth box ==> 2 columns ( 1st : 2rd = 1:2 )
1355        ColumnValueset.TypeKeys "<Right>"
1356        Sleep 1
1357        sWidth1     = "5"  + gSeperator + "00" + gMeasurementUnit
1358        sWidth2     = "10" + gSeperator + "00" + gMeasurementUnit
1359        if Spaltenbreite1.GetText <> sWidth1 then Warnlog "5.width1 should be " &sWidth1 & " but get " &Spaltenbreite1.GetText
1360        if Spaltenbreite2.GetText <> sWidth2 then Warnlog "5.width2 should be " &sWidth2 & " but get " &Spaltenbreite2.GetText
1361        if AutomBreite.IsChecked  =  TRUE    then Warnlog "5.Autowidth should be Unchecked !"
1363       '/// - Press right key again, will get the first box
1364        ColumnValueset.TypeKeys "<Right>"
1365        Sleep 1
1366        if Anzahl.GetText <> "1" then Warnlog "The focus should be in the leftest box !"
1367        Sleep 1
1369      TabSpalten.Cancel
1371     Call hCloseDocument
1373 endcase
1375 '-------------------------------------------------------------------------------------------