diff options
Diffstat (limited to 'testautomation/writer/required/includes/w_001_.inc')
| -rwxr-xr-x[-rw-r--r--] | testautomation/writer/required/includes/w_001_.inc | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/testautomation/writer/required/includes/w_001_.inc b/testautomation/writer/required/includes/w_001_.inc index 24292afc4a2a..8cd43ccbcbae 100644..100755 --- a/testautomation/writer/required/includes/w_001_.inc +++ b/testautomation/writer/required/includes/w_001_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Required-Testcases for the File-menu. '* @@ -55,9 +55,6 @@ end sub testcase tFileNewLabels -QAErrorLog "#i102218# - tFileNewLabels outcommented due to bug." -goto endsub - Dim iSheetFormat as integer Dim iBrandIndex as integer Dim iType as integer @@ -78,7 +75,7 @@ goto endsub cBrandList( 10 ) = "Sigel" PrintLog "Open Labels-dialog with File / New / Labels" - if ( hCreateLabels ) then + if ( hCreateLabels() ) then Call DialogTest( TabEtiketten ) @@ -86,7 +83,8 @@ goto endsub PrintLog "Check number of brands and types (see #i44801# for details)" For iSheetFormat = 1 to 2 - + + kontext "TabEtiketten" Select Case( iSheetFormat ) Case 1 Endlos.Check @@ -247,9 +245,6 @@ endcase testcase tFileNewBusinessCards -QAErrorLog "#i102218# - tFileNewBusinessCards outcommented due to bug." -goto endsub - Dim iFormat as integer Dim iBrand as integer Dim iType as integer @@ -359,7 +354,7 @@ goto endsub Kontext "Active" if ( Active.GetRT = 304 ) then - Warnlog( "UNexpected messagebox: " & Active.GetText() ) + Warnlog( "Unexpected messagebox: " & Active.GetText() ) Active.Ok end if |