testautomation/writer/optional/includes/sorting/w_sorting1.inc

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_sorting1.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:35:51 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description : Sorting functions in Writer
  36 '*
  37 '************************************************************************
  38 '*
  39 ' #1 tToolsSort1                         ' Text in one Column and 1 Key
  40 ' #1 tToolsSort2                         ' Numbers in 1 Column and 1 Key
  41 ' #1 tToolsSort3                         ' Text in several Columns and 3 Keys
  42 ' #1 tToolsSort4                         ' Table with Header ( Text and Numbers mixed )
  43 ' #1 tToolsSort5                         ' Table without Header ( Text and Numbers mixed )
  44 ' #1 tToolsSort6                         ' Copy sorted table in another table
  45 '*
  46 '\***********************************************************************
  47
  48 sub w_sorting
  49
  50     Call tToolsSort1                         ' Text in one Column and 1 Key
  51     Call tToolsSort2                         ' Numbers in 1 Column and 1 Key
  52     Call tToolsSort3                         ' Text in several Columns and 3 Keys
  53     Call tToolsSort4                         ' Table with Header ( Text and Numbers mixed )
  54     Call tToolsSort5                         ' Table without Header ( Text and Numbers mixed )
  55     Call tToolsSort6                         ' Copy sorted table in another table
  56
  57 end sub
  58
  59
  60 testcase tToolsSort1
  61     PrintLog "- Tools / Sort normal Text ( 1. Column )"
  62     Printlog "   - alphanumeric ascending ( Key 1 )"
  63     Call hNewDocument
  64     Call wTypeKeys "Ohallo<Return>Ahallo<Return>Ghallo<Return>Zhallo<Return>Shallo"
  65     Call wTypeKeys ( "<Mod1 a>" )
  66     ToolsSort
  67     Kontext "Sortieren"
  68     Schluessel1.Check
  69     Schluessel2.UnCheck
  70     Schluessel3.UnCheck
  71     Spalte1.SetText "1"
  72     Schluesseltyp1.Select 1
  73     Aufsteigend1.Check
  74     Sortieren.OK
  75     Call AufsteigendKontrollieren ( FALSE )
  76
  77     Printlog "   - alphanumeric descending ( Key 1 )"
  78     Call wTypeKeys ( "<Mod1 a>" )
  79     ToolsSort
  80     Kontext "Sortieren"
  81     Schluessel1.Check
  82     Spalte1.SetText "1"
  83     Schluesseltyp1.Select 1
  84     Absteigend1.Check
  85     Sortieren.OK
  86     AbsteigendKontrollieren ( FALSE )
  87
  88     Printlog "   - alphanumeric ascending ( Key 2 )"
  89     Call wTypeKeys "<Mod1 a>"
  90     Call wTypeKeys "<Delete>"
  91     Sleep 1
  92     Call wTypeKeys "Ohallo<Return>Ahallo<Return>Ghallo<Return>Zhallo<Return>Shallo"
  93     Call wTypeKeys ( "<Mod1 a>" )
  94     ToolsSort
  95     Kontext "Sortieren"
  96     Schluessel2.Check
  97     Schluessel1.Uncheck
  98     Schluessel3.UnCheck
  99     Spalte2.SetText "1"
 100     Schluesseltyp2.Select 1
 101     Aufsteigend2.Check
 102     Sortieren.OK
 103     Call AufsteigendKontrollieren ( FALSE )
 104
 105     Printlog "   - alphanumeric descending ( Key 2 )"
 106     Call wTypeKeys "<Mod1 a>"
 107     ToolsSort
 108     Kontext "Sortieren"
 109     Spalte2.SetText "1"
 110     Schluesseltyp2.Select 1
 111     Absteigend2.Check
 112     Sortieren.OK
 113     AbsteigendKontrollieren ( FALSE )
 114
 115     Printlog "   - alphanumeric ascending ( Key 3 )"
 116     Call wTypeKeys "<Mod1 a>"
 117     Call wTypeKeys "<Delete>"
 118     Sleep 1
 119     Call wTypeKeys "Ohallo<Return>Ahallo<Return>Ghallo<Return>Zhallo<Return>Shallo"
 120     Call wTypeKeys ( "<Mod1 a>" )
 121     ToolsSort
 122     Kontext "Sortieren"
 123     Schluessel3.Check
 124     Schluessel1.UnCheck
 125     Schluessel2.UnCheck
 126     Spalte3.SetText "1"
 127     Schluesseltyp3.Select 1
 128     Aufsteigend3.Check
 129     Sortieren.OK
 130     Call AufsteigendKontrollieren ( FALSE )
 131
 132     Printlog "   - alphanumeric descending ( Key 3 )"
 133     Call wTypeKeys "<Mod1 a>"
 134     ToolsSort
 135     Kontext "Sortieren"
 136     Schluessel3.Check
 137     Schluessel1.Uncheck
 138     Schluessel2.UnCheck
 139     Spalte3.SetText "1"
 140     Schluesseltyp3.Select 1
 141     Absteigend3.Check
 142     Sortieren.OK
 143     Call AbsteigendKontrollieren ( FALSE )
 144
 145     Call hCloseDocument
 146 endcase
 147
 148 ' *******************************************************************
 149
 150 testcase tToolsSort2
 151     PrintLog "- Tools / Sorting numbers ( 1. Column )"
 152
 153     Printlog "   - numeric ascending ( Key 1 )"
 154     Call hNewDocument
 155     Call wTypeKeys "43<Return>54<Return>23<Return>65<Return>56"
 156     Call wTypeKeys ( "<Mod1 a>" )
 157     ToolsSort
 158     Kontext "Sortieren"
 159     Schluessel1.Check
 160     Spalte1.SetText "1"
 161     Schluesseltyp1.Select 2
 162     Aufsteigend1.Check
 163     Sortieren.OK
 164     Call AufsteigendKontrollieren ( TRUE )
 165
 166     Printlog "   - numeric descending ( Key 1 )"
 167     Call wTypeKeys ( "<Mod1 a>" )
 168     ToolsSort
 169     Kontext "Sortieren"
 170     Schluessel1.Check
 171     Spalte1.SetText "1"
 172     Schluesseltyp1.Select 2
 173     Absteigend1.Check
 174     Sortieren.OK
 175     Call AbsteigendKontrollieren ( TRUE )
 176
 177     Printlog "   - numeric ascending ( Key 2 )"
 178     Call wTypeKeys "<Mod1 a>"
 179     Call wTypeKeys "<Delete>"
 180     Sleep 1
 181     Call wTypeKeys "43<Return>54<Return>23<Return>65<Return>56"
 182     Call wTypeKeys ( "<Mod1 a>" )
 183     ToolsSort
 184     Kontext "Sortieren"
 185     Schluessel1.Uncheck
 186     Schluessel2.Check
 187     Spalte2.SetText "1"
 188     Schluesseltyp2.Select 2
 189     Aufsteigend2.Check
 190     Sortieren.OK
 191     Call AufsteigendKontrollieren ( TRUE )
 192
 193     Printlog "   - numeric descending ( Key 2 )"
 194     Call wTypeKeys ( "<Mod1 a>" )
 195     ToolsSort
 196     Kontext "Sortieren"
 197     Schluessel1.Uncheck
 198     Schluessel2.Check
 199     Spalte2.SetText "1"
 200     Schluesseltyp2.Select 2
 201     Absteigend2.Check
 202     Sortieren.OK
 203     Call AbsteigendKontrollieren ( TRUE )
 204
 205     Printlog "   - numeric ascending ( Key 3 )"
 206     Call wTypeKeys ( "<Mod1 a>" )
 207     Call wTypeKeys ( "<Delete>" )
 208     Sleep 1
 209     Call wTypeKeys "43<Return>54<Return>23<Return>65<Return>56"
 210     Call wTypeKeys ( "<Mod1 a>" )
 211     ToolsSort
 212     Kontext "Sortieren"
 213     Schluessel1.Uncheck
 214     Schluessel2.UnCheck
 215     Schluessel3.Check
 216     Spalte3.SetText "1"
 217     Schluesseltyp3.Select 2
 218     Aufsteigend3.Check
 219     Sortieren.OK
 220     Call AufsteigendKontrollieren ( TRUE )
 221
 222     Printlog "   - numeric descending ( Key 3 )"
 223     Call wTypeKeys ( "<Mod1 a>" )
 224     ToolsSort
 225     Kontext "Sortieren"
 226     Schluessel1.Uncheck
 227     Schluessel2.UnCheck
 228     Schluessel3.Check
 229     Spalte3.SetText "1"
 230     Schluesseltyp3.Select 2
 231     Absteigend3.Check
 232     Sortieren.OK
 233     Call AbsteigendKontrollieren ( TRUE )
 234
 235     Call hCloseDocument
 236 endcase
 237
 238 ' *******************************************************************
 239
 240 testcase tToolsSort3
 241     Dim i as Integer
 242     PrintLog "- Tools / Sorting text in several lines"
 243     for i=1 to 3
 244         select case i
 245             case 1: Printlog "  - Seperator is a tabulator"
 246             case 2: Printlog "  - Seperator is a semicolon"
 247                     Trennzeichen = ";"
 248             case 3: Printlog "  - Seperator is a '|'"
 249                      Trennzeichen = "|"
 250         end select
 251         if gApplication = "WRITER" then
 252             Call hFileOpen ( gTesttoolPath + "writer\optional\input\sorting\sort2.odt" )
 253             Call sMakeReadOnlyDocumentEditable
 254         else
 255             Call hFileOpen ( gTesttoolPath + "writer\optional\input\sorting\sort2.odm" )
 256             Call sMakeReadOnlyDocumentEditable
 257         end if
 258
 259         if i <> 1 then TrennzeichenSetzen ( Trennzeichen )
 260
 261         Printlog "     - alphanumeric ascending after 1.Column, followed by 4.Column and 3. Column"
 262         Call wTypeKeys ( "<Mod1 a>" )
 263         ToolsSort
 264         Kontext "Sortieren"
 265         Schluessel1.Check
 266         Spalte1.SetText "1"
 267         Schluesseltyp1.Select 1
 268         Aufsteigend1.Check
 269
 270         Schluessel2.Check
 271         Spalte2.SetText "4"
 272         Schluesseltyp2.Select 1
 273         Aufsteigend2.Check
 274
 275         Schluessel3.Check
 276         Spalte3.SetText "3"
 277         Schluesseltyp3.Select 1
 278         Aufsteigend3.Check
 279
 280         if i=1 then
 281             Tabulator.Check
 282         else
 283             Zeichen.Check
 284             ZeichenText.SetText Trennzeichen
 285         end if
 286         Sortieren.OK
 287         Call AufSortierungPruefen(i)
 288         Call UndoRichtigBeiSortierung
 289
 290         Printlog "     - alphanumeric descending 1.Column, followed by 4. column and 3. column"
 291         ToolsSort
 292         Kontext "Sortieren"
 293         Schluessel1.Check
 294         Spalte1.SetText "1"
 295         Schluesseltyp1.Select 1
 296
 297         Schluessel2.Check
 298         Spalte2.SetText "4"
 299         Schluesseltyp2.Select 1
 300
 301         Schluessel3.Check
 302         Spalte3.SetText "3"
 303         Schluesseltyp3.Select 1
 304
 305         Absteigend1.Check
 306         Absteigend2.Check
 307         Absteigend3.Check
 308         if i=1 then
 309             Tabulator.Check
 310         else
 311             Zeichen.Check
 312             ZeichenText.SetText Trennzeichen
 313         end if
 314         Sortieren.OK
 315         Call AbSortierungPruefen(i)
 316         Call UndoRichtigBeiSortierung
 317         Call hCloseDocument
 318     next i
 319
 320    'Call hCloseDocument
 321 endcase
 322
 323 ' *******************************************************************
 324
 325 testcase tToolsSort4
 326     PrintLog "- Tools / Sorting in table with header"
 327     if gApplication = "WRITER" then
 328         Call hFileOpen ( gTesttoolPath + "writer\optional\input\sorting\sort1.odt" )
 329         Call sMakeReadOnlyDocumentEditable
 330     else
 331         Call hFileOpen ( gTesttoolPath + "writer\optional\input\sorting\sort1.odm" )
 332         Call sMakeReadOnlyDocumentEditable
 333     end if
 334     Call wTypeKeys "<Mod1 a>", 2
 335
 336     Printlog "   - 3. column alphanum., 1. column num., 3. column alphanum. ascending"
 337     ToolsSort
 338     Kontext "Sortieren"
 339     Schluessel1.Check
 340     Spalte1.SetText "3"
 341     Schluesseltyp1.Select 1
 342
 343     Schluessel2.Check
 344     Spalte2.SetText "1"
 345     Schluesseltyp2.Select 2
 346
 347     Schluessel3.Check
 348     Spalte3.SetText "2"
 349     Schluesseltyp3.Select 1
 350     Aufsteigend1.Check
 351     Aufsteigend2.Check
 352     Aufsteigend3.Check
 353     if Tabulator.IsEnabled then Warnlog "Tabs is active"
 354     if Zeichen.IsEnabled then Warnlog "Char is active"
 355     Sortieren.OK
 356
 357     Printlog "   - Check"
 358     Call wTypeKeys "<Mod1 a>", 3   ' Umstellung zur 5.0 Cursor steht nach Sortierung in der letzten Zelle, mit 3*Ctrl_A kommt man in die 1.
 359     wait 100
 360     EditCopy
 361     if GetClipboardText <> "1" then Warnlog "Header of the first column has been sorted"
 362     if ZelleRuntertesten("2") = FALSE then Warnlog "1/2 is wrong"
 363     if ZelleRuntertesten("4") = FALSE then Warnlog "1/3 is wrong"
 364     if ZelleRuntertesten("5") = FALSE then Warnlog "1/4 is wrong"
 365     if ZelleRuntertesten("3") = FALSE then Warnlog "1/5 is wrong"
 366     if ZelleRuntertesten("6") = FALSE then Warnlog "1/6 is wrong"
 367     Call wTypeKeys "<Right>"
 368     Call wTypeKeys "<up>", 5
 369     Call wTypeKeys "<Mod1 a>"
 370     Wait 100
 371     EditCopy
 372     if GetClipboardText <> "a" then Warnlog "Header of the 2. column has not been sorted"
 373     if ZelleRuntertesten("a") = FALSE then Warnlog "2/2 is wrong"
 374     if ZelleRuntertesten("b") = FALSE then Warnlog "2/3 is wrong"
 375     if ZelleRuntertesten("c") = FALSE then Warnlog "2/4 is wrong"
 376     if ZelleRuntertesten("b") = FALSE then Warnlog "2/5 is wrong"
 377     if ZelleRuntertesten("c") = FALSE then Warnlog "2/6 is wrong"
 378     Call wTypeKeys "<Right>"
 379     Call wTypeKeys "<up>", 5
 380     Call wTypeKeys "<Mod1 a>"
 381     Wait 100
 382     EditCopy
 383     if GetClipboardText <> "zz" then Warnlog "Header der 3. column has not been sorted"
 384     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/2 is wrong"
 385     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/3 is wrong"
 386     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/4 is wrong"
 387     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/5 is wrong"
 388     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/6 is wrong"
 389
 390     Printlog "   - 3. column alphanum., 1. column num., 3. column alphanum. descending"
 391     Call wTypeKeys "<Left Right>"
 392     Call wTypeKeys "<Mod1 a>", 2
 393     Sleep 2
 394     ToolsSort
 395     Kontext "Sortieren"
 396     Schluessel1.Check
 397     Spalte1.SetText "3"
 398     Schluesseltyp1.Select 1
 399
 400     Schluessel2.Check
 401     Spalte2.SetText "1"
 402     Schluesseltyp2.Select 2
 403
 404     Schluessel3.Check
 405     Spalte3.SetText "2"
 406     Schluesseltyp3.Select 1
 407     Absteigend1.Check
 408     Absteigend2.Check
 409     Absteigend3.Check
 410     Sortieren.OK
 411
 412     Printlog "   - check"
 413     Call wTypeKeys "<up><Left>", 6
 414     Call wTypeKeys "<Mod1 a>"
 415     wait 100
 416     EditCopy
 417     if GetClipboardText <> "1" then Warnlog "Header of the 1. column has been sorted"
 418     if ZelleRuntertesten("6") = FALSE then Warnlog "1/2 is wrong"
 419     if ZelleRuntertesten("3") = FALSE then Warnlog "1/3 is wrong"
 420     if ZelleRuntertesten("5") = FALSE then Warnlog "1/4 is wrong"
 421     if ZelleRuntertesten("4") = FALSE then Warnlog "1/5 is wrong"
 422     if ZelleRuntertesten("2") = FALSE then Warnlog "1/6 is wrong"
 423     Call wTypeKeys "<Right>"
 424     Call wTypeKeys "<up>", 5
 425     Call wTypeKeys "<Mod1 a>"
 426     Wait 100
 427     EditCopy
 428     if GetClipboardText <> "a" then Warnlog "Header of the 2. column has not been sorted"
 429     if ZelleRuntertesten("c") = FALSE then Warnlog "2/2 is wrong"
 430     if ZelleRuntertesten("b") = FALSE then Warnlog "2/3 is wrong"
 431     if ZelleRuntertesten("c") = FALSE then Warnlog "2/4 is wrong"
 432     if ZelleRuntertesten("b") = FALSE then Warnlog "2/5 is wrong"
 433     if ZelleRuntertesten("a") = FALSE then Warnlog "2/6 is wrong"
 434     Call wTypeKeys "<Right>"
 435     Call wTypeKeys "<up>", 5
 436     Call wTypeKeys "<Mod1 a>"
 437     Wait 100
 438     EditCopy
 439     if GetClipboardText <> "zz" then Warnlog "Header of the 3. column has not been sorted"
 440     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/2 is wrong"
 441     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/3 is wrong"
 442     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/4 is wrong"
 443     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/5 is wrong"
 444     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/6 is wrong"
 445     Call hCloseDocument
 446 endcase
 447
 448 ' *******************************************************************
 449
 450 testcase tToolsSort5
 451     PrintLog "- Tools / Sorting in table without header"
 452     if gApplication = "WRITER" then
 453         Call hFileOpen ( gTesttoolPath + "writer\optional\input\sorting\sort1.odt" )
 454         Call sMakeReadOnlyDocumentEditable
 455     else
 456         Call hFileOpen ( gTesttoolPath + "writer\optional\input\sorting\sort1.odm" )
 457         Call sMakeReadOnlyDocumentEditable
 458     end if
 459
 460     Call wNavigatorAuswahl (2, 2)
 461     Call wTypeKeys "<Mod1 a>", 2
 462     Printlog "   - 3. column alphanum., 1. column num., 2. column alphanum. ascending"
 463     ToolsSort
 464     Kontext "Sortieren"
 465     Schluessel1.Check
 466     Spalte1.SetText "3"
 467     Schluesseltyp1.Select 1
 468
 469     Schluessel2.Check
 470     Spalte2.SetText "1"
 471     Schluesseltyp2.Select 2
 472
 473     Schluessel3.Check
 474     Spalte3.SetText "2"
 475     Schluesseltyp3.Select 1
 476     Aufsteigend1.Check
 477     Aufsteigend2.Check
 478     Aufsteigend3.Check
 479     if Tabulator.IsEnabled then Warnlog "'Tabs' is active when table is selected"
 480     if Zeichen.IsEnabled then Warnlog "'Character' is active when table is selected"
 481     Sortieren.OK
 482
 483     Printlog "   - check"
 484     Call wNavigatorAuswahl (2, 2)
 485     Call wTypeKeys "<Mod1 a>"
 486     wait 100
 487     EditCopy
 488
 489     if GetClipboardText <> "2" then Warnlog "1/1 is wrong!"
 490     if ZelleRuntertesten("4") = FALSE then Warnlog "1/2 is wrong"
 491     if ZelleRuntertesten("5") = FALSE then Warnlog "1/3 is wrong"
 492     if ZelleRuntertesten("1") = FALSE then Warnlog "1/4 is wrong"
 493     if ZelleRuntertesten("3") = FALSE then Warnlog "1/5 is wrong"
 494     if ZelleRuntertesten("6") = FALSE then Warnlog "1/6 is wrong"
 495     Call wTypeKeys "<Right>"
 496     Call wTypeKeys "<up>", 5
 497     Call wTypeKeys "<Mod1 a>"
 498     Wait 100
 499     EditCopy
 500     if GetClipboardText <> "a" then Warnlog "2/1 is wrong!"
 501     if ZelleRuntertesten("b") = FALSE then Warnlog "2/2 is wrong"
 502     if ZelleRuntertesten("c") = FALSE then Warnlog "2/3 is wrong"
 503     if ZelleRuntertesten("a") = FALSE then Warnlog "2/4 is wrong"
 504     if ZelleRuntertesten("b") = FALSE then Warnlog "2/5 is wrong"
 505     if ZelleRuntertesten("c") = FALSE then Warnlog "2/6 is wrong"
 506     Call wTypeKeys "<Right>"
 507     Call wTypeKeys "<up>", 5
 508     Call wTypeKeys "<Mod1 a>"
 509     Wait 100
 510     EditCopy
 511     if GetClipboardText <> "xx" then Warnlog "3/1 is wrong!"
 512     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/2 is wrong"
 513     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/3 is wrong"
 514     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/4 is wrong"
 515     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/5 is wrong"
 516     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/6 is wrong"
 517
 518
 519     Printlog "   - 3. column alphanum., 1. column num., 2. column alphanum. descending"
 520     Call wNavigatorAuswahl (2, 2)
 521     Call wTypeKeys "<Mod1 a>", 2
 522     Sleep 2
 523     ToolsSort
 524     Kontext "Sortieren"
 525     Schluessel1.Check
 526     Spalte1.SetText "3"
 527     Schluesseltyp1.Select 1
 528
 529     Schluessel2.Check
 530     Spalte2.SetText "1"
 531     Schluesseltyp2.Select 2
 532
 533     Schluessel3.Check
 534     Spalte3.SetText "2"
 535     Schluesseltyp3.Select 1
 536     Absteigend1.Check
 537     Absteigend2.Check
 538     Absteigend3.Check
 539     Sortieren.OK
 540
 541     Printlog "   - check"
 542     Call wNavigatorAuswahl (2, 2)
 543     Call wTypeKeys "<Mod1 a>"
 544     wait 100
 545     EditCopy
 546     if GetClipboardText <> "6" then Warnlog "1/1 is wrong!"
 547     if ZelleRuntertesten("3") = FALSE then Warnlog "1/2 is wrong"
 548     if ZelleRuntertesten("1") = FALSE then Warnlog "1/3 is wrong"
 549     if ZelleRuntertesten("5") = FALSE then Warnlog "1/4 is wrong"
 550     if ZelleRuntertesten("4") = FALSE then Warnlog "1/5 is wrong"
 551     if ZelleRuntertesten("2") = FALSE then Warnlog "1/6 is wrong"
 552     Call wTypeKeys "<Right>"
 553     Call wTypeKeys "<up>", 5
 554     Call wTypeKeys "<Mod1 a>"
 555     Wait 100
 556     EditCopy
 557     if GetClipboardText <> "c" then Warnlog "2/1 is wrong!"
 558     if ZelleRuntertesten("b") = FALSE then Warnlog "2/2 is wrong"
 559     if ZelleRuntertesten("a") = FALSE then Warnlog "2/3 is wrong"
 560     if ZelleRuntertesten("c") = FALSE then Warnlog "2/4 is wrong"
 561     if ZelleRuntertesten("b") = FALSE then Warnlog "2/5 is wrong"
 562     if ZelleRuntertesten("a") = FALSE then Warnlog "2/6 is wrong"
 563     Call wTypeKeys "<Right>"
 564     Call wTypeKeys "<up>", 5
 565     Call wTypeKeys "<Mod1 a>"
 566     Wait 100
 567     EditCopy
 568     if GetClipboardText <> "zz" then Warnlog "3/1 is wrong!"
 569     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/2 is wrong"
 570     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/3 is wrong"
 571     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/4 is wrong"
 572     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/5 is wrong"
 573     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/6 is wrong"
 574     Call hCloseDocument
 575 endcase
 576
 577 ' *******************************************************************
 578
 579 testcase tToolsSort6
 580     PrintLog "- Tools / Sort a sorted table and copy in another one"
 581
 582     if gApplication = "WRITER" then
 583         Call hFileOpen ( gTesttoolPath + "writer\optional\input\sorting\sort3.odt" )
 584         Call sMakeReadOnlyDocumentEditable
 585     else
 586         Call hFileOpen ( gTesttoolPath + "writer\optional\input\sorting\sort3.odm" )
 587         Call sMakeReadOnlyDocumentEditable
 588     end if
 589     Call wTypeKeys "<Mod1 a>", 2
 590
 591     Printlog "   - Sort 1. column numeric descending"
 592     ToolsSort
 593     Kontext "Sortieren"
 594     Schluessel1.Check
 595     Spalte1.SetText "1"
 596     Schluesseltyp1.Select 2
 597     Absteigend1.Check
 598     Absteigend2.Check
 599     Absteigend3.Check
 600     Sortieren.OK
 601
 602     Printlog "   - check"
 603     Call wTypeKeys "<Mod1 a>", 3
 604     wait 100
 605     EditCopy
 606     if GetClipboardText <> "4" then Warnlog "Header of the 1. column has not been sorted"
 607     if ZelleRuntertesten("3") = FALSE then Warnlog "1/2 is wrong"
 608     if ZelleRuntertesten("2") = FALSE then Warnlog "1/3 is wrong"
 609     if ZelleRuntertesten("1") = FALSE then Warnlog "1/4 is wrong"
 610     Call wTypeKeys "<Tab>"
 611     Call wTypeKeys "<up>", 3
 612     Call wTypeKeys "<Mod1 a>"
 613     Wait 100
 614     EditCopy
 615     if GetClipboardText <> "dd" then Warnlog "Header of the 2. column has not been sorted"
 616     if ZelleRuntertesten("cc") = FALSE then Warnlog "2/2 is wrong"
 617     if ZelleRuntertesten("bb") = FALSE then Warnlog "2/3 is wrong"
 618     if ZelleRuntertesten("aa") = FALSE then Warnlog "2/4 is wrong"
 619     Call wTypeKeys "<Tab>"
 620     Call wTypeKeys "<up>", 3
 621     Call wTypeKeys "<Mod1 a>"
 622     Wait 100
 623     EditCopy
 624     if GetClipboardText <> "ww" then Warnlog "Header of the 3 column has not been sorted"
 625     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/2 is wrong"
 626     if ZelleRuntertesten("yy") = FALSE then Warnlog "3/3 is wrong"
 627     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/4 is wrong"
 628
 629     Printlog "   - copy table"
 630     Call wTypeKeys "<Left Right>"
 631     Call wTypeKeys "<Mod1 a>", 2
 632     Sleep 1
 633     EditCopy
 634     Sleep 1
 635     Printlog "   - insert table"
 636     Call wTypeKeys "<Down>", 10
 637     Call wTypeKeys "<Up>", 4
 638     EditPaste
 639     Sleep 1
 640
 641     Printlog "   - check"
 642     Call wTypeKeys "<Mod1 a>"
 643     wait 100
 644     EditCopy
 645     if GetClipboardText <> "4" then Warnlog "Header of the 1. column has not been sorted"
 646     if ZelleRuntertesten("3") = FALSE then Warnlog "1/2 is wrong"
 647     if ZelleRuntertesten("2") = FALSE then Warnlog "1/3 is wrong"
 648     if ZelleRuntertesten("1") = FALSE then Warnlog "1/4 is wrong"
 649     Call wTypeKeys "<Tab>"
 650     Call wTypeKeys "<up>", 3
 651     Call wTypeKeys "<Mod1 a>"
 652     Wait 100
 653     EditCopy
 654     if GetClipboardText <> "dd" then Warnlog "Header of the 2. column has not been sorted"
 655     if ZelleRuntertesten("cc") = FALSE then Warnlog "2/2 is wrong"
 656     if ZelleRuntertesten("bb") = FALSE then Warnlog "2/3 is wrong"
 657     if ZelleRuntertesten("aa") = FALSE then Warnlog "2/4 is wrong"
 658     Call wTypeKeys "<Tab>"
 659     Call wTypeKeys "<up>", 3
 660     Call wTypeKeys "<Mod1 a>"
 661     Wait 100
 662     EditCopy
 663     if GetClipboardText <> "ww" then Warnlog "Header of the 3 column has not been sorted"
 664     if ZelleRuntertesten("xx") = FALSE then Warnlog "3/2 is wrong"
 665     if ZelleRuntertesten("yy") = FALSE then Warnlog "3/3 is wrong"
 666     if ZelleRuntertesten("zz") = FALSE then Warnlog "3/4 is wrong"
 667     Call hCloseDocument
 668 endcase
 669