diff options
Diffstat (limited to 'testautomation/framework/tools/includes/options_tools.inc')
-rwxr-xr-x[-rw-r--r--] | testautomation/framework/tools/includes/options_tools.inc | 80 |
1 files changed, 1 insertions, 79 deletions
diff --git a/testautomation/framework/tools/includes/options_tools.inc b/testautomation/framework/tools/includes/options_tools.inc index baffbc968406..4f7a05154795 100644..100755 --- a/testautomation/framework/tools/includes/options_tools.inc +++ b/testautomation/framework/tools/includes/options_tools.inc @@ -25,7 +25,7 @@ ' '/****************************************************************************** '* -'* owner : thorsten.bosbach@sun.com +'* owner : thorsten.bosbach@oracle.com '* '* short description : tools for options tests '* @@ -145,84 +145,6 @@ end sub '******************************************************************************* -function URLGraphicCheck ( bRelativ as Boolean, sFile as String ) - - Dim sGraphicPath, sTestString, sDummy as String - Dim lsFile ( 200 ) as String - Dim i as Integer - '///check if the pathname of a linked file is relative or not ( only for func_LoadSaveGeneral_2 ) - sGraphicPath = ( "/share/gallery/photos/desert1.jpg" ) - ListRead ( lsFile(), sFile ) - - for i=1 to ListCount ( lsFile() ) - - if Instr( lsFile(i), "IMG SRC" ) <> 0 then - sTestString = lsFile(i) - i=1000 - end if - - next i - - if bRelativ = TRUE then - - if Instr( sTestString, "../.." ) = 0 then - Warnlog "Bug => The path is not relativ!" - endif - - if Instr( sTestString, "file:///" ) <> 0 then - Warnlog "Bug => The relativ path contains 'file:///'" - endif - - else - if Instr( sTestString, "file:///" ) = 0 then - Warnlog "Bug => The path is relativ!" - endif - - if Instr( sTestString, "../.." ) <> 0 then - Warnlog "Bug => The nonrelativ path ( file:/// ) is not correct. It contains '../..'!" - endif - - end if - - if Instr( sTestString, sGraphicPath ) = 0 then - Warnlog "Wrong path to file, the graphic-part in filename is not correct!" - endif - -end function - -'******************************************************************************* - -sub DialogTestForViewOptions - - FormatParagraph - - Kontext - active.SetPage TabEinzuegeUndAbstaende - Active.SetPage TabAusrichtungAbsatz - active.SetPage TabTextfluss - - try - active.SetPage TabAsianTypography - catch - endcatch - - active.SetPage TabNumerierungAbsatz - active.SetPage TabTabulator - active.SetPage TabInitialen - active.SetPage TabUmrandung - active.SetPage TabHintergrund - - kontext "TabHintergrund" - TabHintergrund.Close - EditSearchAndReplace - - Kontext "FindAndReplace" - FindAndReplace.Close - -end sub - -'******************************************************************************* - sub Make3D '///test with 3D-objects when 3D-options are changed ( view page ) |