diff options
Diffstat (limited to 'testautomation/writer/optional/w_sorting.bas')
| -rw-r--r-- | testautomation/writer/optional/w_sorting.bas | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/testautomation/writer/optional/w_sorting.bas b/testautomation/writer/optional/w_sorting.bas deleted file mode 100644 index 18fa47675..000000000 --- a/testautomation/writer/optional/w_sorting.bas +++ /dev/null @@ -1,64 +0,0 @@ -'************************************************************************** -' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -' -' Copyright 2000, 2010 Oracle and/or its affiliates. -' -' OpenOffice.org - a multi-platform office productivity suite -' -' This file is part of OpenOffice.org. -' -' OpenOffice.org is free software: you can redistribute it and/or modify -' it under the terms of the GNU Lesser General Public License version 3 -' only, as published by the Free Software Foundation. -' -' OpenOffice.org is distributed in the hope that it will be useful, -' but WITHOUT ANY WARRANTY; without even the implied warranty of -' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -' GNU Lesser General Public License version 3 for more details -' (a copy is included in the LICENSE file that accompanied this code). -' -' You should have received a copy of the GNU Lesser General Public License -' version 3 along with OpenOffice.org. If not, see -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'* -'* owner : helge.delfs@oracle.com -'* -'* short description : Sorting functions in Writer -'* -'\*********************************************************************** - - Public Trennzeichen as string - -sub main - Dim StartTime - StartTime = Now() - - use "writer\tools\includes\w_tools.inc" - use "writer\tools\includes\w_tool3.inc" - use "writer\optional\includes\sorting\w_sorting1.inc" - use "writer\optional\includes\sorting\w_sorting2.inc" - - printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime ) - printlog Chr(13) + "******* Writer - Sorting - Test *******" - - Call hStatusIn ( "writer", "w_sorting.bas","Writer Sorting-Test" ) - Call w_sorting - Call tSort_1 'Test Sort in table -- Ascending mode - Call tSort_2 'Test Sort in table -- Descending mode - Call hStatusOut - - Printlog Chr(13) + "End of Sorting - Test :" - Printlog "Duration: "+ WieLange ( StartTime ) - Printlog "Date: " + Date + " Time: " + Time - -end sub - -sub LoadIncludeFiles - use "global\system\includes\master.inc" - use "global\system\includes\gvariabl.inc" - Call GetUseFiles - gApplication = "WRITER" -end sub |