[ooo-build-commit] Branch 'ooo/master' - 3 commits - smoketestoo_native/smoketest.pl testautomation/chart2 testautomation/dbaccess testautomation/extensions testautomation/graphics testautomation/spreadsheet
Jan Holesovsky
kendy at kemper.freedesktop.org
Tue Jul 28 19:40:01 PDT 2009
dev/null |binary
smoketestoo_native/smoketest.pl | 126
testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard.inc | 4
testautomation/chart2/optional/input/BubbleChartData.ods |binary
testautomation/dbaccess/optional/includes/ctrl_Several1.inc | 2
testautomation/dbaccess/tools/controltools.inc | 1
testautomation/extensions/optional/includes/fileopen.inc | 20
testautomation/extensions/optional/includes/meta-inf.inc | 2
testautomation/extensions/optional/includes/options.inc | 2
testautomation/graphics/optional/includes/global/export_graphic_2.inc | 440 +-
testautomation/graphics/optional/includes/global/g_area.inc | 640 +--
testautomation/graphics/optional/includes/global/g_arrangealign.inc | 416 +-
testautomation/graphics/optional/includes/global/g_character.inc | 752 ++--
testautomation/graphics/optional/includes/global/g_clipboard.inc | 451 +-
testautomation/graphics/optional/includes/global/g_convertto.inc | 430 +-
testautomation/graphics/optional/includes/global/g_crossfading.inc | 320 +
testautomation/graphics/optional/includes/global/g_customshapes.inc | 1416 ++++----
testautomation/graphics/optional/includes/global/g_demoguide.inc | 179 -
testautomation/graphics/optional/includes/global/g_edit.inc | 358 +-
testautomation/graphics/optional/includes/global/g_export_html.inc | 1173 +++---
testautomation/graphics/optional/includes/global/g_find_replace.inc | 314 -
testautomation/graphics/optional/includes/global/g_format.inc | 1755 +++++-----
testautomation/graphics/optional/includes/global/g_group.inc | 113
testautomation/graphics/optional/includes/global/g_imagemap.inc | 173
testautomation/graphics/optional/includes/global/g_line.inc | 601 +--
testautomation/graphics/optional/includes/global/g_load_save.inc | 483 +-
testautomation/graphics/optional/includes/global/g_mediaplayer.inc | 341 +
testautomation/graphics/optional/includes/global/g_ole.inc | 161
testautomation/graphics/optional/includes/global/g_shaddow.inc | 881 ++---
testautomation/graphics/optional/includes/global/g_stylist.inc | 246 -
testautomation/graphics/optional/includes/global/g_tools.inc | 433 +-
testautomation/graphics/optional/includes/global/g_zoom.inc | 163
testautomation/graphics/optional/includes/global/gallery.inc | 4
testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc | 4
34 files changed, 6769 insertions(+), 5635 deletions(-)
New commits:
commit a326fe720d61ae4652baf39ef7a893235b1d9725
Author: Jens-Heiner Rechtien <hr at openoffice.org>
Date: Tue Jul 28 16:16:54 2009 +0000
CWS-TOOLING: integrate CWS smoketest23
2009-07-27 14:24:59 +0200 kz r274367 : #159577# correct permission after calling admin.pm
2009-07-22 15:45:19 +0200 kz r274245 : #159577# create path before calling admin.pm
2009-07-10 17:45:31 +0200 kz r273904 : #159577# fix for cygwin
2009-07-10 17:41:12 +0200 kz r273903 : #159577# dif. lineend fixed
2009-07-01 17:32:09 +0200 kz r273608 : #159577# an exithandler can be used from smoketest
2009-07-01 17:27:50 +0200 kz r273607 : #159577# now smoketest can use admin.pm for installation on windows
diff --git a/smoketestoo_native/smoketest.pl b/smoketestoo_native/smoketest.pl
index fe81c96..0ed6d91 100755
--- a/smoketestoo_native/smoketest.pl
+++ b/smoketestoo_native/smoketest.pl
@@ -36,6 +36,8 @@ eval 'exec perl -wS $0 ${1+"$@"}'
# smoketest - do the smoketest
#
+use lib ("$ENV{SOLARENV}/bin/modules");
+
use File::Basename;
use File::Path;
use File::Copy;
@@ -47,12 +49,12 @@ use Getopt::Long;
# #
#########################
$is_debug = 0; # run without executing commands
-$is_command_infos = 1; # print command details before exec
+$is_command_infos = 0; # print command details before exec
$is_protocol_test = 0;
$is_remove_on_error = 0;
$is_remove_at_end = 1;
$is_do_deinstall = 0;
-$is_admin_installation = 1;
+$is_without_msiexec = 1;
$is_oo = 1;
$gui = $ENV{GUI};
@@ -165,7 +167,6 @@ elsif ($gui eq $cygwin) {
$bootstrapiniTemp = $bootstrapini . "_";
$CygwinLineends = $/;
$WinLineends = "\r\n";
- &SetWinLineends();
$packpackage = "msi";
$installpath_without =~ s/\\/\//g;
}
@@ -173,6 +174,12 @@ else {
print_error ("not supported system\n",1);
}
+if ($is_without_msiexec) {
+ require installer::windows::admin; import installer::windows::admin;
+ $installer::globals::logfilename = $ENV{DMAKE_WORK_DIR} . $PathSeparator . $ENV{OUTPATH} . $ENV{PROEXT} . $PathSeparator . "misc" . $PathSeparator . "installer.log";
+ $installer::globals::exithandler = \&install_error;
+}
+
if ($is_oo) {
@install_list = ( 'instsetoo_native'
);
@@ -195,7 +202,8 @@ else {
'can not patch bottstrapini',
'msiexec failed. Maybe you have got an installed version',
'deinstallation is incomplete',
- 'this packformat is not supported for this environment'
+ 'this packformat is not supported for this environment',
+ 'can not set execute permission'
);
my $show_NoMessage = 0;
@@ -214,6 +222,7 @@ my $error_patchBootstrap = 10;
my $error_msiexec = 11;
my $error_deinst = 12;
my $error_packformat = 13;
+my $error_permission = 14;
my $command_normal = 0;
my $command_withoutErrorcheck = 1;
@@ -528,6 +537,10 @@ sub doTest {
# execute_Command ($Command, $error_deinstall, $show_NoMessage, $command_normal);
}
+sub install_error {
+ print_error ($error_messages[$error_setup], $error_setup);
+}
+
sub doInstall {
my ($installsetpath, $dest_installdir) = @_;
my ($DirArray, $mask, $file, $Command, $optdir, $rpmdir, $system, $mach, $basedir, $output_ref, $olddir, $newdir);
@@ -557,51 +570,43 @@ sub doInstall {
print_error ("Installationset in $installsetpath is incomplete", 2);
}
foreach $file (@DirArray) {
- if ($gui eq $cygwin) {
- my $convertinstallset = ConvertCygwinToWin_Shell("$installsetpath$file");
- my $convertdestdir = ConvertCygwinToWin_Shell($dest_installdir);
- $_inst_cmd=$ENV{SMOKETEST_SOINSTCMD};
- if ( defined($_inst_cmd) ) {
- $Command = $_inst_cmd . " $convertinstallset -qn TARGETDIR=$convertdestdir";
+ if ($is_without_msiexec) {
+ if ($is_debug) {
+ print "Debugmode: no installation from $installsetpath\n";
}
else {
- if ($is_admin_installation) {
- $Command = "msiexec.exe /a $convertinstallset -qn TARGETDIR=$convertdestdir ALLUSERS=2";
+ createPath ($dest_installdir, $error_setup);
+ installer::windows::admin::make_admin_install ($installsetpath . $file, $dest_installdir);
+ if ($gui eq $cygwin) {
+ $Command = "find $dest_installdir \\( -name \"installhelper\" -prune -o -name \"*.exe\" -o -name \"*.dll\" -o -name \"*.manifest\" -o -name \"*.bin\" -o -name \"*.jar\" \\) -exec chmod a+x {} \\;";
+ execute_Command ($Command, $error_permission, $show_Message, $command_normal);
+ }
+ }
+ }
+ else
+ {
+ if ($gui eq $cygwin) {
+ my $convertinstallset = ConvertCygwinToWin_Shell("$installsetpath$file");
+ my $convertdestdir = ConvertCygwinToWin_Shell($dest_installdir);
+ $_inst_cmd=$ENV{SMOKETEST_SOINSTCMD};
+ if ( defined($_inst_cmd) ) {
+ $Command = $_inst_cmd . " $convertinstallset -qn TARGETDIR=$convertdestdir";
}
else {
- $Command = "msiexec.exe -i $convertinstallset -qn INSTALLLOCATION=$convertdestdir";
+ $Command = "msiexec.exe /a $convertinstallset -qn TARGETDIR=$convertdestdir ALLUSERS=2";
}
}
- }
- else {
- $_inst_cmd=$ENV{SMOKETEST_SOINSTCMD};
- if ( defined($_inst_cmd) ) {
- $Command = $_inst_cmd . " $installsetpath$file -qn TARGETDIR=$dest_installdir";
- }
else {
- if ($is_admin_installation)
- {
- $Command = "msiexec.exe /a $installsetpath$file -qn TARGETDIR=$dest_installdir ALLUSERS=2";
+ $_inst_cmd=$ENV{SMOKETEST_SOINSTCMD};
+ if ( defined($_inst_cmd) ) {
+ $Command = $_inst_cmd . " $installsetpath$file -qn TARGETDIR=$dest_installdir";
}
else {
- $Command = "msiexec.exe -i $installsetpath$file -qn INSTALLLOCATION=$dest_installdir";
+ $Command = "msiexec.exe /a $installsetpath$file -qn TARGETDIR=$dest_installdir ALLUSERS=2";
}
}
+ execute_Command ($Command, $error_msiexec, $show_Message, $command_normal);
}
- if (!$is_oo and !$is_admin_installation) {
- if ($gui eq $cygwin) {
- my $convertdata = ConvertCygwinToWin_Shell($DATA);
- $Command .= " TRANSFORMS=$convertdata" . "staroffice.mst";
- }
- else {
- $Command .= " TRANSFORMS=$DATA" . "staroffice.mst";
- }
- }
- execute_Command ($Command, $error_msiexec, $show_Message, $command_normal);
- }
- if (!$is_admin_installation) {
- $Command = "$COPY_FILE \"$installsetpath" . "setup.ini" . "\" \"$dest_installdir\"";
- execute_Command ($Command, $error_setup, $show_Message, $command_withoutOutput);
}
$basedir = $dest_installdir;
}
@@ -844,12 +849,7 @@ sub getInstset {
return ($NEWINSTSET, $INSTSET);
}
if (!isLocalEnv() and !defined($ENV{CWS_WORK_STAMP}) and (-e $SHIP)) {
- my $last_lineend = $/;
- if ($gui eq $cygwin) {
- &SetCygwinLineends();
- }
($NEWINSTSET, $INSTSET) = getSetFromServer();
- $/ = $last_lineend;
}
else {
$InstDir="";
@@ -899,44 +899,6 @@ sub isLocalEnv {
return $returnvalue;
}
-sub get_milestoneAndBuildID {
- my ( $ws, $pf ) = @_;
- my ($milestone, $buildid, $upd, $path, $updext);
-
- if ( $ws =~ /^\D+(\d+)$/) {
- $upd = $1;
- }
-
- if (defined ($ENV{UPDMINOREXT})) {
- $updext = $ENV{UPDMINOREXT};
- }
- else {
- $updext = "";
- }
-
- $path = "$ENV{SOLARVER}$PathSeparator$pf$PathSeparator" . "inc$updext$PathSeparator$upd" . "minor.mk";
- print "$path\n" if $is_debug;
- if ( !open(MINORMK,$path) ) {
- print "FATAL: can't open $path\n";
- return (0,0);
- }
-
- if (!eof(MINORMK)) {
- while (<MINORMK>) {
- chomp;
- if ( /LAST_MINOR=(\w+)/ ) {
- $milestone = $1;
- }
- elsif ( /BUILD=(\d+)/ ) {
- $buildid = $1;
- }
- }
-
- close(MINORMK);
- }
- return ($milestone, $buildid);
-}
-
sub get_productcode {
my ( $installpath ) = @_;
my ($path, $productcode);
@@ -977,13 +939,11 @@ sub getSetFromServer {
my $workspace = $ENV{WORK_STAMP};
my $platform = $ENV{INPATH};
my $latestset;
- my (@DirArray, $mask, $buildid);
+ my (@DirArray, $mask);
$SetupFullPath = $PORDUCT;
if ( ! ( $workspace && $platform ) ) {
print_error ( "Error: environment not set correctly.", 1);
}
- # get latest broadcastet milestone and pack number
- ($milestone, $buildid) = get_milestoneAndBuildID( $workspace, $platform );
if (!defined($milestone)) {
print_error ("Milestone ist not defined!", 2);
}
commit 81f9fec8b7451ecf5980a4c1f201815d16d90d15
Author: Jens-Heiner Rechtien <hr at openoffice.org>
Date: Tue Jul 28 15:21:47 2009 +0000
CWS-TOOLING: integrate CWS automationdev300m52cat1
2009-07-21 13:08:30 +0200 tbo r274185 : #i103649# svn propset svn:ignore --revprop hid.lst .
2009-07-15 10:29:39 +0200 msc r273992 : #103560
2009-07-15 10:04:37 +0200 msc r273991 : #103557#
diff --git a/testautomation/dbaccess/optional/includes/ctrl_Several1.inc b/testautomation/dbaccess/optional/includes/ctrl_Several1.inc
index 107e68b..9e618b4 100755
--- a/testautomation/dbaccess/optional/includes/ctrl_Several1.inc
+++ b/testautomation/dbaccess/optional/includes/ctrl_Several1.inc
@@ -196,7 +196,7 @@ testcase tTextBox
endif
if fGetControlProperty("TextBox","AdditionalInfo") <> "my only friend the end." then
- warnlog "the value: background is not saved"
+ warnlog "the AdditionalInfo value is not saved"
endif
call fSetControlProperty("TextBox","TextType","2") 'needed for activate scrollbar
sleep(1)
diff --git a/testautomation/dbaccess/tools/controltools.inc b/testautomation/dbaccess/tools/controltools.inc
index 0ada936..cd73e5f 100755
--- a/testautomation/dbaccess/tools/controltools.inc
+++ b/testautomation/dbaccess/tools/controltools.inc
@@ -119,6 +119,7 @@ function fSetControlProperty(sControlType, sPropertyName, sPropertyValue as stri
Align.select(Cint(sPropertyValue))
elseif sPropertyName = "AdditionalInfo" then
Information.setText(sPropertyValue)
+ Information.TypeKeys("<RETURN>",true)
elseif sPropertyName = "AutoComplete" then
AutoComplete.select(Cint(sPropertyValue))
elseif sPropertyName = "Background" then
diff --git a/testautomation/extensions/optional/includes/meta-inf.inc b/testautomation/extensions/optional/includes/meta-inf.inc
index 554dadd..439863b 100755
--- a/testautomation/extensions/optional/includes/meta-inf.inc
+++ b/testautomation/extensions/optional/includes/meta-inf.inc
@@ -51,7 +51,7 @@ testcase tLowerCaseMetaInf
dim irc as integer
printlog( "Install extension: " & cExtensionPath )
- irc = hExtensionAddGUI( cExtensionPath, "AcceptLicense" )
+ irc = hExtensionAddGUI( cExtensionPath, "AcceptLicense,InstallForUser" )
if ( irc > 0 ) then
commit 2525e77ae5e9e665946558c870657c6fe3557e9d
Author: Jens-Heiner Rechtien <hr at openoffice.org>
Date: Tue Jul 28 11:26:33 2009 +0000
CWS-TOOLING: integrate CWS automationdev300m53cat0
2009-07-27 13:27:22 +0200 wg r274360 : i103764
2009-07-27 13:24:16 +0200 wg r274359 : i103764
2009-07-27 13:15:37 +0200 wg r274358 : i103764
2009-07-27 13:11:56 +0200 wg r274357 : i103764
2009-07-27 13:08:44 +0200 wg r274356 : i103764
2009-07-27 12:47:24 +0200 wg r274355 : i103764
2009-07-27 11:57:21 +0200 wg r274354 : i103764
2009-07-27 11:50:44 +0200 wg r274353 : i103764
2009-07-27 11:06:37 +0200 wg r274349 : i103764
2009-07-27 10:46:33 +0200 wg r274347 : i103764
2009-07-27 10:42:23 +0200 wg r274346 : i103764
2009-07-27 09:52:19 +0200 wg r274345 : i103764
2009-07-24 15:12:43 +0200 wg r274309 : i103764
2009-07-24 13:16:21 +0200 wg r274302 : i103764
2009-07-24 12:57:40 +0200 wg r274300 : i103764
2009-07-24 12:35:50 +0200 wg r274299 : i103764
2009-07-24 11:46:47 +0200 wg r274296 : i103764
2009-07-24 11:40:14 +0200 wg r274295 : i103764
2009-07-24 10:39:50 +0200 wg r274294 : i103764
2009-07-24 10:30:58 +0200 wg r274293 : i103764
2009-07-24 10:23:04 +0200 wg r274292 : i103764
2009-07-24 10:00:47 +0200 wg r274291 : i103764
2009-07-24 09:51:05 +0200 wg r274290 : i103764
2009-07-24 09:32:14 +0200 wg r274288 : i103764
2009-07-24 09:21:56 +0200 wg r274287 : i103764
2009-07-23 15:22:24 +0200 oc r274274 : #i103693# Move BubbleChartData.ods to correct path
2009-07-23 14:03:14 +0200 msc r274271 : #100000
2009-07-23 13:45:36 +0200 oc r274269 : #i103439# Changed Menu function with hMenu function
diff --git a/testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard.inc b/testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard.inc
index 77bd60e..e8f8ffe 100755
--- a/testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard.inc
+++ b/testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard.inc
@@ -721,9 +721,9 @@ testcase tCreateNewBubbleChart
dim sInputFile as STRING
dim sOutputFile as STRING
dim sControlString as STRING
- sInputFile = convertpath ( gTesttoolPath & "chart2/optional/input/ods/BubbleChartData.ods" )
+ sInputFile = convertpath ( gTesttoolPath & "chart2/optional/input/BubbleChartData.ods" )
sOutputFile = convertpath ( gOfficepath & "user/work/tCreateNewBubbleChart.ods" )
- printlog "File / Load TesttoolPath/chart2/optional/input/ods/BubbleChartData.ods"
+ printlog "File / Load TesttoolPath/chart2/optional/input/BubbleChartData.ods"
call hFileOpen(sInputFile)
sleep(2)
printlog "Save document as Officepath/user/work/tCreateNewBubbleChart.ods"
diff --git a/testautomation/chart2/optional/input/BubbleChartData.ods b/testautomation/chart2/optional/input/BubbleChartData.ods
new file mode 100644
index 0000000..68110e1
Binary files /dev/null and b/testautomation/chart2/optional/input/BubbleChartData.ods differ
diff --git a/testautomation/chart2/optional/input/ods/BubbleChartData.ods b/testautomation/chart2/optional/input/ods/BubbleChartData.ods
deleted file mode 100644
index 68110e1..0000000
Binary files a/testautomation/chart2/optional/input/ods/BubbleChartData.ods and /dev/null differ
diff --git a/testautomation/extensions/optional/includes/fileopen.inc b/testautomation/extensions/optional/includes/fileopen.inc
index a6bd5a9..6d457df 100755
--- a/testautomation/extensions/optional/includes/fileopen.inc
+++ b/testautomation/extensions/optional/includes/fileopen.inc
@@ -75,19 +75,15 @@ testcase tExtensionFileOpen
Add.click()
Kontext "OeffnenDlg"
if ( OeffnenDlg.exists( 2 ) ) then
- if ( Dateiauswahl.getItemCount() <> 1 ) then
- warnlog( "There should be exactly one item visible in the File Picker" )
+ DateiAuswahl.select( DateiAuswahl.getItemCount() )
+ cString = DateiAuswahl.getSelText()
+ if ( cString <> EXTENSION_NAME ) then
+ warnlog( "Incorrect extension listed. Please check path and filename" )
+ printlog( "Expected: " & EXTENSION_NAME )
+ printlog( "Found...: " & cString )
+ printlog( "Issues: #i67122, #i92234" )
else
- DateiAuswahl.select( 1 )
- cString = DateiAuswahl.getSelText()
- if ( cString <> EXTENSION_NAME ) then
- warnlog( "Incorrect extension listed. Please check path and filename" )
- printlog( "Expected: " & EXTENSION_NAME )
- printlog( "Found...: " & cString )
- printlog( "Issues: #i67122, #i92234" )
- else
- printlog( "Found correct extension, the dialog remembers the path" )
- endif
+ printlog( "Found correct extension, the dialog remembers the path" )
endif
kontext "OeffnenDlg"
OeffnenDlg.cancel()
diff --git a/testautomation/extensions/optional/includes/options.inc b/testautomation/extensions/optional/includes/options.inc
index 44589ab..0e3b823 100755
--- a/testautomation/extensions/optional/includes/options.inc
+++ b/testautomation/extensions/optional/includes/options.inc
@@ -154,7 +154,7 @@ testcase tExtensionOptions1
else
irc = hSelectOptionsItem( OPTIONS_ITEM , ITEM_POS_2 )
endif
- if ( irc > 0 ) then
+ if ( irc > 1 ) then
warnlog( "Node <" & OPTIONS_ITEM & "> was not found in Tools/Options" )
else
printlog( "Node is present. Good." )
diff --git a/testautomation/graphics/optional/includes/global/export_graphic_2.inc b/testautomation/graphics/optional/includes/global/export_graphic_2.inc
index 60e72b7..a8b63e1 100755
--- a/testautomation/graphics/optional/includes/global/export_graphic_2.inc
+++ b/testautomation/graphics/optional/includes/global/export_graphic_2.inc
@@ -74,8 +74,8 @@ testcase tPNG
endif
call hCloseDocument
+endcase 'tPNG
-endcase
'-------------------------------------------------------------------------------
testcase tSVM
@@ -243,8 +243,8 @@ testcase tSVM
endif
call hCloseDocument
-
-endcase
+
+endcase 'tSVM
'-------------------------------------------------------------------------------
testcase tPDF
@@ -253,13 +253,18 @@ testcase tPDF
dim iFileSize(12) as long
dim i as integer
- hFileOpen ( gTesttoolPath & "graphics\required\input\graphicexport_pdf." & ExtensionString )
+ '/// Export the file 12 times: ///'
+ '///+ every compression level (3) and every range (3), check if button in toolbar uses last settings (6) (-> 12) ///'
+ hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport_pdf."+ExtensionString ))
sleep (10)
'---------------------------------------------------------------------------------------------------------------------------------------------------------
'###### all / Screen optimized ######
+ '/// File->Export as PDF document
printlog "File->Export as PDF document"
+ '///+ range = All
printlog " range = All"
+ '///+ compression = Screen optimized
printlog " compression = Screen optimized"
kontext "Standardbar"
@@ -268,7 +273,9 @@ testcase tPDF
'--------------------------------------------------------- Output the first file ---------------------------------------------------------------
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 1, TRUE, FALSE, 1, 1)
+ '/// Export using Button in toolbar
printlog "Export using Button in toolbar"
+ '///+ use the settings from the export before
printlog " use the settings from the export before"
kontext "Standardbar"
@@ -279,8 +286,11 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 2, TRUE, FALSE, 1, 1) ' button in toolbar -> last settings have to be used
'###### range / Screen optimized ######
+ '/// File->Export as PDF document
printlog "File->Export as PDF document"
+ '///+ range = Range
printlog " range = Range"
+ '///+ compression = Screen optimized
printlog " compression = Screen optimized"
kontext "Standardbar"
@@ -290,7 +300,9 @@ testcase tPDF
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 3, TRUE, FALSE, 2, 1, "2")
+ '/// Export using Button in toolbar
printlog "Export using Button in toolbar"
+ '///+ use the settings from the export before
printlog " use the settings from the export before"
kontext "Standardbar"
@@ -301,8 +313,11 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 4, TRUE, FALSE, 2, 1) ' button in toolbar -> last settings have to be used
'###### all / Print optimized ######
+ '/// File->Export as PDF document
printlog "File->Export as PDF document"
+ '///+ range = all
printlog " range = all"
+ '///+ compression = Print optimized
printlog " compression = Print optimized"
kontext "Standardbar"
@@ -312,7 +327,9 @@ testcase tPDF
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 5, TRUE, FALSE, 1, 2)
+ '/// Export using Button in toolbar
printlog "Export using Button in toolbar"
+ '///+ use the settings from the export before
printlog " use the settings from the export before"
kontext "Standardbar"
@@ -323,8 +340,11 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 6, TRUE, FALSE, 1, 2) ' button in toolbar -> last settings have to be used
'###### range / Print optimized ######
+ '/// File->Export as PDF document
printlog "File->Export as PDF document"
+ '///+ range = Range
printlog " range = Range"
+ '///+ compression = Screen optimized
printlog " compression = Screen optimized"
kontext "Standardbar"
@@ -334,7 +354,9 @@ testcase tPDF
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 7, TRUE, FALSE, 2, 2, "2")
+ '/// Export using Button in toolbar
printlog "Export using Button in toolbar"
+' '///+ use the settings from the export before
printlog " use the settings from the export before"
kontext "Standardbar"
@@ -345,8 +367,11 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 8, TRUE, FALSE, 2, 2) ' button in toolbar -> last settings have to be used
'###### all / Press optimized ######
+ '/// File->Export as PDF document ///'
printlog "File->Export as PDF document ///'"
+ '///+ range = all
printlog " range = all"
+ '///+ compression = Press optimized
printlog " compression = Press optimized"
kontext "Standardbar"
@@ -355,6 +380,8 @@ testcase tPDF
'------------------------------------------------------------ Output the ninth file ----------------------------------------------------------------
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 9, TRUE, FALSE, 1, 3)
+ '/// Export using Button in toolbar
+ '///+ use the settings from the export before
kontext "Standardbar"
checkexppdfwaitmax10sec
@@ -364,8 +391,11 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 10, TRUE, FALSE, 1, 3) ' button in toolbar -> last settings have to be used
'###### range / Press optimized ######
+ '/// File->Export as PDF document ///'
printlog "File->Export as PDF document ///'"
+ '///+ range = all
printlog " range = all"
+ '///+ compression = Press optimized
printlog " compression = Press optimized"
kontext "Standardbar"
@@ -374,6 +404,8 @@ testcase tPDF
'----------------------------------------------------------- Output the eleventh file -------------------------------------------------------------
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 11, TRUE, FALSE, 2, 3, "2")
+ '/// Export using Button in toolbar
+ '///+ use the settings from the export before
kontext "Standardbar"
checkexppdfwaitmax10sec
@@ -389,21 +421,23 @@ testcase tPDF
for i=1 to 12
sPath = OutputGrafikTBO
- sPath = sPath + i & ".pdf"
+ sPath = sPath + i + ".pdf"
iFileSize(i) = app.FileLen(sPath)
- Printlog (" - " & i & ": " & " " & iFileSize(i) & " " & sPath
+ Printlog (" - " + i + ": " + " " + iFileSize(i) + " " + sPath
if (dir(sPath) <> "") then
sleep(1)
+ '/// the first line has to be '%PDF-1.4' ///'
sTemp = fGetFileText(sPath, 8)
if (sTemp <> "%PDF-1.4") then
- Warnlog "File doesn't start with '%PDF-1.4' it is: '" & sTemp & "'"
+ Warnlog "File doesn't start with '%PDF-1.4' it is: '" + sTemp + "'"
endif
+ '/// the last line has to be '%%EOF' ///'
sTemp = left(fGetFileText(sPath, -6),5)
if (sTemp <> "%%EOF") then
- Warnlog "File doesn't end with '%%EOF' it is: '" & sTemp & "'"
+ Warnlog "File doesn't end with '%%EOF' it is: '" + sTemp + "'"
endif
else
- Warnlog "File was not exported to PDF :-( '" & sPath & "'"
+ Warnlog "File was not exported to PDF :-( '" + sPath + "'"
endif
next i
@@ -424,10 +458,10 @@ testcase tPDF
'Warnlog ("Difference in filesize for file 9 and 10")
endif
-
+
if (iFileSize(1) > iFileSize(5)) then
- qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
+ qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
'Warnlog ("Filesize for file 1 is greater then for file 5. The compression level doesn't work.")
endif
if (iFileSize(5) > iFileSize(9)) then
@@ -435,8 +469,8 @@ testcase tPDF
endif
call hCloseDocument()
+endcase 'tPDF
-endcase
'-------------------------------------------------------------------------------
testcase tPDF_Creator
@@ -452,22 +486,24 @@ testcase tPDF_Creator
dim sTextFiltername as String
dim sExtension() as String
- sTemp = gTesttoolPath & "graphics\required\input\export_graphic3." & ExtensionString
+ sTemp = ConvertPath ( gTesttoolPath + "graphics\required\input\export_graphic3." + ExtensionString )
hFileOpen (sTemp)
sleep (30)
sPath = OutputGrafikTBO
sTemp = sPath
- sPath = sPath & "L.pdf"
+ sPath = sPath + "L.pdf"
sleep(1)
hExportAsPDFmulti (1, TRUE, sPath, TRUE, FALSE, 1, 1)
- name sPath as sTemp&"L.txt"
+ name sPath as sTemp+"L.txt"
sleep (30)
- iFileSize(3) = app.FileLen(sTemp&"L.txt")
+ iFileSize(3) = app.FileLen(sTemp+"L.txt")
iCreatorOffset = 0
sleep 5
+ '/// load file in writer as text ///'
- hFileOpen(sTemp&"L.txt")
+ hFileOpen(sTemp+"L.txt")
+ '/// if dialog 'AsciiFilterOptionen' comes up, say OK ///'
Kontext "AsciiFilterOptionen"
If AsciiFilterOptionen.Exists(3) then
AsciiFilterOptionen.OK
@@ -495,11 +531,11 @@ testcase tPDF_Creator
sTemp = left(sTemp, inStr(sTemp, ">")-1)
sTemp2 = ""
for i = 0 to (len(sTemp)/4)-1
- sTemp2 = sTemp2 + chr(" & H" & mid(sTemp,(i*4)+1, 4))
+ sTemp2 = sTemp2 + chr("&H"+mid(sTemp,(i*4)+1, 4))
next i
- printlog sTemp & " -- " & len(sTemp) & " ::: '" & sTemp2 & "'"
+ printlog sTemp + " -- " + len(sTemp) + " ::: '" + sTemp2 + "'"
if (lCase(sapp) <> lCase(right(sTemp2, len(stemp2)-1))) then
- warnlog "Application is different from Creator; is: '" & lCase(sTemp2) & "' should: '" & lCase(sapp) & "'"
+ warnlog "Application is different from Creator; is: '" + lCase(sTemp2) + "' should: '" + lCase(sapp) + "'"
endif
iCreatorOffset = iCreatorOffset + len(sTemp)
' /Producer
@@ -515,21 +551,21 @@ testcase tPDF_Creator
sTemp = left(sTemp, inStr(sTemp, ">")-1)
sTemp2 = ""
for i = 0 to (len(sTemp)/4)-1
- sTemp2 = sTemp2 + chr(" & H" & mid(sTemp,(i*4)+1, 4))
+ sTemp2 = sTemp2 + chr("&H"+mid(sTemp,(i*4)+1, 4))
next i
- printlog sTemp & " -- " & len(sTemp) & " ::: '" & sTemp2 & "'"
+ printlog sTemp + " -- " + len(sTemp) + " ::: '" + sTemp2 + "'"
if gOOO then
iCreatorOffset = iCreatorOffset + len(sTemp)
else
if bAsianLan then
iCreatorOffset = iCreatorOffset + 48
if (len(sTemp) <> 48) then
- warnlog "Producer is different from 'StarSuite 8'; is: '" & sTemp2 & "'"
+ warnlog "Producer is different from 'StarSuite 8'; is: '" + sTemp2 + "'"
endif
else
iCreatorOffset = iCreatorOffset + 52
if (len(sTemp) <> 52) then
- warnlog "Producer is different from 'StarOffice 8'; is: '" & sTemp2 & "'"
+ warnlog "Producer is different from 'StarOffice 8'; is: '" + sTemp2 + "'"
endif
endif
endif
@@ -544,16 +580,16 @@ testcase tPDF_Creator
editcopy
sTemp = getClipboardText()
sTemp = left(sTemp, inStr(sTemp, ")")-1)
- printlog sTemp & " -- " & len(sTemp)
+ printlog sTemp + " -- " + len(sTemp)
iCreatorOffset = iCreatorOffset + (len(sTemp) - 23)
if (len(sTemp) <> 23) then
- warnlog "Date is longer than expected; is: '" & sTemp2 & "'"
+ warnlog "Date is longer than expected; is: '" + sTemp2 + "'"
endif
gApplication = sApp
call hCloseDocument
call hCloseDocument
-endcase
+endcase 'tPDF_Creator
'-------------------------------------------------------------------------------
testcase tSVG
@@ -617,180 +653,220 @@ testcase tSVG
'------------------------/
call hCloseDocument
+endcase 'tSVG
-endcase
'-------------------------------------------------------------------------------
testcase tBMP
- qaerrorlog
- dim x as integer
- dim i as integer
- dim bTemp as boolean
- dim sX as string
- dim sY as string
- dim sx1 as string
- dim sX2 as string
- dim sY2 as string
- dim sDocument as string
-
- sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
+qaerrorlog
+ dim x as integer
+ dim i as integer
+ dim bTemp as boolean
+ dim sX as string
+ dim sY as string
+ dim sx1 as string
+ dim sX2 as string
+ dim sY2 as string
+ dim sDocument as string
+
+ '/// open the document
+ sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
hFileOpen sDocument
- if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
- Kontext "BMPOptionen"
- if BMPOptionen.Exists (2) then
- x = Farbaufloesung.GetItemCount
- if x <> 8 then
- warnlog "Color Resolution Count is wrong; should be:8, is:" & x
- endif
- for i = 1 to x
- Farbaufloesung.Select i
- sleep 1
- Printlog " - " & i & ": '" &Farbaufloesung.GetSelText & "'"
- if ((i > 3) AND (i < 8)) then
- if ( RLEKodierung.IsEnabled() ) then
- warnlog "'RLE coding' is not checkable :-("
- else
- warnlog "'RLE coding' is checkable :-("
- endif
- endif
-
- next i
- Original.Check
- if DPI.IsEnabled then
- warnlog " :-("
- endif
- if Breite.IsEnabled then
- warnlog " :-("
- endif
- if Hoehe.IsEnabled then
- warnlog " :-("
+ if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
+ Kontext "BMPOptionen"
+ if BMPOptionen.Exists (2) then
+ '/// check if all properties have the right count, and depend on each other ///'
+ '/// 'Color Resolution' listbox contains eight items ///'
+ x = Farbaufloesung.GetItemCount
+ if x <> 8 then warnlog "Color Resolution Count is wrong; should be:8, is:" + x
+ for i = 1 to x
+ Farbaufloesung.Select i
+ sleep 1
+ Printlog " - " + i + ": '" +Farbaufloesung.GetSelText + "'"
+ '/// checkbox RLE coding has to be enabled only for '4 and 8 bit' color palettes ///'
+ if ((i > 3) AND (i < 8)) then
+ if RLEKodierung.IsEnabled <> TRUE then warnlog "'RLE coding' is not checkable :-("
+ else
+ if RLEKodierung.IsEnabled <> FALSE then warnlog "'RLE coding' is checkable :-("
endif
- Aufloesung.Check
+ next i
+ '/// if Mode 'original' is selected, DPI///'
+ Original.Check
+ if DPI.IsEnabled then warnlog " :-("
+ if Breite.IsEnabled then warnlog " :-("
+ if Hoehe.IsEnabled then warnlog " :-("
+ Aufloesung.Check
x = DPI.GetItemCount
- if x <> 4 then
- warnlog "'DPI' Count is wrong; should be:4, is:" & x
- endif
+ '/// 'DPI' listbox contains eight items ///'
+ if x <> 4 then warnlog "'DPI' Count is wrong; should be:4, is:" + x
for i = 1 to x
- DPI.Select i
- Printlog " - " & i & ": '" &DPI.GetSelText & "'"
+ DPI.Select i
+ Printlog " - " + i + ": '" +DPI.GetSelText + "'"
next i
- if Breite.IsEnabled then
- warnlog " :-("
- endif
- if Hoehe.IsEnabled then
- warnlog " :-("
- endif
- Groesse.Check
- if DPI.IsEnabled then
- warnlog " :-("
- endif
+ if Breite.IsEnabled then warnlog " :-("
+ if Hoehe.IsEnabled then warnlog " :-("
+ Groesse.Check
+ if DPI.IsEnabled then warnlog " :-("
Breite.More
Hoehe.Less
- Sleep 1
- BMPOptionen.Cancel
- sleep 5
- if ( dir(OutputGrafikTBO&".bmp") = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
- Printlog "ok :-)"
- else
- warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
- endif
- else
- Warnlog "No BMP-Option-Dialog!"
- i=5
- end if
- sleep 2
- Kontext "Active"
- if Active.Exists(2) then
- Warnlog "BMP-Exportfilter has a problem"
- Active.OK
- end if
- end if
- if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
- Kontext "BMPOptionen"
- if BMPOptionen.Exists (2) then
- Farbaufloesung.Select 7
- RLEKodierung.Check
- Aufloesung.Check
- DPI.Select 3
- BMPOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO&".bmp") <> "") then
- Printlog "Ok :-) Saved as: '" & OutputGrafikTBO&".bmp" & "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO&".bmp" )
- endif
- hCloseDocument ()
- qaerrorlog "#i93258#"
-
- hNewDocument()
- hTypeKeys "<TAB>"
- gMouseClick 50, 50
- hRechteckErstellen ( 10, 10, 30, 40 )
- if hCallExport (OutputGrafikTBO & "2" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
- Kontext "BMPOptionen"
- if BMPOptionen.Exists (2) then
- Groesse.Check
+ Sleep 1
+ '/// leave dialog with cancel -> there has to be no file created! ///'
+ BMPOptionen.Cancel
+ sleep 5
+ if ( dir(OutputGrafikTBO+".bmp") = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
+ Printlog "ok :-)"
+ else
+ warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
+ endif
+ else
+ Warnlog "No BMP-Option-Dialog!"
+ i=5
+ end if
+ sleep 2
+ Kontext "Active"
+ if Active.Exists(2) then
+ Warnlog "BMP-Exportfilter has a problem"
+ Active.OK
+ end if
+ end if
+ Printlog "'/// now save it realy and load the file afterwards ///'"
+ if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
+ Kontext "BMPOptionen"
+ if BMPOptionen.Exists (2) then
+ Farbaufloesung.Select 7
+ RLEKodierung.Check
+ Aufloesung.Check
+ DPI.Select 3
+ BMPOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO+".bmp") <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+".bmp" + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+".bmp" )
+ endif
+ hCloseDocument ()
+ Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'"
+ qaerrorlog "#i93258#"
+ 'hFileOpen (sDocument)
+ 'kontext "Filterauswahl"
+ 'if Filterauswahl.exists(10) then
+ ' Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
+ ' Filterauswahl.Cancel
+ ' goto endsub
+ 'endif
+
+ '' check if the document is writable
+ 'if fIsDocumentWritable = false then
+ ' ' make the document writable and check if it's succesfull
+ ' if fMakeDocumentWritable = false then
+ ' warnlog "The document can't be make writeable. Test stopped."
+ ' goto endsub
+ ' endif
+ 'endif
+
+ 'hTypeKeys ("<escape><tab>")
+ 'fGetSizeXY sx1, sy, TRUE
+ 'if hCallExport (OutputGrafikTBO + "1" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
+ ' Kontext "BMPOptionen"
+ ' if BMPOptionen.Exists (2) then
+ ' Original.Check
+ ' BMPOptionen.OK
+ ' sleep 5
+ ' endif
+ ' if ( dir(OutputGrafikTBO + "1"+".bmp") <> "") then
+ ' Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+".bmp" + "'"
+ ' else
+ ' warnlog "File didn't get saved :-("
+ ' endif
+
+ ' qaerrorlog "#i92902: Export to bmp: bmp options not respected"
+ 'sleep 5
+ 'hNewDocument()
+ 'sleep 5
+ 'Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+".bmp" )
+ 'bTemp = FALSE
+ 'fGetSizeXY sx1, sY, bTemp
+ 'if (bTemp = FALSE) then
+ ' warnlog "Selected original size NOT OK :-("
+ 'endif
+ 'endif
+ 'hCloseDocument ()
+ Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'"
+ hNewDocument()
+ hTypeKeys "<TAB>"
+ gMouseClick 50, 50
+ hRechteckErstellen ( 10, 10, 30, 40 )
+ if hCallExport (OutputGrafikTBO + "2" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
+ Kontext "BMPOptionen"
+ if BMPOptionen.Exists (2) then
+ Groesse.Check
Breite.SetText "9"
Hoehe.SetText "9"
Groesse.Check 'Press "Size" one more time in order to make the change go through"
sx1 = Breite.GetText
sY = Hoehe.GetText
- BMPOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO & "2" & ".bmp") <> "") then
- Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "2" & ".bmp" & "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hFileOpen (OutputGrafikTBO & "2" & ".bmp")
- kontext "Filterauswahl"
- if Filterauswahl.exists then
- Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
- Filterauswahl.Cancel
- goto endsub
- endif
- kontext "DocumentDraw"
- DocumentDraw.TypeKeys ("<escape><tab>")
-
- qaerrorlog "#i92902: Export to bmp: bmp options not respected"
-
- endif
- if hCallExport (OutputGrafikTBO & "3" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
- Kontext "BMPOptionen"
- if BMPOptionen.Exists (2) then
- Groesse.Check
+ BMPOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO + "2"+".bmp") <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+".bmp" + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hFileOpen (OutputGrafikTBO + "2"+".bmp")
+ kontext "Filterauswahl"
+ if Filterauswahl.exists then
+ Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
+ Filterauswahl.Cancel
+ goto endsub
+ endif
+ kontext "DocumentDraw"
+ DocumentDraw.TypeKeys ("<escape><tab>")
+
+ qaerrorlog "#i92902: Export to bmp: bmp options not respected"
+ 'ContextOriginalSize
+ 'bTemp = FALSE
+ 'fGetSizeXY sx1, sY, bTemp
+ 'if (bTemp = FALSE) then
+ ' warnlog "Selected original size NOT OK :-("
+ 'endif
+
+ endif
+ if hCallExport (OutputGrafikTBO + "3" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
+ Kontext "BMPOptionen"
+ if BMPOptionen.Exists (2) then
+ Groesse.Check
sX2 = Breite.GetText
if (LiberalMeasurement(sx1, sX2)) <> TRUE then
- if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
- Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
- else
- warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
- endif
+ if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
+ Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
+ else
+ warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
+ endif
endif
sY2 = Hoehe.GetText
if (LiberalMeasurement(sY, sY2)) <> TRUE then
- if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
- Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
- else
- warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
- endif
+ if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
+ Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
+ else
+ warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
+ endif
endif
- BMPOptionen.Cancel
- sleep 5
- endif
- endif
+ BMPOptionen.Cancel
+ sleep 5
+ endif
+ endif
- call hCloseDocument
+ call hCloseDocument
endcase
'-------------------------------------------------------------------------------
@@ -960,8 +1036,8 @@ testcase tEMF
endif
call hCloseDocument
+endcase 'tEMF
-endcase
'-------------------------------------------------------------------------------
testcase tMET
@@ -1157,8 +1233,8 @@ testcase tMET
endif
call hCloseDocument
+endcase 'tMET
-endcase
'-------------------------------------------------------------------------------
testcase tSWF
@@ -1182,8 +1258,8 @@ testcase tSWF
endif
call hCloseDocument
+endcase 'tSWF
-endcase
'------------------------------------------------------------------------------
testcase tWMF
@@ -1359,6 +1435,6 @@ testcase tWMF
endif
call hCloseDocument
+endcase 'tWMF
-endcase
'-------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_area.inc b/testautomation/graphics/optional/includes/global/g_area.inc
index db56e32..e48c1ff 100755
--- a/testautomation/graphics/optional/includes/global/g_area.inc
+++ b/testautomation/graphics/optional/includes/global/g_area.inc
@@ -45,329 +45,369 @@ testcase tiFormatArea
Dim Zaehler
dim Entf$
- FormatArea
- Kontext
- active.SetPage TabArea
- Kontext "TabArea"
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- Sleep 3
-
- Printlog " - Test various formats"
- Kontext
- active.SetPage TabArea
- Kontext "TabArea"
- if NOT FillOptions.GetSelIndex = 5 then
- Warnlog "Bitmap is not checked"
- else
- if BitmapList.GetSelIndex <> 3 then Warnlog "Wrong bitmap used. "+ BitmapAuswahl.GetSelIndex
- if NOT Tile.IsChecked then Warnlog "Tile is not checked"
- ' if Original.IsChecked then Warnlog "Original is not checked"
- ' if NOT Relativ.IsChecked then Warnlog "Relative is not checked"
- ' if Breite.GetText <> "90 %" then Warnlog "Width is not 90%, it is: "+Breite.GetText
- ' if XOffset.GetText <> "30 %" then Warnlog "XOffset is not 30%, it is: "+XOffset.GetText
- ' if NOT Zeile.IsChecked then Warnlog "Line is not checked"
- ' if Verschiebung.GetText <> "20 %" then Warnlog "Displace is not 20%, it is: " + Verschiebung.GetText
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- if NOT Anzeigen.IsChecked then
- Warnlog "Show shadows is not checked"
- else
- if Entfernung.GetText <> Entf$ then Warnlog "Distance is not " + Entf$ + " it is: "+ Entfernung.GetText
- if Farbe.GetSelIndex <> 15 then Warnlog "Wrong color for shadow. It is: "+ Farbe.GetSelIndex
- end if
- end if
- TabSchatten.Cancel
+ hNewDocument '/// New impress document ///'
+ hRechteckErstellen (20,20,60,60) '/// create rectangle ///'
+ Printlog " - Change Format" '/// change format for the rectangle ///'
+ FormatArea
+ Kontext
+ active.SetPage TabArea
+ Kontext "TabArea"
+ FillOptions.Select 5 '/// apply bitmap as texture ///'
+ BitmapList.Select 3 '/// Select "Water" ///'
+ Tile.Check '/// tile bitmap ///'
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ Anzeigen.Check '/// apply shadow ///'
+ Entfernung.SetText "30" '/// set angle to 30���///'
+ Entf$=Entfernung.GetText '/// change distance ///'
+ Farbe.Select 15 '/// select color 15///'
+ TabSchatten.OK '/// close dialog ///'
+ Sleep 3
-endcase
+ Printlog " - Test various formats"
+ FormatArea '/// Format area, check if changes are saved for this object ///'
+ Kontext
+ active.SetPage TabArea
+ Kontext "TabArea"
+ if NOT FillOptions.GetSelIndex = 5 then
+ Warnlog "Bitmap is not checked"
+ else
+ if BitmapList.GetSelIndex <> 3 then Warnlog "Wrong bitmap used. "+ BitmapAuswahl.GetSelIndex
+ if NOT Tile.IsChecked then Warnlog "Tile is not checked"
+' if Original.IsChecked then Warnlog "Original is not checked"
+' if NOT Relativ.IsChecked then Warnlog "Relative is not checked"
+' if Breite.GetText <> "90 %" then Warnlog "Width is not 90%, it is: "+Breite.GetText
+' if XOffset.GetText <> "30 %" then Warnlog "XOffset is not 30%, it is: "+XOffset.GetText
+' if NOT Zeile.IsChecked then Warnlog "Line is not checked"
+' if Verschiebung.GetText <> "20 %" then Warnlog "Displace is not 20%, it is: " + Verschiebung.GetText
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ if NOT Anzeigen.IsChecked then
+ Warnlog "Show shadows is not checked"
+ else
+ if Entfernung.GetText <> Entf$ then Warnlog "Distance is not " + Entf$ + " it is: "+ Entfernung.GetText
+ if Farbe.GetSelIndex <> 15 then Warnlog "Wrong color for shadow. It is: "+ Farbe.GetSelIndex
+ end if
+ end if
+ TabSchatten.Cancel
+ hCloseDocument '/// close document ///'
+
+endcase 'tiFormatArea
+'--------------------------------------------------------
testcase tdFormatArea1
- Dim i
- Dim j
- Dim k
- Dim m
- Dim n
- Dim Winkel_1 as string
- Dim ZaehlerFarbe
- Dim ZaehlerVerlauf
- Dim ZaehlerSchraffur
- Dim ZaehlerBitmap
- Dim ColorName$
+Dim i
+Dim j
+Dim k
+Dim m
+Dim n
+Dim Winkel_1 as string
+Dim ZaehlerFarbe
+Dim ZaehlerVerlauf
+Dim ZaehlerSchraffur
+Dim ZaehlerBitmap
+Dim ColorName$
ColorName$ = "Bullshit"
- dim Zaehler as integer
+ dim Zaehler as integer
- sleep 3
- sleep 2
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- sleep 2
- TabArea.OK
- sleep 1
- FormatArea
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- ZaehlerVerlauf = GradientList.GetItemCount
- for j = 1 To 2
- GradientList.Select j
- TabArea.OK
- FormatArea
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- PrintLog GradientList.GetSelText
- next j
- HatchingList.GetItemCount
- ZaehlerSchraffur = HatchingList.GetItemCount
- for k=1 to 2'ZaehlerSchraffur
- HatchingList.Select k
- TabArea.OK
- FormatArea
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- PrintLog HatchingList.GetSelText
- next k
+ Call hNewDocument '/// new document ///'
+ sleep 3
+ Call hRechteckErstellen (30,30,70,70) '/// create rectangle ///'
+ sleep 2
+ FormatArea '/// format area ///'
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ FillOptions.Select 1 '/// Select no fill ///'
+ sleep 2
+ TabArea.OK
+ sleep 1
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ sleep 1 '/// control if changes are still there after closing and reopening dialog ///'
+ FillOptions.Select 3'/// check gradient and select 1 ///'
+ ZaehlerVerlauf = GradientList.GetItemCount
+ for j = 1 To 2
+ GradientList.Select j
+ TabArea.OK
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ PrintLog GradientList.GetSelText
+ next j
+ FillOptions.Select 4 '/// select hatching, control after closing and reopening dialog if changes are recognized ///'
+ HatchingList.GetItemCount
+ ZaehlerSchraffur = HatchingList.GetItemCount
+ for k=1 to 2'ZaehlerSchraffur
+ HatchingList.Select k
+ TabArea.OK
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ PrintLog HatchingList.GetSelText
+ next k
- BitmapList.GetItemCount
- ZaehlerBitmap = BitmapList.GetItemCount
- for n=1 to ZaehlerBitmap
- BitmapList.Select n
- TabArea.OK
- FormatArea
- sleep 1
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- PrintLog BitmapList.GetSelText
- next n
+ FillOptions.Select 5 '/// check bitmap, control if changes are permanent after closing and reopening dialog ///'
+ BitmapList.GetItemCount
+ ZaehlerBitmap = BitmapList.GetItemCount
+ for n=1 to ZaehlerBitmap
+ BitmapList.Select n
+ TabArea.OK
+ FormatArea
+ sleep 1
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ PrintLog BitmapList.GetSelText
+ next n
- ' if Anpassen.IsEnabled = False Then PrintLog " Option Tile activated"
- ' if Anpassen.IsEnabled = True Then WarnLog " Option Tile not activated"
- ' if Relativ.IsChecked = False Then
- ' SetClipboard Breite.GetText
- ' Relativ.Check
- ' If Breite.GetText = GetClipboardText Then
- ' WarnLog " Relative isnt working"
- ' else
- ' PrintLog " Relative works"
- ' end if
- ' end if
- '
- ' if Kacheln.IsChecked = True Then Kacheln.UnCheck
- ' Anpassen.Check
- ' if Relativ.IsEnabled = True Then WarnLog " Option Anpassen konnte nicht aktiviert werden"
- ' if not Relativ.IsEnabled Then PrintLog " Option Anpassen funktioniert"
- ' Anpassen.Uncheck
- ' Original.Check
- ' if Breite.IsEnabled And Hoehe.IsEnabled = True Then WarnLog " Button Original funktioniert nicht"
- ' if Breite.IsEnabled And Hoehe.IsEnabled = False Then PrintLog " Button Original funktioniert"
- ' Kacheln.Check
- ' setClipboard XOffset.GetText
- ' XOffset.More 3
- ' if XOffset.GetText <> GetClipboardText Then PrintLog " Position XOffset funktioniert"
- ' if XOffset.GetText = GetClipboardText Then WarnLog " Position XOffset funktioniert nicht"
- ' SetClipboard YOffset.GetText
- ' YOffset.More 5
- ' if YOffset.GetText <> GetClipboardText Then PrintLog " Position YOffset funktioniert"
- ' if YOffset.GetText = GetClipboardText Then WarnLog " Position YOffset funktioniert nicht"
- ' PrintLog " TabArea fertig"
- Kontext
- Active.SetPage TabSchatten
- Kontext "TabSchatten"
- sleep 1
- sleep 1
- PrintLog " Show shadow works"
-else
- WarnLog " Show shadow does not work"
-end if
+ if Tile.IsChecked = False Then Tile.Check '/// check tile ///'
+' if Anpassen.IsEnabled = False Then PrintLog " Option Tile activated"
+' if Anpassen.IsEnabled = True Then WarnLog " Option Tile not activated"
+' if Relativ.IsChecked = False Then
+' SetClipboard Breite.GetText
+' Relativ.Check
+' If Breite.GetText = GetClipboardText Then
+' WarnLog " Relative isnt working"
+' else
+' PrintLog " Relative works"
+' end if
+' end if
+'
+' if Kacheln.IsChecked = True Then Kacheln.UnCheck
+' Anpassen.Check
+' if Relativ.IsEnabled = True Then WarnLog " Option Anpassen konnte nicht aktiviert werden"
+' if not Relativ.IsEnabled Then PrintLog " Option Anpassen funktioniert"
+' Anpassen.Uncheck
+' Original.Check
+' if Breite.IsEnabled And Hoehe.IsEnabled = True Then WarnLog " Button Original funktioniert nicht"
+' if Breite.IsEnabled And Hoehe.IsEnabled = False Then PrintLog " Button Original funktioniert"
+' Kacheln.Check
+' setClipboard XOffset.GetText
+' XOffset.More 3
+' if XOffset.GetText <> GetClipboardText Then PrintLog " Position XOffset funktioniert"
+' if XOffset.GetText = GetClipboardText Then WarnLog " Position XOffset funktioniert nicht"
+' SetClipboard YOffset.GetText
+' YOffset.More 5
+' if YOffset.GetText <> GetClipboardText Then PrintLog " Position YOffset funktioniert"
+' if YOffset.GetText = GetClipboardText Then WarnLog " Position YOffset funktioniert nicht"
+' PrintLog " TabArea fertig"
+ Kontext
+ Active.SetPage TabSchatten
+ Kontext "TabSchatten"
+ sleep 1
+ if Anzeigen.IsChecked = True Then Anzeigen.UnCheck '/// uncheck shadow ///'
+ sleep 1
+ if Entfernung.IsEnabled = False Then '/// check if shadow related controls are disabled with no shadow ///'
+ PrintLog " Show shadow works"
+ else
+ WarnLog " Show shadow does not work"
+ end if
-Entfernung.More 4
-if GetClipboardText = Entfernung.GetText Then
- WarnLog " Distance does not work"
-else
- PrintLog " Distance does work"
-end if
+ Anzeigen.Check '/// check shadow ///'
+ SetClipboard Entfernung.GetText '/// change distance ///'
+ Entfernung.More 4
+ if GetClipboardText = Entfernung.GetText Then
+ WarnLog " Distance does not work"
+ else
+ PrintLog " Distance does work"
+ end if
+ Farbe.Select 5 '/// change shadow color ///'
+
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ Farbe.Select 24
+ sleep 1
+ Farbe.Select 18
+ sleep 1
+ Farbe.Select 7
+ Farbname.SetText "Bullshit" '/// change color ///'
+ Aendern.Click
+ sleep 1
+ TabFarben.OK
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ FillOptions.Select 2
+ if ColourList.GetSelText = "Bullshit" Then
+ PrintLog " Color selection changed "
+ else
+ WarnLog " Color selection not changed"
+ end if
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ Farbmodell.Select 1
+
+ Kontext
+ Active.SetPage TabFarben '/// test RGB color model ///'
+ Kontext "TabFarben"
+ Farbmodell.Select 1 '/// switch to RGB values ///' ' 33:RVB,CMJN
+ printlog " Selected colourmodel RGB?: "+Farbmodell.GetSelText
+ if left(Farbmodell.GetSelText,1) <> "R" then warnlog "not RGB selected ? :-("
+ try
+ R.SetText "50"
+ G.SetText "10"
+ B.SetText "90"
+ catch
+ warnlog "RGB text fields are not enabled :-("
+ endcatch
+ Aendern.Click
+ TabFarben.OK
+ Kontext "DocumentDraw"
+ FormatArea
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ if (R.GetText = "50" And G.GetText = "10" And B.GetText = "90") Then
+ PrintLog "Changes in RGB done"
+ else
+ WarnLog " Chancges in RGB values not recognized, instead of R=50 , G=10 und B=90 it is " +R.GetText + " " + G.GetText + " " + B.GetText
+ end if
+ Farbe.Select 10
+ FarbName.SetText "Brighter" '/// add a color ///'
+ Hinzufuegen.Click
+ Farbe.Select "Brighter"
+ Loeschen.Click '/// delete color ///'
+ Kontext "Active"
+ Active.Yes
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ Bearbeiten.Click '/// edit color ///'
+ Kontext "FarbeDlg"
+ FarbeDlg.OK
+ sleep 2
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ TabFarben.OK
+ FormatArea
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ TabFarben.OK
+
+ FormatArea
+ Kontext
+ Active.SetPage TabFarbverlaeufe
+ Kontext "TabFarbverlaeufe"
+ TabFarbverlaeufe.OK
+ sleep 2
-Kontext
-Active.SetPage TabFarben
-Kontext "TabFarben"
-Farbe.Select 24
-sleep 1
-Farbe.Select 18
-sleep 1
-Farbe.Select 7
-Aendern.Click
-sleep 1
-TabFarben.OK
FormatArea
-Kontext
-Active.SetPage TabArea
-Kontext "TabArea"
-FillOptions.Select 2
-if ColourList.GetSelText = "Bullshit" Then
- PrintLog " Color selection changed "
-else
- WarnLog " Color selection not changed"
-end if
-Kontext
-Active.SetPage TabFarben
-Kontext "TabFarben"
-Farbmodell.Select 1
+ sleep 2
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+ KeineTransparenz.Check '/// check if controls are disabled if transparence is disabled ///'
+ Printlog "- No transparency is checked, all controls should be disabled."
+ if MFLinTransparenz.IsEnabled Then Warnlog "- Transparency enabled"
+ if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Graidient enabled"
+ if MFZentrumX.IsEnabled Then Warnlog "- Center X enabled"
+ if MFZentrumY.IsEnabled Then Warnlog "- Center Y enabled"
+ if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
+ if MFRand.IsEnabled Then Warnlog "- Border enabled"
+ if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
+ if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
-Kontext
-Kontext "TabFarben"
-printlog " Selected colourmodel RGB?: "+Farbmodell.GetSelText
-if left(Farbmodell.GetSelText,1) <> "R" then warnlog "not RGB selected ? :-("
- try
- R.SetText "50"
- G.SetText "10"
- B.SetText "90"
- catch
- warnlog "RGB text fields are not enabled :-("
- endcatch
- Aendern.Click
- TabFarben.OK
- Kontext "DocumentDraw"
+ LineareTransparenz.Check '/// check linear tranparency ///'
+ Printlog "- Set transparency to linear, all controls should be enabled now" '/// control if related controls are now enabled ///'
+ sleep 1
+ MFLinTransparenz.ToMax '/// change values of controls ///'
+ if MFLinTransparenz.GetText <>"100%" Then Warnlog "- Maximum value not correct"
+ MFLinTransparenz.ToMin
+ if MFLinTransparenz.GetText <>"0%" Then Warnlog "- Minimum value not correct"
+ if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Gradient enabled"
+ if MFZentrumX.IsEnabled Then Warnlog "- Centrum X enabled"
+ if MFZentrumY.IsEnabled Then Warnlog "- Centrum Y enabled"
+ if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
+ if MFRand.IsEnabled Then Warnlog "- Border enabled"
+ if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
+ if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
+
+ Transparenzverlauf.Check
+ Printlog "- Gradient for transprency enabled"
+ if MFLinTransparenz.IsEnabled = "false" Then Warnlog "- Transparency disabled"
+ if TransparenzverlaufTyp.IsEnabled = "false" Then Warnlog "- Gradient disabled"
+ if MFZentrumX.IsEnabled = "false" Then Warnlog "- Center X disabled"
+ if MFZentrumY.IsEnabled = "false" Then Warnlog "- Center Y disabled"
+ if MFWinkel.IsEnabled = "false" Then Warnlog "- Anlge disabled"
+ if MFRand.IsEnabled = "false" Then Warnlog "- Border disabled"
+ if MFStartwert.IsEnabled = "false" Then Warnlog "- Start value disabled"
+ if MFEndwert.IsEnabled = "false" Then Warnlog "- End value disabled"
+
+ Printlog "- Check if changed values are saved"
+
+ Zaehler=TransparenzverlaufTyp.GetItemCount
+ for i=1 to Zaehler
+ TransparenzverlaufTyp.Select i
+ SetClipboard Transparenzverlauftyp.GetSelText
+ TabTransparenz.OK
+ sleep 2
FormatArea
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- if (R.GetText = "50" And G.GetText = "10" And B.GetText = "90") Then
- PrintLog "Changes in RGB done"
- else
- WarnLog " Chancges in RGB values not recognized, instead of R=50 , G=10 und B=90 it is " +R.GetText + " " + G.GetText + " " + B.GetText
+ sleep 1
+ Kontext
+ Active.SetPage TabTransparenz '/// check if values are saved after closing and reopening dialog ///'
+ Kontext "TabTransparenz"
+ if not Transparenzverlauftyp.GetSelIndex = i Then Warnlog "- Values are not correct for gradient transparency"
+ next i
+ TransparenzverlaufTyp.Select 2
+ if MFZentrumX.IsEnabled Then Warnlog "- Center X should not be enabled"
+ if MFZentrumY.IsEnabled Then Warnlog "- Center Y should not be enabled"
+ MFWinkel.SetText "45"
+ Winkel_1 = MFWinkel.GetText
+ TabTransparenz.OK
+ sleep 2
+ FormatArea
+ sleep 2
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+ if TransparenzverlaufTyp.GetSelIndex <>2 Then
+ Warnlog "- Second menu-item is not choosen"
end if
- Farbe.Select 10
- Hinzufuegen.Click
- Farbe.Select "Brighter"
- Kontext "Active"
- Active.Yes
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- Kontext "FarbeDlg"
- FarbeDlg.OK
+ TransparenzverlaufTyp.Select 3
+ if MFWinkel.GetText <> Winkel_1 then Warnlog "- The inserted value is not accepted"
+ if MFWinkel.GetText <> Winkel_1 Then TransparenzverlaufTyp.Select 3
+ if MFWinkel.IsEnabled Then Warnlog " - Angle should not be active when Radial is choosen"
+ sleep 1
+ MFZentrumX.SetText "30"
+ MFZentrumY.SetText "30"
+ TabTransparenz.OK
sleep 2
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- TabFarben.OK
- FormatArea
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- TabFarben.OK
-
FormatArea
+ sleep 2
Kontext
- Active.SetPage TabFarbverlaeufe
- Kontext "TabFarbverlaeufe"
- TabFarbverlaeufe.OK
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+ if MFZentrumX.GetText <> "30%" Then Warnlog "- Setted value for Center X is not applied."
+ if MFZentrumY.GetText <> "30%" Then Warnlog "- Setted value for Center Y is not applied."
+ MFRand.SetText "10"
+ MFStartwert.SetText "20"
+ MFEndwert.SetText "30"
+ TabTransparenz.OK
sleep 2
-
FormatArea
sleep 2
Kontext
Active.SetPage TabTransparenz
Kontext "TabTransparenz"
- Printlog "- No transparency is checked, all controls should be disabled."
- if MFLinTransparenz.IsEnabled Then Warnlog "- Transparency enabled"
- if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Graidient enabled"
- if MFZentrumX.IsEnabled Then Warnlog "- Center X enabled"
- if MFZentrumY.IsEnabled Then Warnlog "- Center Y enabled"
- if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
- if MFRand.IsEnabled Then Warnlog "- Border enabled"
- if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
- if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
-
- sleep 1
- if MFLinTransparenz.GetText <>"100%" Then Warnlog "- Maximum value not correct"
- MFLinTransparenz.ToMin
- if MFLinTransparenz.GetText <>"0%" Then Warnlog "- Minimum value not correct"
- if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Gradient enabled"
- if MFZentrumX.IsEnabled Then Warnlog "- Centrum X enabled"
- if MFZentrumY.IsEnabled Then Warnlog "- Centrum Y enabled"
- if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
- if MFRand.IsEnabled Then Warnlog "- Border enabled"
- if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
- if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
-
- Transparenzverlauf.Check
- Printlog "- Gradient for transprency enabled"
- if MFLinTransparenz.IsEnabled = "false" Then Warnlog "- Transparency disabled"
- if TransparenzverlaufTyp.IsEnabled = "false" Then Warnlog "- Gradient disabled"
- if MFZentrumX.IsEnabled = "false" Then Warnlog "- Center X disabled"
- if MFZentrumY.IsEnabled = "false" Then Warnlog "- Center Y disabled"
- if MFWinkel.IsEnabled = "false" Then Warnlog "- Anlge disabled"
- if MFRand.IsEnabled = "false" Then Warnlog "- Border disabled"
- if MFStartwert.IsEnabled = "false" Then Warnlog "- Start value disabled"
- if MFEndwert.IsEnabled = "false" Then Warnlog "- End value disabled"
-
- Printlog "- Check if changed values are saved"
-
- Zaehler=TransparenzverlaufTyp.GetItemCount
- for i=1 to Zaehler
- TransparenzverlaufTyp.Select i
- SetClipboard Transparenzverlauftyp.GetSelText
- TabTransparenz.OK
- sleep 2
- FormatArea
- sleep 1
- Kontext
- Kontext "TabTransparenz"
- if not Transparenzverlauftyp.GetSelIndex = i Then Warnlog "- Values are not correct for gradient transparency"
- next i
- TransparenzverlaufTyp.Select 2
- if MFZentrumX.IsEnabled Then Warnlog "- Center X should not be enabled"
- if MFZentrumY.IsEnabled Then Warnlog "- Center Y should not be enabled"
- MFWinkel.SetText "45"
- Winkel_1 = MFWinkel.GetText
- TabTransparenz.OK
- sleep 2
- FormatArea
- sleep 2
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- if TransparenzverlaufTyp.GetSelIndex <>2 Then
- Warnlog "- Second menu-item is not choosen"
- end if
- TransparenzverlaufTyp.Select 3
- if MFWinkel.GetText <> Winkel_1 then Warnlog "- The inserted value is not accepted"
- if MFWinkel.GetText <> Winkel_1 Then TransparenzverlaufTyp.Select 3
- if MFWinkel.IsEnabled Then Warnlog " - Angle should not be active when Radial is choosen"
- sleep 1
- MFZentrumX.SetText "30"
- MFZentrumY.SetText "30"
- TabTransparenz.OK
- sleep 2
- FormatArea
- sleep 2
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- if MFZentrumX.GetText <> "30%" Then Warnlog "- Setted value for Center X is not applied."
- if MFZentrumY.GetText <> "30%" Then Warnlog "- Setted value for Center Y is not applied."
- MFRand.SetText "10"
- MFStartwert.SetText "20"
- MFEndwert.SetText "30"
- TabTransparenz.OK
- sleep 2
- FormatArea
- sleep 2
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- if MFRand.GetText <> "10%" Then Warnlog "- Border-value was not set."
- if MFEndwert.GetText <> "30%" Then Warnlog "- End-value was not set."
- if MFStartwert.GetText <> "20%" Then Warnlog "- Start-value was not set."
- TabTransparenz.OK
+ if MFRand.GetText <> "10%" Then Warnlog "- Border-value was not set."
+ if MFEndwert.GetText <> "30%" Then Warnlog "- End-value was not set."
+ if MFStartwert.GetText <> "20%" Then Warnlog "- Start-value was not set."
+ TabTransparenz.OK
+ Call hCloseDocument '/// close document ///'
-endcase
+endcase 'tdFormatArea1
diff --git a/testautomation/graphics/optional/includes/global/g_arrangealign.inc b/testautomation/graphics/optional/includes/global/g_arrangealign.inc
index 667b0e7..7aedbe8 100755
--- a/testautomation/graphics/optional/includes/global/g_arrangealign.inc
+++ b/testautomation/graphics/optional/includes/global/g_arrangealign.inc
@@ -47,217 +47,277 @@
'\*************************************************************************************
testcase tiDatei_Fuer_Anordnen_Erstellen
- dim sTemp as string
- dim i as integer
- dim zaehler as integer
- if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file
- Kontext
- Select Case Zaehler
+ dim sTemp as string
+ dim i as integer
+ dim zaehler as integer
+ '/// This function creates the document, that will be used as reference and working object inthe following cases :-) ///'
+ '///'Dim Datei ' somewhere global :-) defined in calling sub! :sub im_107c_ ///
+ call hNewDocument '/// new document ///'
+ if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file
+ for Zaehler = 1 to 3 '/// create 3 overlapping objects ///'
+ Kontext
+ Select Case Zaehler
Case 1: WL_SD_Wuerfel
+ gMouseMove (20,5, 80,60) '/// cubicel 20,5, 80,60 ///
Printlog " Object start ---------------------- "+ Zaehler +" cubicel "
Case 2: WL_SD_RechteckVoll
+ gMouseMove (40,35, 90,90) '/// rectangel 40,35, 90,90 ///
Printlog " Object start ---------------------- "+ Zaehler +" rectangel "
Case 3: WL_SD_Torus
+ gMouseMove (1,35, 60,95) '/// donut ;-) 1,35, 60,95 ///
Printlog " Object start ---------------------- "+ Zaehler +" donut "
- End Select
- sleep (1)
- sleep (1)
- kontext
- Select Case Zaehler
+ End Select
+ sleep (1)
+ FormatArea '/// assign different area properties for created objects (use rnd function)///'
+ sleep (1)
+ kontext
+ Select Case Zaehler
Case 1: active.SetPage TabFarbverlaeufe
- kontext "TabFarbverlaeufe"
- Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1)
- printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText
- TabFarbverlaeufe.OK
+ kontext "TabFarbverlaeufe"
+ Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1)
+ printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText
+ TabFarbverlaeufe.OK
Case 2: active.SetPage TabSchraffuren
- kontext "TabSchraffuren"
- Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1)
- printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText
- TabSchraffuren.OK
+ kontext "TabSchraffuren"
+ Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1)
+ printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText
+ TabSchraffuren.OK
Case 3: active.SetPage TabFarben
- kontext "TabFarben"
- Farbe.Select Int((Farbe.GetItemCount * Rnd) + 1)
- printlog "test tbo-------------------------------------------------color of object : "+Farbe.GetSelText
- TabFarben.OK
- End Select
- sleep 1
- sleep (1)
- kontext
- active.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
+ kontext "TabFarben"
+ Farbe.Select Int((Farbe.GetItemCount * Rnd) + 1)
+ printlog "test tbo-------------------------------------------------color of object : "+Farbe.GetSelText
+ TabFarben.OK
+ End Select
+ sleep 1
+ ContextPositionAndSize '/// save position and size values into varialbes ///'
+ sleep (1)
+ kontext
+ active.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ '/// the variables : Ueber_Text_[1-3] get set here ! with x position of object///
Select Case Zaehler
- Case 1: Ueber_Text_1 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
- Case 2: Ueber_Text_2 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
- Case 3: Ueber_Text_3 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
+ Case 1: Ueber_Text_1 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
+ Case 2: Ueber_Text_2 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
+ Case 3: Ueber_Text_3 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
End Select
- TabPositionAndSize.OK
- gMouseClick 96,5
- next Zaehler
- sleep 1
- printlog "OK saved at ", Datei
- sleep 1
+ TabPositionAndSize.OK
+ gMouseClick 96,5
+ next Zaehler
+ sleep 1
+ call hFileSaveAsKill (Datei) '/// save document ///'
+ printlog "OK saved at ", Datei
+ sleep 1
+ '/// select in default order and take Position X in mind ;-) ///'
+ '///+ has to be from bottom to top: cubicel, rectangel, donut ///'
sPrintCheckOrder (TRUE)
-endcase
-
+ call hCloseDocument '/// close document ///'
+
+endcase 'tiDatei_Fuer_Anordnen_Erstellen
'-------------------------------------------------------------------------------
testcase tdContextSendBackward
- dim sTemp as string
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- hTypeKeys ("<TAB><TAB>")
- WL_TB_ANORDNUNG_WeiterNachHinten
- sleep 2
- sPrintCheckOrder
- hTypeKeys ("<escape><escape>")
- sleep 2
- hTypeKeys ("<TAB><TAB>")
- sleep 2
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_1 then
- warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
- end if
- Call hCloseDocument
- endif
- sleep 2
-endcase
-
+ dim sTemp as string
+ '/// open created document 'with 3 figures' ///'
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ '/// select the middle object: rectangle, with keys: [TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB>")
+ '/// Send Backward / [Strg]+[-] -> one level more to the back ///'
+ WL_TB_ANORDNUNG_WeiterNachHinten
+ '///+ has to be from bottom to top: rectangel cubicel donut ///'
+ sleep 2
+ sPrintCheckOrder
+ '/// deselect all ///'
+ hTypeKeys ("<escape><escape>")
+ sleep 2
+ '/// select the middle object: cubical, with keys: [TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB>")
+ sleep 2
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_1 then
+ warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
+ end if
+ '/// close document ///'
+ Call hCloseDocument
+ endif
+ sleep 2
+
+endcase 'tdContextSendBackward
'-------------------------------------------------------------------------------
testcase tdContextBringForward
- dim sTemp as string
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- hTypeKeys ("<TAB><TAB>")
- WL_TB_ANORDNUNG_WeiterNachVorn
- sleep 1
- sPrintCheckOrder
- hTypeKeys ("<TAB><TAB>")
- sleep 2
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_3 then
- warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
- end if
- sleep 1
- Call hCloseDocument
- endif
-endcase
-
+ dim sTemp as string
+ '/// open created document 'with 3 figures' ///'
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ '/// select the middle object: rectangle, with keys: [TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB>")
+ '/// Bring Forward / [Strg]+[+] -> one level more to the front ///'
+ WL_TB_ANORDNUNG_WeiterNachVorn
+ '/// has to be from bottom to top: cubicel donut rectangel ///'
+ sleep 1
+ sPrintCheckOrder
+ '/// select the middle object: donut, with keys: [TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB>")
+ sleep 2
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_3 then
+ warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
+ end if
+ sleep 1
+ '/// close document ///'
+ Call hCloseDocument
+ endif
+
+endcase 'tdContextBringForward
'-------------------------------------------------------------------------------
testcase tdContextSendToBack
- dim sTemp as string
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- hTypeKeys ("<TAB><TAB><TAB>")
- OL_DRAW_GanzNachHinten
- sleep 3
- sPrintCheckOrder
- hTypeKeys ("<TAB><TAB>")
- sleep 1
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_1 then
- warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
- end if
- sleep 3
- Call hCloseDocument
- endif
-endcase
-
+ dim sTemp as string
+ '/// open created document 'with 3 figures' ///'
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB><TAB>")
+ '/// Send to Back / [Strg]+[Shift]+[-] -> backmost object ///'
+ OL_DRAW_GanzNachHinten
+ '/// has to be from bottom to top: rectangel cubicel donut ///'
+ sleep 3
+ sPrintCheckOrder
+ '/// select the middle object: cubical, with keys: [TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB>")
+ sleep 1
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_1 then
+ warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
+ end if
+ sleep 3
+ '/// close document ///'
+ Call hCloseDocument
+ endif
+
+endcase 'tdContextSendToBack
'-------------------------------------------------------------------------------
testcase tdContextBringToFront
- dim sTemp as string
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- hTypeKeys ("<TAB>")
- OL_DRAW_GanzNachVorn
- sPrintCheckOrder
- hTypeKeys ("<TAB><TAB>")
- sleep 1
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_3 then
- warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
- end if
- sleep 3
- Call hCloseDocument
- endif
-endcase
-
+ dim sTemp as string
+ '/// open created document 'with 3 figures' ///'
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ '/// select the bottom object: cubical, with keys: [TAB] ///'
+ hTypeKeys ("<TAB>")
+ '/// Bring to Front / [Strg]+[Shift]+[+] -> frontmost object ///'
+ OL_DRAW_GanzNachVorn
+ '/// has to be from bottom to top: rectangel, donut, cubicel ///'
+ sPrintCheckOrder
+ '/// select the middle object: donut, with keys: [TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB>")
+ sleep 1
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_3 then
+ warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
+ end if
+ sleep 3
+ '/// close document ///'
+ Call hCloseDocument
+ endif
+
+endcase 'tdContextBringToFront
'-------------------------------------------------------------------------------
testcase tdContextInFrontOfObject
- dim sTemp as string
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- hTypeKeys ("<TAB><TAB><TAB>")
- OL_DRAW_VorDasObjekt
- gMouseClick 50,5
- sPrintCheckOrder
- sleep 1
- hTypeKeys ("<TAB><TAB>")
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_3 then
- printlog "DISABLED the WARNLOG, because mouseaction is not always the same :-( : Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
- end if
- Call hCloseDocument
- endif
-endcase
-
+ dim sTemp as string
+ '/// open created document 'with 3 figures' ///'
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB><TAB>")
+ '/// In Front of object ///'
+ OL_DRAW_VorDasObjekt
+ '/// left click the cubicel with the mouse ///'
+ gMouseClick 50,5
+ '/// has to be from bottom to top: cubicel, donut, rectangel ///'
+ sPrintCheckOrder
+ sleep 1
+ '/// select the middle object: donut, with keys: [TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB>")
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_3 then
+ printlog "DISABLED the WARNLOG, because mouseaction is not always the same :-( : Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
+ end if
+ '/// close document ///'
+ Call hCloseDocument
+ endif
+
+endcase 'tdContextInFrontOfObject
'-------------------------------------------------------------------------------
testcase tdContextBehindObject
- dim sTemp as string
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- hTypeKeys ("<TAB><TAB><TAB>")
- OL_DRAW_HinterDasObjekt
- sleep 1
- gMouseClick 50,5
- sPrintCheckOrder
- sleep 1
- hTypeKeys ("<TAB>")
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_3 then
- printlog "DISABLED the WARNLOG, because mouseaction is not always tthe same Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
- end if
- Call hCloseDocument
- endif
-endcase
-
+ dim sTemp as string
+ '/// open created document 'with 3 figures' ///'
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///'
+ hTypeKeys ("<TAB><TAB><TAB>")
+ '/// Behind object ///'
+ OL_DRAW_HinterDasObjekt
+ sleep 1
+ '/// left click the cubicel with the mouse ///'
+ gMouseClick 50,5
+ '/// has to be from bottom to top: donut, cubicel, rectangel ///'
+ sPrintCheckOrder
+ sleep 1
+ '/// select the bottom object: donut, with keys: [TAB] ///'
+ hTypeKeys ("<TAB>")
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_3 then
+ printlog "DISABLED the WARNLOG, because mouseaction is not always tthe same Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
+ end if
+ '/// close document ///'
+ Call hCloseDocument
+ endif
+
+endcase 'tdContextBehindObject
'-------------------------------------------------------------------------------
testcase tdContextReverse
- dim sTemp as string
- dim sTemp2 as string
- dim i as integer
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- EditSelectAll
- sleep 3
- WL_TB_ANORDNUNG_Vertauschen
- sPrintCheckOrder
- hTypeKeys ("<escape><escape>")
- for i = 1 to 3
- hTypeKeys ("<TAB>")
- sTemp = fGetPositionX
+ dim sTemp as string
+ dim sTemp2 as string
+ dim i as integer
+ '/// open created document 'with 3 figures' ///'
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ '/// Edit->Select All ///'
+ EditSelectAll
+ sleep 3
+ '/// Reverse ///'
+ WL_TB_ANORDNUNG_Vertauschen
+ sPrintCheckOrder
+ '/// select in default order and take Position X in mind ;-) ///'
+ hTypeKeys ("<escape><escape>")
+ for i = 1 to 3
+ hTypeKeys ("<TAB>")
+ sTemp = fGetPositionX
Select Case i
- Case 1: sTemp2 = Ueber_Text_3
- Case 2: sTemp2 = Ueber_Text_2
- Case 3: sTemp2 = Ueber_Text_1
+ Case 1: sTemp2 = Ueber_Text_3
+ Case 2: sTemp2 = Ueber_Text_2
+ Case 3: sTemp2 = Ueber_Text_1
End Select
- if sTemp <> sTemp2 then
- warnlog " - " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";"
- end if
- next i
- endif
-endcase
-
+ if sTemp <> sTemp2 then
+ warnlog " - " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";"
+ end if
+ next i
+ '/// close document ///'
+ Call hCloseDocument '/// close document ///'
+ endif
+
+endcase 'tdContextReverse
'-------------------------------------------------------------------------------
+
diff --git a/testautomation/graphics/optional/includes/global/g_character.inc b/testautomation/graphics/optional/includes/global/g_character.inc
index cfb92ba..5b095b7 100755
--- a/testautomation/graphics/optional/includes/global/g_character.inc
+++ b/testautomation/graphics/optional/includes/global/g_character.inc
@@ -43,40 +43,51 @@
' #1 tGetFormatCharacter
'*
'\*******************************************************************
-
testcase tFormatCharacter
- dim sTemp as string
- dim iTemp as integer
-
- Call hNewDocument
- sleep 1
-
- hTextrahmenErstellen ("This is a check, a check, a check.",10,10,60,30)
- hTypeKeys "<MOD1 HOME><shift end>"
- sleep 1
-
- FormatCharacter
- sleep 1
- Kontext
- Messagebox.SetPage TabFont
- Kontext "TabFont"
- sleep 1
-
- Kontext
- Messagebox.SetPage TabFontEffects
- kontext "TabFontEffects"
- sleep 1
-
- Kontext
- Messagebox.SetPage TabFontPosition
- Kontext "TabFontPosition"
- sleep 1
-
- TabFontPosition.OK
- Call hCloseDocument
-endcase
+ dim sTemp as string
+ dim iTemp as integer
+
+ '/// open application ///'
+ Call hNewDocument
+ sleep 1
+
+ '/// create a textframe with content ///'
+ hTextrahmenErstellen ("This is a check, a check, a check.",10,10,60,30)
+ '/// type with keys [strg]+[home] [shift]+[end] to select the inserted text ///'
+ hTypeKeys "<MOD1 HOME><shift end>"
+ sleep 1
+
+ '/// Format->Character ///'
+ FormatCharacter
+ sleep 1
+ '/// switch to tabpage 'Font' ///'
+ Kontext
+ Messagebox.SetPage TabFont
+ Kontext "TabFont"
+ sleep 1
+
+ '/// switch to tabpage 'Font Effects' ///'
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ sleep 1
+
+ '/// switch to tabpage 'Position' ///'
+ Kontext
+ Messagebox.SetPage TabFontPosition
+ Kontext "TabFontPosition"
+ sleep 1
+
+ '/// close dialog 'Character' with 'OK' ///'
+ TabFontPosition.OK
+ '/// close application ///'
+ Call hCloseDocument
+
+endcase 'tFormatCharacter
+'---------------------------------------------------------
testcase tDialogCharacter
+
Dim i as integer
Dim y as integer
Dim z as integer
@@ -96,256 +107,269 @@ testcase tDialogCharacter
ToolsOptions
hToolsOptions ( "LanguageSettings", "Languages" )
- Asiansupportsetting = TRUE
-else
- Asiansupportsetting = FALSE
-end if
+ if Aktivieren.IsChecked then '/// Check in what state Asian support is ///'
+ Asiansupportsetting = TRUE
+ else
+ Asiansupportsetting = FALSE
+ Aktivieren.Check '/// Activate if not already activated ///'
+ end if
-Kontext "ExtrasOptionenDlg"
-ExtrasOptionenDlg.OK
-Sleep (3)
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+ Sleep (3)
-Kontext
+ Kontext
-Call hTextrahmenErstellen ( "Some text in a box.", 20, 20, 50, 50 )
+ Call hTextrahmenErstellen ( "Some text in a box.", 20, 20, 50, 50 )
-FormatCharacter
-sleep 1
-Kontext '"Active" ' insert this, perhaps another
-Active.SetPage TabFont ' tabpage is active at open
-Kontext "TabFont"
-CountOfThem = FontWest.GetItemCount
-for y = 1 to CountOfThem
+ FormatCharacter
+ sleep 1
+ Kontext '"Active" ' insert this, perhaps another
+ Active.SetPage TabFont ' tabpage is active at open
+ Kontext "TabFont"
+ CountOfThem = FontWest.GetItemCount
+ for y = 1 to CountOfThem
FontWest.Select y
Xtext = FontWest.GetSelText
- ' printlog "This FontWest is: " & Xtext
-next y
-
-CountOfThem = StyleWest.GetItemCount
-for y = 1 to CountOfThem
- StyleWest.Select y
- Xtext = StyleWest.GetSelText
- ' printlog "This StyleWest is: " & Xtext
-next y
-
-CountOfThem = SizeWest.GetItemCount
-for y = 1 to CountOfThem
- SizeWest.Select y
- Xtext = SizeWest.GetSelText
- ' printlog "This SizeWest is: " & Xtext
-next y
-
-CountOfThem = LanguageWest.GetItemCount
-for y = 1 to CountOfThem
- LanguageWest.Select y
- Xtext = LanguageWest.GetSelText
- ' printlog "This LanguageWest is: " & Xtext
-next y
-
-CountOfThem = FontEast.GetItemCount
-for y = 1 to CountOfThem
- FontEast.Select y
- Xtext = FontEast.GetSelText
- ' printlog "This FontEast is: " & Xtext
-next y
-
-CountOfThem = StyleEast.GetItemCount
-for y = 1 to CountOfThem
- StyleEast.Select y
- Xtext = StyleEast.GetSelText
- ' printlog "This StyleEast is: " & Xtext
-next y
-
-CountOfThem = SizeEast.GetItemCount
-for y = 1 to CountOfThem
- SizeEast.Select y
- Xtext = SizeEast.GetSelText
- ' printlog "This SizeEast is: " & Xtext
-next y
-
-CountOfThem = LanguageEast.GetItemCount
-for y = 1 to CountOfThem
- LanguageEast.Select y
- Xtext = LanguageEast.GetSelText
- ' printlog "This LanguageEast is: " & Xtext
-next y
-
-Kontext
-Active.SetPage TabFontEffects
-Kontext "TabFontEffects"
-if NOT Outline.IsChecked then
- Outline.Check
-end if
-
-if NOT Shadow.IsChecked then
- Shadow.Check
-end if
-
-CountOfThem = Underline.GetItemCount
-CountOfColors = Color.GetItemCount
-
-for y = 2 to CountOfThem
- Underline.Select y
- Xtext = Underline.GetSelText
- ' printlog "This Underline is: " & Xtext
-
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
- ' printlog "This Color is: " & TestColorString
- next i
-next y
+' printlog "This FontWest is: " & Xtext
+ next y
+
+ CountOfThem = StyleWest.GetItemCount
+ for y = 1 to CountOfThem
+ StyleWest.Select y
+ Xtext = StyleWest.GetSelText
+' printlog "This StyleWest is: " & Xtext
+ next y
+
+ CountOfThem = SizeWest.GetItemCount
+ for y = 1 to CountOfThem
+ SizeWest.Select y
+ Xtext = SizeWest.GetSelText
+' printlog "This SizeWest is: " & Xtext
+ next y
+
+ CountOfThem = LanguageWest.GetItemCount
+ for y = 1 to CountOfThem
+ LanguageWest.Select y
+ Xtext = LanguageWest.GetSelText
+' printlog "This LanguageWest is: " & Xtext
+ next y
+
+ CountOfThem = FontEast.GetItemCount
+ for y = 1 to CountOfThem
+ FontEast.Select y
+ Xtext = FontEast.GetSelText
+' printlog "This FontEast is: " & Xtext
+ next y
+
+ CountOfThem = StyleEast.GetItemCount
+ for y = 1 to CountOfThem
+ StyleEast.Select y
+ Xtext = StyleEast.GetSelText
+' printlog "This StyleEast is: " & Xtext
+ next y
+
+ CountOfThem = SizeEast.GetItemCount
+ for y = 1 to CountOfThem
+ SizeEast.Select y
+ Xtext = SizeEast.GetSelText
+' printlog "This SizeEast is: " & Xtext
+ next y
+
+ CountOfThem = LanguageEast.GetItemCount
+ for y = 1 to CountOfThem
+ LanguageEast.Select y
+ Xtext = LanguageEast.GetSelText
+' printlog "This LanguageEast is: " & Xtext
+ next y
-CountOfThem = StrikeThrough.GetItemCount
-for y = 2 to CountOfThem
- StrikeThrough.Select y
- IndividualWords.UnCheck
- Xtext = StrikeThrough.GetSelText
- ' printlog "The StrikeThrough is: " & Xtext
+ Kontext
+ Active.SetPage TabFontEffects
+ Kontext "TabFontEffects"
+ if NOT Outline.IsChecked then
+ Outline.Check
+ end if
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
- ' printlog "And the Color is: " & TestColorString
- next i
-next y
+ if NOT Shadow.IsChecked then
+ Shadow.Check
+ end if
-IndividualWords.Check
-printlog "Individual Words = On"
+ CountOfThem = Underline.GetItemCount
+ CountOfColors = Color.GetItemCount
-CountOfThem = StrikeThrough.GetItemCount
-for y = 2 to CountOfThem
- StrikeThrough.Select y
- Xtext = StrikeThrough.GetSelText
- ' printlog "The StrikeThrough is: " & Xtext
+ for y = 2 to CountOfThem
+ Underline.Select y
+ Xtext = Underline.GetSelText
+' printlog "This Underline is: " & Xtext
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
- ' printlog "And the Color is: " & TestColorString
- next i
-next y
+ for i = 1 to CountOfColors
+ Color.Select i
+ TestColorString = Color.GetSelText
+' printlog "This Color is: " & TestColorString
+ next i
+ next y
+
+ CountOfThem = StrikeThrough.GetItemCount
+ for y = 2 to CountOfThem
+ StrikeThrough.Select y
+ IndividualWords.UnCheck
+ Xtext = StrikeThrough.GetSelText
+' printlog "The StrikeThrough is: " & Xtext
+
+ for i = 1 to CountOfColors
+ Color.Select i
+ TestColorString = Color.GetSelText
+' printlog "And the Color is: " & TestColorString
+ next i
+ next y
-CountOfThem = Emphasis.GetItemCount
-for y = 2 to CountOfThem
- Emphasis.Select y
- Xtext = Emphasis.GetSelText
- ' printlog "The Emphasis is: " & Xtext
+ IndividualWords.Check
+ printlog "Individual Words = On"
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
- ' printlog "And the Color is: " & TestColorString
- next i
-next y
-
-CountOfThem = Position.GetItemCount
-for y = 1 to CountOfThem
- Position.Select y
- Xtext = Position.GetSelText
- ' printlog "The Position is: " & Xtext
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
- ' printlog "And the Color is: " & TestColorString
- next i
-next y
-
-CountOfThem = FontColor.GetItemCount
-for z = 1 to CountOfThem
- FontColor.Select z
- TestColorString = FontColor.GetSelText
- ' printlog "The FontColor is: " & TestColorString
-next z
-
-CountOfThem = Relief.GetItemCount
-TestColorString = Color.GetSelText
-for y = 1 to CountOfThem
- Relief.Select y
- Xtext = Relief.GetSelText
- TestColorString = Color.GetSelText
- ' printlog "The Relief is: " & Xtext
-next y
-
-Kontext
-Kontext "TabFontPosition"
-printlog "TabFontPosition"
-SuperScript.Check
-Super.Check
-ThisIsMyTextFromControl = RelativeFontSize.GetText
-' printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
-for y = 1 to 99
- RelativeFontSize.TypeKeys "<UP>"
- ThisIsMyTextFromControl = RelativeFontSize.GetText
- ' printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
-next y
-
-Automatic.Check
-ThisIsMyTextFromControl = ScaleWith.GetText
-printlog "ScaleWith minimum is:" & ThisIsMyTextFromControl
-' ScaleWith.TypeKeys "<TAB>"
-for y = 1 to 100
- ScaleWith.TypeKeys "<UP>"
- ThisIsMyTextFromControl = ScaleWith.GetText
- ' printlog "ScaleWith is:" & ThisIsMyTextFromControl
-next y
+ CountOfThem = StrikeThrough.GetItemCount
+ for y = 2 to CountOfThem
+ StrikeThrough.Select y
+ Xtext = StrikeThrough.GetSelText
+' printlog "The StrikeThrough is: " & Xtext
-Normal.Check
-Subscript.Check
+ for i = 1 to CountOfColors
+ Color.Select i
+ TestColorString = Color.GetSelText
+' printlog "And the Color is: " & TestColorString
+ next i
+ next y
+
+ CountOfThem = Emphasis.GetItemCount
+ for y = 2 to CountOfThem
+ Emphasis.Select y
+ Xtext = Emphasis.GetSelText
+' printlog "The Emphasis is: " & Xtext
+
+ for i = 1 to CountOfColors
+ Color.Select i
+ TestColorString = Color.GetSelText
+' printlog "And the Color is: " & TestColorString
+ next i
+ next y
+
+ CountOfThem = Position.GetItemCount
+ for y = 1 to CountOfThem
+ Position.Select y
+ Xtext = Position.GetSelText
+' printlog "The Position is: " & Xtext
+ for i = 1 to CountOfColors
+ Color.Select i
+ TestColorString = Color.GetSelText
+' printlog "And the Color is: " & TestColorString
+ next i
+ next y
-printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
-for y = 1 to 99
- RelativeFontSize.TypeKeys "<UP>"
- ThisIsMyTextFromControl = RelativeFontSize.GetText
- ' printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
-next y
+ CountOfThem = FontColor.GetItemCount
+ for z = 1 to CountOfThem
+ FontColor.Select z
+ TestColorString = FontColor.GetSelText
+' printlog "The FontColor is: " & TestColorString
+ next z
-Automatic.Check
+ CountOfThem = Relief.GetItemCount
+ TestColorString = Color.GetSelText
+ for y = 1 to CountOfThem
+ Relief.Select y
+ Xtext = Relief.GetSelText
+ TestColorString = Color.GetSelText
+' printlog "The Relief is: " & Xtext
+ next y
-ThisIsMyTextFromControl = ScaleWith.GetText
-printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
-for y = 1 to 100
- ScaleWith.TypeKeys "<UP>"
+ Kontext
+ Active.SetPage TabFontPosition '/// Changes the active tab to "Position"
+ Kontext "TabFontPosition"
+ printlog "TabFontPosition"
+ SuperScript.Check
+ Super.Check
+ RelativeFontSize.ToMin '/// Testing the "Relative Font Size"-Listbox
+ ThisIsMyTextFromControl = RelativeFontSize.GetText
+' printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
+ for y = 1 to 99
+ RelativeFontSize.TypeKeys "<UP>"
+ ThisIsMyTextFromControl = RelativeFontSize.GetText
+' printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
+ next y
+
+ Automatic.Check
+ ScaleWith.ToMin '/// Testing the "Scale With"-Listbox
ThisIsMyTextFromControl = ScaleWith.GetText
- ' printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
-next y
-
-printlog "The Spacing is first: " & ThisIsMyTextFromControl
-for y = 2 to 3
- Spacing.Select y
- ThisIsMyTextFromControl = Spacing.GetSelText
- printlog "The Spacing is: " & ThisIsMyTextFromControl
- ' printlog "The SpacingBy Size minimum is: " & ThisIsMyTextFromControl
- SpacingBy.ToMin
- for z = 1 to 4
- SpacingBy.More
- ThisIsMyTextFromControl = SpacingBy.GetText
- ' printlog "The SpacingBy Size is: " & ThisIsMyTextFromControl
- next z
- PairKerning.Check
-next y
-
-Kontext "TabFontPosition"
-TabFontPosition.Ok
-
-if Asiansupportsetting = FALSE then
- kontext
- ToolsOptions
- hToolsOptions ( "LanguageSettings", "Languages" )
- Printlog "Reseted the Asiansupport-value to it's original state"
+ printlog "ScaleWith minimum is:" & ThisIsMyTextFromControl
+ ' ScaleWith.TypeKeys "<TAB>"
+ for y = 1 to 100
+ ScaleWith.TypeKeys "<UP>"
+ ThisIsMyTextFromControl = ScaleWith.GetText
+' printlog "ScaleWith is:" & ThisIsMyTextFromControl
+ next y
+
+ Normal.Check
+ Subscript.Check
+
+ RelativeFontSize.ToMin '/// Testing the "Reliative Font Size"-Listbox again but this time
+ ThisIsMyTextFromControl = RelativeFontSize.GetText '/// with "Subscript" and "Normal" Checked
+ printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
+ for y = 1 to 99
+ RelativeFontSize.TypeKeys "<UP>"
+ ThisIsMyTextFromControl = RelativeFontSize.GetText
+' printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
+ next y
+
+ Automatic.Check
+
+ ScaleWith.ToMin '/// Testing the "ScaleWith"-Listbox
+ ThisIsMyTextFromControl = ScaleWith.GetText
+ printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
+ for y = 1 to 100
+ ScaleWith.TypeKeys "<UP>"
+ ThisIsMyTextFromControl = ScaleWith.GetText
+' printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
+ next y
+
+ ThisIsMyTextFromControl = Spacing.GetSelText '/// Testing the "Spacing"-ListBox
+ printlog "The Spacing is first: " & ThisIsMyTextFromControl
+ for y = 2 to 3
+ Spacing.Select y
+ ThisIsMyTextFromControl = Spacing.GetSelText
+ printlog "The Spacing is: " & ThisIsMyTextFromControl
+ ThisIsMyTextFromControl = SpacingBy.GetText '/// Testing the "Spacing By"-Scrollbox
+' printlog "The SpacingBy Size minimum is: " & ThisIsMyTextFromControl
+ SpacingBy.ToMin
+ for z = 1 to 4
+ SpacingBy.More
+ ThisIsMyTextFromControl = SpacingBy.GetText
+' printlog "The SpacingBy Size is: " & ThisIsMyTextFromControl
+ next z
+ PairKerning.Check
+ next y
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
- Sleep (3)
+ Kontext "TabFontPosition"
+ TabFontPosition.Ok
- ' ActiveDeactivateAsianSupport = FALSE
-end if
+ if Asiansupportsetting = FALSE then
+ kontext
+ ToolsOptions
+ hToolsOptions ( "LanguageSettings", "Languages" )
+ Aktivieren.UnCheck '/// Deactivate if not already deactivated ///'
+ Printlog "Reseted the Asiansupport-value to it's original state"
-Printlog "DialogCharacter Ends"
-Call hCloseDocument
-endcase
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+ Sleep (3)
+' ActiveDeactivateAsianSupport = FALSE
+ end if
+
+ Printlog "DialogCharacter Ends"
+ Call hCloseDocument
+
+endcase 'tDialogCharacter
+'--------------------------------------------------------
testcase tSetFormatCharacter
+
if iSprache = 48 then
qaerrorlog "Test not adapted to polish, 48."
goto endsub
@@ -360,93 +384,117 @@ testcase tSetFormatCharacter
dim sFile as string
dim sTemp as string
- if (gApplication = "IMPRESS") then
- ExtensionString = "odp"
- else
- ExtensionString = "odg"
- end if
+ if (gApplication = "IMPRESS") then
+ ExtensionString = "odp"
+ else
+ ExtensionString = "odg"
+ end if
sFile = convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + "."+ExtensionString)
+ '/// create document, if it doesn't exist, else skip this case :-) ///'
if (dir(sFile)="") then
+ '/// open application ///'
Call hNewDocument
+ '/// activate all languages in options ///'
+ '///+ Tools->Options ///'
ToolsOptions
+ '///+ select tabpage 'Languages' from set 'Language Settings' ///'
hToolsOptions("LANGUAGESETTINGS","Languages")
kontext "TabSprachen"
+ '///+ save state and check checkbox 'Asian languages support' ///'
+ '/// if the language is Asian, skip this part ///'
printlog "iSprache = " + iSprache
if bAsianLan = FALSE then
- bAsian = Aktivieren.isEnabled
- Aktivieren.check
+ bAsian = Aktivieren.isEnabled
+ Aktivieren.check
endif
+ '///+ save state and check checkbox 'Complex text layout (CTL) support' ///'
bComplex = ComplexScriptEnabled.isEnabled
ComplexScriptEnabled.check
+ '///+ close dialog 'Options' with OK ///'
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
+ '/// get count of languages ///'
+ '///+ Format->Character ///'
FormatCharacter
sleep 1
Kontext
+ '///+ switch to tabpage 'Font' ///'
Messagebox.SetPage TabFont
kontext "TabFont"
sleep 1
+ '///+ get count of languages for Western/Asian/CTL fonts ///'
iWest = LanguageWest.getItemCount
iAsian = LanguageEast.getItemCount
iComplex = LanguageCTL.getItemCount
if bAsianLan = True then
- if (iWest <> 144) then
- Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
- else
- Printlog "Western text font languages count: " + iWest
- endif
- if (iAsian <> 8) then
- Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
- else
- Printlog "Asian text font languages count : " + iAsian
- endif
- if (iComplex <> 50) then
- Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
- else
- Printlog "CTL font languages count : " + iComplex
- endif
+ if (iWest <> 144) then
+ Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
+ else
+ Printlog "Western text font languages count: " + iWest
+ endif
+ if (iAsian <> 8) then
+ Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
+ else
+ Printlog "Asian text font languages count : " + iAsian
+ endif
+ if (iComplex <> 50) then
+ Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
+ else
+ Printlog "CTL font languages count : " + iComplex
+ endif
else
- if (iWest <> 113) then
- Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
- else
- Printlog "Western text font languages count: " + iWest
- endif
- if (iAsian <> 9) then
- Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
- else
- Printlog "Asian text font languages count : " + iAsian
- endif
- if (iComplex <> 30) then
- Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
- else
- Printlog "CTL font languages count : " + iComplex
- endif
+ if (iWest <> 113) then
+ Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
+ else
+ Printlog "Western text font languages count: " + iWest
+ endif
+ if (iAsian <> 9) then
+ Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
+ else
+ Printlog "Asian text font languages count : " + iAsian
+ endif
+ if (iComplex <> 30) then
+ Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
+ else
+ Printlog "CTL font languages count : " + iComplex
+ endif
endif
+ '///+ close dialog 'Character' with OK ///'
TabFont.Ok
WL_SD_TextEinfuegenDraw
gMouseMove ( 1, 1, 100, 100 )
+ '///+ print the language counts into the first line of the document ///'
hTypeKeys(" "+iWest+" "+iAsian+" "+iComplex+"<return>")
+ '/// set all languages to '[None]' ///'
+ '///+ Format->Character ///'
FormatCharacter
kontext "TabFont"
+ '///+ select '[None]' (should be the first entry in every listbox) ///'
LanguageWest.select 1
LanguageEast.select 1
LanguageCTL.select 1
+ '///+ close dialog 'Character' with OK ///'
TabFont.Ok
+ '/// print one line with language formated text for every language ///'
for i = 1 to iWest
+ '///+ Format->Character ///'
FormatCharacter
- kontext "TabFont"
- LanguageWest.select i
- sTemp = LanguageWest.getItemText (i)
- ListAppend(sLanguage(), sTemp)
+ kontext "TabFont"
+ '///+ select the next language ///'
+ LanguageWest.select i
+ sTemp = LanguageWest.getItemText (i)
+ ListAppend(sLanguage(), sTemp)
+ '///+ close dialog 'Character' with OK ///'
TabFont.Ok
+ '///+ type [return][number of language in list][Tab][Language name][Tab] ///'
hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
next i
@@ -459,11 +507,11 @@ testcase tSetFormatCharacter
for i = 1 to iAsian
FormatCharacter
- Kontext
- kontext "TabFont"
- LanguageEast.select i
- sTemp = LanguageEast.getItemText (i)
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ LanguageEast.select i
+ sTemp = LanguageEast.getItemText (i)
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
next i
@@ -477,15 +525,16 @@ testcase tSetFormatCharacter
for i = 1 to iComplex
FormatCharacter
- Kontext
- kontext "TabFont"
- LanguageCTL.select i
- sTemp = LanguageCTL.getItemText (i)
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ LanguageCTL.select i
+ sTemp = LanguageCTL.getItemText (i)
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
next i
+ '/// save the created document & the languages list if they don't exists ///'
hFileSaveAs (sFile)
qaErrorLog "Created file. Please check it and then commit it! " + sTemp
sTemp = convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + ".txt")
@@ -493,26 +542,36 @@ testcase tSetFormatCharacter
ListWrite(sLanguage(), sTemp,"utf8")
endif
+ '/// restore the options ///'
+ '///+ Tools->Options ///'
ToolsOptions
+ '///+ select tabpage 'Languages' from set 'Language Settings' ///'
hToolsOptions("LANGUAGESETTINGS","Languages")
kontext "TabSprachen"
+ '///+ restore state of checkbox 'Asian languages support' ///'
+ '/// if the language is Asian, skip this part ///'
if bAsianLan = FALSE then
- if (bAsian <> TRUE) then
- Aktivieren.UNcheck
- endif
+ if (bAsian <> TRUE) then
+ Aktivieren.UNcheck
+ endif
endif
+ '///+ restore state of checkbox 'Complex text layout (CTL) support' ///'
if (bComplex <> TRUE) then
ComplexScriptEnabled.UNcheck
endif
+ '///+ close dialog 'Options' with OK ///'
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
+ '/// close application ///'
Call hCloseDocument
endif
-endcase
-
+
+endcase 'tSetFormatCharacter
+'--------------------------------------------------------
testcase tGetFormatCharacter
+
qaerrorlog "tGetFormatCharacter outcommented due to too many qaerrorlogs"
goto endsub
Dim i as integer
@@ -527,26 +586,35 @@ testcase tGetFormatCharacter
dim iTemp as integer
dim sSpellBooks(30) as string
- if (gApplication = "IMPRESS") then
- ExtensionString = "odp"
+ if (gApplication = "IMPRESS") then
+ ExtensionString = "odp"
else
- ExtensionString = "odg"
+ ExtensionString = "odg"
end if
-
+
+ '/// open the english document with all languages ///'
hDateiOeffnen (convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + "."+ExtensionString)
ListRead(sLanguageR(), convertPath(gTesttoolpath + "graphics\required\input\spellb_1.txt"),"utf8")
+ '/// activate all languages in options ///'
+ '///+ Tools->Options ///'
ToolsOptions
+ '///+ select tabpage 'Languages' from set 'Language Settings' ///'
hToolsOptions("LANGUAGESETTINGS","Languages")
kontext "TabSprachen"
+ '///+ save state and check checkbox 'Asian languages support' ///'
bAsian = Aktivieren.isEnabled
Aktivieren.check
+ '///+ save state and check checkbox 'Complex text layout (CTL) support' ///'
bComplex = ComplexScriptEnabled.isEnabled
ComplexScriptEnabled.check
+ '///+ close dialog 'Options' with OK ///'
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
sleep (1)
+ '/// get count of languages ///'
hTypeKeys("<tab><f2>")
+ '///+ first how many are in the reference document (printed in the first line)///'
hTypeKeys("<mod1 home><shift end>")
sleep (1)
editcopy
@@ -557,12 +625,15 @@ testcase tGetFormatCharacter
iAsian(1) = mid(sTemp, iTemp+1, iTemp-i)
iComplex(1) = right(sTemp, Len(sTemp) - i)
sleep (1)
+ '///+ Format->Character ///'
FormatCharacter
sleep 1
Kontext
+ '///+ switch to tabpage 'Font' ///'
Messagebox.SetPage TabFont
kontext "TabFont"
sleep 1
+ '///+ get count of languages for Western/Asian/CTL fonts ///'
iWest(2) = LanguageWest.getItemCount
iAsian(2) = LanguageEast.getItemCount
iComplex(2) = LanguageCTL.getItemCount
@@ -581,42 +652,46 @@ testcase tGetFormatCharacter
else
Printlog "CTL font languages count : " + iComplex(2)
endif
+ '///+ close dialog 'Character' with OK ///'
TabFont.Ok
+ '/// write the language for every line in the current language ///'
hTypeKeys("<mod1 home><down><home>")
for i = 1 to iWest(2)
FormatCharacter
- Kontext
- kontext "TabFont"
- iTemp = LanguageWest.getSelIndex
- sTemp = LanguageWest.getSelText
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ iTemp = LanguageWest.getSelIndex
+ sTemp = LanguageWest.getSelText
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
+ '///+ type [end][number of language in list][Tab][Language name][down][home] ///'
hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
next i
for i = 1 to iAsian(2)
FormatCharacter
- Kontext
- kontext "TabFont"
- iTemp = LanguageEast.getSelIndex
- sTemp = LanguageEast.getSelText
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ iTemp = LanguageEast.getSelIndex
+ sTemp = LanguageEast.getSelText
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
next i
for i = 1 to iComplex(2)
FormatCharacter
- Kontext
- kontext "TabFont"
- iTemp = LanguageCTL.getSelIndex
- sTemp = LanguageCTL.getSelText
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ iTemp = LanguageCTL.getSelIndex
+ sTemp = LanguageCTL.getSelText
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
next i
+ '/// save the created document & the languages list ///'
sTemp = convertPath(gOfficePath + "user\work\spellb_" + iSprache)
hFileSaveAsKill (sTemp)
sTemp = convertPath(gOfficePath + "user\work\spellb_" + iSprache + ".txt")
@@ -627,9 +702,9 @@ testcase tGetFormatCharacter
for i = 1 to ListCount(sLanguageR())
select case i
- case 1:printlog " * Western text font languages"
- case iWest(2)+1:printlog " * Asian text font languages"
- case iWest(2)+iAsian(2)+1:printlog " * CTL font languages"
+ case 1:printlog " * Western text font languages"
+ case iWest(2)+1:printlog " * Asian text font languages"
+ case iWest(2)+iAsian(2)+1:printlog " * CTL font languages"
end select
if (sLanguageR(i) <> sLanguage(i)) then
if (instr(sLanguage(i), "[") > 0) then ' [None] - Entry ?
@@ -640,7 +715,6 @@ testcase tGetFormatCharacter
endif
next i
+ '/// close application ///'
Call hCloseDocument
-endcase
-
-
+endcase 'tGetFormatCharacter
diff --git a/testautomation/graphics/optional/includes/global/g_clipboard.inc b/testautomation/graphics/optional/includes/global/g_clipboard.inc
index 3a81d41..d0312ba 100755
--- a/testautomation/graphics/optional/includes/global/g_clipboard.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipboard.inc
@@ -50,15 +50,15 @@ testcase tiEditUndo
Dim sDatei as string
Dim Ueber_Text_1 as string
-
- if (gApplication = "IMPRESS") then
+
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
-
+
sDatei = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-
+
hFileOpen ConvertPath (sDatei)
sleep 5
printlog "Checking for readonly state. If so, make it editable."
@@ -69,16 +69,18 @@ testcase tiEditUndo
ContextPositionAndSize
Kontext
if Messagebox.exists (5) then
- Messagebox.SetPage TabPositionAndSize
+ Messagebox.SetPage TabPositionAndSize
else
- print "what"
+ print "what"
endif
Kontext "TabPositionAndSize"
+ Ueber_Text_1=PositionX.GetText '/// defining variable for original position of object ///'
TabPositionAndSize.Cancel
sleep 2
Kontext "Toolbar"
Auswahl.Click
sleep 1
+ ContextArrangeBringBackward '/// Bring Object backward ///'
sleep 1
gMouseClick 60,60
sleep 1
@@ -89,51 +91,56 @@ testcase tiEditUndo
Kontext "Toolbar"
Auswahl.Click
sleep 1
+ ContextPositionAndSize '/// Open Position and Size dialog, checking position ///'
Kontext
Messagebox.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
if PositionX=0 Then Warnlog " Command was not completely executed, and it could not be undone."
- TabPositionAndSize.Cancel
- sleep 2
- gMouseClick 60,60
- sleep 1
-
- Sleep 2
- gMouseClick 60,60
- sleep 1
- Kontext "Toolbar"
- Auswahl.Click
- hTypeKeys "<TAB><TAB>"
- sleep 1
- Kontext "Toolbar"
- Auswahl.Click
- kontext
- Messagebox.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- if PositionX.GetText = Ueber_Text_1 then
- printlog "OK, last order could be redone"
- else
- warnlog "Last order could not be redone"
- end if
- TabPositionAndSize.Cancel
-
+ TabPositionAndSize.Cancel
+ sleep 2
+ gMouseClick 60,60
+ sleep 1
+
+ EditUndo '/// Edit Undo for BringBackward ///'
+ Sleep 2
+ gMouseClick 60,60
+ sleep 1
+ Kontext "Toolbar"
+ Auswahl.Click
+ hTypeKeys "<TAB><TAB>"
+ sleep 1
+ Kontext "Toolbar"
+ Auswahl.Click
+ ContextPositionAndSize '/// Again checking position using Position and Size dialog ///'
+ kontext
+ Messagebox.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ if PositionX.GetText = Ueber_Text_1 then
+ printlog "OK, last order could be redone"
+ else
+ warnlog "Last order could not be redone"
+ end if
+ TabPositionAndSize.Cancel
+
+ Call hCloseDocument '/// Close document ///'
endcase
'-------------------------------------------------------------------------------
testcase tiEditRedo
-
+
Dim Datei$
Dim Ueber_Text_1
-
- if (gApplication = "IMPRESS") then
+
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
-
+
Datei$ = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-
+
+ hFileOpen ConvertPath (Datei$) '/// Open test document (leer.od?) ///'
sleep 3
' check if the document is writable
if fIsDocumentWritable = false then
@@ -158,6 +165,7 @@ testcase tiEditRedo
sleep 1
hTypeKeys "<TAB>"
sleep 1
+ ContextArrangeBringBackward '/// move object behind other object ///'
sleep 1
gMouseClick 60,60
sleep 1
@@ -166,38 +174,44 @@ testcase tiEditRedo
ContextPositionAndSize
sleep 1
Kontext
+ Messagebox.SetPage TabPositionAndSize '/// checking new position values ///'
Kontext "TabPositionAndSize"
- if PositionX.GetText = Ueber_Text_1 Then Warnlog " Nothing changed, so nothing can be undone"
- TabPositionAndSize.Cancel
- sleep 1
- gMouseClick 60,60
- sleep 1
- hTypeKeys "<TAB>"
- sleep 1
- ContextPositionAndSize
- sleep 1
- kontext
- kontext "TabPositionAndSize"
- if PositionX.GetText <> Ueber_Text_1 Then Warnlog " Undo didn't worked, so repeat last action wont work either"
- TabPositionAndSize.Cancel
- sleep 2
- sleep 2
- gMouseClick 60,60
- sleep 2
- hTypeKeys "<TAB>"
- sleep 2
- ContextPositionAndSize
- sleep 1
- kontext
- Messagebox.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- printlog "Action Undo repeated"
- else
- warnlog "Action Undo not repeated"
- end if
- TabPositionAndSize.OK
- sleep 1
- sleep 1
+ if PositionX.GetText = Ueber_Text_1 Then Warnlog " Nothing changed, so nothing can be undone"
+ TabPositionAndSize.Cancel
+ sleep 1
+ gMouseClick 60,60
+ EditUndo '/// Edit Undo///'
+ sleep 1
+ hTypeKeys "<TAB>"
+ sleep 1
+ ContextPositionAndSize
+ sleep 1
+ kontext
+ Messagebox.SetPage TabPositionAndSize '/// checking again position ///'
+ kontext "TabPositionAndSize"
+ if PositionX.GetText <> Ueber_Text_1 Then Warnlog " Undo didn't worked, so repeat last action wont work either"
+ TabPositionAndSize.Cancel
+ sleep 2
+ EditRedo '/// Edit Redo ///'
+ sleep 2
+ gMouseClick 60,60
+ sleep 2
+ hTypeKeys "<TAB>"
+ sleep 2
+ ContextPositionAndSize
+ sleep 1
+ kontext
+ Messagebox.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ if PositionX.GetText <> Ueber_Text_1 then '/// checking position ///'
+ printlog "Action Undo repeated"
+ else
+ warnlog "Action Undo not repeated"
+ end if
+ TabPositionAndSize.OK
+ sleep 1
+ call hCloseDocument '/// close document ///'
+ sleep 1
endcase
'-------------------------------------------------------------------------------
@@ -205,64 +219,81 @@ testcase tiEditClipboard
Dim Ueber_Text_4 as string
dim sTemp as string
-
+
+ '/// open application ///'
Call hNewDocument
sleep 1
SetClipboard ""
+ '/// Create rectangle ///'
Call hRechteckErstellen ( 65, 65, 80, 80 )
sleep 1
+ '///+ RightClick onto rectangle///'
gMouseClick 70,70
sleep 1
+ Ueber_Text_4 = fGetPositionX() '/// Get values for position variables ///'
Sleep 1
+ '/// <b> Edit->Copy </b> ///'
EditCopy
+ '///+ Type Key [Deletee] ///'
hTypeKeys "<DELETE>"
+ '///+ <i> Edit->Paste </i> ///'
EditPaste
sleep 1
+ '///+ Edit->Select All ///'
EditSelectAll
sTemp = fGetPositionX()
- printlog "OK EditCopy and EditPaste"
-else
- warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
-end if
-sleep 1
-hTypeKeys "<escape>"
-EditSelectAll
-sleep 2
-EditCut
-sleep 1
-hTypeKeys "<TAB>"
-try
- ContextPositionAndSize
- kontext
- Messagebox.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if TabPositionAndSize.NOTexists then
- warnlog "TabPositionAndSize isn't up ?!!"
- endif
- TabPositionAndSize.Ok
- warnlog "TabPositionAndSize IS up :-( Doesn't have to be, because object should be deleted !!!"
-catch
- Printlog " - There is no object in the document anymore :-)"
-endcatch
-sleep 1
-EditPaste
-sleep 2
-sTemp = fGetPositionX()
-if LiberalMeasurement(sTemp, Ueber_Text_4) then
- printlog "OK Edit paste"
-else
- warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
-end if
-sleep 3
-Call hCloseDocument
+ if LiberalMeasurement(sTemp, Ueber_Text_4) then '/// TabPositionAndSize: comparing position with original position ///'
+ printlog "OK EditCopy and EditPaste"
+ else
+ warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
+ end if
+ sleep 1
+ '/// Type Keys [escape], + EditSelectAll (to deselect object and to select again) ///'
+ hTypeKeys "<escape>"
+ EditSelectAll
+ sleep 2
+ '/// <b> Edit->Cut </b>///'
+ EditCut
+ sleep 1
+ hTypeKeys "<TAB>"
+ try
+ '///+ - Format->Position And Size -> HAS TO FAIL / IS NOT AVAILABLE !!! '///'
+ ContextPositionAndSize
+ kontext
+ '///+ - select TabPage 'Position And Size' ///'
+ Messagebox.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if TabPositionAndSize.NOTexists then
+ warnlog "TabPositionAndSize isn't up ?!!"
+ endif
+ '///+ - Ok dialog 'Position And Size' ///'
+ TabPositionAndSize.Ok
+ warnlog "TabPositionAndSize IS up :-( Doesn't have to be, because object should be deleted !!!"
+ catch
+ Printlog " - There is no object in the document anymore :-)"
+ endcatch
+ sleep 1
+ '///+ <i> Edit->Paste </i> ///'
+ EditPaste
+ sleep 2
+ sTemp = fGetPositionX()
+ if LiberalMeasurement(sTemp, Ueber_Text_4) then
+ printlog "OK Edit paste"
+ else
+ warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
+ end if
+ sleep 3
+ '/// close application ///'
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase tiEditPasteSpecial_HTML
-
+
dim Zaehler as integer
Kontext "Standardbar"
sleep 1
+ Call hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\frame1.htm") '/// Load html document ///'
sleep 5
autoexecute=false
Kontext "DocumentWriter"
@@ -271,137 +302,173 @@ testcase tiEditPasteSpecial_HTML
autoexecute=true
EditSelectAll
sleep 3
+ EditCopy '/// Copy selection ///'
Sleep 2
+ FileClose '/// Close document ///'
sleep 3
+ Call hNewDocument '/// Create new Impress document ///'
sleep 1
+ EditPasteSpecial '/// Edit paste special ///'
sleep 1
Kontext "InhaltEinfuegen"
For Zaehler = 1 to Auswahl.GetItemCount
- Auswahl.select Zaehler
- printlog Zaehler, ". Selection = ", Auswahl.GetSelText
+ Auswahl.select Zaehler
+ printlog Zaehler, ". Selection = ", Auswahl.GetSelText
next Zaehler
-
- warnlog "formats for inserting Html <> 4"
-else
- printlog "OK 4 formats for HTML-Document"
-end if
-
-sleep 3
-sleep 3
-try
-catch
- Warnlog "- Nothing inserted into document"
-endcatch
-sleep 3
-sleep 3
+
+ if Auswahl.GetItemCount <> 4 then '/// Controlling number of possible formats ///'
+ warnlog "formats for inserting Html <> 4"
+ else
+ printlog "OK 4 formats for HTML-Document"
+ end if
+
+ sleep 3
+ InhaltEinfuegen.OK '/// Paste clipboard content ///'
+ sleep 3
+ try
+ EditCopy '/// Copy object back into clipboard ///'
+ catch
+ Warnlog "- Nothing inserted into document"
+ endcatch
+ sleep 3
+ Call hCloseDocument '/// Close document ///'
+ sleep 3
endcase
'-------------------------------------------------------------------------------
testcase tdEditPasteSpecial_Text
-
+
printlog "Insert Text"
+ call hNewDocument '/// new document ///'
+ SetClipboard "I am a cool test-text in the Clipboard" '/// put text into clipboard ///'
+ EditPasteSpecial '/// edit paste special ///'
sleep 1
Kontext "InhaltEinfuegen"
+ Auswahl.Select 1 '/// select list entree 1 ///'
printlog "Selection = ", Auswahl.GetSelText
sleep 1
if Auswahl.GetItemCount <> 1 then
- warnlog "Selectionformat <> 1"
+ warnlog "Selectionformat <> 1"
else
- printlog "Format Text OK"
+ printlog "Format Text OK"
end if
+ InhaltEinfuegen.OK '/// close dialog ///'
sleep 1
-
+
+ Call hCloseDocument '/// close document ///'
endcase
'-------------------------------------------------------------------------------
testcase tdEditPasteSpecial_Graphic
-
+
dim Zaehler as integer
-
+
+ call hNewDocument '/// ^new document ///'
printlog "Insert graphic file"
-
+ InsertGraphicsFromFile '/// insert graphic (sample.bmp)///'
+
Kontext "GrafikEinfuegenDlg"
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
- Oeffnen.Click
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+ Oeffnen.Click
sleep 1
+ EditSelectAll '/// select graphic ///'
+ EditCut '/// cut graphic ///'
+ EditPasteSpecial '/// edit paste special ///'
sleep 1
Kontext "InhaltEinfuegen"
+ For Zaehler = 1 to Auswahl.GetItemCount '/// get item count for Auswahl ///'
Auswahl.select Zaehler
printlog Zaehler, ". Selection = ", Auswahl.GetSelText
-next Zaehler
-
-warnlog "Format for insert graphic files should be 4, but is: " + Auswahl.GetItemCount
-else
-printlog "There are " + Auswahl.GetItemCount + " formats for graphic files"
-end if
-gMouseClick 90,90
-sleep 1
+ next Zaehler
+
+ if Auswahl.GetItemCount <> 4 then '/// check if item count = 4 ///'
+ warnlog "Format for insert graphic files should be 4, but is: " + Auswahl.GetItemCount
+ else
+ printlog "There are " + Auswahl.GetItemCount + " formats for graphic files"
+ end if
+ InhaltEinfuegen.OK '/// insert graphic from clipboard ///'
+ gMouseClick 90,90
+ sleep 1
+ Call hCloseDocument '/// close document ///'
endcase
'-------------------------------------------------------------------------------
testcase tdEditPasteSpecial_Circle
- dim Zaehler as integer
- sleep 5
- Kontext "Toolbar"
- Ellipsen.Click
- sleep 3
- gMouseMove (20,20,80,80)
- sleep 1
- hTypeKeys "<escape>"
- sleep 2
- sleep 5
- sleep 1
- sleep 1
- Kontext "InhaltEinfuegen"
- Auswahl.select Zaehler
- printlog Zaehler, ". Selection = ", Auswahl.GetSelText
-next Zaehler
-warnlog "Number of possible formats <> 4"
-else
-printlog "There are 4 formats for circle"
-end if
-sleep 1
-sleep 1
+ dim Zaehler as integer
+ call hNewDocument '/// new document ///'
+ sleep 5
+ printlog "Insert circle" '/// create circle ///'
+ Kontext "Toolbar"
+ Ellipsen.Click
+ sleep 3
+ gMouseMove (20,20,80,80)
+ sleep 1
+ hTypeKeys "<escape>"
+ sleep 2
+ EditSelectAll '/// select circle ///'
+ sleep 5
+ EditCut '/// cut circle ///'
+ sleep 1
+ EditPasteSpecial '/// edit paste special ///'
+ sleep 1
+ Kontext "InhaltEinfuegen"
+ if EinfuegenAls.IsVisible Then EinfuegenAls.Check '/// check "EinfuegenAls" ///'
+ For Zaehler = 1 to Auswahl.GetItemCount '/// get item count for Auswahl ///'
+ Auswahl.select Zaehler
+ printlog Zaehler, ". Selection = ", Auswahl.GetSelText
+ next Zaehler
+ if Auswahl.GetItemCount <> 4 then '/// check if item count = 4 ///'
+ warnlog "Number of possible formats <> 4"
+ else
+ printlog "There are 4 formats for circle"
+ end if
+ sleep 1
+ InhaltEinfuegen.OK '/// paste circle ///'
+ sleep 1
+ Call hCloseDocument '/// close document ///'
endcase
'-------------------------------------------------------------------------------
testcase tiEditPasteSpecial
- dim i as integer
- dim x as integer
- ' warnlog "TODOTBO: from draw, impress, math..."
- gApplication = "WRITER"
- call hNewDocument
- kontext "DocumentWriter"
- DocumentWriter.TypeKeys "abc<shift home>"
- editcut
- call hCloseDocument
- gApplication = "IMPRESS"
- call hNewDocument
- sleep 1
-
- Printlog " get count of possibilities: "
- EditPasteSpecial
- sleep 1
- Kontext "InhaltEinfuegen"
- x = Auswahl.GetItemCount
- for i = 1 to x
- printlog " - " + i + " - " + Auswahl.GetItemText (i)
- next i
- InhaltEinfuegen.Cancel
-
- Printlog " insert every possibility"
- for i = 1 to x
- Printlog " - processing number: "+i
- EditPasteSpecial
- sleep 1
- Kontext "InhaltEinfuegen"
- Auswahl.Select i
- sleep 1
- InhaltEinfuegen.OK
- sleep 1
- next i
+ dim i as integer
+ dim x as integer
+' warnlog "TODOTBO: from draw, impress, math..."
+ '/// go into writer, type a text, select all, Edit->Cut, close writer ///'
+ '/// go into application to test, insert every format you can get from Edit->Paste->Special :-) ///'
+ gApplication = "WRITER"
+ call hNewDocument
+ kontext "DocumentWriter"
+ DocumentWriter.TypeKeys "abc<shift home>"
+ editcut
+ call hCloseDocument
+ gApplication = "IMPRESS"
+ call hNewDocument
+ sleep 1
+
+ Printlog " get count of possibilities: "
+ EditPasteSpecial
+ sleep 1
+ Kontext "InhaltEinfuegen"
+ x = Auswahl.GetItemCount
+ for i = 1 to x
+ printlog " - " + i + " - " + Auswahl.GetItemText (i)
+ next i
+ InhaltEinfuegen.Cancel
+
+ Printlog " insert every possibility"
+ for i = 1 to x
+ Printlog " - processing number: "+i
+ EditPasteSpecial
+ sleep 1
+ Kontext "InhaltEinfuegen"
+ Auswahl.Select i
+ sleep 1
+ InhaltEinfuegen.OK
+ sleep 1
+ next i
+ Call hCloseDocument '/// close document ///'
endcase
'-------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_convertto.inc b/testautomation/graphics/optional/includes/global/g_convertto.inc
index dd373d1..bec66a4 100755
--- a/testautomation/graphics/optional/includes/global/g_convertto.inc
+++ b/testautomation/graphics/optional/includes/global/g_convertto.inc
@@ -58,257 +58,315 @@
' Call tdContextConvertIntoMetaFile
testcase tiModifyConvertToPolygon
- Dim PosX as string
- Dim PosY as string
- Dim Maxanzahl as string
- Dim Minanzahl as string
+ Dim PosX as string
+ Dim PosY as string
+ Dim Maxanzahl as string
+ Dim Minanzahl as string
- Call hNewDocument
- sleep 3
- hTextrahmenErstellen ("This is a text that will be transformed into a Polygon-object", 10,10,60,30)
- sleep 1
- hTypeKeys "<Escape>"
- sleep 1
- EditSelectAll
- sleep 1
- ContextConvertIntoPolygon
- sleep 1
- ContextPositionAndSize
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- PosX = Width.GetText
- PosY = Height.GetText
- TabPositionAndSize.OK
- sleep 1
- FormatCharacter
- Kontext
- Active.SetPage TabFont
- Kontext "TabFont"
- sleep 1
- try
- Size.SetText "96"
- catch
- if (gAsianSup OR gCTLSup) then
+ Call hNewDocument
+ sleep 3
+ hTextrahmenErstellen ("This is a text that will be transformed into a Polygon-object", 10,10,60,30)
+ sleep 1
+ hTypeKeys "<Escape>"
+ sleep 1
+ EditSelectAll
+ sleep 1
+ ContextConvertIntoPolygon
+ sleep 1
+ ContextPositionAndSize
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ PosX = Width.GetText
+ PosY = Height.GetText
+ TabPositionAndSize.OK
+ sleep 1
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ sleep 1
+ try
+ Size.SetText "96"
+ catch
+ if (gAsianSup OR gCTLSup) then
try
- SizeWest.SetText "96"
+ SizeWest.SetText "96"
catch
- Warnlog "Asian or ctl support is enabled, but Size of font is not accessable :-("
+ Warnlog "Asian or ctl support is enabled, but Size of font is not accessable :-("
endcatch
- else
+ else
Warnlog "Asian or ctl support is NOT enabled, but Size of font is not accessable :-("
try
- SizeWest.SetText "96"
- qaErrorLog "SizeWest. works"
+ SizeWest.SetText "96"
+ qaErrorLog "SizeWest. works"
catch
endcatch
try
- SizeEast.SetText "96"
- qaErrorLog "SizeEast. works"
+ SizeEast.SetText "96"
+ qaErrorLog "SizeEast. works"
catch
endcatch
try
- Size.SetText "96"
- qaErrorLog "Size. works"
+ Size.SetText "96"
+ qaErrorLog "Size. works"
catch
endcatch
try
- SizeCTL.SetText "96"
- qaErrorLog "SizeCTL. works"
+ SizeCTL.SetText "96"
+ qaErrorLog "SizeCTL. works"
catch
endcatch
- endif
- endcatch
- TabFont.OK
- sleep 1
- ContextPositionAndSize
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if ( Width.GetText = PosX or Height.GetText = PosY ) Then
- Printlog "- Text converted into polygon"
- else
- Warnlog "- Convert into polygon does not work."
- end if
- TabPositionAndSize.OK
- sleep 1
+ endif
+ endcatch
+ TabFont.OK
+ sleep 1
+ ContextPositionAndSize
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ '/// compare width and heigth to control is it is still text ///'
+ if ( Width.GetText = PosX or Height.GetText = PosY ) Then
+ Printlog "- Text converted into polygon"
+ else
+ Warnlog "- Convert into polygon does not work."
+ end if
+ TabPositionAndSize.OK
+ sleep 1
Call hCloseDocument
- Printlog "-------------------------------------------------end"
-
- Call hNewDocument
- sleep 3
- Call hGrafikEinfuegen ConvertPath ( gTesttoolPath + "global\input\graf_inp\enter.bmp" )
- sleep 3
- ContextConvertIntoPolygon
- Kontext "UmwandelnInPolygon"
- Farbanzahl.ToMax
- MaxAnzahl = Farbanzahl.GetText
- Farbanzahl.More 1
- If Maxanzahl < Farbanzahl.GetText Then Warnlog "- Maximum value could be raised."
- MinAnzahl = Farbanzahl.GetText
- If Farbanzahl.GetText < Minanzahl then Warnlog "- Minimum value could be lowered."
- Farbanzahl.SetText "2"
- Vorschau.Click
- sleep 5
- UmwandelnInPolygon.OK
- sleep 5
- Printlog "- object vectorized."
- 'TBO: verify nasty bug about asian/ctl support
- ToolsOptions
- call hToolsOptions ("Languagesettings", "Languages")
- printlog "Asian: '" + Aktivieren.IsChecked + "'"
- printlog "CTL : '" + ComplexScriptEnabled.IsChecked + "'"
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
- '-----------------------------------------------
- Call hCloseDocument
-endcase
+ Printlog "-------------------------------------------------end"
+ Call hNewDocument
+ sleep 3
+ '/// insert graphic (input\\impress\\grafik\\sample.bmp)///'
+ Call hGrafikEinfuegen ConvertPath ( gTesttoolPath + "global\input\graf_inp\enter.bmp" )
+ sleep 3
+ ContextConvertIntoPolygon
+ Kontext "UmwandelnInPolygon"
+ Farbanzahl.ToMax
+ MaxAnzahl = Farbanzahl.GetText
+ Farbanzahl.More 1
+ If Maxanzahl < Farbanzahl.GetText Then Warnlog "- Maximum value could be raised."
+ Farbanzahl.ToMin '/// set color to min ///'
+ MinAnzahl = Farbanzahl.GetText
+ Farbanzahl.Less 1 '/// try to set a value lower than minimum ///'
+ If Farbanzahl.GetText < Minanzahl then Warnlog "- Minimum value could be lowered."
+ Farbanzahl.SetText "2"
+ Vorschau.Click
+ sleep 5
+ UmwandelnInPolygon.OK
+ sleep 5
+ Printlog "- object vectorized."
+ 'TBO: verify nasty bug about asian/ctl support
+ ToolsOptions
+ call hToolsOptions ("Languagesettings", "Languages")
+ printlog "Asian: '" + Aktivieren.IsChecked + "'"
+ printlog "CTL : '" + ComplexScriptEnabled.IsChecked + "'"
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+ '-----------------------------------------------
+ Call hCloseDocument
+
+endcase 'tiModifyConvertToPolygon
+'--------------------------------------------------------
testcase tdContextConvertIntoBitmap
- sleep 3
- sleep 3
- kontext "Active"
- if Active.Exists Then
- Active.OK
- end if
- sleep 5
- Kontext "GrafikEinfuegenDlg"
- sleep 2
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
- sleep 2
- Oeffnen.Click
- sleep 2
- Kontext "Active"
+
+ Call hNewDocument '/// new document ///'
+ sleep 3
+ InsertGraphicsFromFile '/// insert graphic ///'
+ sleep 3
+ kontext "Active"
if Active.Exists Then
- Warnlog Active.GetText + ", Test will end here because of problems putting graphics into the document"
- Active.OK
- sleep 2
- Call hCloseDocument
- goto endsub
+ Active.OK
end if
- Kontext "DocumentImpress"
- try
+ sleep 5
+ Kontext "GrafikEinfuegenDlg"
+ sleep 2
+'/// uses input\\impress\\grafik\\columbia.dxf ///
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
+ sleep 2
+ Oeffnen.Click
+ sleep 2
+ Kontext "Active"
+ if Active.Exists Then
+ Warnlog Active.GetText + ", Test will end here because of problems putting graphics into the document"
+ Active.OK
+ sleep 2
+ Call hCloseDocument
+ goto endsub
+ end if
+ Kontext "DocumentImpress"
+ try
+ ContextConvertIntoBitmap '/// convert dxf file to bitmap ///'
sleep 1
Printlog "- Convert into bitmap works"
- catch
+ catch
Warnlog "- Convert into bitmap does not work"
- endcatch
- sleep 2
-endcase
-
+ endcatch
+ sleep 2
+ Call hCloseDocument '/// close document ///'
+
+endcase 'tdContextConvertIntoBitmap
+'--------------------------------------------------------
testcase tiAendernUmwandelnInKurve
+
Printlog " ----- ContextConvertIntoCurve testen"
+ Call hNewDocument '/// New impress document///'
- sleep 2
- Kontext "DocumentImpress"
- sleep 2
- sleep 2
- sleep 3
- gMouseClick 30,15
+ Call hTextrahmenErstellen ("I test,test,test,test only, if it works for you",20,20,60,30) '/// create textbox///'
+ sleep 2
+ Kontext "DocumentImpress"
+ gMouseDoubleClick 70,70 '/// deselect textbox ///'
+ sleep 2
+ EditSelectAll '/// select textbox ///'
+ sleep 2
+ ContextConvertIntoCurve '/// convert into curve ///'
+ sleep 3
+ gMouseClick 30,15
- try
+ hTypeKeys "<SHIFT RIGHT>",3 '/// try to select 3 letters ///'
+ try
+ EditCopy '/// try edit copy to check if its still text ///'
Warnlog " - Convert into curve, seperate letters should not be selectable anymore"
- catch
+ catch
Printlog " - Text converted into a curve"
- endcatch
-
-endcase
+ endcatch
+ Call hCloseDocument '/// close document ///'
+
+endcase 'tiAendernUmwandelnInKurve
+'--------------------------------------------------------
testcase tiAendernUmwandelnInPolygonGrafik
+
Printlog "- Context/ConvertIntoPolygon"
+ Call hNewDocument '/// new document ///'
+ InsertGraphicsFromFile '/// insert graphic (desp.bmp) ///'
- Kontext "GrafikEinfuegenDlg"
- Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\desp.bmp" )
- Oeffnen.Click
- sleep 3
- Kontext "DocumentImpress"
- EditSelectAll
- sleep 1
-
- Kontext "UmwandelnInPolygon"
- Printlog "- Testing vectorize dialog"
- if Farbanzahl.GetText <> "32" Then Warnlog "- Maximum value for color depth should be 32, but it is: " + Farbanzahl.GetText
- sleep 1
- if Farbanzahl.GetText <> "8" Then Warnlog "- Minimum value for color depth should be 8 but it is: " + Farbanzahl.GetText
- sleep 2
- sleep 2
- if Punktreduktion.GetText <> "32 Pixel" Then Warnlog "- Maximum value should be 32, but it is: " + Punktreduktion.GetText
- sleep 1
- sleep 1
- if Punktreduktion.GetText <> "0 Pixel" Then Warnlog "- Minimum value should be 0, but it is: " + Punktreduktion.GetText
- if Not Kachelgroesse.IsEnabled Then
- Printlog "- Control disabled."
- else
- Warnlog "- Control should be disabled if Fill is not checked."
- end if
- sleep 2
- sleep 5
-endcase
+ Kontext "GrafikEinfuegenDlg"
+ '///use graphic : input\\impress\\grafik\\desp.bmp ///
+ Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\desp.bmp" )
+ Oeffnen.Click
+ sleep 3
+ Kontext "DocumentImpress"
+ EditSelectAll
+ sleep 1
+ ContextConvertIntoPolygon '/// convert into polygon ///'
+ Kontext "UmwandelnInPolygon"
+ Printlog "- Testing vectorize dialog"
+ Farbanzahl.ToMax '/// set number of colors to max ///'
+ if Farbanzahl.GetText <> "32" Then Warnlog "- Maximum value for color depth should be 32, but it is: " + Farbanzahl.GetText
+ Farbanzahl.ToMin '/// set number of colors to min ///'
+ sleep 1
+ if Farbanzahl.GetText <> "8" Then Warnlog "- Minimum value for color depth should be 8 but it is: " + Farbanzahl.GetText
+ sleep 2
+ Punktreduktion.SetText "50" '/// set point reduction to 50 ///'
+ sleep 2
+ if Punktreduktion.GetText <> "32 Pixel" Then Warnlog "- Maximum value should be 32, but it is: " + Punktreduktion.GetText
+ sleep 1
+ Punktreduktion.SetText "-50" '/// set an out of range value ///'
+ sleep 1
+ if Punktreduktion.GetText <> "0 Pixel" Then Warnlog "- Minimum value should be 0, but it is: " + Punktreduktion.GetText
+ Loecherfuellen.Uncheck '/// uncheck fill holes ///'
+ if Not Kachelgroesse.IsEnabled Then
+ Printlog "- Control disabled."
+ else
+ Warnlog "- Control should be disabled if Fill is not checked."
+ end if
+ Vorschau.Click '/// open preview ///'
+ sleep 2
+ UmwandelnInPolygon.OK '/// close dialog ///'
+ sleep 5
+ Call hCloseDocument '/// close document ///'
+
+endcase 'tiAendernUmwandelnInPolygonGrafik
+'--------------------------------------------------------
testcase tiAendernUmwandelnIn3D
- Printlog "- Convert into 3D"
- Call hNewDocument
- sleep 2
- gMouseclick 35,35
- sleep 1
- try
- Printlog "- Convert into 3D works"
- catch
- Warnlog "- Convert into 3D does not work"
- endcatch
-endcase
+ Printlog "- Convert into 3D"
+ Call hNewDocument
+ sleep 1 '/// new impress document ///'
+ hRechteckErstellen (10,10,40,40) '/// create rectangle ///'
+ '/// convert into 3D ///'
+ sleep 2
+ gMouseclick 35,35
+ sleep 1
+ try
+ ContextConvertInto3D '/// try to access convert ito 3d a 2nd time, should be impossible using a 3d object as source ///'
+ Printlog "- Convert into 3D works"
+ catch
+ Warnlog "- Convert into 3D does not work"
+ endcatch
+ Call hCloseDocument '/// close document '///
+
+endcase 'tiAendernUmwandelnIn3D
+'--------------------------------------------------------
testcase tiAendernUmwandelnIn3DRotationskoerper
- Printlog "- ConvertInto3DRotationobject"
- Dim PosX
- Dim PosY
- Kontext "DocumentImpress"
- sleep 1
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- PosX = PositionX.GetText
- PosY = PositionY.GetText
- TabPositionAndSize.OK
- sleep 1
- Kontext "DocumentImpress"
- sleep 2
- ContextPositionAndSize
- Kontext
- Kontext "TabPositionAndSize"
- if PositionX.GetText = PosX and PositionY.GetText = PosY Then Warnlog "- No change in position or dimension, converting seemd not to work"
- TabPositionAndSize.OK
- sleep 1
-endcase
+ Printlog "- ConvertInto3DRotationobject"
+ Dim PosX
+ Dim PosY
+ Call hNewDocument '/// new document '///
+ Kontext "DocumentImpress"
+ hRechteckErstellen (20,20,50,50) '/// create rectangle ///'
+ sleep 1
+ ContextPositionAndSize '/// get position values for the rectangle ///'
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ PosX = PositionX.GetText
+ PosY = PositionY.GetText
+ TabPositionAndSize.OK
+ sleep 1
+ Kontext "DocumentImpress"
+ ContextConvertInto3DRotationObject '/// convert into 3d lathe object ///'
+ sleep 2
+ ContextPositionAndSize
+ Kontext
+ Active.SetPage TabPositionAndSize '/// control changes in position values to confirm convert action ///'
+ Kontext "TabPositionAndSize"
+ if PositionX.GetText = PosX and PositionY.GetText = PosY Then Warnlog "- No change in position or dimension, converting seemd not to work"
+ TabPositionAndSize.OK
+ sleep 1
+ Call hCloseDocument '/// close document ///'
+
+endcase 'tiAendernUmwandelnIn3DRotationskoerper
+'--------------------------------------------------------
testcase tiAendernUmwandelnInMetaFile
- Printlog "- ConvertIntoMetaFile"
+ Printlog "- ConvertIntoMetaFile"
+
+ Call hNewDocument '/// new document ///'
sleep 3
+ InsertGraphicsFromFile '/// insert graphic ///'
sleep 1
kontext "Active"
sleep 1
if Active.Exists Then
- Active.OK
+ Active.OK
end if
sleep 1
Kontext "GrafikEinfuegenDlg"
sleep 2
+ '/// uses input\\impress\\grafik\\desp.gif") ///
Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\purzel.gif")
sleep 2
Oeffnen.Click
sleep 5
Kontext "DocumentImpress"
try
+ ContextConvertIntoMetafile '/// convert bitmap into metafile ///'
sleep 2
Printlog "- Convert into Metafile does work"
catch
Warnlog "- Convert into Metafile does not work"
endcatch
sleep 2
-endcase
+ Call hCloseDocument '/// close document ///'
+
+endcase 'tiAendernUmwandelnInMetaFile
diff --git a/testautomation/graphics/optional/includes/global/g_crossfading.inc b/testautomation/graphics/optional/includes/global/g_crossfading.inc
index 4872c36..86b7804 100755
--- a/testautomation/graphics/optional/includes/global/g_crossfading.inc
+++ b/testautomation/graphics/optional/includes/global/g_crossfading.inc
@@ -49,144 +49,224 @@ testcase tCrossfading
dim CounterForX as integer
dim anothercounter as integer
+ Call hNewDocument '/// New Impress document ///'
gMouseClick 50,50
- sleep 1
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
gMouseClick 90,90
- sleep 1
- sleep 1
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ sleep 1
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
kontext "Ueberblenden"
X = Schritte.GetText ' /// Get counter-value and save it in X ///'
printlog "Steps before we start the test: " + X
printlog "Schritte.GetText= " + Schritte.GetText
-
+
Schritte.ToMin
if Schritte.GetText <> "1" then qaerrorlog "Could not change the step-number to 1."
- for I = 2 to 10 ' /// How many steps do you want? ///'
- Schritte.More 1
+ for I = 2 to 10 ' /// How many steps do you want? ///'
+ Schritte.More 1
if Schritte.GetText <> I then qaerrorlog "Could not change the step-number to" + I
Ueberblenden.OK
sleep 1
- try
- catch
- qaerrorlog "Could not ungroup objects"
- endcatch
- sleep 1
-
- try
- ContextPositionAndSize
- catch
- qaerrorlog "Couldnt call 'ContextPositionAndSize' - No object selected?"
- endcatch
- kontext
- active.SetPage TabPositionAndSize
- sleep 1
- kontext "TabPositionAndSize"
- if TabPositionAndSize.exists (5) then
- CounterForX=0
- CheckX=0
- TabPositionAndSize.OK
- else
- qaerrorlog "Couldn't switch tab page :-( "
- endif
-
-
-
- if Y > anothercounter then warnlog "Too many steps, something is wrong."
- try
- catch
- errolog "Could not step to the next object"
- endcatch
- ' Printlog "- Get position and dimensions of elements"
- sleep 1
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- sleep 1
- TabPositionAndSize.OK
- Kontext "DocumentDraw"
- if anothercounter = CounterForX then printlog "The first box is at: " + CheckX + " And we're now at " + FirstX + " = Correct steps between the objects, everything's fine."
- printlog "Number of objects: " + anothercounter
- printlog ""
- endif
+ try
+ FormatUngroupDraw '/// open context menu and ungroup objects ///'
+ catch
+ qaerrorlog "Could not ungroup objects"
+ endcatch
+ sleep 1
+ hTypeKeys "<TAB>" '/// Should make the first object active ///'
+
+ '/// Get position and dimensions of elements ///'
+ try
+ ContextPositionAndSize
+ catch
+ qaerrorlog "Couldnt call 'ContextPositionAndSize' - No object selected?"
+ endcatch
+ kontext
+ active.SetPage TabPositionAndSize
+ sleep 1
+ kontext "TabPositionAndSize"
+ if TabPositionAndSize.exists (5) then
+ CounterForX=0
+ CheckX=0
+ FirstX=PositionX.GetText '/// Tet Dimensions of first object ///'
+ TabPositionAndSize.OK
+ else
+ qaerrorlog "Couldn't switch tab page :-( "
+ endif
- sleep 1
- gMouseClick 90,90
- sleep 1
- sleep 1
- sleep 2
- kontext "Ueberblenden"
- next I
+anothercounter = I+2 '/// How many objects we have on the screen ///'
- for Z = 1 to X -1
- next Z
- printlog "Value has been restored to: " + Schritte.GetText
- printlog "X is now: " + X
- Attributierung.UnCheck
- Ueberblenden.OK
- sleep 1
- Kontext "DocumentDraw"
- sleep 1
- gMouseClick 90,90
- sleep 1
- Kontext "Ueberblenden"
- if Attributierung.IsChecked = TRUE then qaerrorlog "Attributierung / was NOT unchecked."
- sleep 1
- Kontext "DocumentDraw"
- sleep 1
- gMouseClick 90,90
- sleep 1
- Kontext "Ueberblenden"
- if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT unchecked."
- sleep 1
- Kontext "DocumentDraw"
- sleep 1
- sleep 1
- gMouseClick 90,90
- sleep 1
- Kontext "Ueberblenden"
- if Attributierung.IsChecked = FALSE then qaerrorlog "Attributierung / was NOT checked again."
- Ueberblenden.OK
- sleep 1
- Kontext "DocumentDraw"
- sleep 1
- gMouseClick 90,90
- sleep 1
- Kontext "Ueberblenden"
- if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT checked again."
- sleep 1
- Kontext "DocumentDraw"
- gMouseClick 90,90
- sleep 1
- Kontext "Ueberblenden"
- if GleicheOrientierung.IsChecked = FALSE then qaerrorlog "GleicheOrientierung / was NOT checked again."
- sleep 1
+ for Y = 1 to anothercounter '/// How many times we should step to (hopefully) get back to the first one ///'
+ if Y > anothercounter then warnlog "Too many steps, something is wrong."
+ try
+ hTypeKeys "<TAB>" '/// Step to the next object ///'
+ catch
+ errolog "Could not step to the next object"
+ endcatch
+' Printlog "- Get position and dimensions of elements"
+ ContextPositionAndSize '/// Open Position and Size for this object ///'
+ sleep 1
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ CheckX=PositionX.GetText '/// Get Position X for this object ///'
+ sleep 1
+ TabPositionAndSize.OK
+ Kontext "DocumentDraw"
+ CounterForX=CounterForX+1 '/// Up one on the object-counter ///'
+ if CheckX=FirstX then '/// Check if Position is the same as the first one ///'
+ if anothercounter = CounterForX then printlog "The first box is at: " + CheckX + " And we're now at " + FirstX + " = Correct steps between the objects, everything's fine."
+ printlog "We should have " + Y + " objects to go through." '/// Just here for debugging. - FHA
+' printlog "anothercounter= " + anothercounter '/// Just here for debugging. - FHA
+ printlog "Number of objects: " + anothercounter
+ printlog ""
+ endif
+ next Y '/// End or go on with the checking-loop ///'
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create rectangle ///'
+ sleep 1
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ sleep 2
+ kontext "Ueberblenden"
+ next I
- sleep 1
- gMouseClick 90,90
- gMouseClick 90,90
- sleep 1
- sleep 1
- try
- sleep 2
- If active = "Ueberblenden" then
- qaerrorlog "CrossFading should NOT be selectable since more than two objects is selected."
- kontext "Ueberblenden"
- endif
- sleep 2
- Kontext "DocumentDraw"
- catch
- printlog "CrossFading could not be selected when more than two objects selected: Correct."
- endcatch
+ '/// And now we're gonna check if we can separate the object into it's parts ///'
+ '/// And check if the numbers of steps / objects is correct ///'
- try
- catch
- warnlog "Could not select and delete all objects."
- endcatch
+ Schritte.ToMin '/// Select minimum value for number of steps ///'
+ for Z = 1 to X -1
+ Schritte.More '/// Raise the value for number of steps with one ///'
+ next Z
+ printlog "Value has been restored to: " + Schritte.GetText
+ printlog "X is now: " + X
+ Attributierung.UnCheck
+ Ueberblenden.OK
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ Kontext "Ueberblenden"
+ if Attributierung.IsChecked = TRUE then qaerrorlog "Attributierung / was NOT unchecked."
+ GleicheOrientierung.UnCheck '/// Uncheck "same orienation" ///' -????
+ Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ Kontext "Ueberblenden"
+ if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT unchecked."
+ Attributierung.Check '/// Check "Attributing" ///' - ???
+ Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ Kontext "Ueberblenden"
+ if Attributierung.IsChecked = FALSE then qaerrorlog "Attributierung / was NOT checked again."
+ GleicheOrientierung.UnCheck '/// Check "same orientation" ///' -????
+ Ueberblenden.OK
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ Kontext "Ueberblenden"
+ if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT checked again."
+ GleicheOrientierung.Check '/// Check "same orientation" ///' -????
+ Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ Kontext "Ueberblenden"
+ if GleicheOrientierung.IsChecked = FALSE then qaerrorlog "GleicheOrientierung / was NOT checked again."
+ GleicheOrientierung.Check '/// Check "same orientation" ///' -????
+ Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ sleep 1
+
+ Kontext "DocumentDraw" '/// EditCrossFading should not be enabled if more than two objects is selected. ///'
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 20, 20, 50, 50 ) '/// Create third rectangle ///'
+ sleep 1
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ try
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ sleep 2
+ If active = "Ueberblenden" then
+ qaerrorlog "CrossFading should NOT be selectable since more than two objects is selected."
+ kontext "Ueberblenden"
+ Ueberblenden.CANCEL '/// Close CrossFading-window with "CANCEL" ///'
+ endif
+ sleep 2
+ Kontext "DocumentDraw"
+ catch
+ printlog "CrossFading could not be selected when more than two objects selected: Correct."
+ endcatch
- printlog "End of test"
+ try
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ catch
+ warnlog "Could not select and delete all objects."
+ endcatch
-endcase
+ printlog "End of test"
+ Call hCloseDocument '/// Close document ///'
+
+endcase 'tCrossfading
diff --git a/testautomation/graphics/optional/includes/global/g_customshapes.inc b/testautomation/graphics/optional/includes/global/g_customshapes.inc
index 575b131..a79d866 100755
--- a/testautomation/graphics/optional/includes/global/g_customshapes.inc
+++ b/testautomation/graphics/optional/includes/global/g_customshapes.inc
@@ -39,761 +39,815 @@
' #1 tCustomshapes
' #1 tFormatPaintbrush
'\********************************************************************
-
testcase tCustomshapes
- dim counter as Integer
- dim MakeInto3Dcounter as Integer
- Call hNewDocument
- if gApplication = "DRAW" then
+ dim counter as Integer
+ dim MakeInto3Dcounter as Integer
+
+ '/// Create new document ///'
+ Call hNewDocument
+ if gApplication = "DRAW" then
Kontext "Documentdraw"
- else '(Impress)
+ else '(Impress)
Kontext "DocumentImpress"
- endif
- kontext "Toolbar"
- sleep 1
- printlog "insert a Smiley."
- kontext "Toolbar"
- if Toolbar.Exists then
+ endif
+ kontext "Toolbar"
+ sleep 1
+ printlog "insert a Smiley."
+ '/// From the toolbar: Insert three objects: ///'
+ '/// insert a Smiley. ///'
+ kontext "Toolbar"
+ if Toolbar.Exists then
if Toolbar.IsVisible then
- sleep 1
- try
- SymbolShapes.TearOff
- catch
- warnlog "bug for GH from FHA; .tearoff doesnt tell success"
- endcatch
- sleep 1
- kontext "SymbolShapes"
- SymbolShapesSmiley.Click
- sleep 1
-
- gMouseDown (40,40)
- gMouseMove (40,40,60,60)
- gMouseUp (60,60)
-
- sleep 1
- kontext "SymbolShapes"
- SymbolShapes.Close
-
- hTypeKeys "<ESCAPE>"
-
- hTypeKeys "<TAB>"
-
- printlog "Rename the object to 'First'."
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
- Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- kontext "NameDlgObject"
- NameField.SetText "First"
- NameDlgObject.OK
-
- printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
- Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- kontext "DescriptionObject"
- DescriptionTitle.SetText "FirstTitle"
- DescriptionText.SetText "FirstText"
- DescriptionObject.Ok
+ sleep 1
+ try
+ SymbolShapes.TearOff
+ catch
+ warnlog "bug for GH from FHA; .tearoff doesnt tell success"
+ endcatch
+ sleep 1
+ kontext "SymbolShapes"
+ SymbolShapesSmiley.Click
+ sleep 1
+
+ gMouseDown (40,40)
+ gMouseMove (40,40,60,60)
+ gMouseUp (60,60)
+
+ sleep 1
+ kontext "SymbolShapes"
+ SymbolShapes.Close
+
+ '/// Unmark all objects ///'
+ hTypeKeys "<ESCAPE>"
+
+ '/// Mark the Smiley ///'
+ hTypeKeys "<TAB>"
+
+ printlog "Rename the object to 'First'."
+ '/// Rename the object to 'First' ///"
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
+ Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ kontext "NameDlgObject"
+ NameField.SetText "First"
+ NameDlgObject.OK
+
+ printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'"
+ '/// Open the Context-menu and set the description of the object to 'First' ///"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
+ Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ kontext "DescriptionObject"
+ DescriptionTitle.SetText "FirstTitle"
+ DescriptionText.SetText "FirstText"
+ DescriptionObject.Ok
else
- warnlog "the Toolbar wasnt visible."
+ warnlog "the Toolbar wasnt visible."
endif
- else
+ else
warnlog "the Toolbar didnt exist."
- endif
- gMouseClick 90, 90
+ endif
+ gMouseClick 90, 90
- printlog "Insert a Triangle."
- kontext "Toolbar"
- if Toolbar.Exists then
+ printlog "Insert a Triangle."
+ '/// Insert a Triangle ///'
+ kontext "Toolbar"
+ if Toolbar.Exists then
if Toolbar.IsVisible then
- try
- BasicShapes.TearOff
- catch
- warnlog "bug for GH from FHA; .tearoff doesnt tell success"
- endcatch
- kontext "BasicShapes"
- sleep 1
- IsoscelesTriangle.click
- sleep 1
-
- gMouseDown (45,33)
- gMouseMove (45,33,55,42)
- gMouseUp (55,42)
- sleep 1
- kontext "BasicShapes"
- BasicShapes.Close
- sleep 1
-
- hTypeKeys "<ESCAPE>"
- hTypeKeys "<TAB>", 2
-
- printlog "Rename the object into 'Second'."
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
- Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
-
- sleep 1
- kontext "NameDlgObject"
- NameField.SetText "Second"
- NameDlgObject.OK
-
- printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'."
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
- Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- kontext "DescriptionObject"
- DescriptionTitle.SetText "SecondTitle"
- DescriptionText.SetText "SecondText"
- DescriptionObject.Ok
- else
- warnlog "the Toolbar wasnt visible."
+ try
+ BasicShapes.TearOff
+ catch
+ warnlog "bug for GH from FHA; .tearoff doesnt tell success"
+ endcatch
+ kontext "BasicShapes"
+ sleep 1
+ IsoscelesTriangle.click
+ sleep 1
+
+ gMouseDown (45,33)
+ gMouseMove (45,33,55,42)
+ gMouseUp (55,42)
+ sleep 1
+ kontext "BasicShapes"
+ BasicShapes.Close
+ sleep 1
+
+ '/// Unmark all objects ///'
+ hTypeKeys "<ESCAPE>"
+ '/// Mark the Triangle ///'
+ hTypeKeys "<TAB>", 2
+
+ printlog "Rename the object into 'Second'."
+ '/// Rename the object into 'Second'. ///'
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
+ Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+
+ sleep 1
+ kontext "NameDlgObject"
+ NameField.SetText "Second"
+ NameDlgObject.OK
+
+ printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'."
+ '/// Open the Context-menu and set the description of the object to 'SecondTitle' and 'SecondText' ///"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
+ Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ kontext "DescriptionObject"
+ DescriptionTitle.SetText "SecondTitle"
+ DescriptionText.SetText "SecondText"
+ DescriptionObject.Ok
+ else
+ warnlog "the Toolbar wasnt visible."
endif
- else
+ else
warnlog "the Toolbar didnt exist."
- endif
- gMouseClick 90, 90
+ endif
+ gMouseClick 90, 90
- printlog "Insert Thinking-cloud."
- kontext "Toolbar"
- if Toolbar.Exists then
+ printlog "Insert Thinking-cloud."
+ '/// Insert Thinking-cloud. ///'
+ kontext "Toolbar"
+ if Toolbar.Exists then
if Toolbar.IsVisible then
- sleep 1
- try
- CalloutShapes.TearOff ' insert Thinking-cloud
- catch
- warnlog "bug for GH from FHA; .tearoff doesnt tell success"
- endcatch
- kontext "Callouts"
- sleep 1
- Cloud.click
- sleep 1
-
- gMouseDown (1,1)
- gMouseMove (1,1,35,30)
- gMouseUp (35,30)
- sleep 1
-
- kontext "Callouts"
- Callouts.Close
- sleep 1
-
- hTypeKeys "<ESCAPE>"
- hTypeKeys "<TAB>", 3
-
- printlog "Rename the object to 'Third'."
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
- Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- Kontext "NameDlgObject"
- NameField.SetText "Third"
- NameDlgObject.OK
-
- printlog "Set the object -Title/Description to 'ThirdTitle' and 'ThirdText'."
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
- Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- kontext "DescriptionObject"
- DescriptionTitle.SetText "ThirdTitle"
- DescriptionText.SetText "ThirdText"
- DescriptionObject.Ok
- else
- warnlog "the Toolbar wasnt visible."
+ sleep 1
+ try
+ CalloutShapes.TearOff ' insert Thinking-cloud
+ catch
+ warnlog "bug for GH from FHA; .tearoff doesnt tell success"
+ endcatch
+ kontext "Callouts"
+ sleep 1
+ Cloud.click
+ sleep 1
+
+ gMouseDown (1,1)
+ gMouseMove (1,1,35,30)
+ gMouseUp (35,30)
+ sleep 1
+
+ kontext "Callouts"
+ Callouts.Close
+ sleep 1
+
+ '/// Unmark all objects ///'
+ hTypeKeys "<ESCAPE>"
+ '/// Mark the cloud ///'
+ hTypeKeys "<TAB>", 3
+
+ printlog "Rename the object to 'Third'."
+ '/// Rename the object to 'Third'. ///'
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
+ Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ Kontext "NameDlgObject"
+ NameField.SetText "Third"
+ NameDlgObject.OK
+
+ printlog "Set the object -Title/Description to 'ThirdTitle' and 'ThirdText'."
+ '/// Open the Context-menu and set the description of the object to 'First' ///"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
+ Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ kontext "DescriptionObject"
+ DescriptionTitle.SetText "ThirdTitle"
+ DescriptionText.SetText "ThirdText"
+ DescriptionObject.Ok
+ else
+ warnlog "the Toolbar wasnt visible."
endif
- else
+ else
warnlog "the Toolbar didnt exist."
- endif
- gMouseClick 90, 90
+ endif
+ gMouseClick 90, 90
- printlog "Change all objects into 3D."
- if gApplication = "DRAW" then
+ printlog "Change all objects into 3D."
+ '/// Change all objects into 3D. ///'
+ if gApplication = "DRAW" then
Kontext "Documentdraw"
- else '(Impress)
+ else '(Impress)
Kontext "DocumentImpress"
- endif
- For MakeInto3Dcounter = 1 to 3
- hTypeKeys "<TAB>", MakeInto3Dcounter
- kontext "Toolbar"
- if Toolbar.Exists then
- if Toolbar.IsVisible then
- if ExtrusionOnOff.Exists then
- ExtrusionOnOff.Click
- sleep (3)
- else
- sleep (1)
- Toolbar.OpenContextMenu ' enable forms button in menuebar
- sleep (1)
- hMenuselectNr (1)
- sleep (1)
- if hMenuFindSelect(1024, true, 25) = false then
- Warnlog "Context-Menu-entry `Extrusion On/Off` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- sleep (1)
- kontext "Toolbar"
- ExtrusionOnOff.Click
- sleep (3)
- endif
- Kontext "ExtrusionObjectBar"
- if ExtrusionObjectBar.Exists then
- if ExtrusionObjectBar.IsVisible then
- printlog " Objects got converted into Extrusion-objects, correct."
- else
- warnlog " No Extrusion-toolbar visible. Eventually a problem making objects into Extrusion-Objects."
- endif
- endif
- endif
- else
- warnlog " the 'Toolbar' -Toolbar didnt exist."
- endif
- sleep (1)
- hTypeKeys "<ESCAPE>"
- Next MakeInto3Dcounter
-
- printlog "See if the objects still are Custom Shapes."
- gMouseClick 90, 1
- hTypeKeys "<TAB><TAB><TAB>"
-
- hTypeKeys "<MOD1 TAB>" ,9
- if gApplication = "IMPRESS" then
+ endif
+ For MakeInto3Dcounter = 1 to 3
+ hTypeKeys "<TAB>", MakeInto3Dcounter
+ kontext "Toolbar"
+ if Toolbar.Exists then
+ if Toolbar.IsVisible then
+ if ExtrusionOnOff.Exists then
+ ExtrusionOnOff.Click
+ sleep (3)
+ else
+ sleep (1)
+ Toolbar.OpenContextMenu ' enable forms button in menuebar
+ sleep (1)
+ hMenuselectNr (1)
+ sleep (1)
+ if hMenuFindSelect(1024, true, 25) = false then
+ Warnlog "Context-Menu-entry `Extrusion On/Off` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ sleep (1)
+ kontext "Toolbar"
+ ExtrusionOnOff.Click
+ sleep (3)
+ endif
+ Kontext "ExtrusionObjectBar"
+ if ExtrusionObjectBar.Exists then
+ if ExtrusionObjectBar.IsVisible then
+ printlog " Objects got converted into Extrusion-objects, correct."
+ else
+ warnlog " No Extrusion-toolbar visible. Eventually a problem making objects into Extrusion-Objects."
+ endif
+ endif
+ endif
+ else
+ warnlog " the 'Toolbar' -Toolbar didnt exist."
+ endif
+ sleep (1)
+ hTypeKeys "<ESCAPE>"
+ Next MakeInto3Dcounter
+
+ printlog "See if the objects still are Custom Shapes."
+ '/// See if the objects still are Custom Shapes ///'
+ '/// We do so by moving the lower part of the the thinking-cloud. ///'
+ gMouseClick 90, 1
+ hTypeKeys "<TAB><TAB><TAB>"
+
+ hTypeKeys "<MOD1 TAB>" ,9
+ if gApplication = "IMPRESS" then
hTypeKeys "<RIGHT>" ,86
hTypeKeys "<UP>", 48
- else
+ else
hTypeKeys "<RIGHT>" ,131
hTypeKeys "<UP>" ,53
- endif
- sleep 1
-
- gMouseClick 90, 1
- hTypeKeys "<TAB>"
-
- printlog "Check the name of the selected object (should be 'First')"
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
+ endif
+ sleep 1
+
+ gMouseClick 90, 1
+ hTypeKeys "<TAB>"
+
+ printlog "Check the name of the selected object (should be 'First')"
+ '/// Check the name of the selected object (should be 'First') ///'
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
+ endif
- sleep 1
- kontext "NameDlgObject"
- if NameField.GetText <> "First" then
+ sleep 1
+ kontext "NameDlgObject"
+ if NameField.GetText <> "First" then
warnlog " Wrong object. Should have been the first, but was the " + NameField.GetText
- else
+ else
Printlog " The first object still had the correct name, good."
- endif
- NameDlgObject.OK
-
- printlog "Open the Context-menu and check if the description of the object is right"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
+ endif
+ NameDlgObject.OK
+
+ printlog "Open the Context-menu and check if the description of the object is right"
+ '/// Open the Context-menu and check if the description of the object is right ///"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
- kontext "DescriptionObject"
- if DescriptionTitle.GetText <> "FirstTitle" then
- Warnlog " The description-title for the first object were not 'FirstTitle', but: " + DescriptionTitle.GetText
- endif
- if DescriptionText.GetText <> "FirstText" then
- Warnlog " The description-text for the first object were not 'FirstText', but: " + DescriptionText.GetText
- endif
- DescriptionObject.Ok
-
- Kontext "ExtrusionObjectBar"
- if ExtrusionObjectBar.Exists then
+ endif
+ kontext "DescriptionObject"
+ if DescriptionTitle.GetText <> "FirstTitle" then
+ Warnlog " The description-title for the first object were not 'FirstTitle', but: " + DescriptionTitle.GetText
+ endif
+ if DescriptionText.GetText <> "FirstText" then
+ Warnlog " The description-text for the first object were not 'FirstText', but: " + DescriptionText.GetText
+ endif
+ DescriptionObject.Ok
+
+ Kontext "ExtrusionObjectBar"
+ if ExtrusionObjectBar.Exists then
if ExtrusionObjectBar.IsVisible then
- printlog " The first object got converted into a 3D-object (Extrusion-Object), correct."
+ printlog " The first object got converted into a 3D-object (Extrusion-Object), correct."
else
- warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
+ warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
endif
- endif
-
- gMouseClick 90, 1
- hTypeKeys "<TAB><TAB>"
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
+ endif
+
+ gMouseClick 90, 1
+ hTypeKeys "<TAB><TAB>"
+ '/// Check the name of the selected object (should be 'Second') ///'
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
Warnlog " Context-Menu-entry `Rename` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
+ endif
- sleep 1
- kontext "NameDlgObject"
- if NameField.GetText <> "Second" then
+ sleep 1
+ kontext "NameDlgObject"
+ if NameField.GetText <> "Second" then
warnlog " Wrong object. Should have been the second, but was the " + NameField.GetText
- else
+ else
Printlog " The second object still had the correct name, good."
- endif
- NameDlgObject.OK
-
- printlog "Open the Context-menu and check if the description of the object is right"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
+ endif
+ NameDlgObject.OK
+
+ printlog "Open the Context-menu and check if the description of the object is right"
+ '/// Open the Context-menu and check if the description of the object is right ///"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
- kontext "DescriptionObject"
- if DescriptionTitle.GetText <> "SecondTitle" then
+ endif
+ kontext "DescriptionObject"
+ if DescriptionTitle.GetText <> "SecondTitle" then
Warnlog " The description-title for the second object were not 'SecondTitle', but: " + DescriptionTitle.GetText
- else
+ else
printlog " The description-title for the second object were correct"
- endif
- if DescriptionText.GetText <> "SecondText" then
+ endif
+ if DescriptionText.GetText <> "SecondText" then
Warnlog " The description-text for the second object were not 'SecondText', but: " + DescriptionText.GetText
- else
+ else
printlog " The description-text for the second object were correct"
- endif
- DescriptionObject.Ok
+ endif
+ DescriptionObject.Ok
- Kontext "ExtrusionObjectBar"
- if ExtrusionObjectBar.Exists then
+ Kontext "ExtrusionObjectBar"
+ if ExtrusionObjectBar.Exists then
if ExtrusionObjectBar.IsVisible then
- printlog " The first second got converted into 3D-object (Extrusion-Object), correct."
+ printlog " The first second got converted into 3D-object (Extrusion-Object), correct."
else
- warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
+ warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
endif
- endif
-
- gMouseClick 90, 1
- hTypeKeys "<TAB><TAB><TAB>"
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
+ endif
+
+ gMouseClick 90, 1
+ hTypeKeys "<TAB><TAB><TAB>"
+ '/// Check the name of the selected object (should be "Third") ///'
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
+ endif
- sleep 1
- kontext "NameDlgObject"
- if NameField.GetText <> "Third" then
+ sleep 1
+ kontext "NameDlgObject"
+ if NameField.GetText <> "Third" then
warnlog " Wrong object. Should have been the third, but was the " + NameField.GetText
- else
+ else
Printlog " The third object still had the correct name, good."
- endif
- NameDlgObject.OK
-
- printlog "Open the Context-menu and check if the description of the object is right"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
+ endif
+ NameDlgObject.OK
+
+ printlog "Open the Context-menu and check if the description of the object is right"
+ '/// Open the Context-menu and check if the description of the object is right ///"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
- kontext "DescriptionObject"
- if DescriptionTitle.GetText <> "ThirdTitle" then
+ endif
+ kontext "DescriptionObject"
+ if DescriptionTitle.GetText <> "ThirdTitle" then
Warnlog " The description-title for object three were not 'ThirdTitle', but: " + DescriptionTitle.GetText
- else
+ else
printlog " The description-title for the second object were correct."
- endif
- if DescriptionText.GetText <> "ThirdText" then
+ endif
+ if DescriptionText.GetText <> "ThirdText" then
Warnlog " The description-text for object three were not 'ThirdText', but: " + DescriptionText.GetText
- else
+ else
printlog " The description-text for object three were correct."
- endif
- DescriptionObject.Ok
+ endif
+ DescriptionObject.Ok
- Kontext "ExtrusionObjectBar"
- if ExtrusionObjectBar.Exists then
+ Kontext "ExtrusionObjectBar"
+ if ExtrusionObjectBar.Exists then
if ExtrusionObjectBar.IsVisible then
- printlog " The third object got converted into 3D-object (Extrusion-Object), correct."
+ printlog " The third object got converted into 3D-object (Extrusion-Object), correct."
else
- warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
+ warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
endif
- endif
+ endif
- printlog "End of test. Close the document."
-endcase
+ printlog "End of test. Close the document."
+ Call hCloseDocument '/// Close Document ///'
+
+endcase 'tCustomshapes
+'---------------------------------------------------------
+testcase tFormatPaintbrush
-'************************************************************************
+ dim counter, ZaehlerVerlauf, j as Integer
+ '/// Hatching ///'
+ dim HatchingDistance as string
+ dim HatchingAngle as string
+ dim HatchingLineType as string
+ dim HatchingLineColor as string
+
+ dim position_value as string
+ dim show_value as boolean
+ dim distance_value as string
+ dim color_value as string
+ dim transparency_value as string
+
+ dim NoTransparency_value as boolean
+ dim linearTransparency_value as boolean
+ dim MFLintransparency_value as string
+ dim Transparencyverlauf_value as boolean
+ dim TransparencyType_value as string
+ dim MFCenterX_value as string
+ dim MFCenterY_value as string
+ dim MFAngle_value as string
+ dim MFRand_value as string
+ dim MFStart_value as string
+ dim MFEnd_value as string
+
+ dim colorname_value as string
+ dim color2_value as string
+ dim colormodel_value as integer
+ dim R_value as string
+ dim G_value as string
+ dim B_value as string
+ dim C_value as string
+ dim M_value as string
+ dim Y_value as string
+ dim K_value as string
+
+ dim type_value as string
+ dim centerx_value as string
+ dim centery_value as string
+ dim angle_value as string
+ dim rand_value as string
+ dim from_value as string
+ dim fromvalue_value as string
+ dim to_value as string
+ dim tovalue_value as string
+ dim to_wert_value as string
+
+ dim front_value as string
+ dim background_value as string
+
+ '/// Create new document ///'
+ Call hNewDocument
+ '/// Create a new rectangle ///'
+ hRechteckErstellen ( 10, 10, 30, 30 )
+ FormatArea
+ '/// Switch to Tabpage "Area" ///'
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ sleep 1
+ FillOptions.Select 4 '/// Select hatching, control after closing and reopening dialog if changes are recognized ///'
+ '/// Switch to Tabpage "Hatching" ///'
+ Kontext
+ Active.setpage TabSchraffuren
+ Kontext "TabSchraffuren"
+
+ '/// Get the values for the Rectangle ///'
+ HatchingDistance = Abstand.GetText
+ HatchingAngle = Winkel.GetText
+ 'Definition
+ HatchingLineType = Linientyp.GetSelText
+ HatchingLineColor = Linienfarbe.GetSelText
+
+ 'TabSchraffuren.OK
+ sleep 1
+
+' FormatArea
+ '/// Switch to Tabpage "Shaddow" ///'
+ Kontext
+ Active.setpage TabSchatten
+ Kontext "TabSchatten"
+
+ show_value = Anzeigen.isChecked 'Boolean
+ if Anzeigen.isChecked then
+ position_value = Position.GetSelText
+ distance_value = Entfernung.GetSelText
+ color_value = Farbe.GetSelText
+ transparency_value = Transparenz.GetSelText
+ endif
+ sleep 1
+
+ '/// Switch to Tabpage "Transparency" ///'
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+
+ NoTransparency_value = KeineTransparenz.isChecked
+ linearTransparency_value = LineareTransparenz.isChecked
+ MFLinTransparency_value = MFLinTransparenz.GetText
+ Transparencyverlauf_value = Transparenzverlauf.isChecked
+ TransparencyType_value = TransparenzverlaufTyp.GetSelText
+ MFCenterX_value = MFZentrumX.GetText
+ MFCenterY_value = MFZentrumY.GetText
+ MFAngle_value = MFWinkel.GetText
+ MFRand_value = MFRand.GetText
+ MFStart_value = MFStartwert.GetText
+ MFEnd_value = MFEndwert.GetText
+
+ sleep 1
+ '/// Switch to Tabpage "Color" ///'
+ Kontext
+ Active.setpage TabFarben
+ Kontext "TabFarben"
+
+ colorname_value = FarbName.GetText
+ color_value = Farbe.GetSelText
+ colormodel_value = Farbmodell.GetSelIndex
+ if colormodel_value = 1 then
+ R_value = R.GetText
+ G_value = G.GetText
+ B_value = B.GetText
+ else 'farbmodell_value = 2
+ C_value = C.GetText
+ M_value = M.GetText
+ Y_value = Y.GetText
+ K_value = K.GetText
+ endif
+ sleep 1
+
+ '/// Switch to Tabpage "Gradient" ///'
+ Kontext
+ Active.setpage TabFarbverlaeufe
+ Kontext "TabFarbverlaeufe"
+
+ type_value = Typ.GetSelText
+ Centerx_value = ZentrumX.GetText
+ Centery_value = ZentrumY.GetText
+ angle_value = Winkel.GetText
+ rand_value = Rand.GetText
+ from_value = Von.GetSelText
+ fromvalue_value = VonWert.GetText
+ to_value = Bis.GetSelText
+ tovalue_value = BisWert.GetText
+ sleep 1
+
+ '/// Switch to Tabpage "Bitmap" ///'
+ Kontext
+ Active.setpage TabBitmap
+ Kontext "TabBitmap"
+
+ front_value = Vordergrund.GetSelText
+ background_value = Hintergrund.GetSelText
+ sleep 1
+ '/// Close the FormatArea-dialogue with "OK" ///'
+ TabBitmap.OK
+ sleep 2
+
+ '/// Create a second rectangle, and use the "Paintbrush-icon" to copy the settings for the first rectangle onto the new one ///'
+ hRechteckErstellen ( 70, 70, 90, 90 )
+ if gApplication = "DRAW" then
+ kontext "Documentdraw"
+ Documentdraw.Mousedown 20, 20
+ Documentdraw.Mouseup 20, 20
+ sleep 1
+ kontext "Standardbar"
+ FormatPaintbrush.Click
+ kontext "Documentdraw"
+ sleep 1
+ Documentdraw.Mousedown 80, 80
+ Documentdraw.Mouseup 80, 80
+ sleep 1
+ else '(Impress)
+ Kontext "DocumentImpress"
+ DocumentImpress.Mousedown 20, 20
+ DocumentImpress.Mouseup 20, 20
+ sleep 1
+ kontext "Standardbar"
+ FormatPaintbrush.Click
+ kontext "DocumentImpress"
+ sleep 1
+ DocumentImpress.Mousedown 80, 80
+ DocumentImpress.Mouseup 80, 80
+ sleep 1
+ endif
+
+ '/// Check if the Formatting is like the first one. ///'
+ FormatArea
+ '/// Switch to Tabpage "Area" ///'
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+' if FillOptions.GetSelIndex <> 4 then '/// The selected value should be 'no fill' ///'
+' warnlog "The FillOptions-value was not transferred correctly."
+' else
+' printlog "The FillOptions-value was transferred correctly."
+' endif
+
+ sleep 1 '/// control if changes are still there after closing and reopening dialog ///'
+ FillOptions.Select 4 '/// Select hatching, control after closing and reopening dialog if changes are recognized ///'
+ '/// Switch to Tabpage "Hatching" ///'
+ kontext
+ Active.setpage TabSchraffuren
+ kontext "TabSchraffuren"
+
+ if HatchingDistance <> Abstand.GetText then
+ warnlog "Hatching:Distance changed. Should be: " + HatchingDistance + ". Was: " + Abstand.GetText
+ endif
+ if HatchingAngle <> Winkel.GetText then
+ warnlog "Hatching:Angle changed. Should be: " + HatchingAngle + ". Was: " + Winkel.GetText
+ endif
+ 'Definition
+ if HatchingLineType <> Linientyp.GetSelText then
+ warnlog "Hatching:LineType changed. Should be: " + HatchingLineType + ". Was: " + Linientyp.GetSelText
+ endif
+ if HatchingLineColor <> Linienfarbe.GetSelText then
+ warnlog "Hatching:LineColor changed. Should be: " + HatchingLineColor + ". Was: " + Linienfarbe.GetSelText
+ endif
+ sleep 1
-testcase tFormatPaintbrush
- dim counter, ZaehlerVerlauf, j as Integer
- dim HatchingDistance as string
- dim HatchingAngle as string
- dim HatchingLineType as string
- dim HatchingLineColor as string
-
- dim position_value as string
- dim show_value as boolean
- dim distance_value as string
- dim color_value as string
- dim transparency_value as string
-
- dim NoTransparency_value as boolean
- dim linearTransparency_value as boolean
- dim MFLintransparency_value as string
- dim Transparencyverlauf_value as boolean
- dim TransparencyType_value as string
- dim MFCenterX_value as string
- dim MFCenterY_value as string
- dim MFAngle_value as string
- dim MFRand_value as string
- dim MFStart_value as string
- dim MFEnd_value as string
-
- dim colorname_value as string
- dim color2_value as string
- dim colormodel_value as integer
- dim R_value as string
- dim G_value as string
- dim B_value as string
- dim C_value as string
- dim M_value as string
- dim Y_value as string
- dim K_value as string
-
- dim type_value as string
- dim centerx_value as string
- dim centery_value as string
- dim angle_value as string
- dim rand_value as string
- dim from_value as string
- dim fromvalue_value as string
- dim to_value as string
- dim tovalue_value as string
- dim to_wert_value as string
-
- dim front_value as string
- dim background_value as string
-
- Call hNewDocument
- hRechteckErstellen ( 10, 10, 30, 30 )
- FormatArea
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- sleep 1
- Kontext
- Active.setpage TabSchraffuren
- Kontext "TabSchraffuren"
-
- HatchingDistance = Abstand.GetText
- HatchingAngle = Winkel.GetText
- 'Definition
- HatchingLineType = Linientyp.GetSelText
- HatchingLineColor = Linienfarbe.GetSelText
-
- 'TabSchraffuren.OK
- sleep 1
-
- ' FormatArea
- Kontext
- Active.setpage TabSchatten
- Kontext "TabSchatten"
-
- show_value = Anzeigen.isChecked 'Boolean
- if Anzeigen.isChecked then
- position_value = Position.GetSelText
- distance_value = Entfernung.GetSelText
- color_value = Farbe.GetSelText
- transparency_value = Transparenz.GetSelText
- endif
- sleep 1
-
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
-
- NoTransparency_value = KeineTransparenz.isChecked
- linearTransparency_value = LineareTransparenz.isChecked
- MFLinTransparency_value = MFLinTransparenz.GetText
- Transparencyverlauf_value = Transparenzverlauf.isChecked
- TransparencyType_value = TransparenzverlaufTyp.GetSelText
- MFCenterX_value = MFZentrumX.GetText
- MFCenterY_value = MFZentrumY.GetText
- MFAngle_value = MFWinkel.GetText
- MFRand_value = MFRand.GetText
- MFStart_value = MFStartwert.GetText
- MFEnd_value = MFEndwert.GetText
-
- sleep 1
- Kontext
- Active.setpage TabFarben
- Kontext "TabFarben"
-
- colorname_value = FarbName.GetText
- color_value = Farbe.GetSelText
- colormodel_value = Farbmodell.GetSelIndex
- if colormodel_value = 1 then
- R_value = R.GetText
- G_value = G.GetText
- B_value = B.GetText
- else 'farbmodell_value = 2
- C_value = C.GetText
- M_value = M.GetText
- Y_value = Y.GetText
- K_value = K.GetText
- endif
- sleep 1
-
- Kontext
- Active.setpage TabFarbverlaeufe
- Kontext "TabFarbverlaeufe"
-
- type_value = Typ.GetSelText
- Centerx_value = ZentrumX.GetText
- Centery_value = ZentrumY.GetText
- angle_value = Winkel.GetText
- rand_value = Rand.GetText
- from_value = Von.GetSelText
- fromvalue_value = VonWert.GetText
- to_value = Bis.GetSelText
- tovalue_value = BisWert.GetText
- sleep 1
-
- Kontext
- Active.setpage TabBitmap
- Kontext "TabBitmap"
-
- front_value = Vordergrund.GetSelText
- background_value = Hintergrund.GetSelText
- sleep 1
- TabBitmap.OK
- sleep 2
-
- hRechteckErstellen ( 70, 70, 90, 90 )
- if gApplication = "DRAW" then
- kontext "Documentdraw"
- Documentdraw.Mousedown 20, 20
- Documentdraw.Mouseup 20, 20
- sleep 1
- kontext "Standardbar"
- FormatPaintbrush.Click
- kontext "Documentdraw"
- sleep 1
- Documentdraw.Mousedown 80, 80
- Documentdraw.Mouseup 80, 80
- sleep 1
- else '(Impress)
- Kontext "DocumentImpress"
- DocumentImpress.Mousedown 20, 20
- DocumentImpress.Mouseup 20, 20
- sleep 1
- kontext "Standardbar"
- FormatPaintbrush.Click
- kontext "DocumentImpress"
- sleep 1
- DocumentImpress.Mousedown 80, 80
- DocumentImpress.Mouseup 80, 80
- sleep 1
- endif
-
- FormatArea
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- ' warnlog "The FillOptions-value was not transferred correctly."
- ' else
- ' printlog "The FillOptions-value was transferred correctly."
- ' endif
-
- kontext
- Active.setpage TabSchraffuren
- kontext "TabSchraffuren"
-
- if HatchingDistance <> Abstand.GetText then
- warnlog "Hatching:Distance changed. Should be: " + HatchingDistance + ". Was: " + Abstand.GetText
- endif
- if HatchingAngle <> Winkel.GetText then
- warnlog "Hatching:Angle changed. Should be: " + HatchingAngle + ". Was: " + Winkel.GetText
- endif
- 'Definition
- if HatchingLineType <> Linientyp.GetSelText then
- warnlog "Hatching:LineType changed. Should be: " + HatchingLineType + ". Was: " + Linientyp.GetSelText
- endif
- if HatchingLineColor <> Linienfarbe.GetSelText then
- warnlog "Hatching:LineColor changed. Should be: " + HatchingLineColor + ". Was: " + Linienfarbe.GetSelText
- endif
- sleep 1
-
- Kontext
- Active.setpage TabSchatten
- Kontext "TabSchatten"
-
- if Show_value = true then
- if Anzeigen.isChecked <> true then
- warnlog "Shaddow:Show had changed! Should have been true, but was " + Anzeigen.isChecked
- else
- if position_value <> Position.GetSelText then
- warnlog "Shaddow:position:value changed. Should be: " + position_value + ". Was: " + Position.GetSelText
+ '/// Switch to Tabpage "Shaddow" ///'
+ Kontext
+ Active.setpage TabSchatten
+ Kontext "TabSchatten"
+
+ if Show_value = true then
+ if Anzeigen.isChecked <> true then
+ warnlog "Shaddow:Show had changed! Should have been true, but was " + Anzeigen.isChecked
+ else
+ if position_value <> Position.GetSelText then
+ warnlog "Shaddow:position:value changed. Should be: " + position_value + ". Was: " + Position.GetSelText
+ endif
+ if distance_value <> Entfernung.GetSelText then
+ warnlog "Shaddow:distance:value changed. Should be: " + distance_value + ". Was: " + Entfernung.GetSelText
+ endif
+ if color_value <> Farbe.GetSelText then
+ warnlog "Shaddow:Color:value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
+ endif
+ if transparency_value <> Transparenz.GetSelText then
+ warnlog "Shaddow:transparency:value changed. Should be: " + transparency_value + ". Was: " + Transparenz.GetSelText
+ endif
+ endif
+ endif
+ sleep 1
+
+ '/// Switch to Tabpage "Transparency" ///'
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+ if NoTransparency_value <> KeineTransparenz.isChecked then
+ warnlog "Transparency:NoTransparency -value changed. Should be: " + NoTransparency_value + ". Was: " + KeineTransparenz.isChecked
+ endif
+ if linearTransparency_value <> LineareTransparenz.isChecked then
+ warnlog "Transparency:lineareTransparency -value changed. Should be: " + linearTransparency_value + ". Was: " + LineareTransparenz.isChecked
+ endif
+ if MFLinTransparency_value <> MFLinTransparenz.GetText then
+ warnlog "Transparency:MFLinTransparency -value changed. Should be: " + MFLinTransparency_value + ". Was: " + MFLinTransparenz.GetText
+ endif
+ if Transparencyverlauf_value <> Transparenzverlauf.isChecked then
+ warnlog "Transparency:Transparencyverlauf -value changed. Should be: " + Transparencyverlauf_value + ". Was: " + Transparenzverlauf.isChecked
+ endif
+ if TransparencyType_value <> TransparenzverlaufTyp.GetSelText then
+ warnlog "Transparency:TransparencyType -value changed. Should be: " + TransparencyType_value + ". Was: " + TransparenzverlaufTyp.GetSelText
+ endif
+ if MFCenterX_value <> MFZentrumX.GetText then
+ warnlog "Transparency:MFCenterX -value changed. Should be: " + MFCenterX_value + ". Was: " + MFZentrumX.GetText
+ endif
+ if MFCenterY_value <> MFZentrumY.GetText then
+ warnlog "Transparency:MFCenterY -value changed. Should be: " + MFCenterY_value + ". Was: " + MFZentrumY.GetText
+ endif
+ if MFAngle_value <> MFWinkel.GetText then
+ warnlog "Transparency:MFAngle -value changed. Should be: " + MFAngle_value + ". Was: " + MFWinkel.GetText
endif
- if distance_value <> Entfernung.GetSelText then
- warnlog "Shaddow:distance:value changed. Should be: " + distance_value + ". Was: " + Entfernung.GetSelText
+ if MFRand_value <> MFRand.GetText then
+ warnlog "Transparency:MFRand -value changed. Should be: " + MFRand_value + ". Was: " + MFRand.GetText
+ endif
+ if MFStart_value <> MFStartwert.GetText then
+ warnlog "Transparency:MFStart -value changed. Should be: " + MFStart_value + ". Was: " + MFStartwert.GetText
+ endif
+ if MFEnd_value <> MFEndwert.GetText then
+ warnlog "Transparency:MFEnd -value changed. Should be: " + MFEnd_value + ". Was: " + MFEndwert.GetText
+ endif
+ sleep 1
+
+ '/// Switch to Tabpage "Color" ///'
+ Kontext
+ Active.setpage TabFarben
+ Kontext "TabFarben"
+
+ if colorname_value <> FarbName.GetText then
+ warnlog "colorname_value changed. Should be: " + colorname_value + ". Was: " + FarbName.GetText
endif
if color_value <> Farbe.GetSelText then
- warnlog "Shaddow:Color:value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
+ warnlog "color_value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
endif
- if transparency_value <> Transparenz.GetSelText then
- warnlog "Shaddow:transparency:value changed. Should be: " + transparency_value + ". Was: " + Transparenz.GetSelText
+ if colormodel_value <> Farbmodell.GetSelIndex then
+ warnlog "colormodel_value changed. Should be: " + colormodel_value + ". Was: " + Farbmodell.GetSelIndex
endif
- endif
- endif
- sleep 1
-
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- if NoTransparency_value <> KeineTransparenz.isChecked then
- warnlog "Transparency:NoTransparency -value changed. Should be: " + NoTransparency_value + ". Was: " + KeineTransparenz.isChecked
- endif
- if linearTransparency_value <> LineareTransparenz.isChecked then
- warnlog "Transparency:lineareTransparency -value changed. Should be: " + linearTransparency_value + ". Was: " + LineareTransparenz.isChecked
- endif
- if MFLinTransparency_value <> MFLinTransparenz.GetText then
- warnlog "Transparency:MFLinTransparency -value changed. Should be: " + MFLinTransparency_value + ". Was: " + MFLinTransparenz.GetText
- endif
- if Transparencyverlauf_value <> Transparenzverlauf.isChecked then
- warnlog "Transparency:Transparencyverlauf -value changed. Should be: " + Transparencyverlauf_value + ". Was: " + Transparenzverlauf.isChecked
- endif
- if TransparencyType_value <> TransparenzverlaufTyp.GetSelText then
- warnlog "Transparency:TransparencyType -value changed. Should be: " + TransparencyType_value + ". Was: " + TransparenzverlaufTyp.GetSelText
- endif
- if MFCenterX_value <> MFZentrumX.GetText then
- warnlog "Transparency:MFCenterX -value changed. Should be: " + MFCenterX_value + ". Was: " + MFZentrumX.GetText
- endif
- if MFCenterY_value <> MFZentrumY.GetText then
- warnlog "Transparency:MFCenterY -value changed. Should be: " + MFCenterY_value + ". Was: " + MFZentrumY.GetText
- endif
- if MFAngle_value <> MFWinkel.GetText then
- warnlog "Transparency:MFAngle -value changed. Should be: " + MFAngle_value + ". Was: " + MFWinkel.GetText
- endif
- if MFRand_value <> MFRand.GetText then
- warnlog "Transparency:MFRand -value changed. Should be: " + MFRand_value + ". Was: " + MFRand.GetText
- endif
- if MFStart_value <> MFStartwert.GetText then
- warnlog "Transparency:MFStart -value changed. Should be: " + MFStart_value + ". Was: " + MFStartwert.GetText
- endif
- if MFEnd_value <> MFEndwert.GetText then
- warnlog "Transparency:MFEnd -value changed. Should be: " + MFEnd_value + ". Was: " + MFEndwert.GetText
- endif
- sleep 1
-
- Kontext
- Active.setpage TabFarben
- Kontext "TabFarben"
-
- if colorname_value <> FarbName.GetText then
- warnlog "colorname_value changed. Should be: " + colorname_value + ". Was: " + FarbName.GetText
- endif
- if color_value <> Farbe.GetSelText then
- warnlog "color_value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
- endif
- if colormodel_value <> Farbmodell.GetSelIndex then
- warnlog "colormodel_value changed. Should be: " + colormodel_value + ". Was: " + Farbmodell.GetSelIndex
- endif
- if colormodel_value = 1 then
- if R_value <> R.GetText then
- warnlog "R_value changed. Should be: " + R_value + ". Was: " + R.GetText
- endif
- if G_value <> G.GetText then
- warnlog "G_value changed. Should be: " + G_value + ". Was: " + G.GetText
- endif
- if B_value <> B.GetText then
- warnlog "B_value changed. Should be: " + B_value + ". Was: " + B.GetText
- endif
- endif
- if colormodel_value = 2 then
- if C_value <> C.GetText then
- warnlog "C_value changed.Should be: " + C_value + ". Was: " + C.GetText
- endif
- if M_value <> M.GetText then
- warnlog "M_value changed. Should be: " + M_value + ". Was: " + M.GetText
- endif
- if Y_value <> Y.GetText then
- warnlog "Y_value changed. Should be: " + Y_value + ". Was: " + Y.GetText
- endif
- if K_value <> K.GetText then
- warnlog "K_value changed. Should be: " + K_value + ". Was: " + K.GetText
- endif
- endif
- sleep 1
-
- Kontext
- Active.setpage TabFarbverlaeufe
- Kontext "TabFarbverlaeufe"
- if type_value <> Typ.GetSelText then
- warnlog "type_value changed. Should be: " + type_value + ". Was: " + Typ.GetSelText
- endif
- if centerx_value <> ZentrumX.GetText then
- warnlog "centerx_value changed. Should be: " + centerx_value + ". Was: " + ZentrumX.GetText
- endif
- if centery_value <> ZentrumY.GetText then
- warnlog "centery_value changed. Should be: " + centery_value + ". Was: " + ZentrumY.GetText
- endif
- if angle_value <> Winkel.GetText then
- warnlog "angle_value changed. Should be: " + angle_value + ". Was: " + Winkel.GetText
- endif
- if rand_value <> Rand.GetText then
- warnlog "rand_value changed. Should be: " + rand_value + ". Was: " + Rand.GetText
- endif
- if from_value <> Von.GetSelText then
- warnlog "from_value changed. Should be: " + from_value + ". Was: " + Von.GetSelText
- endif
- if fromvalue_value <> VonWert.GetText then
- warnlog "fromvalue_value changed. Should be: " + fromvalue_value + ". Was: " + VonWert.GetText
- endif
- if to_value <> Bis.GetSelText then
- warnlog "to_value changed. Should be: " + to_value + ". Was: " + Bis.GetSelText
- endif
- if tovalue_value <> BisWert.GetText then
- warnlog "tovalue_value changed. Should be: " + tovalue_value + ". Was: " + BisWert.GetText
- endif
- sleep 1
-
- Kontext
- Active.setpage TabBitmap
- Kontext "TabBitmap"
- if front_value <> Vordergrund.GetSelText then
- warnlog "vordergrund_value changed. Should be: " + front_value + ". Was: " + Vordergrund.GetSelText
- endif
- if background_value <> Hintergrund.GetSelText then
- warnlog "background_value changed. Should be: " + background_value + ". Was: " + Hintergrund.GetSelText
- endif
- sleep 1
- TabBitmap.OK
-endcase
+ if colormodel_value = 1 then
+ if R_value <> R.GetText then
+ warnlog "R_value changed. Should be: " + R_value + ". Was: " + R.GetText
+ endif
+ if G_value <> G.GetText then
+ warnlog "G_value changed. Should be: " + G_value + ". Was: " + G.GetText
+ endif
+ if B_value <> B.GetText then
+ warnlog "B_value changed. Should be: " + B_value + ". Was: " + B.GetText
+ endif
+ endif
+ if colormodel_value = 2 then
+ if C_value <> C.GetText then
+ warnlog "C_value changed.Should be: " + C_value + ". Was: " + C.GetText
+ endif
+ if M_value <> M.GetText then
+ warnlog "M_value changed. Should be: " + M_value + ". Was: " + M.GetText
+ endif
+ if Y_value <> Y.GetText then
+ warnlog "Y_value changed. Should be: " + Y_value + ". Was: " + Y.GetText
+ endif
+ if K_value <> K.GetText then
+ warnlog "K_value changed. Should be: " + K_value + ". Was: " + K.GetText
+ endif
+ endif
+ sleep 1
+
+ '/// Switch to Tabpage "Gradient" ///'
+ Kontext
+ Active.setpage TabFarbverlaeufe
+ Kontext "TabFarbverlaeufe"
+ if type_value <> Typ.GetSelText then
+ warnlog "type_value changed. Should be: " + type_value + ". Was: " + Typ.GetSelText
+ endif
+ if centerx_value <> ZentrumX.GetText then
+ warnlog "centerx_value changed. Should be: " + centerx_value + ". Was: " + ZentrumX.GetText
+ endif
+ if centery_value <> ZentrumY.GetText then
+ warnlog "centery_value changed. Should be: " + centery_value + ". Was: " + ZentrumY.GetText
+ endif
+ if angle_value <> Winkel.GetText then
+ warnlog "angle_value changed. Should be: " + angle_value + ". Was: " + Winkel.GetText
+ endif
+ if rand_value <> Rand.GetText then
+ warnlog "rand_value changed. Should be: " + rand_value + ". Was: " + Rand.GetText
+ endif
+ if from_value <> Von.GetSelText then
+ warnlog "from_value changed. Should be: " + from_value + ". Was: " + Von.GetSelText
+ endif
+ if fromvalue_value <> VonWert.GetText then
+ warnlog "fromvalue_value changed. Should be: " + fromvalue_value + ". Was: " + VonWert.GetText
+ endif
+ if to_value <> Bis.GetSelText then
+ warnlog "to_value changed. Should be: " + to_value + ". Was: " + Bis.GetSelText
+ endif
+ if tovalue_value <> BisWert.GetText then
+ warnlog "tovalue_value changed. Should be: " + tovalue_value + ". Was: " + BisWert.GetText
+ endif
+ sleep 1
+
+ '/// Switch to Tabpage "Bitmap" ///'
+ Kontext
+ Active.setpage TabBitmap
+ Kontext "TabBitmap"
+ if front_value <> Vordergrund.GetSelText then
+ warnlog "vordergrund_value changed. Should be: " + front_value + ". Was: " + Vordergrund.GetSelText
+ endif
+ if background_value <> Hintergrund.GetSelText then
+ warnlog "background_value changed. Should be: " + background_value + ". Was: " + Hintergrund.GetSelText
+ endif
+ sleep 1
+ TabBitmap.OK
+ Call hCloseDocument '/// Close Document ///'
+
+endcase 'tFormatPaintbrush
diff --git a/testautomation/graphics/optional/includes/global/g_demoguide.inc b/testautomation/graphics/optional/includes/global/g_demoguide.inc
index bac23ca..fcb8eec 100755
--- a/testautomation/graphics/optional/includes/global/g_demoguide.inc
+++ b/testautomation/graphics/optional/includes/global/g_demoguide.inc
@@ -46,10 +46,12 @@
testcase t_Introduction
gApplication = "IMPRESS"
-
+
+ '///Open new presentation
printlog "Open new presentation"
Call hNewDocument
-
+
+ '///Open the Gallery
printlog "Open the Gallery"
ToolsGallery
Sleep (1)
@@ -57,7 +59,8 @@ testcase t_Introduction
if Gallery.NotExists(2) then
ToolsGallery
end if
-
+
+ '///Choose computer theme and insert the third image
printlog "Choose an item from the gallery"
Gallerys.Select(2)
View.TypeKeys "<HOME><RIGHT><RIGHT>"
@@ -67,6 +70,7 @@ testcase t_Introduction
sleep 2
MenuSelect(MenuGetItemID(1)) 'Copy
sleep 2
+ '///+ - Check that we really got a copy of the object ///'
kontext "DocumentImpress"
DocumentImpress.OpenContextMenu(true)
sleep 2
@@ -74,10 +78,10 @@ testcase t_Introduction
sleep 2
Kontext "ExportierenDlg"
if ExportierenDlg.IsVisible(5) then
- printlog " Gallery-object correctly copied into Slide."
- ExportierenDlg.Close
- else
- warnlog " Doesn't seem like we copied anything from the Gallery... ?"
+ printlog " Gallery-object correctly copied into Slide."
+ ExportierenDlg.Close
+ else
+ warnlog " Doesn't seem like we copied anything from the Gallery... ?"
endif
printlog "Delete the item"
kontext "DocumentImpress"
@@ -94,13 +98,15 @@ testcase t_Introduction
catch
Warnlog "Insert graphic doesn't work"
endcatch
-
+
+ '///Resize object
printlog "Resize object"
Kontext "DocumentImpress"
gMouseClick (10, 10)
sleep 1
EditSelectAll
sleep 1
+ ContextPositionAndSize '/// Format-position and size
Kontext
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
@@ -109,7 +115,8 @@ testcase t_Introduction
SizePosition.TypeKeys "<DOWN> <RIGHT>"
Width.SetText CStr((CInt(Width.GetText)) * 2)
TabPositionAndSize.OK
-
+
+ '///Break object
printlog "Break object"
Kontext "DocumentImpress"
gMouseClick (10, 10)
@@ -117,7 +124,8 @@ testcase t_Introduction
EditSelectAll
sleep 1
hOpenContextMenu '(when the object is marked)
- hMenuSelectNr(13)
+ hMenuSelectNr(13)
+ '/// Select part of object and make it black
printlog "Select part of object and make it black"
DocumentImpress.TypeKeys "<SHIFT TAB>"
FormatArea
@@ -127,13 +135,15 @@ testcase t_Introduction
FillOptions.Select 2
ColourList.Select 1
TabArea.OK
-
+
+ '///Group the objects
printlog "Group the object"
kontext "DocumentImpress"
DocumentImpress.TypeKeys "<MOD1 A>"
hOpenContextMenu '(when the object is marked)
hMenuSelectNr(12)
-
+
+ '///Add Layout "Title Only"
Printlog "Add Layout"
kontext "Tasks"
if (NOT Tasks.exists) then
@@ -143,21 +153,23 @@ testcase t_Introduction
Kontext "LayoutsPreview"
LayoutsPreview.TypeKeys "<HOME> <DOWN> <DOWN> <RETURN>"
sleep (5)
+ '///Add a background
Printlog "Add background"
-
+
Kontext "Tasks"
printlog "Deselect all tabs from view menu in task pane except the needed."
View.OpenMenu
- MenuSelect(MenuGetItemID(5))
+ MenuSelect(MenuGetItemID(5))
View.OpenMenu
- MenuSelect(MenuGetItemID(4))
+ MenuSelect(MenuGetItemID(4))
View.OpenMenu
MenuSelect(MenuGetItemID(3))
View.OpenMenu
MenuSelect(MenuGetItemID(2))
Kontext "AvailableForUsePreview"
AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>"
- sleep (5)
+ sleep (5)
+ '///Add a transition effect
Printlog "Add a transition effect"
Kontext "Tasks"
View.OpenMenu
@@ -167,44 +179,45 @@ testcase t_Introduction
TransitionSound.GetItemCount 'needed for select
Sleep 1
TransitionSound.Select 4
-
+
+ '///Close the document
Printlog "Close the document"
Call hCloseDocument
-
+
endcase 't_Introduction
'--------------------------------------------------------------------
-
testcase t_Interoperability
Dim sTemplatename as string
gApplication = "IMPRESS"
-
+
+ '///Open PowerPoint presentation
printlog "Open PowerPoint presentation"
hFileOpen (Convertpath (gTesttoolPath + "graphics/required/input/dotNetOverview.ppt"))
Call sMakeReadOnlyDocumentEditable
-
+
'Save the name of the origin background (taken from last slide)
- Kontext "DocumentImpress"
- DocumentImpress.TypeKeys "<END>"
- sleep (4)
- sTemplatename = DocumentImpress.StatusGetText (6)
- printlog " Background = " & sTemplatename 'Debugcode
-
+ Kontext "DocumentImpress"
+ DocumentImpress.TypeKeys "<END>"
+ sleep (4)
+ sTemplatename = DocumentImpress.StatusGetText (6)
+ printlog " Background = " & sTemplatename 'Debugcode
+
printlog "Choose a masterpage from right pane"
-
+
Kontext "Tasks"
printlog "Deselect all tabs accept the Master Pages"
View.OpenMenu
- MenuSelect(MenuGetItemID(5))
+ MenuSelect(MenuGetItemID(5))
View.OpenMenu
- MenuSelect(MenuGetItemID(4))
+ MenuSelect(MenuGetItemID(4))
View.OpenMenu
MenuSelect(MenuGetItemID(3))
View.OpenMenu
MenuSelect(MenuGetItemID(2))
- sleep 2
+ sleep 2
Kontext "AvailableForUsePreview"
AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>"
sleep (5)
@@ -212,10 +225,11 @@ testcase t_Interoperability
Kontext "DocumentImpress"
printlog " Background is " & DocumentImpress.StatusGetText (6) 'Debugcode
if DocumentImpress.StatusGetText (6) = sTemplatename then
- warnlog "The background is not changed"
- else printlog " Background has been changed"
+ warnlog "The background is not changed"
+ else printlog " Background has been changed"
endif
-
+
+ '///Switch back to original background
printlog "Switch back to original background"
Kontext "Tasks"
Kontext "AvailableForUsePreview"
@@ -223,10 +237,11 @@ testcase t_Interoperability
sleep (5)
Kontext "DocumentImpress"
if DocumentImpress.StatusGetText (6) = sTemplatename then
- printlog " The background has been set back to default"
- else warnlog "The background is " & DocumentImpress.StatusGetText (6) & " but should be: " & sTemplatename
+ printlog " The background has been set back to default"
+ else warnlog "The background is " & DocumentImpress.StatusGetText (6) & " but should be: " & sTemplatename
endif
-
+
+ '///Resort slides
printlog "Resort slides"
Kontext "DocumentImpress"
Kontext "Slides"
@@ -238,28 +253,29 @@ testcase t_Interoperability
Kontext "SlidesControl"
SlidesControl.TypeKeys "<Mod1 V>"
kontext "InsertPaste"
- if InsertPaste.Exists(1) then
+ if InsertPaste.Exists(1) then
Before.Check
InsertPaste.OK
- endif
- Printlog " Verify that the slide was moved correctly"
- Kontext "Slides"
- SlidesControl.TypeKeys "<PAGEUP>"
- SlidesControl.TypeKeys "<SHIFT F10>"
- if hMenuFindSelect(27268, true, 3) = false then
+ endif
+ Printlog " Verify that the slide was moved correctly"
+ Kontext "Slides"
+ SlidesControl.TypeKeys "<PAGEUP>"
+ SlidesControl.TypeKeys "<SHIFT F10>"
+ if hMenuFindSelect(27268, true, 3) = false then
Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
- kontext "NameDlgPage"
- if NameField.GetText <> ".NET Enterprise Federation" then
+ endif
+ kontext "NameDlgPage"
+ if NameField.GetText <> ".NET Enterprise Federation" then
Warnlog "Wrong slide found! Expected no 3, but found " + NameField.GetText + "."
- else
+ else
Printlog " The slide was correctly moved"
- endif
- NameDlgPage.OK
- sleep 1
-
+ endif
+ NameDlgPage.OK
+ sleep 1
+
+ '///Switch views
printlog "Switch views"
ViewWorkspaceOutlineView
sleep (2)
@@ -270,8 +286,8 @@ testcase t_Interoperability
DocumentImpressOutlineView.TypeKeys "<Mod1 C>"
sleep (5)
if getclipboard() <> ".NET Enterprise" then
- warnlog " Wrong selection in outlineview. Should be '.NET Enterprise', but is '" & getclipboard() +"'."
- else printlog " Switching to Outlineview was successfull"
+ warnlog " Wrong selection in outlineview. Should be '.NET Enterprise', but is '" & getclipboard() +"'."
+ else printlog " Switching to Outlineview was successfull"
endif
catch
warnlog "Switching to Outlineview was not successfull"
@@ -319,7 +335,8 @@ testcase t_Interoperability
catch
warnlog "Switching to Drawingview was not successfull"
endcatch
-
+
+ '///Travel through the presentation by left pane
printlog "Travel through the presentation by left pane to slide 7"
Kontext "DocumentImpress"
DocumentImpress.TypeKeys "<HOME><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN>"
@@ -328,31 +345,31 @@ testcase t_Interoperability
Kontext "SlidesControl"
SlidesControl.OpenContextMenu
if hMenuFindSelect(27268, true, 3) = false then
- Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
+ Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
endif
kontext "NameDlgPage"
if NameField.GetText <> "Visual Studio.NET The complete development environment for building distributed applications for Windows and the Web" then
- Warnlog "Wrong slide found! Expected no 7, but found " + NameField.GetText + "."
- else Printlog " Slide 7 is reached"
+ Warnlog "Wrong slide found! Expected no 7, but found " + NameField.GetText + "."
+ else Printlog " Slide 7 is reached"
endif
NameDlgPage.OK
sleep 1
-
+
printlog "Autoshape support"
Kontext "DocumentImpress"
DocumentImpress.TypeKeys "<TAB>"
try
Kontext "ExtrusionObjectBar"
- printlog "Checking if ExtrusionObjectBar is already open."
+ printlog "Checking if ExtrusionObjectBar is already open."
if ExtrusionObjectBar.Exists then
- printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
+ printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
else
- printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
- printlog "Opening ExtrusionObjectBar."
- ViewToolbarsThreeDSettings
- endif
+ printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
+ printlog "Opening ExtrusionObjectBar."
+ ViewToolbarsThreeDSettings
+ endif
ExtrusionTiltRight.Click
printlog " An autoshape was found and turned right"
catch
@@ -360,22 +377,23 @@ testcase t_Interoperability
endcatch
printlog "Close document"
Call hCloseDocument
-
+
endcase 't_Interoperability
'--------------------------------------------------------------------
-
testcase t_DrawingEngine
Dim sGroupPosition as string
Dim sObjectPosition as string
-
+
gApplication = "DRAW"
-
+
+ '///Open a drawing
printlog "Open a drawing"
hFileOpen (Convertpath (gTesttoolPath + "graphics/required/input/Blueprint.odg"))
Call sMakeReadOnlyDocumentEditable
+ '///Select grouped object and enter group
printlog "Select group"
Kontext "DocumentDraw"
DocumentDraw.TypeKeys "<TAB><TAB>"
@@ -392,7 +410,8 @@ testcase t_DrawingEngine
Kontext "DocumentDraw"
FormatEditGroupDraw
sleep 1
-
+
+ '///Select and move single object
printlog "Select and move single object"
printlog " Select object"
Kontext "DocumentDraw"
@@ -403,8 +422,8 @@ testcase t_DrawingEngine
MenuSelect(MenuGetItemID(15)) 'Select NAME from context
kontext "NameDlgObject"
if NameField.GetText <> "Chair" then
- Warnlog "Wrong object selected!"
- else Printlog " The correct object is selected"
+ Warnlog "Wrong object selected!"
+ else Printlog " The correct object is selected"
endif
NameDlgObject.OK
sleep 1
@@ -421,12 +440,13 @@ testcase t_DrawingEngine
DocumentDraw.TypeKeys "<UP><UP><UP>"
sleep (5)
printlog " Verify that the object was moved"
+ ContextPositionAndSize '/// Format-position and size
Kontext
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
if PositionY.GetText <> sObjectPosition then
- printlog " Single object was moved"
- else warnlog "The object has not been moved"
+ printlog " Single object was moved"
+ else warnlog "The object has not been moved"
endif
TabPositionAndSize.OK
printlog " Exit group"
@@ -438,11 +458,12 @@ testcase t_DrawingEngine
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
if PositionY.GetText = sGroupPosition then
- printlog " Group is still on position"
- else warnlog "Group has moved from " & sGroupPosition & " to " & PositionY.GetText
+ printlog " Group is still on position"
+ else warnlog "Group has moved from " & sGroupPosition & " to " & PositionY.GetText
endif
TabPositionAndSize.OK
-
+
+ '///Close document
printlog "Close document"
Call hCloseDocument
diff --git a/testautomation/graphics/optional/includes/global/g_edit.inc b/testautomation/graphics/optional/includes/global/g_edit.inc
index 5d646a0..2816db5 100755
--- a/testautomation/graphics/optional/includes/global/g_edit.inc
+++ b/testautomation/graphics/optional/includes/global/g_edit.inc
@@ -49,181 +49,241 @@
' Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
testcase tEditDuplicate
- dim Ueber_Text_1
- dim Zaehler
+ dim Ueber_Text_1
+ dim Zaehler
- Kontext "Duplizieren"
- Ueber_Text_1 = AnzahlAnKopien.GetText
- sleep 1
- For Zaehler = 1 to 8
- sleep 1
- Kontext "Duplizieren"
+ Call hNewDocument '/// New Impress document ///'
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ EditSelectAll '/// Select rectangle ///'
+ EditDuplicate '/// Edit-duplicate ///'
+ Kontext "Duplizieren"
+ Ueber_Text_1 = AnzahlAnKopien.GetText
+ AnzahlAnKopien.SetText "50" '/// Set number of copies to 50 ///'
+ Duplizieren.Cancel '/// Cancel Edit Duplicate ///'
+ sleep 1
+ For Zaehler = 1 to 8
+ EditDuplicate '/// Edit Duplicate ///'
+ sleep 1
+ Kontext "Duplizieren"
+ AnzahlAnKopien.SetText "30" '/// Number of copies = 30 ///'
- Case 1: XAchse.SetText "0,0"
- YAchse.SetText "0,45"
- Hoehe.SetText "-0,1"
- Breite.SetText "-0,1"
- Drehwinkel.SetText "3"
- Anfang.Select Int((Anfang.GetItemCount * Rnd)+1)
- Case 2,6: XAchse.SetText "0,6"
- YAchse.SetText "0,0"
- Hoehe.SetText "0,15"
- Breite.SetText "0,01"
- Drehwinkel.SetText "353"
- Case 3,7: XAchse.SetText "0,0"
- YAchse.SetText "-0,4"
- Hoehe.SetText "-0,1"
- Breite.SetText "0,06"
- Drehwinkel.SetText "11"
- Case 4,8: XAchse.SetText "-0,6"
- YAchse.SetText "0,0"
- Hoehe.SetText "0,05"
- Breite.SetText "-0,08"
- Drehwinkel.SetText "347"
- Case 5: XAchse.SetText "0,1"
- YAchse.SetText "0,48"
- Hoehe.SetText "-0,05"
- Breite.SetText "-0,05"
- Drehwinkel.SetText "355"
+ Select Case Zaehler '/// Setting values for axis and angles ///'
+ Case 1: XAchse.SetText "0,0"
+ YAchse.SetText "0,45"
+ Hoehe.SetText "-0,1"
+ Breite.SetText "-0,1"
+ Drehwinkel.SetText "3"
+ Anfang.Select Int((Anfang.GetItemCount * Rnd)+1)
+ Case 2,6: XAchse.SetText "0,6"
+ YAchse.SetText "0,0"
+ Hoehe.SetText "0,15"
+ Breite.SetText "0,01"
+ Drehwinkel.SetText "353"
+ Case 3,7: XAchse.SetText "0,0"
+ YAchse.SetText "-0,4"
+ Hoehe.SetText "-0,1"
+ Breite.SetText "0,06"
+ Drehwinkel.SetText "11"
+ Case 4,8: XAchse.SetText "-0,6"
+ YAchse.SetText "0,0"
+ Hoehe.SetText "0,05"
+ Breite.SetText "-0,08"
+ Drehwinkel.SetText "347"
+ Case 5: XAchse.SetText "0,1"
+ YAchse.SetText "0,48"
+ Hoehe.SetText "-0,05"
+ Breite.SetText "-0,05"
+ Drehwinkel.SetText "355"
End Select
Ende.Select Int((Ende.GetItemCount * Rnd)+1)
+ Duplizieren.OK '/// Execute Duplicate ///'
sleep 1
-Next Zaehler
-sleep 2
-endcase
-
+ Next Zaehler
+ sleep 2
+ Call hCloseDocument '/// Close document ///'
+
+endcase 'tEditDuplicate
+'---------------------------------------------------------
testcase tEditFields
- Call hNewDocument
- sleep 3
- sleep 1
- sleep 2
- sleep 2
- Kontext "FeldbefehlBearbeitenDraw"
- sleep 2
- If FeldtypFix.Ischecked then
+
+ Call hNewDocument
+ sleep 3
+ InsertFieldsDateFix '/// Insert Date-Fix ///'
+ EditSelectAll '/// Select inserted field ///'
+ sleep 1
+ hTypeKeys "<F2>" '/// Go into edit mode (F2) ///'
+ sleep 2
+ EditSelectAll '/// Select the date///'
+ sleep 2
+ EditfieldsDraw '/// Edit -fields///'
+ Kontext "FeldbefehlBearbeitenDraw"
+ sleep 2
+ FeldtypFix.Check '/// check field type fix ///'
+ If FeldtypFix.Ischecked then
Printlog "OK FieldtypeFix checkable"
-else
- warnlog "FieldtypeFix not checkable"
-end if
-sleep 1
-If FeldtypVariabel.Ischecked then
-Printlog "OK FieldtypeVariabel enabled"
-else
-warnlog "FieldtypeVariabel not enabled"
-end if
+ else
+ warnlog "FieldtypeFix not checkable"
+ end if
+ FeldtypVariabel.Check '/// check field type variabel///'
+ sleep 1
+ If FeldtypVariabel.Ischecked then
+ Printlog "OK FieldtypeVariabel enabled"
+ else
+ warnlog "FieldtypeVariabel not enabled"
+ end if
' For Zaehler = 1 to FeldtypFormat.GetItemCount
' FeldTypFormat.Select Zaehler
' printlog "OK Format ", Zaehler, " = ", FeldtypFormat.GetSelText
' Next Zaehler
-sleep 2
-sleep 2
-endcase
-
+ FeldbefehlBearbeitenDraw.OK '/// close edit fields dialog ///'
+ sleep 2
+ Call hCloseDocument '/// close document ///'
+ sleep 2
+
+endcase 'tEditFields
+'--------------------------------------------------------
testcase tEditDeleteSlide
- dim Ueber_Text_1 as string
- dim Ueber_Text_2 as string
- dim Ueber_Text_3 as string
- sleep 3
- sleep 1
- kontext
- Messagebox.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- TabPositionAndSize.OK
- sleep 2
- hTypekeys "<Pagedown>"
- sleep 2
- sleep 1
- sleep 1
- Ueber_Text_2 = "OK Page was closed"
- Ueber_Text_3 = "Page was not closed"
- sleep 1
-endcase
+ dim Ueber_Text_1 as string
+ dim Ueber_Text_2 as string
+ dim Ueber_Text_3 as string
+ Call hNewDocument '/// New impress document ///'
+ sleep 3
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ sleep 1
+ ContextPositionAndSize '/// open Position and Size dialog ///'
+ kontext
+ Messagebox.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ Ueber_Text_1 = PositionX.GetText '/// get position values for rectangle ///'
+ TabPositionAndSize.OK
+ InsertSlide '/// insert slide ///'
+ sleep 2
+ hTypekeys "<Pagedown>"
+ sleep 2
+ Call hRechteckErstellen ( 40, 40, 60, 60 ) '/// create rectangle ///'
+ sleep 1
+ EditDeleteSlide '/// Delete slide ///'
+ sleep 1
+ Ueber_Text_2 = "OK Page was closed"
+ Ueber_Text_3 = "Page was not closed"
+ call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3) '/// compare position of rectange ///'
+ sleep 1
+ Call hCloseDocument '/// close document ///'
+
+endcase 'tEditDeleteSlide
+'--------------------------------------------------------
testcase tEditLinks
- Kontext "GrafikEinfuegenDlg"
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
- Oeffnen.Click
- sleep 3
+
+ Call hNewDocument '/// New document ///'
+ InsertGraphicsFromFile '/// insert graphic (sample.bmp) ///'
+ Kontext "GrafikEinfuegenDlg"
+ Link.Check '/// check link ///'
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+ Oeffnen.Click
+ sleep 3
+ EditLinksDraw '/// edit links ///'
+ Kontext "VerknuepfungenBearbeiten"
+ Aktualisieren.Click '/// refresh ///'
+ sleep 1
+ 'Aendern 'kann man noch den Dialog aufrufen...
+ Loesen.Click
+ sleep 1
+ Kontext
+ Messagebox.Yes
+ VerknuepfungenBearbeiten.Close '/// close dialog ///'
+ sleep 1
+ try
+ EditLinksDraw '/// check if last changes remain in the dialog ///'
Kontext "VerknuepfungenBearbeiten"
- sleep 1
- 'Aendern 'kann man noch den Dialog aufrufen...
Loesen.Click
sleep 1
Kontext
Messagebox.Yes
- sleep 1
- try
- Kontext "VerknuepfungenBearbeiten"
- Loesen.Click
- sleep 1
- Kontext
- Messagebox.Yes
- VerknuepfungenBearbeiten.Close
- warnlog "Break link does not work"
- catch
- printlog "OK Link broken"
- endcatch
-endcase
-
+ VerknuepfungenBearbeiten.Close
+ warnlog "Break link does not work"
+ catch
+ printlog "OK Link broken"
+ endcatch
+ Call hCloseDocument '/// close document ///'
+
+endcase 'tEditLinks
+'---------------------------------------------------------
testcase tdEditDeleteLayer
- dim Ueber_Text_1 as string
- dim Ueber_Text_2 as string
- dim Ueber_Text_3 as string
- sleep 2
- sleep 1
- ViewLayer
- kontext
- active.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- Ueber_Text_1 = PositionX.GetText
- TabPositionAndSize.OK
- Kontext "EbeneEinfuegenDlg"
- EbeneEinfuegenDlg.OK
- sleep 1
- sleep 1
- Kontext
- Active.Yes
- sleep 1
- Ueber_Text_3 = "Layer was not deleted"
- Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
- sleep 1
-endcase
+ dim Ueber_Text_1 as string
+ dim Ueber_Text_2 as string
+ dim Ueber_Text_3 as string
+ Call hNewDocument '/// new document ///'
+ sleep 2
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ sleep 1
+'/// View->Layer ///'
+ ViewLayer
+ ContextPositionAndSize '/// get position values for rectangle ///'
+ kontext
+ active.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ Ueber_Text_1 = PositionX.GetText
+ TabPositionAndSize.OK
+ InsertLayer '/// insert layer ///'
+ Kontext "EbeneEinfuegenDlg"
+ EbeneEinfuegenDlg.OK
+ Call hRechteckErstellen ( 10, 40, 90, 60 ) '/// create rectangle on created layer ///'
+ sleep 1
+ EditDeleteLayer '/// delete layer ///'
+ sleep 1
+ Kontext
+ Active.Yes
+ sleep 1
+ Ueber_Text_2 = "OK Layer was deleted" '/// compare position of selected rectangle with position of created rectangle in deteted layer ///'
+ Ueber_Text_3 = "Layer was not deleted"
+ Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
+ sleep 1
+ Call hCloseDocument '/// close document ///'
+
+endcase 'tdEditDeleteLayer
+'--------------------------------------------------------
testcase tEditObjectEdit
- Dim Schrieb as string
- Schrieb = gOLEWriter
- if Schrieb = "" then
- warnlog " the OLE is not defined :-((( gOLEWriter: " + iSprache
- else
+ Dim Schrieb as string
+
+ Schrieb = gOLEWriter
+ if Schrieb = "" then
+ warnlog " the OLE is not defined :-((( gOLEWriter: " + iSprache
+ else
- Call hNewDocument
- Kontext "OLEObjektEinfuegen"
- sleep 3
- if ObjektTyp.GetItemCount = 0 Then
- Warnlog "- No available Ole-entry in the list, maybe an error in the Install.ini?"
- sleep 1
- OleObjektEinfuegen.Cancel
- sleep 1
- else
+ Call hNewDocument
+ sleep 1 '/// new document ///'
+ InsertObjectOLEObject '/// insert writer ole object ///'
+ Kontext "OLEObjektEinfuegen"
+ sleep 3
+ if ObjektTyp.GetItemCount = 0 Then
+ Warnlog "- No available Ole-entry in the list, maybe an error in the Install.ini?"
+ sleep 1
+ OleObjektEinfuegen.Cancel
+ sleep 1
+ else
- ObjektTyp.Select Schrieb
- sleep 1
- OLEObjektEinfuegen.OK
- sleep 3 ' Changed from Sleep 1 to Sleep 3
- gMouseMove 10,10,90,90
- sleep 1
- EditSelectAll
+ ObjektTyp.Select Schrieb
+ sleep 1
+ OLEObjektEinfuegen.OK
+ sleep 3 ' Changed from Sleep 1 to Sleep 3
+ gMouseMove 10,10,90,90
+ sleep 1
+ EditSelectAll
- try
- sleep 2
- catch
- Warnlog "- The EditObjectEdit did not work"
- endcatch
+ try
+ EditObjectEdit 'keine ID '/// try edit-objects ///'
+ sleep 2
+ catch
+ Warnlog "- The EditObjectEdit did not work"
+ endcatch
- gMouseClick 90,90
+ gMouseClick 90,90
end if
- sleep 1
- endif
-endcase
+ sleep 1
+ Call hCloseDocument '/// close document ///'
+ endif
+endcase 'tEditObjectEdit
diff --git a/testautomation/graphics/optional/includes/global/g_export_html.inc b/testautomation/graphics/optional/includes/global/g_export_html.inc
index 88a7e3d..e35a94d 100755
--- a/testautomation/graphics/optional/includes/global/g_export_html.inc
+++ b/testautomation/graphics/optional/includes/global/g_export_html.inc
@@ -41,7 +41,7 @@
'\********************************************************************
testcase tHtmlExport
-
+
Dim Autor1 as string
Dim Adresse1 as string
Dim Liste(50) as string
@@ -50,251 +50,302 @@ testcase tHtmlExport
dim sTemp as string
dim sFile as string
- ToolsOptions
- hToolsOptions ("STAROFFICE","USERDATA")
- VorName.SetText "Garfield"
- ZuName.SetText "Peanuts"
- EMail.SetText "recumbent at sun.com"
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ '/// open 'tools->options' and set first/last name and email adress on the page 'StarOffice->UserData' ///'
+ ToolsOptions
+ hToolsOptions ("STAROFFICE","USERDATA")
+ VorName.SetText "Garfield"
+ ZuName.SetText "Peanuts"
+ EMail.SetText "recumbent at sun.com"
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- app.mkDir ((ConvertPath (gOfficePath + "user\work\html\"))
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
- if (KillFileList (Liste()) <> TRUE) then
- for i = 1 to ListCount (Liste())
- Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
- next i
- endif
+ '/// create directory if not exists and delete the content, if exists user\\work\\html\\ ///'
+ app.mkDir ((ConvertPath (gOfficePath + "user\work\html\"))
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
+ if (KillFileList (Liste()) <> TRUE) then
+ for i = 1 to ListCount (Liste())
+ Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
+ next i
+ endif
- Call hNewDocument
- WaitSlot (3000)
- '---------------------------------- simple document -----------------------------------------------
- hTextrahmenErstellen ("This is a test text",10,10,40,20)
- WaitSlot (2000)
- hRechteckErstellen (50,50,70,70)
- WaitSlot (3000)
- '###################################################################################################
- FileExport
- Kontext "ExportierenDlg"
- WaitSlot (1000)
- gHTMLFilter = Dateityp.GetItemText(1)
- Dateityp.Select(gHTMLFilter)
- sFile = ConvertPath (gOfficePath + "user\work\html\expo0")
- Dateiname.SetText sFile
- WaitSlot (2000)
- Speichern.Click
- WaitSlot (3000)
- Kontext "Active"
- if Active.Exists Then Active.Yes
- '--------------------------------------------------------------------------
- Kontext "HTMLExport1"
- HTMLExport1.Cancel
- WaitSlot (5000)
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
- WaitSlot (1000)
- Printlog "used file name: '" + sFile + "'"
- if (ListCount (Liste()) > 0) then
- warnlog "dialog for export was canceled, but file was created :-("
- for i = 1 to ListCount (Liste())
- Warnlog "File created: " + i + ": '" + Liste(i) + "'"
- next i
- KillFileList (Liste())
- end if
- '###################################################################################################
- FileExport
- Kontext "ExportierenDlg"
- WaitSlot (1000)
- try
- Dateityp.Select gHTMLFilter
- catch
- errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
- endcatch
- WaitSlot (1000)
- sFile = ConvertPath (gOfficePath + "user\work\html\expo.html")
- Dateiname.SetText sFile
- WaitSlot (2000)
- Speichern.Click
- WaitSlot (3000)
- Kontext "Active"
- if Active.Exists Then Active.Yes
- '--------------------------------------------------------------------------
- Kontext "HTMLExport1"
- if (NeuesDesign.IsEnabled <> TRUE) then
- warnlog "NewDesign is not enabled by default :-("
- endif
- Weiter.Click
- WaitSlot (1000)
- Kontext "HTMLExport2"
- if (Standard.IsChecked <> TRUE) then
- warnlog "Standard is not enabled by default :-("
- Standard.Check
- end if
- if Not TitelseiteErzeugen.IsChecked Then
- TitelSeiteErzeugen.Check
- Warnlog "- 'create Titlepage' should be checked as default :-("
- end if
- if (gApplication = "IMPRESS") then
- If (Notizenanzeigen.IsChecked <> TRUE) Then
- warnlog "- 'Show notes' checked as default :-("
- Notizenanzeigen.Check
- end if
- end if
- Weiter.Click
- Kontext "HTMLExport3"
- if (PNG.isChecked <> TRUE) then
- warnlog "Save Graphic as 'PNG' is not checked as default :-("
- PNG.Check
- end if
- if (Kompressionswert.GetSelText <> "75%") then
- warnlog "'Compression' should be '75%', but is: '" + Kompressionswert.GetSelText + "'"
- Kompressionswert.Select "75%"
- end if
- if (NiedrigeAufloesung.IsChecked <> TRUE)Then
- warnlog "Monitor resolution 'low' is not selected as default :-("
- NiedrigeAufloesung.Check
- end if
- if (KlaengeExportieren.IsChecked <> true) then
- warnlog "'Export Sounds' is not checked as default :-("
- KlaengeExportieren.Check
- end if
- Weiter.Click
- WaitSlot (1000)
- Kontext "HTMLExport4"
- sTemp = Autor.GetText
- Autor1=Autor.GetText
- if (sTemp <> "Garfield Peanuts") then
- warnlog "Value for 'Author' is other than expected, should 'Garfield Peanuts', is: '"+sTemp+"'"
- end if
- sTemp = EMail.GetText
- Adresse1=EMail.GetText
- if (sTemp <> "recumbent at sun.com") then
- warnlog "Value for 'Email' is other than expected, should be 'recumbent at sun.com', is: '"+sTemp+"'"
- end if
- Homepage.SetText "mahler"
- AdditionalInformation.SetText "QualityApprooved"
- Weiter.Click
- WaitSlot (2000)
- Kontext "HTMLExport5"
- WaitSlot (5000)
- if (NurText.ischecked <> TRUE) then
- warnlog "'Text only' is not checked by default :-("
- NurText.check
- end if
- Weiter.Click
+ '/// open application ///'
+ Call hNewDocument
+ WaitSlot (3000)
+'---------------------------------- simple document -----------------------------------------------
+ '/// create a rectrangle ///'
+ hTextrahmenErstellen ("This is a test text",10,10,40,20)
+ WaitSlot (2000)
+ '/// create another rectrangle ///'
+ hRechteckErstellen (50,50,70,70)
+ WaitSlot (3000)
+'###################################################################################################
+ Printlog "'///<b> test if no file is created, if dialog is canceld </b>///'"
+ '/// call 'File->Export'///'
+ FileExport
+ Kontext "ExportierenDlg"
+ WaitSlot (1000)
+ gHTMLFilter = Dateityp.GetItemText(1)
+ Dateityp.Select(gHTMLFilter)
+ '/// set Filename to 'user\\work\\html\\expo0.html' ///'
+ sFile = ConvertPath (gOfficePath + "user\work\html\expo0")
+ Dateiname.SetText sFile
+ WaitSlot (2000)
+ '/// click button 'Save' ///'
+ Speichern.Click
+ WaitSlot (3000)
+ Kontext "Active"
+ if Active.Exists Then Active.Yes
+'--------------------------------------------------------------------------
+ '/// now we are on the dialog -1- 'Assign design' ///'
+ Kontext "HTMLExport1"
+ '/// click button 'Cancel' ///'
+ HTMLExport1.Cancel
+ WaitSlot (5000)
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ Printlog "used file name: '" + sFile + "'"
+ if (ListCount (Liste()) > 0) then
+ warnlog "dialog for export was canceled, but file was created :-("
+ for i = 1 to ListCount (Liste())
+ Warnlog "File created: " + i + ": '" + Liste(i) + "'"
+ next i
+ KillFileList (Liste())
+ end if
+'###################################################################################################
+ Printlog "'///<b> test if files are created </b>///'"
+ '/// call 'File->Export'///'
+ FileExport
+ Kontext "ExportierenDlg"
+ WaitSlot (1000)
+ try
+ '/// select Filetype 'HTML...' aka 'WebPage' ///'
+ Dateityp.Select gHTMLFilter
+ catch
+ errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
+ Dateityp.Select 1 '/// Selects the first entry - which should be html ///'
+ endcatch
+ WaitSlot (1000)
+ '/// set Filename to 'user\\work\\html\\expo.html' ///'
+ sFile = ConvertPath (gOfficePath + "user\work\html\expo.html")
+ Dateiname.SetText sFile
+ WaitSlot (2000)
+ '/// click button 'Save' ///'
+ Speichern.Click
+ WaitSlot (3000)
+ Kontext "Active"
+ if Active.Exists Then Active.Yes
+'--------------------------------------------------------------------------
+ Printlog "'/// now we are on the dialog -1- 'Assign design' ///'"
+ Kontext "HTMLExport1"
+ '/// 'New design' should be checked ///'
+ if (NeuesDesign.IsEnabled <> TRUE) then
+ warnlog "NewDesign is not enabled by default :-("
+ endif
+ '/// click button 'Next >>' ///'
+ Weiter.Click
+ WaitSlot (1000)
+ Printlog "'/// now we are on the dialog -2- 'Publication Type & Options' ///'"
+ Kontext "HTMLExport2"
+ '/// checkbox 'Standard HTML Format' is checked by default ///'
+ if (Standard.IsChecked <> TRUE) then
+ warnlog "Standard is not enabled by default :-("
+ Standard.Check
+ end if
+ '/// checkbox 'Title Page' is checked by default ///'
+ if Not TitelseiteErzeugen.IsChecked Then
+ TitelSeiteErzeugen.Check
+ Warnlog "- 'create Titlepage' should be checked as default :-("
+ end if
+ if (gApplication = "IMPRESS") then
+ '/// if applcation is impress: the checkbox 'Show notes' is enabled by default///'
+ If (Notizenanzeigen.IsChecked <> TRUE) Then
+ warnlog "- 'Show notes' checked as default :-("
+ Notizenanzeigen.Check
+ end if
+ end if
+ '/// click button 'Next >>' ///'
+ Weiter.Click
+ Printlog "'/// now we are on the dialog -3- 'png/gif/jpeg & resolution & sound' ///'"
+ Kontext "HTMLExport3"
+ '/// checkbox 'PNG' is checked by default ///'
+ if (PNG.isChecked <> TRUE) then
+ warnlog "Save Graphic as 'PNG' is not checked as default :-("
+ PNG.Check
+ end if
+ '/// Listbox compression '75%' is selected by default ///'
+ if (Kompressionswert.GetSelText <> "75%") then
+ warnlog "'Compression' should be '75%', but is: '" + Kompressionswert.GetSelText + "'"
+ Kompressionswert.Select "75%"
+ end if
+ '/// checkbox 'low monitor resolution' is checked by default ///'
+ if (NiedrigeAufloesung.IsChecked <> TRUE)Then
+ warnlog "Monitor resolution 'low' is not selected as default :-("
+ NiedrigeAufloesung.Check
+ end if
+ '/// checkbox 'export sounds' is checked by default ///'
+ if (KlaengeExportieren.IsChecked <> true) then
+ warnlog "'Export Sounds' is not checked as default :-("
+ KlaengeExportieren.Check
+ end if
+ '/// click button 'Next >>' ///'
+ Weiter.Click
+ WaitSlot (1000)
+ Printlog "'/// now we are on the dialog -4- 'Information for the title page' ///'"
+ Kontext "HTMLExport4"
+ '/// the names you entered in the options have to appeare here! ///'
+ sTemp = Autor.GetText
+ Autor1=Autor.GetText
+ if (sTemp <> "Garfield Peanuts") then
+ warnlog "Value for 'Author' is other than expected, should 'Garfield Peanuts', is: '"+sTemp+"'"
+ end if
+ sTemp = EMail.GetText
+ Adresse1=EMail.GetText
+ if (sTemp <> "recumbent at sun.com") then
+ warnlog "Value for 'Email' is other than expected, should be 'recumbent at sun.com', is: '"+sTemp+"'"
+ end if
+ '/// set text in field 'your homepage' ///'
+ Homepage.SetText "mahler"
+ AdditionalInformation.SetText "QualityApprooved"
+ '/// click button 'Next >>' ///'
+ Weiter.Click
+ WaitSlot (2000)
+ Printlog "'/// now we are on the dialog -5- 'select button style' ///'"
+ Kontext "HTMLExport5"
+ WaitSlot (5000)
+ '/// checkbox 'Text only' should be checked by default ///'
+ if (NurText.ischecked <> TRUE) then
+ warnlog "'Text only' is not checked by default :-("
+ NurText.check
+ end if
+ '/// click button 'Next >>' ///'
+ Weiter.Click
+ WaitSlot (1000)
+ Printlog "'/// now we are on the dialog -6- 'select color scheme' ///'"
+ Kontext "HTMLExport6"
+ WaitSlot (2000)
+ ' maybe check if colour dialog comes up ?! TBO
+ 'Text
+ 'Hyperlink
+ 'AktiverLink
+ 'GesichteterLink
+ 'Hintergrund
+ '/// 'Apply color schemes from document' should be checked per default :-) ///'
+ if (FarbenAusDok.IsChecked <> TRUE) Then
+ warnlog "'Apply color schemes from document' should be checked per default :-("
+ FarbenAusDok.Check
+ end if
+ WaitSlot (2000)
+ '/// click button 'Create' ///'
+ HTMLExport6.OK
+ WaitSlot (5000)
+ Printlog "'/// now we are on the dialog -7- 'Name HTML Design' ///'"
+ Kontext "HTMLDesign"
+ WaitSlot (1000)
+ Designname.SetText "Lem's Standard"
+ HTMLDesign.OK
+ WaitSlot (3000)
+ Kontext "active"
+ if active.exists (5) then
+ printlog " the name for this design already exists : '" + active.GetText+ "'"
+ printlog " SAY YES!------------------"
+ active.yes
+ end if
+ '/// check number and names of created files ///'
+ Printlog "used file name: '" + sFile + "'"
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ x = ListCount(Liste())
+' Printlog "gApplication is: " + gApplication ' For debugging - FHA
+ if gApplication = "DRAW" then
+ if (x <> "3") then
+ Warnlog "- Number of files is not correct, it should be:3 but it is: '" + x + "' - Draw"
+ for i=1 to x
+ printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
+ next
+ end if
+ else
+ if (x <> "4") then
+ Warnlog "- Number of files is not correct, it should be:4 but it is: '" + x + "' - Impress"
+ for i=1 to x
+ printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
+ next
+ end if
+ end if
+ '/// check if fileextension is common - .htm or .html for all files the same ///'
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.htm" , Liste() )
+ WaitSlot (1000)
+ x = ListCount(Liste())
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.html" , Liste() )
+ WaitSlot (1000)
+ i = ListCount(Liste())
+ if ((x > 0) AND (i > 0)) Then
+ Warnlog " fileextension is different between HTML-files :-( (htm/html)"
+ Warnlog " htm : " + x
+ Warnlog " html: " + i
+ end if
+'------------------------------------------------------------------------------------------------------------------------------
+ Printlog "'///<b> check if design is created in dialog </b>///'"
+ WaitSlot (3000)
+ '/// File->Export ///'
+ FileExport
+ Kontext "ExportierenDlg"
+ '/// Set Filename to "user\\work\\html\\expo.html" ///'
+ Dateiname.SetText sFile
+ try
+ '/// select Filetype 'HTML...' aka 'WebPage' ///'
+ Dateityp.Select gHTMLFilter
+ catch
+ errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
+ endcatch
+ WaitSlot (1000)
+ '/// click button 'save' ///'
+ Speichern.Click
+ WaitSlot (1000)
+ Kontext "Active"
+ ' active about overwriting existing file
+ if Active.Exists Then Active.Yes
+'--------------------------------------------------------------------------
+ WaitSlot (1000)
+ Kontext "HTMLExport1"
+ WaitSlot (1000)
+ try
+ '/// now 'existing design' is checkable -> check it ///'
+ ExistierendesDesign.Check
+ WaitSlot (3000)
+ '/// there has to be 1 design in the list, select and delete it ///'
+ x = Designliste.GetItemCount
+ if (x <> 1) then
+ warnlog "there is an unexpected count on designs in the list, expected 1, but there are : '" + x + "'"
+ end if
+ Designliste.Select 1
+ sTemp = Designliste.GetSelText
+ if sTemp = "Lem's Standard" Then
+ Printlog "- Created design exists in list and will be deleted now"
WaitSlot (1000)
- Kontext "HTMLExport6"
- WaitSlot (2000)
- ' maybe check if colour dialog comes up ?! TBO
- 'Text
- 'Hyperlink
- 'AktiverLink
- 'GesichteterLink
- 'Hintergrund
- if (FarbenAusDok.IsChecked <> TRUE) Then
- warnlog "'Apply color schemes from document' should be checked per default :-("
- FarbenAusDok.Check
- end if
+ DesignLoeschen.Click
WaitSlot (2000)
- HTMLExport6.OK
- WaitSlot (5000)
- Kontext "HTMLDesign"
- WaitSlot (1000)
- Designname.SetText "Lem's Standard"
- HTMLDesign.OK
- WaitSlot (3000)
- Kontext "active"
- if active.exists (5) then
- printlog " the name for this design already exists : '" + active.GetText+ "'"
- printlog " SAY YES!------------------"
- active.yes
- end if
- Printlog "used file name: '" + sFile + "'"
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
- WaitSlot (1000)
- x = ListCount(Liste())
- ' Printlog "gApplication is: " + gApplication ' For debugging - FHA
- if gApplication = "DRAW" then
- if (x <> "3") then
- Warnlog "- Number of files is not correct, it should be:3 but it is: '" + x + "' - Draw"
- for i=1 to x
- printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
- next
- end if
- else
- if (x <> "4") then
- Warnlog "- Number of files is not correct, it should be:4 but it is: '" + x + "' - Impress"
- for i=1 to x
- printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
- next
- end if
- end if
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.htm" , Liste() )
- WaitSlot (1000)
- x = ListCount(Liste())
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.html" , Liste() )
- WaitSlot (1000)
- i = ListCount(Liste())
- if ((x > 0) AND (i > 0)) Then
- Warnlog " fileextension is different between HTML-files :-( (htm/html)"
- Warnlog " htm : " + x
- Warnlog " html: " + i
- end if
- '------------------------------------------------------------------------------------------------------------------------------
- WaitSlot (3000)
- FileExport
- Kontext "ExportierenDlg"
- Dateiname.SetText sFile
- try
- Dateityp.Select gHTMLFilter
- catch
- errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
- endcatch
- WaitSlot (1000)
- Speichern.Click
- WaitSlot (1000)
- Kontext "Active"
- ' active about overwriting existing file
- if Active.Exists Then Active.Yes
- '--------------------------------------------------------------------------
- WaitSlot (1000)
- Kontext "HTMLExport1"
- WaitSlot (1000)
- try
- ExistierendesDesign.Check
- WaitSlot (3000)
- x = Designliste.GetItemCount
- if (x <> 1) then
- warnlog "there is an unexpected count on designs in the list, expected 1, but there are : '" + x + "'"
- end if
- Designliste.Select 1
- sTemp = Designliste.GetSelText
- if sTemp = "Lem's Standard" Then
- Printlog "- Created design exists in list and will be deleted now"
- WaitSlot (1000)
- DesignLoeschen.Click
- WaitSlot (2000)
- else
- Warnlog "- Created design does not appear in the list it is: '"+sTemp+"'"
- end if
- catch
- Warnlog "- List could not be accessed"
- endcatch
- WaitSlot (5000)
- HTMLExport1.OK
- kontext "Active"
- if Active.Exists then
- Active.Yes
- end if
- Call hCloseDocument
- Printlog "used file name: '" + sFile + "'"
- ' TBOTODO CHECK files contenet !
+ else
+ Warnlog "- Created design does not appear in the list it is: '"+sTemp+"'"
+ end if
+ catch
+ Warnlog "- List could not be accessed"
+ endcatch
+ WaitSlot (5000)
+ HTMLExport1.OK
+ kontext "Active"
+ if Active.Exists then
+ Active.Yes
+ end if
+ Call hCloseDocument
+ Printlog "used file name: '" + sFile + "'"
+ ' TBOTODO CHECK files contenet !
+
endcase 'tHtmlExport
-
'-------------------------------------------------------------------------------
testcase tHtmlExport_Webcast
@@ -305,324 +356,400 @@ testcase tHtmlExport_Webcast
dim Liste ( 200 ) as String
dim sFile as string
- app.mkDir (ConvertPath (gOfficePath + "user\work\html\asp\"))
- app.mkDir (ConvertPath (gOfficePath + "user\work\html\perl\"))
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
- WaitSlot (1000)
- if (KillFileList (Liste()) <> TRUE) then
- for i = 1 to ListCount (Liste())
- Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
- next i
- end if
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
- WaitSlot (1000)
- if (KillFileList (Liste()) <> TRUE) then
- for i = 1 to ListCount (Liste())
- Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
- next i
- end if
+ '/// create directories if not exists and delete the content, if exists user\\work\\html\\[asp|perl]\\ ///'
+ app.mkDir (ConvertPath (gOfficePath + "user\work\html\asp\"))
+ app.mkDir (ConvertPath (gOfficePath + "user\work\html\perl\"))
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ if (KillFileList (Liste()) <> TRUE) then
+ for i = 1 to ListCount (Liste())
+ Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
+ next i
+ end if
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ if (KillFileList (Liste()) <> TRUE) then
+ for i = 1 to ListCount (Liste())
+ Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
+ next i
+ end if
+ '/// File->Autopillot->Presentation... ///'----------------------------------
FileAutopilotPresentation
Kontext "Active"
if Active.Exists(1) then
WarnlogActive.GetText
try
- Active.OK
+ Active.OK
catch
- Active.No
+ Active.No
endcatch
goto endsub
end if
+ '/// Page 1 of autopilot///'
Kontext "AutopilotPraesentation1"
+ '/// uncheck 'preview' ///'
Preview.Uncheck
+ '/// click on button 'create' ///'
AutopilotPraesentation1.OK
WaitSlot (3000)
'************************************************************ Page 1
+ Printlog "'///<b> create a presentation and save it for further references </b>///'"
+ '/// start creating the presentation now ///'-------------------------------
Printlog "- Create presentation"
+ '/// select 'click to add title' with [TAB] and press [F2] to edit the placeholder title ///'
hTypeKeys "<TAB><F2>"
WaitSlot (2000)
Select Case Ucase(gApplication)
- case "DRAW" : hMouseClick DocumentDraw,50,50
- case "IMPRESS" : hMouseClick DocumentImpress,50,50
+ case "DRAW" : hMouseClick DocumentDraw,50,50
+ case "IMPRESS" : hMouseClick DocumentImpress,50,50
end select
WaitSlot (3000)
+ '/// Type 'This is a test text', select it. ///'
hTextrahmenErstellen ("This is a test text",10,10,40,20)
EditSelectAll
Kontext "TextObjectbar"
+ '/// click 'bold text' in object toolbar ///'
Fett.Click
WaitSlot (2000)
+ '/// press [esacpe][tab] to get out of edit mode and select the next placeholder ///'
hTypeKeys "<escape><TAB>"
WaitSlot (1000)
+ '/// SlideShow->Effects ///'
SlideShowCustomAnimation
WaitSlot (1000)
Kontext "Tasks"
WaitSlot (1000)
EffectAdd.Click
+ '/// Dialog 'Custom Animation' comes up ///'
kontext
+ '/// Switch to TabPage: Entrance ///'
active.setPage(TabEntrance)
Kontext "TabEntrance"
if TabEntrance.Exists (5) then
- WaitSlot (1000)
- Effects.Select(5)
- Speed.Select 1
- try
- TabEntrance.Ok
- catch
- errorlog "SlideShowEffects wasnt closed as it should have been"
- endcatch
- if TabEntrance.Exists then
- TabEntrance.Close
- warnlog "TabEntrance.Ok didn't seem to close the dialog."
- else
- printlog "TabEntrance was closed as it should"
- end if
- kontext "Tasks"
- end if
- WaitSlot (3000)
- 'Doesnt work, will work when accessability works better - FHA.
+ WaitSlot (1000)
+ '/// select effect 'ABC v' :-) ///'
+ Effects.Select(5)
+ '/// select speed 'slow' -> first item in list ///'
+ Speed.Select 1
+ try
+ TabEntrance.Ok
+ catch
+ errorlog "SlideShowEffects wasnt closed as it should have been"
+ endcatch
+ if TabEntrance.Exists then
+ TabEntrance.Close
+ warnlog "TabEntrance.Ok didn't seem to close the dialog."
+ else
+ printlog "TabEntrance was closed as it should"
+ end if
+ kontext "Tasks"
+ end if
+ WaitSlot (3000)
+ '/// activate grafik insert dialog by typing [return] ///'
+'Doesnt work, will work when accessability works better - FHA.
- ' hTypeKEys "<return>" ' i love accessability feartures .-)))))))))))))))))
- InsertGraphicsFromFile
- Kontext "GrafikEinfuegenDlg"
- if GrafikEinfuegenDlg.Exists <> TRUE then
- WaitSlot (1000)
- end if
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
- WaitSlot (3000)
- Oeffnen.Click
- WaitSlot (2000)
- hTypeKeys "<TAB><F2>"
- hTypeKeys "Mecury<RETURN>Venus<RETURN>Earth<RETURN>Mars<RETURN>Jupiter<RETURN>Saturn<RETURN>Uranus<RETURN>Neptune<RETURN>Pluto"
- EditSelectAll
- WaitSlot (1000)
- FormatCharacter
- WaitSlot (2000)
- Kontext
- Active.SetPage TabFont
- Kontext "TabFont"
- try
- SizeWest.SetText "18"
- catch
- Size.SetText "18"
- endcatch
- TabFont.OK
- WaitSlot (1000)
- Kontext "TextObjectbar"
- try
- usebindings
- Fett.Click 'culprint
- catch
- warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
- hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
- WaitSlot (1000)
- hTypeKeys "<F2>"
- hTypeKeys "<HOME>"
- hTypeKeys "<SHIFT><END>"
- Kontext "TextObjectbar"
- try
- usebindings
- Fett.Click 'culprint
- catch
- warnlog "darn again TBO"
- endcatch
- endcatch
- WaitSlot (2000)
- SlideShowCustomAnimation
- WaitSlot (1000)
- Kontext "Tasks"
- WaitSlot (1000)
- EffectChange.Click
- kontext
- active.setPage(TabEntrance)
- kontext "TabEntrance"
- Effects.TypeKeys "<DOWN>",8
- Speed.Select 2
- try
- TabEntrance.Ok
- catch
- warnlog "select another effect, assign is not possible"
- endcatch
- '************************************************************ Page 2 Merkur
- InsertSlide
- WaitSlot (2000)
- hTypekeys "<Pagedown>"
- WaitSlot (2000)
- hTypeKeys "<TAB><F2>"
- WaitSlot (2000)
- hTextrahmenErstellen ("MERKUR",10,10,60,30)
- EditSelectAll
- WaitSlot (2000)
- Kontext "TextObjectbar"
- Fett.Click
- WaitSlot (1000)
- ' hTypeKeys "<escape><tab><return>"
- hTypeKeys "<escape><tab>"
- InsertGraphicsFromFile
- WaitSlot (4000)
- Kontext "GrafikEinfuegenDlg"
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
- WaitSlot (3000)
- Oeffnen.Click
- WaitSlot (2000)
- hTypeKeys "<TAB><F2>"
- WaitSlot (1000)
- hTypeKeys "Reciprocal Mass *5972000<SHIFT RETURN>Mass (Erde=1) 0,0558<SHIFT RETURN>Mass in kg 3,30310<SHIFT RETURN>"
- hTypeKeys "Equator-radius (km) 2440<SHIFT RETURN>Equator-radius (Erde=1)0,382<SHIFT RETURN>Middle density (kg/m^3) 5400<SHIFT RETURN>"
- hTypeKeys "Gravity acceleration at the equator (m/s^2) 3,78<SHIFT RETURN>Flightvelocity at the equator (km/s) 4,3<SHIFT RETURN>Sidereal rotationtime 58,65 Tage<SHIFT RETURN>"
- hTypeKeys "Bias of the equatorplane against the orbitplane 0><SHIFT RETURN>Time of circulation 88 days<SHIFT RETURN>Distance to the sun Sun (km) 58Mio.<SHIFT RETURN>Temperatur at the day 350C<SHIFT RETURN>"
- hTypeKeys "Temperatur at night -170C<SHIFT RETURN>Diameter (km) 4800"
- EditSelectAll
- WaitSlot (1000)
- FormatCharacter
- WaitSlot (2000)
- Kontext
- Active.SetPage TabFont
- Kontext "TabFont"
- try
- SizeWest.SetText "16"
- catch
- Size.SetText "16"
- endcatch
- TabFont.OK
- WaitSlot (2000)
- Kontext "TextObjectbar"
- try
- Fett.Click 'culprint
- catch
- warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
- hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
- WaitSlot (1000)
- hTypeKeys "<F2>"
- hTypeKeys "<HOME>"
- hTypeKeys "<SHIFT><END>"
- Kontext "TextObjectbar"
- try
- Fett.Click 'culprint
- catch
- warnlog "darn again TBO"
- endcatch
- endcatch
- WaitSlot (2000)
- sFile = ConvertPath (gOfficePath + "user\work\webcast")
- if (Dir (sFile + ".odp") <> "") then app.kill (sFile + ".odp")
- WaitSlot (2000)
- hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
- Printlog "saved presentation: '" + sFile + ".odp"
- '----------------------------------- Exportieren als ASP Web-Cast
- FileExport
- WaitSlot (2000)
- Kontext "ExportierenDlg"
- try
- gHTMLFilter = Dateityp.GetItemText(1)
- Dateityp.Select(gHTMLFilter)
- catch
- errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
- endcatch
- sFile = ConvertPath (gOfficePath + "user\work\html\asp\webcast.html")
- Dateiname.SetText sFile
- Speichern.Click
- WaitSlot (5000)
- Kontext "Active"' ????????? TBO
- if Active.Exists (5) Then Active.Yes
- WaitSlot (3000)
- Kontext "HTMLExport1"
- WaitSlot (2000)
- Weiter.Click
- WaitSlot (2000)
- Kontext "HTMLExport2"
- WaitSlot (2000)
- WebCast.Check
- WaitSlot (2000)
- ASP.Check
- Weiter.Click
- Kontext "HTMLExport3"
- WaitSlot (2000)
- Gif.Check
- MittlereAufloesung.Check
- WaitSlot (1000)
- HTMLExport3.OK
- WaitSlot (2000)
- Kontext "HTMLDesign"
- if HTMLDesign.Exists Then HTMLDesign.Cancel
- iWaitIndex = 0
- do while HTMLDesign.Exists AND iWaitIndex < 30
- WaitSlot (1000)
- iWaitIndex = iWaitIndex + 1
- loop
- Printlog "- Check number of safed files"
- Printlog "file saved: '" + sFile + "'"
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
- WaitSlot (1000)
- x = ListCount(Liste())
- if (x <> "11") Then
- Warnlog "- Number of files is not correct, it should be:11 but it is: '" + x + "'"
- for i=1 to x
- printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
- next
- end if
- '----------------------------------- Exportieren als ASP Web-Cast
- Kontext "DocumentImpress"
- WaitSlot (2000)
- FileExport
- WaitSlot (2000)
- Kontext "ExportierenDlg"
- try
- Dateityp.Select gHTMLFilter
- catch
- errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
- Dateityp.Select 1 ' selects the first one just in case anything else is selected.
- printlog "Selected " + Dateityp.GetSelText + " manually."
- endcatch
- WaitSlot (1000)
- sFile = ConvertPath (gOfficePath + "user\work\html\perl\webcast")
- Dateiname.SetText sFile
- Speichern.Click
- WaitSlot (2000)
- if Active.Exists Then Active.Yes
- WaitSlot (2000)
- Kontext "HTMLExport1"
- WaitSlot (2000)
- Weiter.Click
- WaitSlot (2000)
- Kontext "HTMLExport2"
- WaitSlot (2000)
- WebCast.Check
- WaitSlot (2000)
- PERL.Check
- WaitSlot (1000)
- printlog "URL for listeners compare to to TBO: '"+BeamerURL.GetText+"'"
- PraesentationURL.SetText "wbcst_prl"
- WaitSlot (1000)
- ScriptURL.SetText "/WebCast/cgi-bin/"
- printlog "presentation url? : "+ (gOfficePath + "/WebCast/cgi-bin/wbcst_prl")
- WaitSlot (1000)
- Weiter.Click
- WaitSlot (1000)
- Kontext "HTMLExport3"
- WaitSlot (1000)
- Gif.Check
- MittlereAufloesung.Check
- WaitSlot (3000)
- HTMLExport3.OK
- WaitSlot (3000)
- Kontext "HTMLDesign"
- if HTMLDesign.Exists Then HTMLDesign.Cancel
- Printlog "- Presentation saved and exported into both Webcast formats. all files can be found here: " + gOfficePath + "output\impress\web-cast\"
- Printlog "file saved: '" + sFile + ".html'"
- WaitSlot (10000)
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
- x = ListCount(Liste())
- if (x <> "12") Then
- Warnlog "- Number of files is not correct, it should be:5 but it is: '" + x + "'"
- for i=1 to x
- printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
- next
- end if
- Call hCloseDocument
+' hTypeKEys "<return>" ' i love accessability feartures .-)))))))))))))))))
+ InsertGraphicsFromFile
+ Kontext "GrafikEinfuegenDlg"
+ if GrafikEinfuegenDlg.Exists <> TRUE then
+ WaitSlot (1000)
+ end if
+ '/// insert grafik: global\\input\\graf_inp\\borabora.jpg ///'
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
+ WaitSlot (3000)
+ Oeffnen.Click
+ WaitSlot (2000)
+ '/// select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder ///'
+ hTypeKeys "<TAB><F2>"
+ '/// insert text and select the words by typing [strg a] ///'
+ hTypeKeys "Mecury<RETURN>Venus<RETURN>Earth<RETURN>Mars<RETURN>Jupiter<RETURN>Saturn<RETURN>Uranus<RETURN>Neptune<RETURN>Pluto"
+ EditSelectAll
+ WaitSlot (1000)
+ '/// format->character ///'
+ FormatCharacter
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ '/// set font size to '18' on tabpage 'font' ///'
+ try
+ SizeWest.SetText "18"
+ catch
+ Size.SetText "18"
+ endcatch
+ '/// click button OK ///'
+ TabFont.OK
+ WaitSlot (1000)
+ '/// click 'bold text' in object toolbar ///'
+ Kontext "TextObjectbar"
+ try
+ usebindings
+ Fett.Click 'culprint
+ catch
+ warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
+ hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
+ WaitSlot (1000)
+ hTypeKeys "<F2>"
+ hTypeKeys "<HOME>"
+ hTypeKeys "<SHIFT><END>"
+ Kontext "TextObjectbar"
+ try
+ usebindings
+ Fett.Click 'culprint
+ catch
+ warnlog "darn again TBO"
+ endcatch
+ endcatch
+ WaitSlot (2000)
+ '/// SlideShow-> CustomAnimation ///'
+ SlideShowCustomAnimation
+ WaitSlot (1000)
+ Kontext "Tasks"
+ WaitSlot (1000)
+ EffectChange.Click
+ kontext
+ '/// Switch to TabPage: Entrance ///'
+ active.setPage(TabEntrance)
+ kontext "TabEntrance"
+ Effects.TypeKeys "<DOWN>",8
+ Speed.Select 2
+ try
+ TabEntrance.Ok
+ catch
+ warnlog "select another effect, assign is not possible"
+ endcatch
+'************************************************************ Page 2 Merkur
+ '/// create a 2nd slide with: insert->slide ///'
+ InsertSlide
+ WaitSlot (2000)
+ hTypekeys "<Pagedown>"
+ WaitSlot (2000)
+ '/// select 'click to add title' with [TAB] and press [F2] to edit the placeholder title ///'
+ hTypeKeys "<TAB><F2>"
+ WaitSlot (2000)
+ '/// Type 'MERKUR', select it via Edit-Select All///'
+ hTextrahmenErstellen ("MERKUR",10,10,60,30)
+ EditSelectAll
+ WaitSlot (2000)
+ '/// click 'bold text' in object toolbar ///'
+ Kontext "TextObjectbar"
+ Fett.Click
+ WaitSlot (1000)
+ '/// press [esacpe][tab][return] to get out of edit mode and select the next placeholder and activate grafik insert dialog ///'
+' hTypeKeys "<escape><tab><return>"
+ hTypeKeys "<escape><tab>"
+ InsertGraphicsFromFile
+ WaitSlot (4000)
+ '/// insert grafik: global\\input\\graf_inp\\borabora.jpg ///'
+ Kontext "GrafikEinfuegenDlg"
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
+ WaitSlot (3000)
+ Oeffnen.Click
+ WaitSlot (2000)
+ '/// select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder ///'
+ hTypeKeys "<TAB><F2>"
+ '/// insert text and select the words by typing [strg a] ///'
+ WaitSlot (1000)
+ hTypeKeys "Reciprocal Mass *5972000<SHIFT RETURN>Mass (Erde=1) 0,0558<SHIFT RETURN>Mass in kg 3,30310<SHIFT RETURN>"
+ hTypeKeys "Equator-radius (km) 2440<SHIFT RETURN>Equator-radius (Erde=1)0,382<SHIFT RETURN>Middle density (kg/m^3) 5400<SHIFT RETURN>"
+ hTypeKeys "Gravity acceleration at the equator (m/s^2) 3,78<SHIFT RETURN>Flightvelocity at the equator (km/s) 4,3<SHIFT RETURN>Sidereal rotationtime 58,65 Tage<SHIFT RETURN>"
+ hTypeKeys "Bias of the equatorplane against the orbitplane 0><SHIFT RETURN>Time of circulation 88 days<SHIFT RETURN>Distance to the sun Sun (km) 58Mio.<SHIFT RETURN>Temperatur at the day 350C<SHIFT RETURN>"
+ hTypeKeys "Temperatur at night -170C<SHIFT RETURN>Diameter (km) 4800"
+ EditSelectAll
+ WaitSlot (1000)
+ '/// format->character ///'
+ FormatCharacter
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ '/// set font size to '18' on tabpage 'font' ///'
+ try
+ SizeWest.SetText "16"
+ catch
+ Size.SetText "16"
+ endcatch
+ '/// click button OK ///'
+ TabFont.OK
+ WaitSlot (2000)
+ '/// click 'bold text' in object toolbar ///'
+ Kontext "TextObjectbar"
+ try
+ Fett.Click 'culprint
+ catch
+ warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
+ hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
+ WaitSlot (1000)
+ hTypeKeys "<F2>"
+ hTypeKeys "<HOME>"
+ hTypeKeys "<SHIFT><END>"
+ Kontext "TextObjectbar"
+ try
+ Fett.Click 'culprint
+ catch
+ warnlog "darn again TBO"
+ endcatch
+ endcatch
+ WaitSlot (2000)
+ '/// save file with impress filter : "user\\work\\webcast.odp" ///'
+ sFile = ConvertPath (gOfficePath + "user\work\webcast")
+ if (Dir (sFile + ".odp") <> "") then app.kill (sFile + ".odp")
+ WaitSlot (2000)
+ hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
+ Printlog "saved presentation: '" + sFile + ".odp"
+'----------------------------------- Exportieren als ASP Web-Cast
+ Printlog "'///<b> export as webcast ASP </b>///'"
+ '/// File->SaveAs ///'
+ FileExport
+ WaitSlot (2000)
+ Kontext "ExportierenDlg"
+ try
+ '/// select Filetype 'HTML...' aka 'WebPage' ///'
+ gHTMLFilter = Dateityp.GetItemText(1)
+ Dateityp.Select(gHTMLFilter)
+ catch
+ errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
+ Dateityp.Select 1 '/// Selects the first entry - which should be html ///'
+ endcatch
+ '/// Set Filename to "user\\work\\webcst_asp.html" ///'
+ sFile = ConvertPath (gOfficePath + "user\work\html\asp\webcast.html")
+ Dateiname.SetText sFile
+ '/// click button 'save' ///'
+ Speichern.Click
+ WaitSlot (5000)
+ Kontext "Active"' ????????? TBO
+ if Active.Exists (5) Then Active.Yes
+ WaitSlot (3000)
+ '/// now we are on the dialog -1- 'Assign design' ///'
+ Kontext "HTMLExport1"
+ WaitSlot (2000)
+ '/// click button 'Next >>' ///'
+ Weiter.Click
+ WaitSlot (2000)
+ '/// now we are on the dialog -2- 'Publication Type & Options' ///'
+ Kontext "HTMLExport2"
+ WaitSlot (2000)
+ Printlog "'/// check 'WebCast' ///"
+ WebCast.Check
+ WaitSlot (2000)
+ Printlog "'/// check 'Active Server Pages (ASP)' ///"
+ ASP.Check
+ '/// click button 'Next >>' ///'
+ Weiter.Click
+ '/// now we are on the dialog -3- 'gif/jpeg & resolution & sound' ///'
+ Kontext "HTMLExport3"
+ WaitSlot (2000)
+ '/// check Save graphics as 'GIF' ///'
+ Gif.Check
+ '/// check 'Medium (monitor) Resolution' ///'
+ MittlereAufloesung.Check
+ WaitSlot (1000)
+ '/// click button 'Create' ///'
+ HTMLExport3.OK
+ WaitSlot (2000)
+ '/// now we are on the dialog -7- 'Name HTML Design' ///'
+ Kontext "HTMLDesign"
+ '/// click button 'Do Not Save' ///'
+ if HTMLDesign.Exists Then HTMLDesign.Cancel
+ iWaitIndex = 0
+ do while HTMLDesign.Exists AND iWaitIndex < 30
+ WaitSlot (1000)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ Printlog "- Check number of safed files"
+ Printlog "file saved: '" + sFile + "'"
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ x = ListCount(Liste())
+ if (x <> "11") Then
+ Warnlog "- Number of files is not correct, it should be:11 but it is: '" + x + "'"
+ for i=1 to x
+ printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
+ next
+ end if
+'----------------------------------- Exportieren als ASP Web-Cast
+ Printlog "'///<b> export as webcast PERL </b>///'"
+ Kontext "DocumentImpress"
+ WaitSlot (2000)
+ '/// File->export ///'
+ FileExport
+ WaitSlot (2000)
+ Kontext "ExportierenDlg"
+ '/// select Filetype 'HTML...' aka 'WebPage' ///'
+ try
+ Dateityp.Select gHTMLFilter
+ catch
+ errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
+ Dateityp.Select 1 ' selects the first one just in case anything else is selected.
+ printlog "Selected " + Dateityp.GetSelText + " manually."
+ endcatch
+ WaitSlot (1000)
+ '/// Set Filename to "user\\work\\wbcst_p.html" ///'
+ sFile = ConvertPath (gOfficePath + "user\work\html\perl\webcast")
+ Dateiname.SetText sFile
+ '/// click button 'save' ///'
+ Speichern.Click
+ WaitSlot (2000)
+ Kontext "Active" '/// click button 'save' ///'
+ if Active.Exists Then Active.Yes
+ WaitSlot (2000)
+ '/// now we are on the dialog -1- 'Assign design' ///'
+ Kontext "HTMLExport1"
+ WaitSlot (2000)
+ '/// click button 'Next >>' ///'
+ Weiter.Click
+ WaitSlot (2000)
+ '/// now we are on the dialog -2- 'Publication Type & Options' ///'
+ Kontext "HTMLExport2"
+ WaitSlot (2000)
+ Printlog "'/// check 'WebCast' ///"
+ WebCast.Check
+ WaitSlot (2000)
+ Printlog "'/// check 'Perl' ///"
+ PERL.Check
+ WaitSlot (1000)
+ '/// 'URL for listeners' ///'
+ printlog "URL for listeners compare to to TBO: '"+BeamerURL.GetText+"'"
+ '/// set 'URL for presentation' to 'wbcst_prl.html' ///'
+ PraesentationURL.SetText "wbcst_prl"
+ WaitSlot (1000)
+ '/// set 'URL for perl scrips' to '/WebCast/cgi-bin/' ///'
+ ScriptURL.SetText "/WebCast/cgi-bin/"
+ printlog "presentation url? : "+ (gOfficePath + "/WebCast/cgi-bin/wbcst_prl")
+ WaitSlot (1000)
+ '/// click button 'Next >>' ///'
+ Weiter.Click
+ WaitSlot (1000)
+ '/// now we are on the dialog -3- 'gif/jpeg & resolution & sound' ///'
+ Kontext "HTMLExport3"
+ WaitSlot (1000)
+ '/// check Save graphics as 'GIF' ///'
+ Gif.Check
+ '/// check 'Medium (monitor) Resolution' ///'
+ MittlereAufloesung.Check
+ WaitSlot (3000)
+ '/// click button 'Create' ///'
+ HTMLExport3.OK
+ WaitSlot (3000)
+ Kontext "HTMLDesign"
+ if HTMLDesign.Exists Then HTMLDesign.Cancel
+ Printlog "- Presentation saved and exported into both Webcast formats. all files can be found here: " + gOfficePath + "output\impress\web-cast\"
+ Printlog "file saved: '" + sFile + ".html'"
+ WaitSlot (10000)
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
+ x = ListCount(Liste())
+ if (x <> "12") Then
+ Warnlog "- Number of files is not correct, it should be:5 but it is: '" + x + "'"
+ for i=1 to x
+ printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
+ next
+ end if
+ Call hCloseDocument
- ' TBO: TODO FILECHECK IF EXISTS
-endcase
+ ' TBO: TODO FILECHECK IF EXISTS
+endcase 'tHtmlExport_Webcast
diff --git a/testautomation/graphics/optional/includes/global/g_find_replace.inc b/testautomation/graphics/optional/includes/global/g_find_replace.inc
index 49b38dd..f6eea7f 100755
--- a/testautomation/graphics/optional/includes/global/g_find_replace.inc
+++ b/testautomation/graphics/optional/includes/global/g_find_replace.inc
@@ -41,54 +41,54 @@
' #1 tiEditSearchAndReplaceBUGS
'*
'\**********************************************************************************
-
testcase tiEditSearchAndReplace
- Dim sFile 'as string
- Dim sExpression(2) as string ' Expression to look for: ... Replace with
- dim sExt as string
+ '/// This test tests the 'Search and Replace' -dialogue. ///'
+ Dim sFile 'as string
+ Dim sExpression(2) as string ' Expression to look for: ... Replace with
+ dim sExt as string
- Select Case Ucase(gApplication)
- case "DRAW" : sExt = ".odg"
- case "IMPRESS" : sExt = ".odp"
- end select
+ Select Case Ucase(gApplication)
+ case "DRAW" : sExt = ".odg"
+ case "IMPRESS" : sExt = ".odp"
+ end select
- 'First we need some errornes words to replace. (sExpression)
- 'sExpression(1) has to be 3 times in the document
- select case iSprache
- case 01 : sExpression(1) = "Alle" : sExpression(2) = "Allz"
- case 03 : sExpression(1) = "empreza" : sExpression(2) = "Emperor" ' Portuguese
- case 07 : qaerrorlog "No files for Russian yet, will use english instead."
- sExpression(1) = "Alle" : sExpression(2) = "Allz"
- case 30 : ' Greek
- case 31 : sExpression(1) = "bedoeling" : sExpression(2) = "Bedoling" ' Netherlands
- case 33 : sExpression(1) = "projjet" : sExpression(2) = "projete" ' French
- case 34 : sExpression(1) = "lazsos" : sExpression(2) = "Lazsi" ' Spanish
- case 35 : ' Finnish
- case 36 : sExpression(1) = "Bozniai" : sExpression(2) = "Boszniai" ' Hungaria
- case 37 : ' Catalan
- case 39 : sExpression(1) = "Presentazione" : sExpression(2) = "Raggazi" ' Italian
- case 42 : ' Czech
- case 43 : ' Slowak
- case 44 : ' English (GB)
- case 45 : sExpression(1) = "installlere" : sExpression(2) = "installer" ' Danish
- case 46 : sExpression(1) = "desa" : sExpression(2) = "ased" ' Swedish
- case 47 : ' Norwegian
- case 48 : sExpression(1) = "programmu" : sExpression(2) = "programu" ' Polish
- case 49 : sExpression(1) = "Texxt" : sExpression(2) = "Schrieb" ' German
- case 55 : sExpression(1) = "esktava" : sExpression(2) = "norte" ' Portuguese (Brazil)
- case 66 : ' Thai
- ' case 81 : sExpression(1) = "���" : sExpression(2) = "���" ' Japanese
- ' case 82 : ' Korean
- ' case 86 : ' Chinese (simplified)
- ' case 88 : ' Chinese (traditional)
- case 90 : ' Turkish
- case 91 : ' Hindi
- case 96 : ' Arab
- case 97 : ' Hebrew
- case else :
- ' Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here and create the file"
- printlog " :-) Will use English instead"
- sExpression(1) = "Alle" : sExpression(2) = "Allz"
+ 'First we need some errornes words to replace. (sExpression)
+ 'sExpression(1) has to be 3 times in the document
+ select case iSprache
+ case 01 : sExpression(1) = "Alle" : sExpression(2) = "Allz"
+ case 03 : sExpression(1) = "empreza" : sExpression(2) = "Emperor" ' Portuguese
+ case 07 : qaerrorlog "No files for Russian yet, will use english instead."
+ sExpression(1) = "Alle" : sExpression(2) = "Allz"
+ case 30 : ' Greek
+ case 31 : sExpression(1) = "bedoeling" : sExpression(2) = "Bedoling" ' Netherlands
+ case 33 : sExpression(1) = "projjet" : sExpression(2) = "projete" ' French
+ case 34 : sExpression(1) = "lazsos" : sExpression(2) = "Lazsi" ' Spanish
+ case 35 : ' Finnish
+ case 36 : sExpression(1) = "Bozniai" : sExpression(2) = "Boszniai" ' Hungaria
+ case 37 : ' Catalan
+ case 39 : sExpression(1) = "Presentazione" : sExpression(2) = "Raggazi" ' Italian
+ case 42 : ' Czech
+ case 43 : ' Slowak
+ case 44 : ' English (GB)
+ case 45 : sExpression(1) = "installlere" : sExpression(2) = "installer" ' Danish
+ case 46 : sExpression(1) = "desa" : sExpression(2) = "ased" ' Swedish
+ case 47 : ' Norwegian
+ case 48 : sExpression(1) = "programmu" : sExpression(2) = "programu" ' Polish
+ case 49 : sExpression(1) = "Texxt" : sExpression(2) = "Schrieb" ' German
+ case 55 : sExpression(1) = "esktava" : sExpression(2) = "norte" ' Portuguese (Brazil)
+ case 66 : ' Thai
+' case 81 : sExpression(1) = "���" : sExpression(2) = "���" ' Japanese
+ ' case 82 : ' Korean
+ ' case 86 : ' Chinese (simplified)
+ ' case 88 : ' Chinese (traditional)
+ case 90 : ' Turkish
+ case 91 : ' Hindi
+ case 96 : ' Arab
+ case 97 : ' Hebrew
+ case else :
+' Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here and create the file"
+ printlog " :-) Will use English instead"
+ sExpression(1) = "Alle" : sExpression(2) = "Allz"
end select
if ((bAsianLan) OR (iSprache = 07)) then
@@ -113,61 +113,74 @@ testcase tiEditSearchAndReplace
Messagebox.OK
end if
sleep 2
+ hTypeKeys "<MOD1 HOME>" '/// Select the text ///'
+ '/// Edit-Find & Replace I///'
EditSearchAndReplace
sleep 1
Kontext "FindAndReplace"
+ '/// Clap the 'more options'-part open ///'
More.Click
+ '/// verify, that search is done without 'similarity search' !!! ///'
if SimilaritySearch.IsChecked = TRUE then
SimilaritySearch.UnCheck
warnlog "'Similar search' checkbox was enabled! It shouldn't be the default!"
end if
+ SearchFor.SetText sExpression(1) '/// set Search text ///'
+ ReplaceWith.SetText sExpression(2) '/// set Replace text///'
+ '/// Word has to be there ONLY three times ///'
+ SearchNow.Click '/// 1st search for text ///'
Kontext "Messagebox"
- if Messagebox.Exists(2) then
- Printlog Messagebox.GetText
- Messagebox.OK
- end if
+ if Messagebox.Exists(2) then
+ Printlog Messagebox.GetText
+ Messagebox.OK
+ end if
sleep 1
Kontext "FindAndReplace"
+ SearchNow.Click '/// 2nd search for text ///'
Kontext "Messagebox"
- if Messagebox.Exists(2) then
- Printlog Messagebox.GetText
- Messagebox.OK
- end if
+ if Messagebox.Exists(2) then
+ Printlog Messagebox.GetText
+ Messagebox.OK
+ end if
sleep 1
Kontext "FindAndReplace"
+ SearchNow.Click '/// 3th search for text///'
Kontext "Messagebox"
- if Messagebox.Exists(2) then
- Printlog Messagebox.GetText
- Messagebox.OK
- end if
+ if Messagebox.Exists(2) then
+ Printlog Messagebox.GetText
+ Messagebox.OK
+ end if
sleep 1
Kontext "FindAndReplace"
+ SearchNow.Click '/// 4th search for text; but it is no more available!///'
sleep 2
kontext "Messagebox"
if Messagebox.Exists Then
Printlog "- The word was found 3 times: '" + messagebox.gettext + "'"
Messagebox.OK
else
+ SearchNow.Click '/// 5th search for word 1///'
kontext
if Messagebox.Exists (5) Then
Printlog "?: "+Messagebox.gettext
- Warnlog "- No MsgBox appeared: 'changed'"
+ Warnlog "- No MsgBox appeared: 'changed'"
Messagebox.OK
endif
Warnlog "- No MsgBox appeared: 'changed'"
end if
+ '/// Replace all ///'
Kontext "FindAndReplace"
sleep 1
ReplaceAll.Click
Kontext "Messagebox"
if Not Messagebox.Exists (2) then
- ' Warnlog " Not all words are replaced" ' there never was a mesagebox ! (compared to 5.2)
+ ' Warnlog " Not all words are replaced" ' there never was a mesagebox ! (compared to 5.2)
else
printlog messagebox.gettext
qaerrorlog "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
@@ -175,6 +188,7 @@ testcase tiEditSearchAndReplace
end if
Kontext "FindAndReplace"
sleep 2
+ SearchNow.Click '/// Search for word 1 to check if all words are replaced ///'
Kontext "Messagebox"
if Not Messagebox.Exists then
Warnlog " Not all words are replaced (Replace All)"
@@ -186,13 +200,17 @@ testcase tiEditSearchAndReplace
FindAndReplace.Close
sleep 3
+ '/// Edit-Find & Replace II ///'
gMouseClick 50,50
sleep 1
hTypeKeys "<MOD1 HOME>"
EditSearchAndReplace
sleep 1
Kontext "FindAndReplace"
+ SearchFor.SetText sExpression(2) '/// Search for word 2 ///'
+ ReplaceWith.SetText sExpression(1) '/// Replace with word 1 ///'
+ Replace.Click '/// Replace 1 ///'
Kontext "Messagebox"
if Messagebox.Exists(4) Then
Kontext "Messagebox"
@@ -204,6 +222,7 @@ testcase tiEditSearchAndReplace
Kontext "FindAndReplace"
sleep 1
+ SearchNow.Click '/// 2nd search for word 2 ///'
Kontext "Messagebox"
if Messagebox.Exists(2) Then
Warnlog " All words got replaced, but only the 1st should have been"
@@ -214,6 +233,7 @@ testcase tiEditSearchAndReplace
Printlog " Word replaced"
end if
+ '/// Replace all ///'
Kontext "FindAndReplace"
ReplaceAll.Click
kontext "Messagebox"
@@ -223,6 +243,7 @@ testcase tiEditSearchAndReplace
Printlog "- No messagebox after replace all"
end if
+ '/// Search for word 2 to check if all are replaced ///'
Kontext "FindAndReplace"
SearchNow.Click
kontext "Messagebox"
@@ -237,98 +258,111 @@ testcase tiEditSearchAndReplace
More.Click
FindAndReplace.Close
sleep 2
+ '/// Close document ///'
Call hCloseDocument
-endcase
-
+
+endcase 'tiEditSearchAndReplace
+'--------------------------------------------------------
testcase tiEditSearchAndReplaceBUGS
- dim i as integer
- dim bTemp as boolean
- Call hNewDocument
- sleep 3
- EditSearchAndReplace
- Kontext "FindAndReplace"
- if FindAndReplace.Exists (5) then
- Printlog "Dialog for Search&Replace could be opened :-)"
- else
- Warnlog "Dialog for Search&Replace could NOT be opened :-("
- endif
+'/// inspired by bugs: 101974, 101975, 101976 ///'
+ dim i as integer
+ dim bTemp as boolean
- for i = 1 to 6
- Printlog "- " + i + " View->Workspace->... ------------------------------------------------------"
- try
- select case i
+ '/// open application ///'
+ Call hNewDocument
+ sleep 3
+ '/// Edit->Search and Replace ///'
+ EditSearchAndReplace
+ Kontext "FindAndReplace"
+ if FindAndReplace.Exists (5) then
+ Printlog "Dialog for Search&Replace could be opened :-)"
+ else
+ Warnlog "Dialog for Search&Replace could NOT be opened :-("
+ endif
+
+ '/// for al 5 views in 'View->Workspace->...' do: ///'
+ for i = 1 to 6
+ Printlog "- " + i + " View->Workspace->... ------------------------------------------------------"
+ try
+ select case i
case 1:Printlog " Drawing"
- ViewWorkspaceDrawingView
+ ViewWorkspaceDrawingView
case 2:Printlog " Outline"
- ViewWorkspaceOutlineView
+ ViewWorkspaceOutlineView
case 3:Printlog " Slides"
- ViewWorkspaceSlidesView
+ ViewWorkspaceSlidesView
case 4:Printlog " Notes"
- ViewWorkspaceNotesView
+ ViewWorkspaceNotesView
case 5:Printlog " Handout"
- ' this is done this way, to regcognize BUGID:101975
- ViewWorkspaceHandoutView
+ ' this is done this way, to regcognize BUGID:101975
+ ViewWorkspaceHandoutView
case 6:Printlog " Drawing"
- ViewWorkspaceDrawingView
+ ViewWorkspaceDrawingView
+ end select
+ catch
+ Warnlog "Couldn't excecute the last view ^^^^^^^^^ :-("
+ Printlog "Will close the search&replace dialog as a workaround and then try to switch to the view again"
+ Kontext "FindAndReplace"
+ FindAndReplace.close
+ sleep 5
+ try
+ select case i
+ case 1:ViewWorkspaceDrawingView
+ case 2:ViewWorkspaceOutlineView
+ case 3:ViewWorkspaceSlidesView
+ case 4:ViewWorkspaceNotesView
+ case 5:ViewWorkspaceHandoutView
end select
- catch
- Warnlog "Couldn't excecute the last view ^^^^^^^^^ :-("
- Printlog "Will close the search&replace dialog as a workaround and then try to switch to the view again"
- Kontext "FindAndReplace"
- FindAndReplace.close
- sleep 5
- try
- select case i
- case 1:ViewWorkspaceDrawingView
- case 2:ViewWorkspaceOutlineView
- case 3:ViewWorkspaceSlidesView
- case 4:ViewWorkspaceNotesView
- case 5:ViewWorkspaceHandoutView
- end select
- catch
- Warnlog "Couldn't really switch the view :-("
- endcatch
- endcatch
- sleep 5
- Kontext "FindAndReplace"
- if (FindAndReplace.exists <> TRUE) then
+ catch
+ Warnlog "Couldn't really switch the view :-("
+ endcatch
+ endcatch
+ sleep 5
+ Kontext "FindAndReplace"
+ '///+ if not already open, open. edit->search and replace ///'
+ if (FindAndReplace.exists <> TRUE) then
+ try
+ EditSearchAndReplace
+ catch
+ endcatch
+ endif
+ if (FindAndReplace.exists <> TRUE) then
+ if (i=3) then
+ ' SlideView
+ else
+ Warnlog "Search and replace was not open, and could not be opened :-("
+ endif
+ else
+ Kontext "FindAndReplace"
+ '///+ set text to look for to "a" ///'
+ SearchFor.SetText "a"
+ Printlog "'///+ click button 'find' ///'"
+ SearchNow.Click
+ sleep 5
+ kontext
+ '///+ if active exists 'wrap/not found...' say OK ///'
+ if active.exists(5) then
+ Printlog "Active: '" + active.GetText + "'"
try
- EditSearchAndReplace
+ active.ok
catch
+ active.yes
+ sleep 2
+ if active.exists(5) then
+ Printlog "Active: '" + active.GetText + "'"
+ active.ok
+ endif
endcatch
- endif
- if (FindAndReplace.exists <> TRUE) then
- if (i=3) then
- ' SlideView
- else
- Warnlog "Search and replace was not open, and could not be opened :-("
- endif
- else
- Kontext "FindAndReplace"
- SearchFor.SetText "a"
- SearchNow.Click
- sleep 5
- kontext
- if active.exists(5) then
- Printlog "Active: '" + active.GetText + "'"
- try
- active.ok
- catch
- active.yes
- sleep 2
- if active.exists(5) then
- Printlog "Active: '" + active.GetText + "'"
- active.ok
- endif
- endcatch
- else
- ' this is done this way, to regcognize BUGID:101974
- Warnlog "No message about 'search key not found' :-("
- endif
- endif
- next i
- Kontext "FindAndReplace"
- FindAndReplace.cancel
- Call hCloseDocument
-endcase
+ else
+ ' this is done this way, to regcognize BUGID:101974
+ Warnlog "No message about 'search key not found' :-("
+ endif
+ endif
+ next i
+ Kontext "FindAndReplace"
+ FindAndReplace.cancel
+ '/// close application ///'
+ Call hCloseDocument
+
+endcase 'tiEditSearchAndReplaceBUGS
diff --git a/testautomation/graphics/optional/includes/global/g_format.inc b/testautomation/graphics/optional/includes/global/g_format.inc
index af53047..a09e7be 100755
--- a/testautomation/graphics/optional/includes/global/g_format.inc
+++ b/testautomation/graphics/optional/includes/global/g_format.inc
@@ -44,7 +44,6 @@
' #1 tdFormatTemplates
' #1 tiFormatAufzaehlungszeichen
'\******************************************************************
-
testcase tiFormatText
Dim a as string
Dim b as string
@@ -53,218 +52,269 @@ testcase tiFormatText
Dim ZaehlerEffekt
dim sTemp as string
+ '/// open application ///'
Call hNewDocument
+ '/// create a textbox with text ///'
Call hTextrahmenErstellen ("This is a text, which, I hope, in Staroffice, will be automaticly formatted. Should that not be the case, then it doesn't matter.",20,20,70,20)
WaitSlot (1000)
+ '/// click outside of textbox, to leave edit mode of textbox and deselect it ///'
gMouseClick 99,99
+ '/// type key [TAB] to select textbox again ///'
hTypeKeys "<TAB>"
+ '/// Format->Position and Size ///'
FormatPositionAndSize
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- sleep 2
- a = PositionX.GetText
- TabPositionAndSize.OK
+ Kontext
+ '/// select tabpage 'Format and Size' on dialog 'Position and Size' ///'
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ sleep 2
+ '/// get and remember Position: 'Position X' ///'
+ a = PositionX.GetText
+ '/// close dialog 'Position and Size' with OK ///'
+ TabPositionAndSize.OK
+ '/// Format -> Text... ///'
FormatTextDraw
- Kontext
- Active.SetPage TabText
- Kontext "TabText"
- BreiteAnTextAnpassen.Check
- TabText.OK
+ Kontext
+ '/// select tabpage 'Text' ///'
+ Active.SetPage TabText
+ Kontext "TabText"
+ '/// Check checkbox 'Fit width to text' ///'
+ BreiteAnTextAnpassen.Check
+ '/// leave dialog with OK ///'
+ TabText.OK
+ '/// Dialog should have been resized and moved now! ///'
+ '/// Format->Position and Size ///'
ContextPositionAndSize
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- WaitSlot (2000)
- sTemp = PositionX.GetText
- if (sTemp <> a) Then
- Printlog " - Fit to frame does work"
- else
- warnlog " - Fit to frame doesn't work: expected: '" + a + "' is: '" + + "'"
- end if
- b=PositionY.GetText
- TabPositionAndSize.OK
+ Kontext
+ '/// select tabpage 'Format and Size' on dialog 'Position and Size' ///'
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ WaitSlot (2000)
+ '/// compare 'Position X' with saved value - has to be different ///'
+ sTemp = PositionX.GetText
+ if (sTemp <> a) Then
+ Printlog " - Fit to frame does work"
+ else
+ warnlog " - Fit to frame doesn't work: expected: '" + a + "' is: '" + + "'"
+ end if
+ '/// get and remember Position: 'Position Y' ///'
+ b=PositionY.GetText
+ TabPositionAndSize.OK
+ '/// Format -> Text... ///'
FormatTextDraw
- Kontext
- Active.SetPage TabText
- Kontext "TabText"
- BreiteAnTextAnpassen.Uncheck
- HoeheAnTextAnpassen.Check
- if AmRahmenAnpassen.IsEnabled Then
- WarnLog " - checkbox 'Fit to frame' is enabled, which is wrong!"
- else
- PrintLog " - checkbox 'Fit to frame' is disabled."
- end if
- WaitSlot (1000)
- HoeheAnTextAnpassen.UnCheck
- BreiteAnTextAnpassen.UnCheck
- if AmRahmenAnpassen.IsEnabled Then
- PrintLog " - checkbox 'Fit to frame' is enabled."
- else
- WarnLog " - checkbox 'Fit to frame' is disabled, which is wrong!"
- end if
- ' PrintLog "Full width: " + GanzeBreite.IsChecked
- Links.SetText "10"
- Rechts.SetText "10"
- Oben.SetText "10"
- Unten.SetText "10"
- TabText.OK
-
+ Kontext
+ '/// select tabpage 'Text' ///'
+ Active.SetPage TabText
+ Kontext "TabText"
+ '/// UNCheck checkbox 'Fit width to text' ///'
+ BreiteAnTextAnpassen.Uncheck
+ '/// check checkbox 'Fit height to text' ///'
+ HoeheAnTextAnpassen.Check
+ '/// if checkbox 'Fit to frame' is enabled: this state only happens, if 'Fit height to text' and 'Fit width to text' are checked ///'
+ if AmRahmenAnpassen.IsEnabled Then
+ WarnLog " - checkbox 'Fit to frame' is enabled, which is wrong!"
+ else
+ PrintLog " - checkbox 'Fit to frame' is disabled."
+ end if
+ WaitSlot (1000)
+ '/// UNcheck checkbox 'Fit height to text' ///'
+ HoeheAnTextAnpassen.UnCheck
+ '/// UNCheck checkbox 'Fit width to text' ///'
+ BreiteAnTextAnpassen.UnCheck
+ '/// if checkbox 'Fit to frame' is disabled: this state only happens, if 'Fit height to text' and/or 'Fit width to text' are checked ///'
+ if AmRahmenAnpassen.IsEnabled Then
+ PrintLog " - checkbox 'Fit to frame' is enabled."
+ else
+ WarnLog " - checkbox 'Fit to frame' is disabled, which is wrong!"
+ end if
+' PrintLog "Full width: " + GanzeBreite.IsChecked
+ '/// set metric field 'Left' to 10 ///'
+ Links.SetText "10"
+ '/// set metric field 'Right' to 10 ///'
+ Rechts.SetText "10"
+ '/// set metric field 'Top' to 10 ///'
+ Oben.SetText "10"
+ '/// set metric field 'Bottom' to 10 ///'
+ Unten.SetText "10"
+ '/// leave dialog with OK ///'
+ TabText.OK
+
+ '/// Edit -> Select All ///'
EditSelectAll
+ '/// type Keys [Strg]+[x] to cut object ///'
hTypeKeys "<MOD1 X>"
+ '/// No object exists in dokument right now! ///'
+ '/// Format -> Text... ///'
FormatTextDraw
- Kontext
- Active.SetPage TabText
- Kontext "TabText"
- Konturfluss.Check
- if ((AmRahmenAnpassen.IsEnabled=False) And (Links.IsEnabled=False) And (Rechts.IsEnabled=False) And (Oben.IsEnabled=False) And (Unten.IsEnabled =False)) Then
- PrintLog " - Adjust to contour is working"
- else
- WarnLog " - contourflow aktivated doesn't work it's supposed to"
- end if
- TabText.OK
+ Kontext
+ '/// select tabpage 'Text' ///'
+ Active.SetPage TabText
+ Kontext "TabText"
+ '/// check checkbox 'Adjust to contour' ///'
+ Konturfluss.Check
+ '/// now every other control on the dialog has to get disabled ///'
+ if ((AmRahmenAnpassen.IsEnabled=False) And (Links.IsEnabled=False) And (Rechts.IsEnabled=False) And (Oben.IsEnabled=False) And (Unten.IsEnabled =False)) Then
+ PrintLog " - Adjust to contour is working"
+ else
+ WarnLog " - contourflow aktivated doesn't work it's supposed to"
+ end if
+ '/// leave dialog with OK ///'
+ TabText.OK
+ '/// create a textbox with text ///'
Call hTextrahmenErstellen ("blablablablablablablablablablablabla",20,20,60,60)
WaitSlot (5000)
+ '/// Format -> Text... ///'
FormatTextDraw
- Kontext
- Active.SetPage TabLauftext
- Kontext "TabLauftext"
+ Kontext
+ '/// select tabpage 'Text Animation' ///'
+ Active.SetPage TabLauftext
+ Kontext "TabLauftext"
- ZaehlerEffekt = Effekt.GetItemCount
- if (ZaehlerEffekt <> 5) then
- qaerrorlog "There are now more or less than 5 Effects - Change testcase! " + ZaehlerEffekt
- end if
- for n=1 to ZaehlerEffekt
- Effekt.Select n
- printlog "" + n + ": '" + Effekt.getSelText + "' -------------------------------"
- if (n > 2) then
- for i = 1 to 4
- printlog "" + i
- select case i
- case 1: NachOben.click
- case 2: NachLinks.click
- case 3: NachRechts.click
- case 4: NachUnten.click
- end select
- sFormatTextDrawAnimation
- next i
- end if
- if ((n > 1) AND (n < 5)) then
- for i = 1 to 4
- printlog "" + i
- select case i
- case 1: TextSichtbarBeimStarten.check : TextSichtbarBeimBeenden.uncheck
- case 2: TextSichtbarBeimBeenden.check
- case 3: TextSichtbarBeimStarten.uncheck
- case 4: TextSichtbarBeimBeenden.uncheck
- end select
- sFormatTextDrawAnimation
- next i
+ ZaehlerEffekt = Effekt.GetItemCount
+ if (ZaehlerEffekt <> 5) then
+ qaerrorlog "There are now more or less than 5 Effects - Change testcase! " + ZaehlerEffekt
end if
- if ((n > 1) AND (n < 5)) then
- for i = 1 to 3
- printlog "" + i
- select case i
- case 1: Endlos.check
- case 2: Endlos.UnCheck : Anzahl.typeKeys ("<PageUp>")
- case 3: If Endlos.IsChecked = true then
- QaErrorLog "#i74067# - Checkbox checked when it shouldn't have been."
- Endlos.UnCheck
- end if
- Anzahl.setText ("1")
- end select
- sFormatTextDrawAnimation
- next i
- end if
- if (n > 2) then
- for i = 1 to 4
- printlog "" + i
- select case i
- case 1: Pixel.check : Schrittweite.setText("1")
- case 2: printlog "#114551# Loop, if Step greater than object size"
- case 3: Pixel.UnCheck : Schrittweite.typeKeys ("<PageDown>")
- case 4: printlog "#114551# Loop, if Step greater than object size"
- end select
- sFormatTextDrawAnimation
- next i
- end if
- if (n > 1) then
- for i = 1 to 3
- printlog "" + i
- select case i
- case 1: Automatisch.check
- case 2: Automatisch.UnCheck : Verzoegerung.setText("1")
- case 3: Verzoegerung.typeKeys ("<PageUp>")
- end select
- sFormatTextDrawAnimation
- next i
- end if
-next n
-TabLauftext.OK
-Call hCloseDocument
+ for n=1 to ZaehlerEffekt
+ Effekt.Select n
+ printlog "" + n + ": '" + Effekt.getSelText + "' -------------------------------"
+ if (n > 2) then
+ '/// test all directions ///'
+ for i = 1 to 4
+ printlog "" + i
+ select case i
+ case 1: NachOben.click
+ case 2: NachLinks.click
+ case 3: NachRechts.click
+ case 4: NachUnten.click
+ end select
+ sFormatTextDrawAnimation
+ next i
+ end if
+ if ((n > 1) AND (n < 5)) then
+ '/// test all Start/End Text visibility ///'
+ for i = 1 to 4
+ printlog "" + i
+ select case i
+ case 1: TextSichtbarBeimStarten.check : TextSichtbarBeimBeenden.uncheck
+ case 2: TextSichtbarBeimBeenden.check
+ case 3: TextSichtbarBeimStarten.uncheck
+ case 4: TextSichtbarBeimBeenden.uncheck
+ end select
+ sFormatTextDrawAnimation
+ next i
+ end if
+ if ((n > 1) AND (n < 5)) then
+ '/// test all Animation cycles ///'
+ for i = 1 to 3
+ printlog "" + i
+ select case i
+ case 1: Endlos.check
+ case 2: Endlos.UnCheck : Anzahl.typeKeys ("<PageUp>")
+ case 3: If Endlos.IsChecked = true then
+ QaErrorLog "#i74067# - Checkbox checked when it shouldn't have been."
+ Endlos.UnCheck
+ end if
+ Anzahl.setText ("1")
+ end select
+ sFormatTextDrawAnimation
+ next i
+ end if
+ if (n > 2) then
+ '/// test all Increment ///'
+ for i = 1 to 4
+ printlog "" + i
+ select case i
+ case 1: Pixel.check : Schrittweite.setText("1")
+ case 2: printlog "#114551# Loop, if Step greater than object size"
+ case 3: Pixel.UnCheck : Schrittweite.typeKeys ("<PageDown>")
+ case 4: printlog "#114551# Loop, if Step greater than object size"
+ end select
+ sFormatTextDrawAnimation
+ next i
+ end if
+ if (n > 1) then
+ '/// test all Delay ///'
+ for i = 1 to 3
+ printlog "" + i
+ select case i
+ case 1: Automatisch.check
+ case 2: Automatisch.UnCheck : Verzoegerung.setText("1")
+ case 3: Verzoegerung.typeKeys ("<PageUp>")
+ end select
+ sFormatTextDrawAnimation
+ next i
+ end if
+ next n
+ TabLauftext.OK
+ Call hCloseDocument
+
endcase 'tiFormatText
-
'-------------------------------------------------------------------------------
testcase tdFormatLayer
+ '/// open application ///'
Call hNewDocument
+ '/// Edit->Layer->Insert (in DRAW also via Insert->Layer) ///'
InsertLayer
- Kontext "EbeneEinfuegenDlg"
- EbenenName.SetText " Test 4"
- LayerTitle.SetText " Test no 4"
- LayerDescription.SetText " This is the Description of the Layer."
- EbeneEinfuegenDlg.OK
+ Kontext "EbeneEinfuegenDlg"
+ EbenenName.SetText " Test 4"
+ LayerTitle.SetText " Test no 4"
+ LayerDescription.SetText " This is the Description of the Layer."
+ EbeneEinfuegenDlg.OK
+ '/// Edit->Layer->Modify (in DRAW also via Format->Layer)///'
FormatLayer
- Kontext "EbeneAendernDlg"
- if EbenenName.GetText = " Test 4" Then
- EbenenName.SetText "Layer 5"
- end if
- if LayerTitle.GetText = " Test no 4" Then
- LayerTitle.SetText "Layer test 5"
- end if
- if LayerDescription.GetText = " This is the Description of the Layer." Then
- LayerDescription.SetText " This is the changed Description of the Layer."
- end if
+ Kontext "EbeneAendernDlg"
+ if EbenenName.GetText = " Test 4" Then
+ EbenenName.SetText "Layer 5"
+ end if
+ if LayerTitle.GetText = " Test no 4" Then
+ LayerTitle.SetText "Layer test 5"
+ end if
+ if LayerDescription.GetText = " This is the Description of the Layer." Then
+ LayerDescription.SetText " This is the changed Description of the Layer."
+ end if
- Sichtbar.Check
- Druckbar.Check
- Gesperrt.Check
- EbeneAendernDlg.OK
+ Sichtbar.Check
+ Druckbar.Check
+ Gesperrt.Check
+ EbeneAendernDlg.OK
+ '/// Edit->Layer->Modify (in DRAW also via Format->Layer)///'
FormatLayer
- Kontext "EbeneAendernDlg"
- if EbenenName.GetText <> "Layer 5" Then
- WarnLog " Name-Value either didn't change at all, or was empty. Expected: 'Layer 5', but was: " + EbenenName.GetText
- end if
- if LayerTitle.GetText <> "Layer test 5" Then
- WarnLog " Title-Value either didn't change at all, or was empty. Expected: 'Layer test 5', but was: " + LayerTitle.GetText
- end if
- if LayerDescription.GetText <> " This is the changed Description of the Layer." Then
- WarnLog " Description-Value either didn't change at all, or was empty. Expected: ' This is the changed Description of the Layer.', but was: " + LayerDescription.GetText
- end if
-
- if Sichtbar.IsChecked=False Then
- WarnLog " Value changed: visible"
- end if
- if Druckbar.IsChecked=False Then
- WarnLog " Value changed: printable"
- end if
- if Gesperrt.IsChecked=False then
- WarnLog " Value changed: locked"
- end if
- EbeneAendernDlg.OK
+ Kontext "EbeneAendernDlg"
+ if EbenenName.GetText <> "Layer 5" Then
+ WarnLog " Name-Value either didn't change at all, or was empty. Expected: 'Layer 5', but was: " + EbenenName.GetText
+ end if
+ if LayerTitle.GetText <> "Layer test 5" Then
+ WarnLog " Title-Value either didn't change at all, or was empty. Expected: 'Layer test 5', but was: " + LayerTitle.GetText
+ end if
+ if LayerDescription.GetText <> " This is the changed Description of the Layer." Then
+ WarnLog " Description-Value either didn't change at all, or was empty. Expected: ' This is the changed Description of the Layer.', but was: " + LayerDescription.GetText
+ end if
+
+ if Sichtbar.IsChecked=False Then
+ WarnLog " Value changed: visible"
+ end if
+ if Druckbar.IsChecked=False Then
+ WarnLog " Value changed: printable"
+ end if
+ if Gesperrt.IsChecked=False then
+ WarnLog " Value changed: locked"
+ end if
+ EbeneAendernDlg.OK
+ '/// close application ///'
Call hCloseDocument
+
endcase 'tdFormatLayer
-
'-------------------------------------------------------------------------------
testcase tdFormatConnector
@@ -274,33 +324,36 @@ testcase tdFormatConnector
dim sTemp as string
dim cDecSep as string
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
Call hNewDocument
- kontext "Connectorsbar"
- if Connectorsbar.Exists then
- Connectorsbar.Close
- end if
-
- kontext "Toolbar"
- Sleep (1)
- try
- Verbinder.TearOff ' insert connector
- catch
- warnlog "bug for GH from TBO; .tearoff doesn't tell success"
- endcatch
+ '/// insert connector ///
+ kontext "Connectorsbar"
+ if Connectorsbar.Exists then
+ Connectorsbar.Close
+ end if
+
+ kontext "Toolbar"
+ Sleep (1)
+ try
+ Verbinder.TearOff ' insert connector
+ catch
+ warnlog "bug for GH from TBO; .tearoff doesn't tell success"
+ endcatch
kontext "Connectorsbar"
Verbinder.click
gMouseMove ( 10,10,30,30)
Call hCloseDocument
- hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\FormatConnector." + ExtensionString)
+ '/// Open file with a finished scenario ///'
+ hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\FormatConnector." + ExtensionString)
sleep (1)
+ '/// Check if the document is writable ///'
if fIsDocumentWritable = false then
' Make the document writable and check if it's succesfull
if fMakeDocumentWritable = false then
@@ -310,6 +363,7 @@ testcase tdFormatConnector
end if
gMouseClick 1,1
+ '/// Press TAB three times to select the connector. ///'
hTypekeys "<TAB>"
hTypekeys "<TAB>"
hTypekeys "<TAB>"
@@ -319,76 +373,76 @@ testcase tdFormatConnector
sleep (3)
hMenuSelectNr(2) ' Connector
Kontext "Verbinder"
- Typ.Select 2 ' the one with 2 from 3 posibilities to set a value...
- Sleep (1)
- AnfangHorizontal.SetText "1"
- Verbinder.TypeKeys "<TAB>"
- AnfangVertikal.SetText "1"
- Verbinder.TypeKeys "<TAB>"
- EndeHorizontal.SetText "1"
- Verbinder.TypeKeys "<TAB>"
- EndeVertikal.SetText "1"
- Verbinder.TypeKeys "<TAB>"
- printlog EndeVertikal.getText
- try
- Linie1.SetText "10"
+ Typ.Select 2 ' the one with 2 from 3 posibilities to set a value...
+ Sleep (1)
+ AnfangHorizontal.SetText "1"
Verbinder.TypeKeys "<TAB>"
- sTemp = Linie1.getText
- sUnit = GetMeasUnit(sTemp)
- cDecSep = GetDecimalSeperator(sTemp)
- catch
- PrintLog " Lineoffset not activated -> you have to choose another linetype: 1"
- endcatch
- try
- Linie2.SetText "10"
+ AnfangVertikal.SetText "1"
Verbinder.TypeKeys "<TAB>"
- catch
- PrintLog " Lineoffset not activated -> you have to choose another linetype: 2"
- endcatch
- try
- Linie3.SetText "10"
+ EndeHorizontal.SetText "1"
Verbinder.TypeKeys "<TAB>"
- catch
- PrintLog " Lineoffset not activated -> you have to choose another linetype: 3 when will this be enabled ?"
- endcatch
+ EndeVertikal.SetText "1"
+ Verbinder.TypeKeys "<TAB>"
+ printlog EndeVertikal.getText
+ try
+ Linie1.SetText "10"
+ Verbinder.TypeKeys "<TAB>"
+ sTemp = Linie1.getText
+ sUnit = GetMeasUnit(sTemp)
+ cDecSep = GetDecimalSeperator(sTemp)
+ catch
+ PrintLog " Lineoffset not activated -> you have to choose another linetype: 1"
+ endcatch
+ try
+ Linie2.SetText "10"
+ Verbinder.TypeKeys "<TAB>"
+ catch
+ PrintLog " Lineoffset not activated -> you have to choose another linetype: 2"
+ endcatch
+ try
+ Linie3.SetText "10"
+ Verbinder.TypeKeys "<TAB>"
+ catch
+ PrintLog " Lineoffset not activated -> you have to choose another linetype: 3 when will this be enabled ?"
+ endcatch
Verbinder.OK
FormatConnector
- Kontext "Verbinder"
- sTemp = AnfangHorizontal.GetText
-
- if fCompareTwoValues(sTemp, "1"+cDecSep+"00"+sUnit) Then
- WarnLog " value not changed"
- printlog "AnfangHorizontal = is '" + sTemp + "' should: '"+"1"+cDecSep+"00"+sUnit+"'"
- end if
- if fCompareTwoValues(AnfangVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then
- WarnLog " value not changed"
- printlog "AnfangVertikal.GetText = " + AnfangVertikal.GetText
- end if
- if fCompareTwoValues(EndeHorizontal.GetText, "1"+cDecSep+"00"+sUnit) Then
- WarnLog " value not changed"
- printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText
- end if
- if fCompareTwoValues(EndeVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then
- WarnLog " value not changed"
- printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText
- end if
-
- Zaehler = Typ.GetItemCount
- for i = 1 to Zaehler
- Typ.Select i
- SetClipboard Typ.GetSelText
- Verbinder.OK
- FormatConnector
Kontext "Verbinder"
- if GetClipboardText <> Typ.GetSelText Then
- WarnLog " Selection not saved. Was: " + Typ.GetSelText + " . But should have been: " +GetClipboardText
+ sTemp = AnfangHorizontal.GetText
+
+ if fCompareTwoValues(sTemp, "1"+cDecSep+"00"+sUnit) Then
+ WarnLog " value not changed"
+ printlog "AnfangHorizontal = is '" + sTemp + "' should: '"+"1"+cDecSep+"00"+sUnit+"'"
end if
- next i
+ if fCompareTwoValues(AnfangVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then
+ WarnLog " value not changed"
+ printlog "AnfangVertikal.GetText = " + AnfangVertikal.GetText
+ end if
+ if fCompareTwoValues(EndeHorizontal.GetText, "1"+cDecSep+"00"+sUnit) Then
+ WarnLog " value not changed"
+ printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText
+ end if
+ if fCompareTwoValues(EndeVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then
+ WarnLog " value not changed"
+ printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText
+ end if
+
+ Zaehler = Typ.GetItemCount
+ for i = 1 to Zaehler
+ Typ.Select i
+ SetClipboard Typ.GetSelText
+ Verbinder.OK
+ FormatConnector
+ Kontext "Verbinder"
+ if GetClipboardText <> Typ.GetSelText Then
+ WarnLog " Selection not saved. Was: " + Typ.GetSelText + " . But should have been: " +GetClipboardText
+ end if
+ next i
Verbinder.OK
Call hCloseDocument
+
endcase 'tdFormatConnector
-
'-------------------------------------------------------------------------------
testcase tiFormatPositionAndSize
@@ -398,41 +452,41 @@ testcase tiFormatPositionAndSize
Dim b 'Variable fuer Breite
Dim r 'Variable fuer Radius
Dim w 'Variable fuer Winkel
-
- printlog "New impress doc"
- Call hNewDocument
+
+printlog "New impress doc"
+ Call hNewDocument
WaitSlot (3000)
printlog "RECTANGLE-----1/2"
printlog "create rectangle"
- Call hRechteckErstellen (20,20,70,30)
+ Call hRechteckErstellen (20,20,70,30)
WaitSlot (1000)
gMouseClick 50,25
WaitSlot (1000)
printlog "Format-position and size"
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- printlog "TabPositionAndSize"
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "put x and y position into clipboard"
- printlog "x = " & PositionX.GetText
- printlog "y = " & PositionY.GetText
- SetClipboard (PositionX.GetText + PositionY.GetText)
- TabPositionAndSize.OK
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ printlog "TabPositionAndSize"
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "put x and y position into clipboard"
+ printlog "x = " & PositionX.GetText
+ printlog "y = " & PositionY.GetText
+ SetClipboard (PositionX.GetText + PositionY.GetText)
+ TabPositionAndSize.OK
WaitSlot (1000)
printlog "move rectangle down and right"
- hTypeKeys "<DOWN>",10
+ hTypeKeys "<DOWN>",10
hTypeKeys "<RIGHT>",10
printlog "open PositionAndSize"
ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- printlog "TabPositionAndSize"
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "control position changes with clipboard content"
- if (PositionX.GetText + PositionY.GetText) = GetClipboardText Then WarnLog "Der Dialog hat die Positionsaenderung nicht registriert"
+ WaitSlot (1000)
+ Kontext
+ printlog "TabPositionAndSize"
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "control position changes with clipboard content"
+ if (PositionX.GetText + PositionY.GetText) = GetClipboardText Then WarnLog "Der Dialog hat die Positionsaenderung nicht registriert"
printlog "set position of rectange using the edit fields"
PositionX.SetText "2"
x=PositionX.GetText
@@ -441,199 +495,201 @@ testcase tiFormatPositionAndSize
printlog "check protect"
ProtectPosition.Check
TabPositionAndSize.OK
- WaitSlot (1000)
- ContextPositionAndSize
+ WaitSlot (1000)
+ ContextPositionAndSize
WaitSlot (1000)
Kontext
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
printlog "check if values are correct"
- if PositionX.GetText = x And PositionY.GetText = y Then PrintLog " Values could be changed"
- printlog "check if protect works"
- if PositionX.GetText<> x Then
- WarnLog "Protect does not work"
- else
- PrintLog "Protext works, X axis checked"
- end if
- if PositionY.GetText<> y Then
- WarnLog "Protect does not work"
- else
- PrintLog " Protext does work, checked y axis"
- end if
- printlog "uncheck protect"
- ProtectPosition.UnCheck
- TabPositionAndSize.OK
- WaitSlot (1000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- printlog "TabPositionAndSize"
- WaitSlot (1000)
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "set width to 10"
- WaitSlot (1000)
- Width.SetText "10"
- printlog "put value into a variable"
- WaitSlot (1000)
- b=Width.GetText
- printlog "Width is " & b
- SetClipboard Width.GetText
- Height.SetText "5"
- printlog "put value into variable"
- WaitSlot (1000)
- h=Height.GetText
- printlog "Height is " & h
- printlog "check protect"
- ProtectPosition.Check
- printlog "close dialog"
- TabPositionAndSize.OK
- WaitSlot (1000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- WaitSlot (2000)
- printlog "control size changes"
- printlog "Width value is: " & Width.GetText
- printlog "Value from Clipboard is: " & GetClipboardText
- if Width.GetText = GetClipboardText Then
- PrintLog " Size of rectangle could be changed. It is = " + Width.GetText + " but it should be = " + b
- else
- WarnLog " Controls for height and width do not work"
- end if
- printlog "Uncheck the Position-Protection, so we can work with this window."
- if ProtectPosition.isChecked = FALSE then
- printlog "Should be checked since it was checked just 16 rows ago"
- ErrorLog "ProtectPosition was not checked - why?"
- else
- ProtectPosition.Uncheck
- end if
+ if PositionX.GetText = x And PositionY.GetText = y Then PrintLog " Values could be changed"
+ printlog "check if protect works"
+ if PositionX.GetText<> x Then
+ WarnLog "Protect does not work"
+ else
+ PrintLog "Protext works, X axis checked"
+ end if
+ if PositionY.GetText<> y Then
+ WarnLog "Protect does not work"
+ else
+ PrintLog " Protext does work, checked y axis"
+ end if
+ printlog "uncheck protect"
+ ProtectPosition.UnCheck
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ printlog "TabPositionAndSize"
+ WaitSlot (1000)
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ KeepRatio.UnCheck
+ printlog "set width to 10"
+ WaitSlot (1000)
+ Width.SetText "10"
+ printlog "put value into a variable"
+ WaitSlot (1000)
+ b=Width.GetText
+ printlog "Width is " & b
+ SetClipboard Width.GetText
+ '/// set heigth to 5 ///'
+ Height.SetText "5"
+ printlog "put value into variable"
+ WaitSlot (1000)
+ h=Height.GetText
+ printlog "Height is " & h
+ printlog "check protect"
+ ProtectPosition.Check
+ printlog "close dialog"
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ WaitSlot (2000)
+ printlog "control size changes"
+ printlog "Width value is: " & Width.GetText
+ printlog "Value from Clipboard is: " & GetClipboardText
+ if Width.GetText = GetClipboardText Then
+ PrintLog " Size of rectangle could be changed. It is = " + Width.GetText + " but it should be = " + b
+ else
+ WarnLog " Controls for height and width do not work"
+ end if
+ printlog "Uncheck the Position-Protection, so we can work with this window."
+ if ProtectPosition.isChecked = FALSE then
+ printlog "Should be checked since it was checked just 16 rows ago"
+ ErrorLog "ProtectPosition was not checked - why?"
+ else
+ ProtectPosition.Uncheck
+ end if
- KeepRatio.Check
- printlog "raise value for width"
- Width.More 5
- if Height.GetText = h Then
- WarnLog " Keep ratio does not work properly"
- else
- PrintLog " Keep ratio does work"
- KeepRatio.UnCheck
- end if
- TabPositionAndSize.OK
- WaitSlot (2000)
- gMouseClick 90,90
- WaitSlot (2000)
- printlog "Now trying TEXT..."
- printlog "create textbox"
- Call hTextrahmenErstellen ("Never before have I written such a meaning" ,10,10,60,20)
- WaitSlot (2000)
- printlog "Format-Postion and Size"
- FormatPositionAndSize
- WaitSlot (1000)
- Kontext
- printlog "TabPositionAndSize"
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "default value ?: width :-----"+Width.IsEnabled
- printlog "check fit width to text"
- if Width.IsEnabled then FitWidthText.Check
- if Width.IsEnabled = True Then
- WarnLog " Fit width does not work"
- else
- PrintLog " Fit width does work"
- end if
- printlog "fit heigth to text"
- FitHeightText.Check
- if Height.IsEnabled = True Then
- WarnLog " fit heigth doe not work"
- else
- PrintLog " fit heigth does work"
- end if
- ' PrintLog " Fit width to text active: " + FitWidthText.IsChecked
- ' PrintLog " Fit heigth to text active: " + FitHeightText.IsChecked
- printlog "uncheck fit width to text"
- FitWidthText.UnCheck
- printlog "uncheck fit heigth to text"
- FitHeightText.Uncheck
- TabPositionAndSize.OK
- WaitSlot (1000)
- hTypeKeys "<escape>",2
- hTypeKeys "<TAB>",2
- WaitSlot (1000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "check x-position of textbox"
- SetClipboard PositionX.GetText
- WaitSlot (1000)
- Kontext
- printlog "set rotation angle to 50 and position x and y to 1"
- Active.SetPage TabDrehung
- Kontext "TabDrehung"
- PositionX.SetText "1"
- PositionY.SetText "1"
- Winkel.SetText "50"
- w=Winkel.GetText
- TabDrehung.OK
- WaitSlot (3000)
+ KeepRatio.Check
+ printlog "raise value for width"
+ Width.More 5
+ if Height.GetText = h Then
+ WarnLog " Keep ratio does not work properly"
+ else
+ PrintLog " Keep ratio does work"
+ KeepRatio.UnCheck
+ end if
+ TabPositionAndSize.OK
+ WaitSlot (2000)
+ gMouseClick 90,90
+ WaitSlot (2000)
+ printlog "Now trying TEXT..."
+ printlog "create textbox"
+ Call hTextrahmenErstellen ("Never before have I written such a meaning" ,10,10,60,20)
+ WaitSlot (2000)
+ printlog "Format-Postion and Size"
+ FormatPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ printlog "TabPositionAndSize"
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "default value ?: width :-----"+Width.IsEnabled
+ printlog "check fit width to text"
+ if Width.IsEnabled then FitWidthText.Check
+ if Width.IsEnabled = True Then
+ WarnLog " Fit width does not work"
+ else
+ PrintLog " Fit width does work"
+ end if
+ printlog "fit heigth to text"
+ FitHeightText.Check
+ if Height.IsEnabled = True Then
+ WarnLog " fit heigth doe not work"
+ else
+ PrintLog " fit heigth does work"
+ end if
+ ' PrintLog " Fit width to text active: " + FitWidthText.IsChecked
+ ' PrintLog " Fit heigth to text active: " + FitHeightText.IsChecked
+ printlog "uncheck fit width to text"
+ FitWidthText.UnCheck
+ printlog "uncheck fit heigth to text"
+ FitHeightText.Uncheck
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ hTypeKeys "<escape>",2
+ hTypeKeys "<TAB>",2
+ WaitSlot (1000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "check x-position of textbox"
+ SetClipboard PositionX.GetText
+ WaitSlot (1000)
+ Kontext
+ printlog "set rotation angle to 50 and position x and y to 1"
+ Active.SetPage TabDrehung
+ Kontext "TabDrehung"
+ PositionX.SetText "1"
+ PositionY.SetText "1"
+ Winkel.SetText "50"
+ w=Winkel.GetText
+ TabDrehung.OK
+ WaitSlot (3000)
- printlog "check position of manipulated textbox"
- ContextPositionAndSize
- WaitSlot (3000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if PositionX = GetClipboardText Then PrintLog " Position changed due to rotation"
- Kontext
- Active.SetPage TabDrehung
- Kontext "TabDrehung"
- WaitSlot (1000)
- printlog "check rotation angle"
- if Winkel.GetText = w Then PrintLog " Object rotated"
- TabDrehung.OK
+ printlog "check position of manipulated textbox"
+ ContextPositionAndSize
+ WaitSlot (3000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if PositionX = GetClipboardText Then PrintLog " Position changed due to rotation"
+ Kontext
+ Active.SetPage TabDrehung
+ Kontext "TabDrehung"
+ WaitSlot (1000)
+ printlog "check rotation angle"
+ if Winkel.GetText = w Then PrintLog " Object rotated"
+ TabDrehung.OK
- printlog "RECTANGLE-----2/2"
- printlog "create rectangle"
- Call hRechteckErstellen (10,60,70,90)
- WaitSlot (2000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "put x-axis postion of rectangle into clipboard"
- SetClipboard PositionX.GetText
- Kontext
- printlog "set slant angle to 5"
- Active.SetPage TabSchraegstellen
- Kontext "TabSchraegstellen"
- WaitSlot (1000)
- printlog "set radius to 5"
- Radius.SetText "5"
- r=Radius.GetText
- Winkel.SetText w
- TabSchraegstellen.OK
- WaitSlot (1000)
- ContextPositionAndSize
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if PositionX <> GetClipboardText Then PrintLog " Object changed position due to scaling"
- printlog "Before we change tab, we set the Position-marker back to checked "
- ProtectPosition.Check
- Kontext
- printlog "check slant angle and radius"
- Active.SetPage TabSchraegstellen
- Kontext "TabSchraegstellen"
- if Radius.GetText = r Then PrintLog " Cornwer radius changed"
- if Winkel.GetText =w Then PrintLog " Object rotated over 45°"
- TabSchraegstellen.OK
- Call hCloseDocument
+ printlog "RECTANGLE-----2/2"
+ printlog "create rectangle"
+ Call hRechteckErstellen (10,60,70,90)
+ WaitSlot (2000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "put x-axis postion of rectangle into clipboard"
+ SetClipboard PositionX.GetText
+ Kontext
+ printlog "set slant angle to 5"
+ Active.SetPage TabSchraegstellen
+ Kontext "TabSchraegstellen"
+ WaitSlot (1000)
+ printlog "set radius to 5"
+ Radius.SetText "5"
+ r=Radius.GetText
+ Winkel.SetText w
+ TabSchraegstellen.OK
+ WaitSlot (1000)
+ ContextPositionAndSize
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if PositionX <> GetClipboardText Then PrintLog " Object changed position due to scaling"
+ printlog "Before we change tab, we set the Position-marker back to checked "
+ ProtectPosition.Check
+ Kontext
+ printlog "check slant angle and radius"
+ Active.SetPage TabSchraegstellen
+ Kontext "TabSchraegstellen"
+ if Radius.GetText = r Then PrintLog " Cornwer radius changed"
+ if Winkel.GetText =w Then PrintLog " Object rotated over 45°"
+ TabSchraegstellen.OK
+ Call hCloseDocument
+
endcase 'tiFormatPositionAndSize
-
'-------------------------------------------------------------------------------
testcase tiFormat3D_Effekte
@@ -649,22 +705,26 @@ testcase tiFormat3D_Effekte
Dim Zaehler as integer
Dim Posi as string
- Call hNewDocument
+ Call hNewDocument
printlog "new document"
'-----------------------------------RECTANGLE------------------------------------------------------
+ Call hRechteckErstellen (20,20,60,70) '/// create rectangle ///'
WaitSlot (1000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- PositionX.SetText "5"
- X=PositionX.GetText
- printlog "--- created RECTANGLE; xPosition @ "+ x
- TabPositionAndSize.OK
+ ContextPositionAndSize '/// get position and size of rectangle ///'
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ PositionX.SetText "5"
+ X=PositionX.GetText
+ printlog "--- created RECTANGLE; xPosition @ "+ x
+ TabPositionAndSize.OK
+ ContextConvertInto3D '/// convert rectangle into 3d ///'
WaitSlot (1000)
Kontext "Drei_D_Effekte"
if Drei_D_Effekte.exists(3) then
- qaerrorlog " The 3D-Effects-dialogue was open. Check why."
+ qaerrorlog " The 3D-Effects-dialogue was open. Check why."
else
+ Format3D_Effects '/// open 3d flyer///'
end if
try
if Perspektive.isvisible then
@@ -677,7 +737,7 @@ testcase tiFormat3D_Effekte
endcatch
Zuweisen.Click '/// assign perspective ///'
Kontext "DocumentImpress"
- hTypeKeys "<MOD1 A>"
+ hTypeKeys "<MOD1 A>"
ContextPositionAndSize '/// check position and size ///'
Kontext
Active.SetPage TabPositionAndSize
@@ -695,25 +755,32 @@ testcase tiFormat3D_Effekte
hTypeKeys "<DELETE>"
'-----------------------------------RECTANGLE------------------------------------------------------
+ hRechteckErstellen (20,20,60,70) '/// create new rectangle ///'
printlog "--- created RECTANGLE 2"
+ Format3D_Effects '/// open 3d flyer ///'
Kontext "Drei_D_Effekte"
+ Rotationskoerper.Click '/// create lathe object ///'
WaitSlot (1000)
Kontext "DocumentImpress"
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if PositionX.GetText = X Then
- Warnlog "- Rectangle not converted into a lath object; x: "+PositionX.GetText
- else
- Printlog "- Creating a lath object seems to work"
- end if
- TabPositionAndSize.OK
+ ContextPositionAndSize '/// check position and size ///'
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if PositionX.GetText = X Then
+ Warnlog "- Rectangle not converted into a lath object; x: "+PositionX.GetText
+ else
+ Printlog "- Creating a lath object seems to work"
+ end if
+ TabPositionAndSize.OK
EditSelectAll
+ hTypeKeys "<DELETE>" '/// delete object ///'
Sleep (1)
'-----------------------------------RECTANGLE------------------------------------------------------
+ hRechteckErstellen (20,20,60,70) '/// create rectangle ///'
printlog "--- created RECTANGLE 3"
Kontext "Drei_D_Effekte"
WaitSlot (1000)
+ In_3D_Umwandeln.Click '/// convert to 3d in 3d flyer ///'
WaitSlot (2000)
gMouseClick 40,40
qaerrorlog "#i92910: automation: crash when executing tiFormat3D_Effekte in test g_format"
@@ -723,409 +790,467 @@ testcase tiFormat3D_Effekte
'gMouseClick 90,90
'select case gApplication
' case "DRAW" : if y = 13 then
- ' Printlog "- 3D object created"
- ' else
+ ' Printlog "- 3D object created"
+ ' else
' Warnlog " Context-menu-entry-number was wrong. Expected 13, but was " + y + "."
' end if
- ' case else : if y = 15 then
- ' Printlog "- 3D object created"
- ' else
+ ' case else : if y = 15 then
+ ' Printlog "- 3D object created"
+ ' else
' Warnlog " Context-menu-entry-number was wrong. Expected 15, but was " + y + "."
- ' end if
+ ' end if
'end select
-
+
EditSelectAll
+ hTypeKeys "<DELETE>" '/// delete object ///'
'-----------------------------------ZYLINDER------------------------------------------------------
Sleep (1)
printlog "--- create CYLINDER"
+ WL_SD_Zylinder '/// create cylinder ///'
+ gMousemove 30,30,80,80 '/// This affects the Vertical-value down to 15 ///'
Sleep (1)
hTypeKeys "<ESC>"
Kontext "Drei_D_Effekte"
+ Geometrie.Click '/// geometry ///'
WaitSlot (1000)
' Endwinkel.More
-
+ Vert=Vertikale_Segmente.GetText '/// get value for vertical segments (default) ///'
+ Hor =Horizontale_Segmente.GetText '/// get value for horizontal segments (default) ///'
+ Rund=Kantenrundung.GetText '/// get value for edge rounding ///'
+ Skal=Tiefenskalierung.GetText '/// get value for scale ///'
+ Tief=Tiefe.GetText '/// get value for depth ///'
+ Winkel=Endwinkel.GetText '/// get value for angle ///'
+
+ '/// Check if every entry has a value <> "" -> an init value is shown. ///'
if Vert ="" then warnlog "Vertical Segment has no init value"
- if Hor ="" then warnlog "Horizontal Segment has no init value"
- if Rund ="" then warnlog "Rounded edges has no init value"
- if Skal ="" then warnlog "Scaled depth has no init value"
- if Tief ="" then warnlog "Depth has no init value"
- if Winkel="" then printlog "Rotation angle has no init value"
-
+ if Hor ="" then warnlog "Horizontal Segment has no init value"
+ if Rund ="" then warnlog "Rounded edges has no init value"
+ if Skal ="" then warnlog "Scaled depth has no init value"
+ if Tief ="" then warnlog "Depth has no init value"
+ if Winkel="" then printlog "Rotation angle has no init value"
- Kontext "Drei_D_Effekte"
+ '/// Go back to the 3d-effects-dialogue and change the value for the cylinder ///'
- if Vertikale_Segmente.GetText = Vert Then
- Printlog "- Vertical segment value read from object's properties in the 3d flyer"
- else
- Warnlog "- 3D flyer could not read vertical segment information from object. It is = '"+ Vertikale_Segmente.GetText + "' but should be = '" + Vert + "'"
- end if
+ hTypeKeys "<ESC>" '/// Deselect object and check if 3d controller has default values again ///'
+ Kontext "Drei_D_Effekte"
- Printlog "- Horizontal segment value read from object's properties in the 3d flyer"
- else
- Warnlog "- 3D flyer not be able to read horizonal segment information from object. It is = '"+ Horizontale_Segmente.GetText + "' but should be = '" + Hor + "'"
- end if
+ '/// Check if value for vertical segments has changed in 3d controller ///'
+ if Vertikale_Segmente.GetText = Vert Then
+ Printlog "- Vertical segment value read from object's properties in the 3d flyer"
+ else
+ Warnlog "- 3D flyer could not read vertical segment information from object. It is = '"+ Vertikale_Segmente.GetText + "' but should be = '" + Vert + "'"
+ end if
- Printlog "- Rounded edges works"
- else
- Warnlog "- Rounded edges value could not be read by the 3d flyer It is = '" + Kantenrundung.GetText + "' but should be = '" + rund + "'"
- end if
+ if Horizontale_Segmente.GetText = Hor Then '/// check if value for horizontal segments has changed ///'
+ Printlog "- Horizontal segment value read from object's properties in the 3d flyer"
+ else
+ Warnlog "- 3D flyer not be able to read horizonal segment information from object. It is = '"+ Horizontale_Segmente.GetText + "' but should be = '" + Hor + "'"
+ end if
- Printlog "- Scaled depth works"
- else
- Warnlog "- Scale depth value could not be read by the 3d flyer It is = '" + Tiefenskalierung.GetText + "' but should be = '" + skal + "'"
- end if
+ if Kantenrundung.GetText = Rund Then '/// check if value for edge rounding has changed ///'
+ Printlog "- Rounded edges works"
+ else
+ Warnlog "- Rounded edges value could not be read by the 3d flyer It is = '" + Kantenrundung.GetText + "' but should be = '" + rund + "'"
+ end if
- Printlog "- Depth value could be read by the 3d flyer"
- else
- Warnlog "- Depth value of object could not be read by the flyer It is = '"+ Tiefe.GetText + "' but should be = '" + tief + "'"
- end if
+ if Tiefenskalierung.GetText = Skal Then '/// check value for scale ///'
+ Printlog "- Scaled depth works"
+ else
+ Warnlog "- Scale depth value could not be read by the 3d flyer It is = '" + Tiefenskalierung.GetText + "' but should be = '" + skal + "'"
+ end if
- Printlog "- Angle value could be read by the 3d flyer"
- else
- Warnlog "- Angle value is not correct"
- end if
+ if Tiefe.GetText = Tief Then '/// check value for depth ///'
+ Printlog "- Depth value could be read by the 3d flyer"
+ else
+ Warnlog "- Depth value of object could not be read by the flyer It is = '"+ Tiefe.GetText + "' but should be = '" + tief + "'"
+ end if
- Kontext "Drei_D_Effekte"
- Sleep (2)
- Printlog "- check if 3D flyer goes back to default values if object is deselected"
- if Vertikale_Segmente.GetText <> Vert Then Warnlog " Vertical Segment - Default value is wrong is: "+Vertikale_Segmente.GetText+"; should: " +vert
- if Horizontale_Segmente.GetText <> Hor Then Warnlog " Horizontal Segment - Default value is wrong"
- if Kantenrundung.GetText <> Rund Then Warnlog " Rounded edges - Default value is wrong"
- if Tiefenskalierung.GetText <> Skal Then Warnlog " Scaled depth - Default value is wrong"
- if Endwinkel.GetText <> Winkel Then Warnlog " Rotation angle - Default value is wrong"
- if Tiefe.GetText<>Tief Then Warnlog " Depth - Default value is wrong"
+ if Endwinkel.GetText = Winkel Then '/// check value for angle ///'
+ Printlog "- Angle value could be read by the 3d flyer"
+ else
+ Warnlog "- Angle value is not correct"
+ end if
- hTypeKeys "<TAB>"
- Kontext "Drei_D_Effekte"
- Sleep (2)
- Vertikale_Segmente.SetText "32"
- Kantenrundung.SetText "100"
- Endwinkel.Settext "300"
- Tiefenskalierung.SetText "500"
- Tiefe.SetText "100"
+ hTypeKeys "<ESC>" '/// deselect object and check if 3d controller has default values again ///'
+ Kontext "Drei_D_Effekte"
+ Sleep (2)
+ Printlog "- check if 3D flyer goes back to default values if object is deselected"
+ if Vertikale_Segmente.GetText <> Vert Then Warnlog " Vertical Segment - Default value is wrong is: "+Vertikale_Segmente.GetText+"; should: " +vert
+ if Horizontale_Segmente.GetText <> Hor Then Warnlog " Horizontal Segment - Default value is wrong"
+ if Kantenrundung.GetText <> Rund Then Warnlog " Rounded edges - Default value is wrong"
+ if Tiefenskalierung.GetText <> Skal Then Warnlog " Scaled depth - Default value is wrong"
+ if Endwinkel.GetText <> Winkel Then Warnlog " Rotation angle - Default value is wrong"
+ if Tiefe.GetText<>Tief Then Warnlog " Depth - Default value is wrong"
- if Vertikale_Segmente.GetText = Vert Then Warnlog "- Default value is wrong"
- if Horizontale_Segmente.GetText = Hor Then Warnlog "- Default value is wrong"
- if Kantenrundung.GetText = Rund Then Warnlog "- Default value is wrong"
- if Tiefenskalierung.GetText = Skal Then Warnlog "- Default value is wrong"
- if Endwinkel.GetText = Winkel Then Warnlog "- Default value is wrong"
- if Tiefe.GetText=Tief Then Warnlog "- Default value is wrong"
- EditSelectAll
+ hTypeKeys "<TAB>"
+ Kontext "Drei_D_Effekte"
+ Sleep (2)
+ Horizontale_Segmente.SetText "32" '/// change horizontal and vertical segments ///'
+ Vertikale_Segmente.SetText "32"
+ Kantenrundung.SetText "100"
+ Endwinkel.Settext "300"
+ Tiefenskalierung.SetText "500"
+ Tiefe.SetText "100"
+ Zuweisen.Click '/// assign changes ///'
+
+ WaitSlot (1000) '/// check value changes ///'
+ if Vertikale_Segmente.GetText = Vert Then Warnlog "- Default value is wrong"
+ if Horizontale_Segmente.GetText = Hor Then Warnlog "- Default value is wrong"
+ if Kantenrundung.GetText = Rund Then Warnlog "- Default value is wrong"
+ if Tiefenskalierung.GetText = Skal Then Warnlog "- Default value is wrong"
+ if Endwinkel.GetText = Winkel Then Warnlog "- Default value is wrong"
+ if Tiefe.GetText=Tief Then Warnlog "- Default value is wrong"
+ EditSelectAll
+ hTypeKeys "<DELETE>" '/// delete cylinder ///'
- '-----------------------------------ZYLINDER------------------------------------------------------
- gMouseMove (20,20,60,60)
- WaitSlot (3000)
- Kontext "Drei_D_Effekte"
- Printlog "- Change basic geometric parameters for the object"
- Printlog "Segments : Horizontal: 8; Vertical: 8; Rounded edges: 50 %"
- Vertikale_Segmente.SetText "8"
- Kantenrundung.SetText "50 %"
- Sleep (1)
- Zuweisen.Click
- WaitSlot (2000)
- gMouseClick 90,90
- Sleep (2)
- WaitSlot (1000)
- if Horizontale_Segmente.GetText <> "8" Then Warnlog "- Horizontal segment count is not correct "+Horizontale_Segmente.GetText
- if Vertikale_Segmente.GetText <> "8" Then Warnlog "- Vertical segment count is not correct "+Vertikale_Segmente.GetText
- if Kantenrundung.GetText <> "50 %" Then Warnlog "- Value for rounded edges is not correct "+Kantenrundung.GetText
- Darstellung.Click
- for i =1 to Zaehler
- Modus.Select i
- gMouseClick 90,90
- Sleep (1)
- Sleep (1)
- Kontext "Drei_D_Effekte"
- next i
- Printlog "- Check 3d shadow and surface angle"
- Papierneigung.SetText "90 degree(s)"
- vert = Papierneigung.getText
- WaitSlot (1000)
- Kontext "Drei_D_Effekte"
- Sleep (1)
- hor = Entfernung.getText
- Sleep (1)
- Zuweisen.Click
- if Entfernung.GetText <> hor Then Warnlog "- Value for distance is not correct; should: "+hor+"; is: "+Entfernung.GetText
- WaitSlot (2000)
- hTypeKeys "<TAB>"
- Sleep (2)
- ContextPositionAndSize
- WaitSlot (2000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- PositionX.SetText "5,00cm"
- Posi=PositionX.GetText
- TabPositionAndSize.OK
- WaitSlot (1000)
- Kontext "Drei_D_Effekte"
+ '-----------------------------------ZYLINDER------------------------------------------------------
+ WL_SD_Zylinder '/// create new cylinder ///'
+ gMouseMove (20,20,60,60)
+ WaitSlot (3000)
+ Kontext "Drei_D_Effekte"
+ Printlog "- Change basic geometric parameters for the object"
+ Printlog "Segments : Horizontal: 8; Vertical: 8; Rounded edges: 50 %"
+ Horizontale_Segmente.SetText "8" '/// changing values for cylinder ///'
+ Vertikale_Segmente.SetText "8"
+ Kantenrundung.SetText "50 %"
+ Sleep (1)
+ Zuweisen.Click
+ WaitSlot (2000)
+ gMouseClick 90,90
+ Sleep (2)
+ EditSelectAll '/// select object ///'
+ WaitSlot (1000)
+ Kontext "Drei_D_Effekte" '/// control if changes are done ///'
+ if Horizontale_Segmente.GetText <> "8" Then Warnlog "- Horizontal segment count is not correct "+Horizontale_Segmente.GetText
+ if Vertikale_Segmente.GetText <> "8" Then Warnlog "- Vertical segment count is not correct "+Vertikale_Segmente.GetText
+ if Kantenrundung.GetText <> "50 %" Then Warnlog "- Value for rounded edges is not correct "+Kantenrundung.GetText
+ Darstellung.Click
+ Zaehler=Modus.GetItemCount '/// get number of pssibole render methods ///'
+ for i =1 to Zaehler
+ Modus.Select i
+ Zuweisen.Click '/// assign every render method ///'
+ gMouseClick 90,90
+ Sleep (1)
+ EditSelectAll '/// select object ///'
+ Sleep (1)
+ Kontext "Drei_D_Effekte"
+ if Modus.GetSelIndex <> i Then Warnlog "- Value for render modus did not change" '/// check if render method has changed ///'
+ next i
+ Printlog "- Check 3d shadow and surface angle"
+ Drei_DSchatten.Click '/// check 3d shadow ///'
+ Papierneigung.SetText "90 degree(s)"
+ vert = Papierneigung.getText
+ Zuweisen.Click '/// assign shadow ///'
+ gMouseClick 90,90 '/// deselect object ///'
+ WaitSlot (1000)
+ EditSelectAll '/// select object ///'
+ Kontext "Drei_D_Effekte"
+ if Papierneigung.GetText <> vert Then Warnlog "- Value for surface angle is not correct" '/// check value changes ///'
+ Entfernung.SetText "10" '/// set distance to 10 ///'
+ Sleep (1)
+ hor = Entfernung.getText
+ Sleep (1)
+ Zuweisen.Click
+ if Entfernung.GetText <> hor Then Warnlog "- Value for distance is not correct; should: "+hor+"; is: "+Entfernung.GetText
+ WaitSlot (2000)
+ hTypeKeys "<TAB>"
+ Sleep (2)
+ ContextPositionAndSize
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ PositionX.SetText "5,00cm"
+ Posi=PositionX.GetText
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ Kontext "Drei_D_Effekte"
- Zuweisen.Click
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- If PositionX.GetText = Posi Then
- printlog "- Raising value for focal length has not changed optical appearence of object, ok."
- else
- warnlog "Problem with focal lenght here!"
- endif
- TabPositionAndSize.OK
- WaitSlot (1000)
- Kontext "Drei_D_Effekte"
- Brennweite.SetText "5"
- Zuweisen.Click
- WaitSlot (1000)
- EditSelectAll
- WaitSlot (3000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- Sleep (1)
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- Sleep (2)
- if PositionX.GetText = Posi Then
- printlog "- Lowering focus length value has not changed optical appearence of object, ok."
- else
- warnlog "problem with focus, check!"
- endif
- TabPositionAndSize.OK
- Kontext "Drei_D_Effekte"
- printlog "close document"
- Drei_D_Effekte.Close
- Call hCloseDocument
+ Brennweite.SetText "50" '/// set focval length to 50 ///'
+ Zuweisen.Click
+ ContextPositionAndSize '/// check change in position of the object ///'
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ If PositionX.GetText = Posi Then
+ printlog "- Raising value for focal length has not changed optical appearence of object, ok."
+ else
+ warnlog "Problem with focal lenght here!"
+ endif
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ Kontext "Drei_D_Effekte"
+ Brennweite.SetText "5"
+ Zuweisen.Click
+ WaitSlot (1000)
+ EditSelectAll
+ WaitSlot (3000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ Sleep (1)
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ Sleep (2)
+ if PositionX.GetText = Posi Then
+ printlog "- Lowering focus length value has not changed optical appearence of object, ok."
+ else
+ warnlog "problem with focus, check!"
+ endif
+ TabPositionAndSize.OK
+ Kontext "Drei_D_Effekte"
+ printlog "close document"
+ Drei_D_Effekte.Close
+ Call hCloseDocument
+
endcase 'tiFormat3D_Effekte
-
'------------------------------------------------------------------
testcase tdFormatTemplates
+
qaerrorlog "Not yet ready."
goto endsub
- dim Zaehler as integer
- dim i as integer
- dim x as integer
- dim iWaitIndex as integer
- dim sStyleName as string
- dim bDouble as boolean
- dim sTemp(2) as string
-
-
- WaitSlot (5000)
- iWaitIndex = 0
- do while Vorlagenkatalog.NotExists AND iWaitIndex < 10
+ dim Zaehler as integer
+ dim i as integer
+ dim x as integer
+ dim iWaitIndex as integer
+ dim sStyleName as string
+ dim bDouble as boolean
+ dim sTemp(2) as string
+
+ Call hNewDocument '/// new impress document ///'
+
+ WaitSlot (5000)
+ FormatStylesCatalog '/// format-Style catalog///'
+ iWaitIndex = 0
+ do while Vorlagenkatalog.NotExists AND iWaitIndex < 10
sleep (1)
iWaitIndex = iWaitIndex + 1
- loop
-
- Kontext "Vorlagenkatalog"
-
- PrintLog " - Area did changed"
-else
- WarnLog " Number of entrees should be 2, but it is " + Bereich.GetItemCount
-end if
-
-Zaehler = Ansicht.GetItemCount 'Vorlagenliste.GetItemCount
-
-for i = 1 to Zaehler
- Ansicht.TypeKeys "<DOWN>" ,i
- SetClipboard Ansicht.GetSelText
- WaitSlot (2000)
- Vorlagen.Select 1
- PrintLog " "+i+": Offset: '" + Vorlagen.GetSelText+"'"
- if Bereich.GetItemCount=Vorlagen.GetItemCount Then WarnLog " Range has not changed"
- Vorlagen.Select 2
+ loop
+
+ Kontext "Vorlagenkatalog"
+ Vorlagen.GetItemCount '/// get item count for templates ///'
+ Vorlagen.Select 2 '/// select template 2 ///'
+
+ if Bereich.GetItemCount = Vorlagen.GetItemCount Then '/// check if area changes when selecting a template ///'
+ PrintLog " - Area did changed"
+ else
+ WarnLog " Number of entrees should be 2, but it is " + Bereich.GetItemCount
+ end if
+
+ Zaehler = Ansicht.GetItemCount 'Vorlagenliste.GetItemCount
+
+ for i = 1 to Zaehler
+ Ansicht.TypeKeys "<DOWN>" ,i
+ SetClipboard Ansicht.GetSelText
+ WaitSlot (2000)
+ Vorlagen.Select 1
+ PrintLog " "+i+": Offset: '" + Vorlagen.GetSelText+"'"
+ if Bereich.GetItemCount=Vorlagen.GetItemCount Then WarnLog " Range has not changed"
+ Vorlagen.Select 2
WaitSlot (1000)
Ansicht.TypeKeys "<HOME>"
WaitSlot (1000)
- Ansicht.Select 1
- WaitSlot (1000)
- PrintLog " : Offset: '"+Vorlagen.GetSelText + "'; Opinion: '" + Ansicht.GetSelText+"'"
- Vorlagenkatalog.OK
- FormatStylesCatalog
- Kontext "Vorlagenkatalog"
- next i
-
- Vorlagen.Select 2
- WaitSlot (2000)
- if Neu.IsEnabled =False Then WarnLog " Button must be choosable, but is not"
- Ansicht.Select 1
- WaitSlot (1000)
- Kontext
- Active.SetPage TabVerwalten
- Kontext "TabVerwalten"
- sStyleName = VorlagenName.GetText
- printlog " created new style: '"+sStyleName +"'"
- TabVerwalten.OK
- PrintLog " New template created"
- Kontext "Vorlagenkatalog"
+ Ansicht.Select 1
WaitSlot (1000)
- ' find newly created style, because they are alphabetical ordered :-( i have to check every entry :-(((((
- Zaehler = Ansicht.GetItemCount
- i=1
- Ansicht.TypeKeys "<home>"
- bDouble = false
- sTemp(1) = Ansicht.GetText
- while (sTemp(1) <> sStyleName) AND (i <= Zaehler)
- Ansicht.TypeKeys "<DOWN>"
- inc i
- if (i > Zaehler) then ' here we are only, if we didn't found 'our' template
- if bDouble then
- qaErrorLog "There are Double Entries in the list! #111652#"
- else
- warnlog " style not found :-(" ' print out the styles...
- end if
- Ansicht.TypeKeys "<home>"
- for x=0 to zaehler
+ PrintLog " : Offset: '"+Vorlagen.GetSelText + "'; Opinion: '" + Ansicht.GetSelText+"'"
+ Vorlagenkatalog.OK
+ FormatStylesCatalog
+ Kontext "Vorlagenkatalog"
+ next i
+
+ Vorlagen.Select 2
+ WaitSlot (2000)
+ Vorlagen.Select 1 '/// select first template ///'
+ if Neu.IsEnabled =False Then WarnLog " Button must be choosable, but is not"
+ Ansicht.Select 1
+ WaitSlot (1000)
+ Neu.Click '/// create new template ///'
+ Kontext
+ Active.SetPage TabVerwalten
+ Kontext "TabVerwalten"
+ sStyleName = VorlagenName.GetText
+ printlog " created new style: '"+sStyleName +"'"
+ TabVerwalten.OK
+ PrintLog " New template created"
+ Kontext "Vorlagenkatalog"
+ WaitSlot (1000)
+ ' find newly created style, because they are alphabetical ordered :-( i have to check every entry :-(((((
+ Zaehler = Ansicht.GetItemCount
+ i=1
+ Ansicht.TypeKeys "<home>"
+ bDouble = false
+ sTemp(1) = Ansicht.GetText
+ while (sTemp(1) <> sStyleName) AND (i <= Zaehler)
+ Ansicht.TypeKeys "<DOWN>"
+ inc i
+ if (i > Zaehler) then ' here we are only, if we didn't found 'our' template
+ if bDouble then
+ qaErrorLog "There are Double Entries in the list! #111652#"
+ else
+ warnlog " style not found :-(" ' print out the styles...
+ end if
+ Ansicht.TypeKeys "<home>"
+ for x=0 to zaehler
+ printlog " "+(x+1)+": "+Ansicht.GetText
+ if (Loeschen.IsEnabled) then qaErrorLog "^ is delete-able :-)"
+ Ansicht.TypeKeys "<DOWN>"
+ next x
+ end if
+ sTemp(2) = sTemp(1)
+ sTemp(1) = Ansicht.GetText
+ if (sTemp(1) = sTemp(2)) then
+ bDouble = true
+ end if
+ wEnd
+ if bDouble then
+ i=1
+ Ansicht.TypeKeys "<end>"
+ sTemp(1) = Ansicht.GetText
+ while (sTemp(1) <> sStyleName) AND (i <= Zaehler)
+ printlog " "+(i)+": "+sTemp(1)
+ Ansicht.TypeKeys "<UP>"
+ inc i
+ if (i > Zaehler) then ' here we are only, if we didn't found 'our' template
+ warnlog " style not found :-(" ' print out the styles...
+ Ansicht.TypeKeys "<end>"
+ for x=0 to zaehler
printlog " "+(x+1)+": "+Ansicht.GetText
if (Loeschen.IsEnabled) then qaErrorLog "^ is delete-able :-)"
- Ansicht.TypeKeys "<DOWN>"
- next x
- end if
- sTemp(2) = sTemp(1)
- sTemp(1) = Ansicht.GetText
- if (sTemp(1) = sTemp(2)) then
- bDouble = true
- end if
- wEnd
- if bDouble then
- i=1
- Ansicht.TypeKeys "<end>"
- sTemp(1) = Ansicht.GetText
- while (sTemp(1) <> sStyleName) AND (i <= Zaehler)
- printlog " "+(i)+": "+sTemp(1)
Ansicht.TypeKeys "<UP>"
- inc i
- if (i > Zaehler) then ' here we are only, if we didn't found 'our' template
- warnlog " style not found :-(" ' print out the styles...
- Ansicht.TypeKeys "<end>"
- for x=0 to zaehler
- printlog " "+(x+1)+": "+Ansicht.GetText
- if (Loeschen.IsEnabled) then qaErrorLog "^ is delete-able :-)"
- Ansicht.TypeKeys "<UP>"
- next x
- end if
- sTemp(1) = Ansicht.GetText
- wEnd
- end if
- if (i <= Zaehler) then printlog " found created entry for deleting it :-)"
- WaitSlot (2000)
- try
- WaitSlot (1000)
- Kontext "Active"
- if active.exists then
- printlog "ac: "+active.gettext
- try
- Active.Yes
- catch
- warnlog "active-Yes doesn't exist :-( WorkInProgress TBO"
- endcatch
- end if
- PrintLog " Delete did work"
- Kontext "Vorlagenkatalog"
- catch
- WarnLog " Only a new created template can be deleted"
- endcatch
- WaitSlot (1000)
- UseBindings
- Ansicht.Select 1
- WaitSlot (1000)
- WaitSlot (2000)
- Kontext
- Active.SetPage TabSchatten
- Kontext "TabSchatten"
- WaitSlot (2000)
- TabSchatten.Cancel
- WaitSlot (2000)
- Kontext "Vorlagenkatalog"
-
- WaitSlot (2000)
- Kontext "DVVerwalten"
- DVVerwalten.OK
- WaitSlot (1000)
- try
- Kontext "Vorlagenkatalog"
- Vorlagenkatalog.OK
- catch
- Warnlog " - Style Catalog can't close unless the Template Management-dialog is closed"
- endcatch
- WaitSlot (2000)
- WaitSlot (2000)
- Kontext "Seitenvorlage"
- WaitSlot (2000)
- Kontext "Neu"
- Neu.Cancel
- 'Waehlen.Click
-
+ next x
+ end if
+ sTemp(1) = Ansicht.GetText
+ wEnd
+ end if
+ if (i <= Zaehler) then printlog " found created entry for deleting it :-)"
+ ' Ansicht.TypeKeys "<DOWN>" ,( i + 1 ) '/// control if template list has created template included ///'
+ WaitSlot (2000)
+ try
+ Loeschen.Click '/// delete template ///'
+ WaitSlot (1000)
+ Kontext "Active"
+ if active.exists then
+ printlog "ac: "+active.gettext
+ try
+ Active.Yes
+ catch
+ warnlog "active-Yes doesn't exist :-( WorkInProgress TBO"
+ endcatch
+ end if
+ PrintLog " Delete did work"
+ Kontext "Vorlagenkatalog"
+ catch
+ WarnLog " Only a new created template can be deleted"
+ endcatch
+ WaitSlot (1000)
+ UseBindings
+ Ansicht.Select 1
+ WaitSlot (1000)
+ Aendern.Click '/// modify template ///'
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabSchatten
+ Kontext "TabSchatten"
+ WaitSlot (2000)
+ TabSchatten.Cancel
+ WaitSlot (2000)
+ Kontext "Vorlagenkatalog"
+
+ Verwalten.Click '/// organize templates ///'
+ WaitSlot (2000)
+ Kontext "DVVerwalten"
+ DVVerwalten.OK
+ WaitSlot (1000)
+ try
+ Kontext "Vorlagenkatalog"
+ Vorlagenkatalog.OK
+ catch
+ Warnlog " - Style Catalog can't close unless the Template Management-dialog is closed"
+ endcatch
+ PrintLog " FormatStylesCatalog finished" '/// close template catalog ///'
+ WaitSlot (2000)
+ FormatModifyLayout '/// format modify layout ///'
+ WaitSlot (2000)
+ Kontext "Seitenvorlage"
+ if HintergrundseiteAustauschen.IsChecked=True Then HintergrundseiteAustauschen.UnCheck '/// uncheck switch background page ///'
+ Laden.Click '/// load ///'
+ WaitSlot (2000)
+ Kontext "Neu"
+ Neu.Cancel
+ Kontext "Seitenvorlage" '/// choose a page layout ///'
+ 'Waehlen.Click
+ Seitenvorlage.OK '/// close dialog ///'
+
+ Call hCloseDocument '/// close document ///'
endcase 'tdFormatTemplates
-
'-------------------------------------------------------------------------------
testcase tiFormatAufzaehlungszeichen
-
+
Dim i as Integer
PrintLog "- Format/Numbering and Bullets"
-
+
Call hNewDocument
WaitSlot (2000)
Kontext "DocumentImpress"
hTextrahmenErstellen ("Hello <Return><Return>",20,20,60,60)
for i=1 to 8
- Kontext "DocumentImpress"
- gMouseClick 30,30
- EditSelectAll
- WaitSlot (1000)
- FormatNumberingBulletsDraw
- WaitSlot (2000)
- Kontext
- Active.SetPage TabBullet
- Kontext "TabBullet"
- Auswahl.TypeKeys "<Right>", i
- TabBullet.OK
- Kontext "DocumentImpress"
+ Kontext "DocumentImpress"
+ gMouseClick 30,30
+ EditSelectAll
+ WaitSlot (1000)
+ FormatNumberingBulletsDraw
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabBullet
+ Kontext "TabBullet"
+ Auswahl.TypeKeys "<Right>", i
+ TabBullet.OK
+ Kontext "DocumentImpress"
next i
for i=1 to 8
- Kontext "DocumentImpress"
- gMouseClick 30,30
- EditSelectAll
- WaitSlot (1000)
- FormatNumberingBulletsDraw
- Kontext
- Active.SetPage TabNumerierungsart
- Kontext "TabNumerierungsart"
- Auswahl.TypeKeys "<Right>", i
- TabNumerierungsart.OK
- Kontext "DocumentImpress"
+ Kontext "DocumentImpress"
+ gMouseClick 30,30
+ EditSelectAll
+ WaitSlot (1000)
+ FormatNumberingBulletsDraw
+ Kontext
+ Active.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ Auswahl.TypeKeys "<Right>", i
+ TabNumerierungsart.OK
+ Kontext "DocumentImpress"
next i
for i=1 to 8
- Kontext "DocumentImpress"
- gMouseClick 30,30
- EditSelectAll
- FormatNumberingBulletsDraw
- Kontext
- Active.SetPage TabNumerierungsart
- Kontext "TabNumerierungsart"
- Auswahl.TypeKeys "<Right>", i
- TabNumerierungsart.OK
- Kontext "DocumentImpress"
+ Kontext "DocumentImpress"
+ gMouseClick 30,30
+ EditSelectAll
+ FormatNumberingBulletsDraw
+ Kontext
+ Active.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ Auswahl.TypeKeys "<Right>", i
+ TabNumerierungsart.OK
+ Kontext "DocumentImpress"
next i
WaitSlot (3000)
for i=1 to 29
- WaitSlot (3000)
- FormatNumberingBulletsDraw
- WaitSlot (3000)
- Kontext
- Active.SetPage TabGrafiken
- Kontext "TabGrafiken"
- sleep 1
- Auswahl.TypeKeys "<Right>", i
- TabGrafiken.OK
- Kontext "DocumentImpress"
+ WaitSlot (3000)
+ FormatNumberingBulletsDraw
+ WaitSlot (3000)
+ Kontext
+ Active.SetPage TabGrafiken
+ Kontext "TabGrafiken"
+ sleep 1
+ Auswahl.TypeKeys "<Right>", i
+ TabGrafiken.OK
+ Kontext "DocumentImpress"
next i
-
+
gMouseClick 90,90
-
+
Call hCloseDocument
endcase 'tiFormatAufzaehlungszeichen
diff --git a/testautomation/graphics/optional/includes/global/g_group.inc b/testautomation/graphics/optional/includes/global/g_group.inc
index 3e4e355..6f0a99b 100755
--- a/testautomation/graphics/optional/includes/global/g_group.inc
+++ b/testautomation/graphics/optional/includes/global/g_group.inc
@@ -40,60 +40,73 @@
'\********************************************************************
testcase tiGruppierung
- Dim PosX 'Variable fuer PositionX
+ Dim PosX 'Variable fuer PositionX
- sleep 3
- Kontext "DocumentImpress"
- sleep 2
- sleep 1
- sleep 1
- sleep 1
+ Call hNewDocument '/// new document ///'
+ sleep 3
+ Kontext "DocumentImpress"
+ sleep 2
+ hRechteckErstellen (20,20,40,40) '/// create rectangle ///'
+ sleep 1
+ hRechteckErstellen (60,60,70,10) '/// create 2nd rectangle ///'
+ sleep 1
+ hRechteckErstellen (50,90,70,40) '/// create 3rd rectangle ///'
+ sleep 1
Printlog "- Created 3 rectangles for group testing"
- if (gApplication = "DRAW") then
- hOpenContextMenu
+ gMouseClick (50,50) '/// Put the mouse-marker in the middle of the screen ///'
+ EditSelectAll '/// select all rectangles ///'
+ if (gApplication = "DRAW") then
+ hOpenContextMenu
sleep(2)
hMenuSelectNr(12) ' Select "Group"
sleep(2)
- else
- endif
- sleep 1
+ else
+ FormatGroupDraw '/// open context menue and group rectangles ///'
+ endif
+ sleep 1
Printlog "- Get position and dimensions of elements"
- sleep 1
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- sleep 1
- PosX=PositionX.GetText
- TabPositionAndSize.OK
- sleep 1
- Kontext "DocumentImpress"
- gMouseClick 35,35
- sleep 1
- sleep 3
- try
- sleep 1
- Warnlog "- Entering the group, no object within the group should have been selected"
- catch
- Printlog "- entered group, nothing selected"
- endcatch
- gMouseClick (35,35)
- gMouseMove (30,30,60,60)
- sleep 1
- Printlog "- Exit group"
- ' sleep 1
- ' hMenuSelectNr (13)
- ' would be better to call the slot TBO!
- ContextPositionAndSize
- sleep 1
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- sleep 1
- if PosX = PositionX.GetText then
- Warnlog "- No change in position for X axis, even we changed position of 1 object within the group"
- TabPositionAndSize.OK
- else
- Printlog "- Moving within the group works"
- TabPositionAndSize.OK
- end if
+ ContextPositionAndSize '/// get dimensions of group ///'
+ sleep 1
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ sleep 1
+ PosX=PositionX.GetText
+ TabPositionAndSize.OK
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseClick 35,35
+ sleep 1
+ hTypeKeys "<F3>" '/// entering group using key "F3" ///'
+ sleep 3
+ try
+ EditCut '/// cut rectangle out of document ///'
+ sleep 1
+ Warnlog "- Entering the group, no object within the group should have been selected"
+ catch
+ Printlog "- entered group, nothing selected"
+ endcatch
+ gMouseClick (35,35)
+ gMouseMove (30,30,60,60)
+ sleep 1
+ Printlog "- Exit group"
+' DocumentImpress.OpenContextMenu '/// leave group, compare dimensions ///'
+' sleep 1
+' hMenuSelectNr (13)
+ hTypeKeys "<mod1 F3>" '/// exit group using key "strg F3" ///'
+ ' would be better to call the slot TBO!
+ ContextPositionAndSize
+ sleep 1
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ sleep 1
+ if PosX = PositionX.GetText then
+ Warnlog "- No change in position for X axis, even we changed position of 1 object within the group"
+ TabPositionAndSize.OK
+ else
+ Printlog "- Moving within the group works"
+ TabPositionAndSize.OK
+ end if
+ Call hCloseDocument '/// close document ///'
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_imagemap.inc b/testautomation/graphics/optional/includes/global/g_imagemap.inc
index 08e6575..24ba0c3 100755
--- a/testautomation/graphics/optional/includes/global/g_imagemap.inc
+++ b/testautomation/graphics/optional/includes/global/g_imagemap.inc
@@ -41,108 +41,125 @@
'\*************************************************************************************
testcase tEditImageMap
- Kontext "ImageMapEditor"
- sleep 1
- printlog "ImageMap editor exists"
- DialogTest ( ImageMapEditor )
- try
+ Call hNewDocument '/// new document ///'
+ EditImageMap '/// edit image map ///'
+ Kontext "ImageMapEditor"
+ sleep 1
+ if ImageMapEditor.Exists (2) then '/// test dialog controls ///'
+ printlog "ImageMap editor exists"
+ DialogTest ( ImageMapEditor )
+ try
ImageMapEditor.Close
Printlog "ImageMap closed"
- catch
+ catch
EditImageMap
Printlog "ImageMap closed using the edit-menu entry"
- endcatch
-else
- sleep 2
- DialogTest ( ImageMapEditor )
- try
+ endcatch
+ else
+ sleep 2
+ DialogTest ( ImageMapEditor )
+ try
ImageMapEditor.Close
Printlog "ImageMap closed"
- catch
+ catch
EditImageMap
Printlog "ImageMap closed using the edit-menu entry"
- endcatch
-end if
-endcase
-
+ endcatch
+ end if
+ Call hCloseDocument '/// close document ///'
+
+endcase 'tEditImageMap
'------------------------------------------------------------------------------------------------------------------------------------
-
testcase tEditImageMapProperties
+
qaerrorlog "test not yet ready."
goto endsub
+ Call hNewDocument '/// new document ///'
+ InsertGraphicsFromFile '/// Insert a graphic and select it ///'
sleep (1)
Kontext "GrafikEinfuegenDlg"
- sleep (2)
- Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\SaveAsPicture\SaveAsPicture.pcx")
- sleep (2)
- Oeffnen.Click
- sleep (2)
- Kontext "ImageMapEditor"
- sleep (1)
- printlog "ImageMap editor exists"
-else
- warnlog "Something is wrong, the Imagemap didn't show up."
-end if
+ sleep (2)
+ Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\SaveAsPicture\SaveAsPicture.pcx")
+ sleep (2)
+ Oeffnen.Click
+ sleep (2)
+ EditImageMap '/// Open the image map dialog ///'
+ Kontext "ImageMapEditor"
+ sleep (1)
+ if ImageMapEditor.Exists (2) then '/// test dialog controls ///'
+ printlog "ImageMap editor exists"
+ else
+ warnlog "Something is wrong, the Imagemap didn't show up."
+ end if
-Dokument.MouseDown 50,50
-Dokument.MouseMove 50,50,10,10
-Dokument.MouseUp 10,10
+ Ellipse.Click '/// Insert an 'image map' object ///'
+ Dokument.MouseDown 50,50
+ Dokument.MouseMove 50,50,10,10
+ Dokument.MouseUp 10,10
-kontext "ImageMapHyperlink"
-sleep (1)
-if ImageMapHyperlink.Exists (2) then
- printlog "ImageMapHyperlink (properties) editor exists"
-else
- warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
-end if
+ Eigenschaften.Click '/// Click on the properties icon to open up the properties for the Object ///'
+ kontext "ImageMapHyperlink"
+ sleep (1)
+ if ImageMapHyperlink.Exists (2) then
+ printlog "ImageMapHyperlink (properties) editor exists"
+ else
+ warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
+ end if
-Frame.SetText "http://www.framed.com"
-Objectname.SetText "This is a strange name: Huckillerry Bohaahw"
-Alternativetext.SetText "Alternative, the only way to fly..."
-Description.SetText "Just a Foney-text... or whatever it's called."
-kontext "ImageMapEditor"
-Zuweisen.Click
-sleep (1)
-ImageMapEditor.Close
+ URL.SetText "http://www.cnn.com" '/// Write some text in each field ///'
+ Frame.SetText "http://www.framed.com"
+ Objectname.SetText "This is a strange name: Huckillerry Bohaahw"
+ Alternativetext.SetText "Alternative, the only way to fly..."
+ Description.SetText "Just a Foney-text... or whatever it's called."
+ ImageMapHyperlink.Ok '/// Close the Properties-Dialogue with "Ok" ///'
+ kontext "ImageMapEditor"
+ Zuweisen.Click
+ sleep (1)
+ ImageMapEditor.Close
-if gApplication = "DRAW" then
- kontext "DocumentDraw"
-else
- kontext "DocumentImpress"
-end if
+ if gApplication = "DRAW" then
+ kontext "DocumentDraw"
+ else
+ kontext "DocumentImpress"
+ end if
-Kontext "ImageMapEditor"
-sleep (1)
-if ImageMapEditor.Exists (2) then
- printlog "ImageMap editor exists"
-else
- warnlog "Something is wrong, the ImageMap Editor didn't show up."
-end if
+ EditImageMap '/// Check if what we wrote in the Properites-Dialogue still is visible."
+ Kontext "ImageMapEditor"
+ sleep (1)
+ if ImageMapEditor.Exists (2) then
+ printlog "ImageMap editor exists"
+ else
+ warnlog "Something is wrong, the ImageMap Editor didn't show up."
+ end if
-Dokument.TypeKeys "<TAB>"
-sleep (1)
+ Dokument.TypeKeys "<TAB>"
+ sleep (1)
-kontext "ImageMapHyperlink"
-sleep (1)
-if ImageMapHyperlink.Exists (2) then
- printlog "ImageMapHyperlink (properties) editor exists"
-else
- warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
-end if
+ Eigenschaften.Click '/// Click on the properties icon to open up the properties for the Object ///'
+ kontext "ImageMapHyperlink"
+ sleep (1)
+ if ImageMapHyperlink.Exists (2) then
+ printlog "ImageMapHyperlink (properties) editor exists"
+ else
+ warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
+ end if
-if URL.GetText <> "http://www.cnn.com/" then warnlog "URL should have been: http://www.cnn.com/ . But was " + URL.GetText
- ' if Frame.GetSelText <> "http://www.framed.com" then warnlog "Frame should have been: http://www.framed.com. But was " + Frame.GetSelText
- if Objectname.GetText <> "This is a strange name: Huckillerry Bohaahw" then warnlog "Objectname. should have been: This is a strange name: Huckillerry Bohaahw. But was " + Objectname.GetText
+ '/// Check if the entries we set before has remained the same, with one exception: cnn.com should now have a slash after it. ///'
+ if URL.GetText <> "http://www.cnn.com/" then warnlog "URL should have been: http://www.cnn.com/ . But was " + URL.GetText
+' if Frame.GetSelText <> "http://www.framed.com" then warnlog "Frame should have been: http://www.framed.com. But was " + Frame.GetSelText
+ if Objectname.GetText <> "This is a strange name: Huckillerry Bohaahw" then warnlog "Objectname. should have been: This is a strange name: Huckillerry Bohaahw. But was " + Objectname.GetText
if Alternativetext.GetText <> "Alternative, the only way to fly..." then warnlog "Alternativetext should have been: . But was " + Alternativetext.GetText
- if Description.GetText <> "Just a Foney-text... or whatever it's called." then warnlog "Description. should have been: . But was " + Description.GetText
- sleep (1)
+ if Description.GetText <> "Just a Foney-text... or whatever it's called." then warnlog "Description. should have been: . But was " + Description.GetText
+ ImageMapHyperlink.Ok '/// Close the Properties-Dialogue ///'
+ sleep (1)
- kontext "ImageMapEditor"
- Zuweisen.Click
- sleep (1)
- ImageMapEditor.Close
- sleep (1)
+ kontext "ImageMapEditor"
+ Zuweisen.Click
+ sleep (1)
+ ImageMapEditor.Close
+ sleep (1)
+ Call hCloseDocument '/// close document ///'
+
endcase 'tEditImageMapProperties
-
'------------------------------------------------------------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_line.inc b/testautomation/graphics/optional/includes/global/g_line.inc
index 0c84051..d62428e 100755
--- a/testautomation/graphics/optional/includes/global/g_line.inc
+++ b/testautomation/graphics/optional/includes/global/g_line.inc
@@ -39,8 +39,8 @@
' #1 tiFormatLine
' #1 tLineConnect
'\*************************************************************************************
-
testcase tiFormatLine
+
Dim ZaehlerStil
Dim ZaehlerFarbe
Dim ZaehlerTransp
@@ -49,66 +49,85 @@ testcase tiFormatLine
Dim k 'Variable fuer Transparenz (Anzahl)
Dim l
Dim ZaehlerStilLinks
-
+
+ Call hNewDocument '/// New impress document
sleep 3
+ Call hRechteckErstellen (10,10,60,60) '/// create rectangle
sleep 2
+ FormatLine '/// open Format line dialog
Kontext
+ Active.SetPage TabLinie '///Open TabLine Tabpage
Kontext "TabLinie"
sleep 2
+ Stil.GetItemCount '/// Get item count for style ///'
+ Farbe.GetItemCount '/// Get item count for color ///'
+ Breite.More 1 '/// change value for ///'
ZaehlerStil = Stil.GetItemCount
ZaehlerFarbe = Farbe.GetItemCount
-
- wait 10
- Stil.Select i
- wait 10
+
+ for i=1 to ZaehlerStil '/// Apply every style to the rectangle ///'
+ wait 10
+ Stil.Select i
+ wait 10
+ TabLinie.OK '/// Closing dialog with ok
' Kontext "DocumentImpress"
+ FormatLine '///Open TabLine Tabpage
+ Kontext
+ Active.SetPage TabLinie
+ Kontext "TabLinie"
+ next i
+
+ for j=1 to ZaehlerFarbe '/// Apply every color to the rectangle///'
+ PrintLog "-- " + Farbe.GetSelText
+ wait 10
+ Farbe.Select j
+ wait 10
+ TabLinie.OK
+ ' Kontext "DocumentImpress"
+ FormatLine
+ Kontext
+ Active.SetPage TabLinie
+ Kontext "TabLinie"
+ next j
+ Breite.More 3 '/// change Breite ///'
+ Breite.Less 2
+ for k=1 to 6
+ Transparenz.More 1 '/// change tranparence///'
+ next k
+ TabLinie.OK
+ '---------------------------------------
+ sleep 2
+ EditSelectAll '/// Select all objects in document ///'
+ sleep 2
+ hTypeKeys "<DELETE>" '/// Delete objects ///'
+ sleep 2
+ FormatLine
+
Kontext
- Active.SetPage TabLinie
+ Active.SetPage TabLinie '/// TabLine ///'
Kontext "TabLinie"
-next i
-
-PrintLog "-- " + Farbe.GetSelText
-wait 10
-Farbe.Select j
-wait 10
-TabLinie.OK
-' Kontext "DocumentImpress"
-FormatLine
-Kontext
-Active.SetPage TabLinie
-Kontext "TabLinie"
-next j
-Breite.Less 2
-for k=1 to 6
-next k
-TabLinie.OK
-'---------------------------------------
-sleep 2
-sleep 2
-sleep 2
-FormatLine
-
-Kontext
-Kontext "TabLinie"
-StilLinks.GetItemCount
-ZaehlerStilLinks=StilLinks.GetItemCount
-wait 10
-wait 10
-StilLinks.Select l
-if StilLinks.GetSelText<>StilRechts.GetSelText Then
-else
-PrintLog " Left: " + StilLinks.GetSelText + " Right: " + StilRechts.GetSelText
-end if
-EndenSynchronisieren.UnCheck
-next l
-ZentriertLinks.Check
-if ZentriertRechts.isChecked = True Then PrintLog " Centered right does work"
-i = CornerStyle.GetItemCount
-if i <> 4 then warnlog "CornerStyle should contain four options, but currently has: " + i
-for i = 1 to 4
+ StilLinks.GetItemCount
+ ZaehlerStilLinks=StilLinks.GetItemCount
+ for l=1 to ZaehlerStilLinks '/// Apply all line end styles///'
+ wait 10
+ if EndenSynchronisieren.IsChecked=False Then EndenSynchronisieren.Check '/// check synchronize ///'
+ wait 10
+ StilLinks.Select l
+ if StilLinks.GetSelText<>StilRechts.GetSelText Then
+ WarnLog " Ends not synchronized. " + StilLinks.GetSelText + " Right: " + StilRechts.GetSelText '/// check if style is automatically applied for both ends ///'
+ else
+ PrintLog " Left: " + StilLinks.GetSelText + " Right: " + StilRechts.GetSelText
+ end if
+ EndenSynchronisieren.UnCheck
+ next l
+ ZentriertLinks.Check
+ if ZentriertRechts.isChecked = True Then PrintLog " Centered right does work"
+ i = CornerStyle.GetItemCount
+ if i <> 4 then warnlog "CornerStyle should contain four options, but currently has: " + i
+ for i = 1 to 4
CornerStyle.Select i
if CornerStyle.GetSelIndex <> i then warnlog "Corner Styles was: " + CornerStyle.GetSelIndex + ", should have been " + i
- Printlog "Corner Style nr: " + i + " = " + CornerStyle.GetSelText
+ Printlog "Corner Style nr: " + i + " = " + CornerStyle.GetSelText
next i
TabLinie.OK
'------------------------------------------
@@ -117,12 +136,15 @@ for i = 1 to 4
Kontext
Active.SetPage TabLinienstile
Kontext "TabLinienstile"
+ Hinzufuegen.Click '/// Add new line style ///'
Kontext "NameDlg"
+ Eingabefeld.SetText "Testlinie2" '/// insert name of style (Testlinie2) ///'
NameDlg.OK
sleep 1
Kontext
Active.SetPage TabLinienstile
Kontext "TabLinienstile"
+ Loeschen.Click '/// delete created style ///'
Kontext "Active"
Active.Yes
Kontext
@@ -135,148 +157,169 @@ for i = 1 to 4
LaengeLinks.More 3
LaengeRechts.More 3
Abstand.SetText "0,1"
+ if AnLinienbreite.IsChecked = True Then AnLinienbreite.Click '/// all fields changed in TabLinienstile ///'
PrintLog " All controls could be manipulated."
TypLinks.Select 1
TypRechts.Select 1
- WarnLog " A point where you can change its length is not a point anymore"
-else
-end if
-sleep 1
-try
- Linienstil.Select 1
-catch
- Warnlog "- The list for line styles is empty"
+ if LaengeLinks.IsEnabled And LaengeRechts.IsEnabled =True Then '/// check if its possible to apply a length to a point ///'
+ WarnLog " A point where you can change its length is not a point anymore"
+ else
+ PrintLog " Line style pint tested" '/// All styles for points are changed ///'
+ end if
+ sleep 1
+ try
+ Linienstil.Select 1
+ catch
+ if Linienstil.GetItemCount = 0 then '/// check if style list is filled ///'
+ Warnlog "- The list for line styles is empty"
+ Hinzufuegen.Click '/// new style ///'
+ Kontext "NameDlg"
+ NameDlg.OK
+ end if
+ endcatch
+ Kontext
+ Active.SetPage TabLinienstile
+ Kontext "TabLinienstile"
+ Aendern.Click '/// change style ///'
Kontext "NameDlg"
+ Eingabefeld.SetText Eingabefeld.GetText + "1" '/// new name for changed style ///'
+ SetClipboard Eingabefeld.GetText '/// put name into clipboard ///'
NameDlg.OK
-end if
-endcatch
-Kontext
-Active.SetPage TabLinienstile
-Kontext "TabLinienstile"
-Kontext "NameDlg"
-NameDlg.OK
-Kontext
-Active.SetPage TabLinienstile
-Kontext "TabLinienstile"
-TabLinienstile.OK
-sleep 2
-FormatLine
-Kontext
-Active.SetPage TabLinienstile
-Kontext "TabLinienstile"
-try
-Aendern.Click
-catch
-Hinzufuegen.Click
-endcatch
-Kontext "NameDlg"
-NameDlg.Cancel
-sleep 2
-Kontext
-Active.SetPage TabLinienstile
-Kontext "TabLinienstile"
-sleep 1
-try
-Kontext "Active"
-Active.Yes
-sleep 3
-catch
-if Linienstile.GetItemCount = 0 Then
+ Kontext
+ Active.SetPage TabLinienstile
+ Kontext "TabLinienstile"
+ TabLinienstile.OK
+ sleep 2
+ FormatLine
+ Kontext
+ Active.SetPage TabLinienstile
+ Kontext "TabLinienstile"
+ try
+ Aendern.Click
+ catch
Hinzufuegen.Click
+ endcatch
Kontext "NameDlg"
+ if Eingabefeld.GetText <> GetClipboardText Then WarnLog "No changes for Line style" '/// check if changed style is in list ///'
+ NameDlg.Cancel
+ sleep 2
+ Kontext
+ Active.SetPage TabLinienstile
+ Kontext "TabLinienstile"
+ sleep 1
+ try
+ Loeschen.Click '/// delete changed style ///'
+ Kontext "Active"
+ Active.Yes
+ sleep 3
+ catch
+ if Linienstile.GetItemCount = 0 Then
+ Hinzufuegen.Click
+ Kontext "NameDlg"
+ sleep 1
+ Eingabefeld.SetText "Delete"
+ NameDlg.OK
+ end if
+ endcatch
+ Kontext
+ Active.SetPage TabLinienstile
+ Kontext "TabLinienstile"
+ sleep 1
+ TabLinienstile.OK
+ '--------------------------------------------
+ sleep 2
+ Call hRechteckErstellen (40,40,80,50) '/// create rectangle ///'
+ sleep 2
+ FormatLine
+ Kontext
+ Active.SetPage TabLinienenden
+ Kontext "TabLinienenden"
+ sleep 2
+ Kontext "Linienstil"
+ if Linienstil.Exists then Aendern.Click '/// change style ///'
sleep 1
- Eingabefeld.SetText "Delete"
+ Kontext
+ Active.SetPage TabLinienenden
+ Kontext "TabLinienenden"
+ sleep 1
+ Liste.GetItemCount
+ Liste.Select 3
+ Hinzufuegen.Click '/// add style ///'
+ Kontext "NameDlg"
NameDlg.OK
-end if
-endcatch
-Kontext
-Active.SetPage TabLinienstile
-Kontext "TabLinienstile"
-sleep 1
-TabLinienstile.OK
-'--------------------------------------------
-sleep 2
-sleep 2
-FormatLine
-Kontext
-Active.SetPage TabLinienenden
-Kontext "TabLinienenden"
-sleep 2
-Kontext "Linienstil"
-sleep 1
-Kontext
-Active.SetPage TabLinienenden
-Kontext "TabLinienenden"
-sleep 1
-Liste.GetItemCount
-Liste.Select 3
-Kontext "NameDlg"
-NameDlg.OK
-
-Kontext
-Active.SetPage TabLinienenden
-Kontext "TabLinienenden"
-Kontext "Active"
-Printlog Active.GetText
-Active.OK
-Kontext "NameDlg"
-Eingabefeld.SetText Eingabefeld.GetText + "1"
-PrintLog " Name inserted"
-NameDlg.OK
-
-Kontext
-if active.GetRt=304 then
-active.ok
-Kontext "NameDlg"
-Eingabefeld.SetText Eingabefeld.GetText + "1"
-PrintLog " Name inserted"
-NameDlg.OK
-endif
-if active.GetRt=304 then
-active.ok
-warnlog "still not a valid name :-("
-endif
-Kontext
-Active.SetPage TabLinienenden
-Kontext "TabLinienenden"
-Kontext "Active"
-Active.Yes
-
-Kontext
-Active.SetPage TabLinienenden
-Kontext "TabLinienenden"
-sleep 1
-sleep 1
-Kontext "SpeichernDlg"
-sleep 1
-SpeichernDlg.Cancel
-
-Kontext "TabLinienenden"
-TabLinienenden.Cancel
-sleep 2
-
-'sleep 2
-'sleep 2
-
-'kontext "Toolbar"
-'Kurven.Click
-'sleep 1
-'if (gApplication = "DRAW") then
-' Kontext "DocumentDraw"
-' gMouseMove (30,50, 40,60)
-' sleep 1
-'else
-' Kontext "DocumentImpress"
-' gMouseMove (30,50, 40,60)
-' sleep 1
-'endif
-'FormatLine
-'Kontext
-'Active.SetPage TabSchatten
-
-' FormatLine.Cancel
+
+ Kontext
+ Active.SetPage TabLinienenden
+ Kontext "TabLinienenden"
+ Aendern.Click '/// change style ///'
+ Kontext "Active"
+ Printlog Active.GetText
+ Active.OK
+ Kontext "NameDlg"
+ Eingabefeld.SetText Eingabefeld.GetText + "1"
+ PrintLog " Name inserted"
+ NameDlg.OK
+
+ Kontext
+ if active.GetRt=304 then
+ active.ok
+ Kontext "NameDlg"
+ Eingabefeld.SetText Eingabefeld.GetText + "1"
+ PrintLog " Name inserted"
+ NameDlg.OK
+ endif
+ if active.GetRt=304 then
+ active.ok
+ warnlog "still not a valid name :-("
+ endif
+ Kontext
+ Active.SetPage TabLinienenden
+ Kontext "TabLinienenden"
+ Loeschen.Click '/// delete style ///'
+ Kontext "Active"
+ Active.Yes
+
+ Kontext
+ Active.SetPage TabLinienenden
+ Kontext "TabLinienenden"
+ sleep 1
+ Speichern.Click '/// save style ///'
+ sleep 1
+ Kontext "SpeichernDlg"
+ sleep 1
+ SpeichernDlg.Cancel
+
+ Kontext "TabLinienenden"
+ TabLinienenden.Cancel
+ sleep 2
+
+ '///New part for line
+ 'EditSelectAll '/// Select all objects in document ///'
+ 'sleep 2
+ 'hTypeKeys "<DELETE>" '/// Delete objects ///'
+ 'sleep 2
+
+ '/// Create line to test shadow tabpage in line dialog
+ 'kontext "Toolbar"
+ 'Kurven.Click
+ 'sleep 1
+ 'if (gApplication = "DRAW") then
+ ' Kontext "DocumentDraw"
+ ' gMouseMove (30,50, 40,60)
+ ' sleep 1
+ 'else
+ ' Kontext "DocumentImpress"
+ ' gMouseMove (30,50, 40,60)
+ ' sleep 1
+ 'endif
+ 'FormatLine
+ 'Kontext
+ 'Active.SetPage TabSchatten
+
+ ' FormatLine.Cancel
+ Call hCloseDocument '/// close document ///'
+
endcase 'tiFormatLine
-
'-------------------------------------------------------------------------------'
testcase tLineConnect
@@ -287,55 +330,58 @@ testcase tLineConnect
Dim i as integer
Dim cname as string
Dim cfirst as integer
-
- if bAsianLan then
- QaErrorLog "tLineConnect ends because Asian languages are not fully supported."
- goto Endsub
+
+ if bAsianLan then
+ QaErrorLog "tLineConnect ends because Asian languages are not fully supported."
+ goto Endsub
end if
-
+
+ Call hNewDocument '/// New Impress / Draw document ///'
sleep 3
kontext "GraphicObjectbar"
if GraphicObjectbar.Exists then
- if GraphicObjectbar.isDocked = False then
- GraphicObjectbar.Move 900,900
- endif
+ if GraphicObjectbar.isDocked = False then
+ GraphicObjectbar.Move 900,900
+ endif
endif
kontext "Gluepointsobjectbar"
if Gluepointsobjectbar.Exists then
- if Gluepointsobjectbar.isDocked = false then
- Gluepointsobjectbar.Move 900,900
- endif
+ if Gluepointsobjectbar.isDocked = false then
+ Gluepointsobjectbar.Move 900,900
+ endif
endif
kontext "Optionsbar"
if Optionsbar.Exists then
- if Optionsbar.isDocked = false then
- Optionsbar.Move 900,900
- end if
+ if Optionsbar.isDocked = false then
+ Optionsbar.Move 900,900
+ end if
endif
-
+
+ '/// Create 2 lines ///'
kontext "Toolbar"
Kurven.Click
sleep 1
if (gApplication = "DRAW") then
- Kontext "DocumentDraw"
- gMouseMove (30,50, 40,60)
- sleep 1
- kontext "Toolbar"
- Kurven.Click
- Kontext "DocumentDraw"
- gMouseMove (70,50, 60,60)
+ Kontext "DocumentDraw"
+ gMouseMove (30,50, 40,60)
+ sleep 1
+ kontext "Toolbar"
+ Kurven.Click
+ Kontext "DocumentDraw"
+ gMouseMove (70,50, 60,60)
else
- Kontext "DocumentImpress"
- gMouseMove (30,50, 40,60)
- sleep 1
- kontext "Toolbar"
- Kurven.Click
- Kontext "DocumentImpress"
- gMouseMove (70,50, 60,60)
+ Kontext "DocumentImpress"
+ gMouseMove (30,50, 40,60)
+ sleep 1
+ kontext "Toolbar"
+ Kurven.Click
+ Kontext "DocumentImpress"
+ gMouseMove (70,50, 60,60)
endif
-
+
printlog "'" + (gApplication) +"'"
-
+
+ '/// Check the amount of objects ///'
gMouseClick (10, 10)
sleep 1
EditSelectAll
@@ -346,8 +392,8 @@ testcase tLineConnect
kontext "DocumentDraw"
StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
endif
- if bAsianLan then
- value1 = left(StatusBarText,(InStr(StatusBarText, "2" )))
+ if bAsianLan then
+ value1 = left(StatusBarText,(InStr(StatusBarText, "2" )))
if value1 <> 2 then
warnlog "UH? There is supposed to be two objects visible, but was: " + value1 + " and the StatusBarText said: " + StatusBarText + "."
end if
@@ -358,117 +404,130 @@ testcase tLineConnect
warnlog "UH? There is supposed to be two objects visible, but we found " + value1 + " objects."
end if
end if
-
+
+ '/// Connect the two objects selected ///'
hOpenContextMenu
sleep 1
hMenuSelectNr(13)
sleep 1
+ '/// Check the amount of objects ///'
gMouseClick (10, 10)
sleep 1
EditSelectAll
sleep 1
if (gApplication = "IMPRESS") then
- StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1))
+ StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1))
else
- kontext "DocumentDraw"
- StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
+ kontext "DocumentDraw"
+ StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
endif
value2 = left(StatusBarText,1)
printlog "StatusBarText was: " + StatusBarText
-
+
+ '/// if same as the first value = wrong ///'
if value1 = value2 then
- warnlog "Expected to find one object, but found " + value2 + " instead."
+ warnlog "Expected to find one object, but found " + value2 + " instead."
endif
if value2 = "2" then
- warnlog "Connect was not successful. We should have one object, but have " + value2 + " instead."
+ warnlog "Connect was not successful. We should have one object, but have " + value2 + " instead."
endif
-
+
+ '/// unmark the objects, thereafter mark them again ///'
gMouseClick (10, 10)
sleep 1
EditSelectAll
sleep 1
+ '/// Break them from eachother ///'
hOpenContextMenu
sleep 1
hMenuSelectNr(11)
sleep 1
+ '/// unmark the objects, thereafter mark them again ///'
gMouseClick (10, 10)
sleep 1
EditSelectAll
sleep 1
+ '/// Check the amount of objects ///'
if (gApplication = "IMPRESS") then
- StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1))
+ StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1))
else
- kontext "DocumentDraw"
- StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
+ kontext "DocumentDraw"
+ StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
endif
value3 = left(StatusBarText,1)
-
+
printlog "StatusBarText was: " + StatusBarText
-
+
+ '/// if the same as any of the ones before: Wrong ///'
if (value3 = value1 OR value3 = value2) then
- warnlog "Expected to find three objects, but found " + value3 + " instead."
+ warnlog "Expected to find three objects, but found " + value3 + " instead."
endif
-
+
+ '/// if 3 objects, then everything is ok ///'
if value3 = 3 then
- printlog "Found three objects. Means the test was successful."
+ printlog "Found three objects. Means the test was successful."
else
- warnlog "Wrong value, expected three objects, but found " + value3 + "."
+ warnlog "Wrong value, expected three objects, but found " + value3 + "."
endif
-
-
+
+ '/// Go through the different Corner-styles ///'
+
hOpenContextMenu
hMenuSelectNr(2) 'Choose "Line"
-
+
Kontext "TabLinie"
cfirst = CornerStyle.GetSelIndex
-
+
For i = 1 to CornerStyle.GetItemCount
- Kontext "TabLinie"
- if (i > 1) AND (cname <> CornerStyle.GetSelText) then
- warnlog "Cornerstylename wasnt saved. Should have been: " + cname + ". But was: " + CornerStyle.GetSelText
- endif
- CornerStyle.Select i
- cname = CornerStyle.GetSelText
- Printlog " Found and selected Corner-Style: " + cname
- TabLinie.Ok
- sleep 1
- hOpenContextMenu
- hMenuSelectNr(2) 'Choose "Line"
+ Kontext "TabLinie"
+ if (i > 1) AND (cname <> CornerStyle.GetSelText) then
+ warnlog "Cornerstylename wasnt saved. Should have been: " + cname + ". But was: " + CornerStyle.GetSelText
+ endif
+ CornerStyle.Select i
+ cname = CornerStyle.GetSelText
+ Printlog " Found and selected Corner-Style: " + cname
+ TabLinie.Ok
+ sleep 1
+ hOpenContextMenu
+ hMenuSelectNr(2) 'Choose "Line"
Next i
-
+
Kontext "TabLinie"
CornerStyle.Select cfirst
TabLinie.Ok
-
+
+ '/// And a nice finish to make life a bit happier for anyone who looks at the test ///'
kontext "Toolbar"
Ellipsen.Click
if (gApplication = "DRAW") then
- Kontext "DocumentDraw"
- gMouseMove (40,40, 50,30)
- sleep 1
- kontext "Toolbar"
- Ellipsen.Click
- Kontext "DocumentDraw"
- gMouseMove (51,40, 61,30)
- kontext "Toolbar"
- Ellipsen.Click
- Kontext "DocumentDraw"
- gMouseMove (48,43, 53,50)
+ Kontext "DocumentDraw"
+ gMouseMove (40,40, 50,30)
+ sleep 1
+ kontext "Toolbar"
+ Ellipsen.Click
+ Kontext "DocumentDraw"
+ gMouseMove (51,40, 61,30)
+ kontext "Toolbar"
+ Ellipsen.Click
+ Kontext "DocumentDraw"
+ gMouseMove (48,43, 53,50)
else
- Kontext "DocumentImpress"
- gMouseMove (40,40, 50,30)
- sleep 1
- kontext "Toolbar"
- Ellipsen.Click
- Kontext "DocumentImpress"
- gMouseMove (51,40, 61,30)
- kontext "Toolbar"
- Ellipsen.Click
- Kontext "DocumentImpress"
- gMouseMove (48,43, 53,50)
+ Kontext "DocumentImpress"
+ gMouseMove (40,40, 50,30)
+ sleep 1
+ kontext "Toolbar"
+ Ellipsen.Click
+ Kontext "DocumentImpress"
+ gMouseMove (51,40, 61,30)
+ kontext "Toolbar"
+ Ellipsen.Click
+ Kontext "DocumentImpress"
+ gMouseMove (48,43, 53,50)
endif
gMouseClick (10, 10)
+ '/// Close the document ///'
hCloseDocument
+ '/// Endcase ///'
+
endcase 'tiLineConnect
-
'-------------------------------------------------------------------------------'
diff --git a/testautomation/graphics/optional/includes/global/g_load_save.inc b/testautomation/graphics/optional/includes/global/g_load_save.inc
index 2fd4001..6a8265e 100755
--- a/testautomation/graphics/optional/includes/global/g_load_save.inc
+++ b/testautomation/graphics/optional/includes/global/g_load_save.inc
@@ -50,121 +50,137 @@
' #1 tSaveLoadLayoutChart
' #1 tSaveLoadLayoutSpreadsheet
'\*************************************************************************************
-
testcase tFileOpenSaveEtc
- Dim Dokument$
- Dim Dokument2$
+ Dim Dokument$
+ Dim Dokument2$
- Dokument$ = ConvertPath ( gOfficePath + "user\work\test1")
- Dokument2$ = ConvertPath ( gOfficePath + "user\work\test1_2")
+ Dokument$ = ConvertPath ( gOfficePath + "user\work\test1")
+ Dokument2$ = ConvertPath ( gOfficePath + "user\work\test1_2")
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
- if Dir (Dokument$ + ".odp") <> "" then kill (Dokument$ + ".odp")
- if Dir (Dokument2$ + ".odg") <> "" then kill (Dokument2$ + ".odg")
-
- hNewDocument
- gMouseclick 90,90
- Call hTextrahmenErstellen ( "This is a test",20,20,40,30 )
- hFileSaveAsKill (Dokument$ + "." + ExtensionString)
- Sleep 10
- hCloseDocument
- printlog "- Document Saved and Closed"
-
- hFileOpen (Dokument$ + "." + ExtensionString)
-
- Sleep 10
- hCloseDocument
- printlog "- document Loaded and closed"
- Sleep 10
- hFileOpen (Dokument$ + "." + ExtensionString)
- ' check if the document is writable
- if fIsDocumentWritable = false then
- ' make the document writable and check if it's succesfull
- if fMakeDocumentWritable = false then
- warnlog "The document can't be make writeable. Test stopped."
- goto endsub
- endif
- endif
- Sleep 10
- gMouseclick 90,90
- Call hTextrahmenerstellen ( "Change",60,60,80,80 )
- FileClose
- Kontext ' message about 'something changed should i [overwrite discard cancel]?'
- if Messagebox.exists (5) then
- printlog "2:"+messagebox.gettext
- Messagebox.Cancel
- else
- Warnlog "Mesagebox is missing :-("
- endif
- printlog "- Document loaded, changed and closed discarding all changes"
-
- printlog "- Last version"
- try
- catch
- kontext "documentimpress"
- try
- catch
- warnlog "Damn reload ?? Why ? BREAKPOINT! File reload doesn't work. Create new object and try again :-("
- endcatch
- endcatch
- Kontext
- Messagebox.Yes
- Sleep 10
- gMouseDoubleClick 70,70
- hTypeKeys "<Down>", 3
- hTypeKeys "<SHIFT LEFT>",10
- hTypeKeys "<MOD1 C>"
- Sleep 1
- if GetClipboardText = "Change" then Warnlog "- Last version not loaded. Changes in the document still in."
- printlog "- Change document, save it under different name"
- Kontext "DocumentImpress"
- gMouseclick 90,90
- sleep 1
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText Dokument2$
- Speichern.Click
- kontext "AlienWarning"
- if AlienWarning.exists(5) then
- warnlog "#i41983# Alien Warning on export not allowed"
- AlienWarning.OK
- endif
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Sleep 3
- sleep 10
- Kontext "Messagebox"
- if Messagebox.Exists Then
- Warnlog "- Document saved, but Msgbox appeared, even no changes were made: " + Messagebox.GetText
- Messagebox.Yes
- end if
- sleep 2
- printlog "- Loading write protected file"
- Kontext "OeffnenDlg"
- Dateiname.SetText (Dokument2$ + "." + ExtensionString)
- NurLesen.Check
- Oeffnen.Click
- Sleep 10
- ' check if the document is writable
- try
- hTypeKeys "<SHIFT LEFT>",5
- hTypeKeys "<MOD1 C>"
- sleep 1
- if GetClipboardText = "Hello" then Warnlog "Write protected document could be edited"
- catch
- Printlog "- Write protected document could not be edited"
- endcatch
- sleep 5
-endcase
-
-'********************************************************************************************
-
+ '/// delete previous created documents: 'user\\work\\test1*.od?' ///'
+ if Dir (Dokument$ + ".odp") <> "" then kill (Dokument$ + ".odp")
+ if Dir (Dokument2$ + ".odg") <> "" then kill (Dokument2$ + ".odg")
+
+ '/// open application ///'
+ hNewDocument
+ gMouseclick 90,90
+ '/// create a textframe with content ///'
+ Call hTextrahmenErstellen ( "This is a test",20,20,40,30 )
+ '/// save file as 'test1' ///'
+ hFileSaveAsKill (Dokument$ + "." + ExtensionString)
+ Sleep 10
+ '/// close Document ///'
+ hCloseDocument
+ printlog "- Document Saved and Closed"
+
+ '/// load document 'test1' ///'
+ hFileOpen (Dokument$ + "." + ExtensionString)
+
+ Sleep 10
+ '/// close Document ///'
+ hCloseDocument
+ printlog "- document Loaded and closed"
+ Sleep 10
+ '/// load document 'test1' ///'
+ hFileOpen (Dokument$ + "." + ExtensionString)
+ ' check if the document is writable
+ if fIsDocumentWritable = false then
+ ' make the document writable and check if it's succesfull
+ if fMakeDocumentWritable = false then
+ warnlog "The document can't be make writeable. Test stopped."
+ goto endsub
+ endif
+ endif
+ Sleep 10
+ gMouseclick 90,90
+ '/// create another textbox with content ///'
+ Call hTextrahmenerstellen ( "Change",60,60,80,80 )
+ '/// File->Close needn't work, just say CANCEL to the question about saving changes! ///'
+ FileClose
+ Kontext ' message about 'something changed should i [overwrite discard cancel]?'
+ if Messagebox.exists (5) then
+ printlog "2:"+messagebox.gettext
+ Messagebox.Cancel
+ else
+ Warnlog "Mesagebox is missing :-("
+ endif
+ printlog "- Document loaded, changed and closed discarding all changes"
+
+ printlog "- Last version"
+ try
+ FileReload '/// File Reload ///'
+ catch
+ kontext "documentimpress"
+ try
+ FileReload '/// File Reload ///'
+ catch
+ warnlog "Damn reload ?? Why ? BREAKPOINT! File reload doesn't work. Create new object and try again :-("
+ endcatch
+ endcatch
+ Kontext
+ Messagebox.Yes
+ Sleep 10
+ gMouseDoubleClick 70,70
+ hTypeKeys "<Down>", 3
+ hTypeKeys "<SHIFT LEFT>",10
+ hTypeKeys "<MOD1 C>"
+ Sleep 1
+ if GetClipboardText = "Change" then Warnlog "- Last version not loaded. Changes in the document still in."
+ printlog "- Change document, save it under different name"
+ Kontext "DocumentImpress"
+ Call hTextrahmenErstellen ("Change2",10,10,50,20 ) '/// new textbox ///'
+ gMouseclick 90,90
+ sleep 1
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText Dokument2$
+ Speichern.Click
+ kontext "AlienWarning"
+ if AlienWarning.exists(5) then
+ warnlog "#i41983# Alien Warning on export not allowed"
+ AlienWarning.OK
+ endif
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Sleep 3
+ FileClose '/// Close document ///'
+ sleep 10
+ Kontext "Messagebox"
+ if Messagebox.Exists Then
+ Warnlog "- Document saved, but Msgbox appeared, even no changes were made: " + Messagebox.GetText
+ Messagebox.Yes
+ end if
+ sleep 2
+ printlog "- Loading write protected file"
+ FileOpen '/// Open write protected file ///'
+ Kontext "OeffnenDlg"
+ Dateiname.SetText (Dokument2$ + "." + ExtensionString)
+ NurLesen.Check
+ Oeffnen.Click
+ Sleep 10
+ ' check if the document is writable
+ try
+ Call hTextrahmenErstellen ( "Hello",85,85,95,95 ) '/// attempt to create a textbox ///'
+ hTypeKeys "<SHIFT LEFT>",5
+ hTypeKeys "<MOD1 C>"
+ sleep 1
+ if GetClipboardText = "Hello" then Warnlog "Write protected document could be edited"
+ catch
+ Printlog "- Write protected document could not be edited"
+ endcatch
+ sleep 5
+ FileClose '/// Close document ///'
+
+endcase 'tFileOpenSaveEtc
+'--------------------------------------------------------
testcase tFileProperties
+
qaerrorlog "#i88163#, File/properties/user defined fields get mixed up."
goto endsub
Call hNewDocument
@@ -322,146 +338,161 @@ testcase tFileOpenImport
endcase
'********************************************************************************************
-
testcase tTestDXF255CharBug
- dim q as integer
- call hNewDocument
- sleep 1
- kontext "Active"
- sleep 1
+
+'/// tries to load a DXF-document which has a string-leght of 255 characters. ///'
+dim q as integer
+ call hNewDocument
+ InsertGraphicsFromFile '/// insert graphic ///'
+ sleep 1
+ kontext "Active"
+ sleep 1
if Active.Exists Then
- Active.OK
+ Active.OK
end if
sleep 1
- Kontext "GrafikEinfuegenDlg"
- sleep 2
- Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\255chars.dxf"))
- Oeffnen.Click
- Sleep 2
-
- if gApplication = "DRAW" then
- Kontext "Documentdraw"
- if Documentdraw.exists(5) then
- Documentdraw.TypeKeys ("<Tab>")
- else
- warnlog "Not loaded in draw"
- endif
- else '(Impress)
- Kontext "DocumentImpress"
- if DocumentImpress.exists(5) then
- DocumentImpress.TypeKeys ("<Tab>")
- else
- warnlog "Not loaded in impress"
- endif
- endif
-
- try
- ContextPositionAndSize
- kontext
- messagebox.setpage TabPositionAndSize
- sleep 1
- TabPositionAndSize.Close
- catch
- warnlog "DXF-Document could not be loaded :-("
- endcatch
- Call hCloseDocument
-endcase
-
+ Kontext "GrafikEinfuegenDlg"
+ sleep 2
+ '/// Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\255chars.dxf")) ///'
+ Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\255chars.dxf"))
+ Oeffnen.Click
+ Sleep 2
+
+ if gApplication = "DRAW" then
+ Kontext "Documentdraw"
+ if Documentdraw.exists(5) then
+ Documentdraw.TypeKeys ("<Tab>")
+ else
+ warnlog "Not loaded in draw"
+ endif
+ else '(Impress)
+ Kontext "DocumentImpress"
+ if DocumentImpress.exists(5) then
+ DocumentImpress.TypeKeys ("<Tab>")
+ else
+ warnlog "Not loaded in impress"
+ endif
+ endif
+
+ try
+ ContextPositionAndSize
+ kontext
+ messagebox.setpage TabPositionAndSize
+ sleep 1
+ TabPositionAndSize.Close
+ catch
+ warnlog "DXF-Document could not be loaded :-("
+ endcatch
+ Call hCloseDocument
+
+endcase 'tTestDXF255CharBug
'********************************************************************************************
-
testcase tDeletedTemplate
+
dim i as integer
dim Dokument1$
dim Dokument2$
dim SavedActiveMessage as string
dim found as boolean
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
-
+
Dokument1$ = ConvertPath ( gOfficePath + "user\work\test1." & ExtensionString)
Dokument2$ = ConvertPath ( gOfficePath + "user\work\test2." & ExtensionString)
+
+
+ '/// delete previous created documents: 'user\\work\\test*.odp' ///'
+ if Dir (Dokument1$) <> "" then kill Dokument1$
+ if Dir (Dokument2$) <> "" then kill Dokument2$
+
+ '/// open application ///'
+ hNewDocument
+ gMouseclick 90,90
+ '/// create a textframe with content ///'
+ Call hTextrahmenErstellen ( "This is the first file",20,20,40,30 )
+ '/// save file as 'test1.odp' ///'
+ hFileSaveAsKill (Dokument1$)
+ Sleep 10
+ '/// close Document ///'
+ hCloseDocument
+ printlog "- Document 'test1.odp' Saved and Closed"
+
+ '/// open application again ///'
+ hNewDocument
+ gMouseclick 90,90
+ '/// create another textframe with content ///'
+ Call hTextrahmenErstellen ( "This is the second file",20,20,40,30 )
+ '/// save file as 'test2.odp' ///'
+ hFileSaveAsKill (Dokument2$)
+ Sleep 10
+ '/// close Document ///'
+ hCloseDocument
+ printlog "- Document 'test2.odp' Saved and Closed"
+
+ '/// Delete the first file ///'
+ try
+ kill Dokument1$
+ Printlog " Correctly deleted the file: " + Dokument1$
+ catch
+ warnlog "Could not delete the file: " + Dokument1$
+ endcatch
+
+ '/// File => New => Presentation ///'
+ FileAutopilotPresentation '/// new document-autopilot ///'
+ Kontext "AutopilotPraesentation1"
+ sleep 5
+ Existingpresentation.Check
+ sleep 5
+ kontext "active"
+ if active.exists then
+ SavedActiveMessage = Active.GetText
+ QaErrorLog "Message: " + SavedActiveMessage
+ active.ok
+ Kontext "AutopilotPraesentation1"
+ if Existinglist.GetSelText = "test1.odp" then
+ warnlog " The deleted File was found. Messagebox said: " + SavedActiveMessage
+ endif
+ SavedActiveMessage = ""
+ endif
+ Kontext "AutopilotPraesentation1"
+ Existinglist.TypeKeys "<HOME>"
+ sleep 5
+ found = false
+ for i = 1 to Existinglist.GetItemCount
+ kontext "active"
+ if active.exists then
+ SavedActiveMessage = Active.GetText
+ active.ok
+ endif
+ Kontext "AutopilotPraesentation1"
+ if Existinglist.GetSelText = "test1.odp" then
+ found = true
+ if SavedActiveMessage <> "" then
+ warnlog " The deleted File was found. Messagebox said: " + SavedActiveMessage
+ else
+ warnlog " The deleted File was found. However without any messagebox."
+ endif
+ endif
+ Existinglist.TypeKeys "<DOWN>"
+ sleep 5
+ next i
+ if found = true then warnlog " An error-message showed up. Eventually a result of '138498'"
+ AutopilotPraesentation1.Cancel
+ Sleep 2
+ '/// Delete the second file ///'
+ try
+ kill Dokument2$
+ Printlog " Correctly deleted the file: " + Dokument2$
+ catch
+ warnlog "Could not delete the file: " + Dokument2$
+ endcatch
-
- if Dir (Dokument1$) <> "" then kill Dokument1$
- if Dir (Dokument2$) <> "" then kill Dokument2$
-
- hNewDocument
- gMouseclick 90,90
- Call hTextrahmenErstellen ( "This is the first file",20,20,40,30 )
- hFileSaveAsKill (Dokument1$)
- Sleep 10
- hCloseDocument
- printlog "- Document 'test1.odp' Saved and Closed"
-
- hNewDocument
- gMouseclick 90,90
- Call hTextrahmenErstellen ( "This is the second file",20,20,40,30 )
- hFileSaveAsKill (Dokument2$)
- Sleep 10
- hCloseDocument
- printlog "- Document 'test2.odp' Saved and Closed"
-
- try
- kill Dokument1$
- Printlog " Correctly deleted the file: " + Dokument1$
- catch
- warnlog "Could not delete the file: " + Dokument1$
- endcatch
-
- Kontext "AutopilotPraesentation1"
- sleep 5
- Existingpresentation.Check
- sleep 5
- kontext "active"
- if active.exists then
- SavedActiveMessage = Active.GetText
- QaErrorLog "Message: " + SavedActiveMessage
- active.ok
- Kontext "AutopilotPraesentation1"
- if Existinglist.GetSelText = "test1.odp" then
- warnlog " The deleted File was found. Messagebox said: " + SavedActiveMessage
- endif
- SavedActiveMessage = ""
- endif
- Kontext "AutopilotPraesentation1"
- Existinglist.TypeKeys "<HOME>"
- sleep 5
- found = false
- for i = 1 to Existinglist.GetItemCount
- kontext "active"
- if active.exists then
- SavedActiveMessage = Active.GetText
- active.ok
- endif
- Kontext "AutopilotPraesentation1"
- if Existinglist.GetSelText = "test1.odp" then
- found = true
- if SavedActiveMessage <> "" then
- warnlog " The deleted File was found. Messagebox said: " + SavedActiveMessage
- else
- warnlog " The deleted File was found. However without any messagebox."
- endif
- endif
- Existinglist.TypeKeys "<DOWN>"
- sleep 5
- next i
- if found = true then warnlog " An error-message showed up. Eventually a result of '138498'"
- AutopilotPraesentation1.Cancel
- Sleep 2
- try
- kill Dokument2$
- Printlog " Correctly deleted the file: " + Dokument2$
- catch
- warnlog "Could not delete the file: " + Dokument2$
- endcatch
-
-endcase
-
+endcase 'tDeletedTemplate
'****************************************************************************************************
testcase tSaveLoadLayoutEmpty
diff --git a/testautomation/graphics/optional/includes/global/g_mediaplayer.inc b/testautomation/graphics/optional/includes/global/g_mediaplayer.inc
index 61d9d7a..d6b910c 100755
--- a/testautomation/graphics/optional/includes/global/g_mediaplayer.inc
+++ b/testautomation/graphics/optional/includes/global/g_mediaplayer.inc
@@ -45,193 +45,218 @@ testcase g_mediaplayer
dim timevalue2
dim timevalue3
dim timecounter, iWaitIndex, timefound as integer
-
+
if iSprache <> 39 then
Printlog "- MediaPlayer"
if gPlatgroup = "unx" then
- QaErrorLog "Solaris / Linux: Soundcard + Java Media Framework (JMF) Media-Libraries is needed."
- goto endsub
+ QaErrorLog "Solaris / Linux: Soundcard + Java Media Framework (JMF) Media-Libraries is needed."
+ goto endsub
endif
Datei$ = ConvertPath (convertPath (gTesttoolPath + "graphics\required\input\29secsound.wav"))
+ '/// Open New Document ///'
Call hNewDocument
sleep 2
+ '/// Check if the Media Player already exists - if so - close it ///'
kontext "mPlayer"
if mPlayer.exists then ' Close the MediaPlayer
- warnlog "The MediaPlayer was visible since some earlier test. Plese notify FHA."
- ToolsMediaPlayer
- printlog "Closed the Media Player"
+ warnlog "The MediaPlayer was visible since some earlier test. Plese notify FHA."
+ ToolsMediaPlayer
+ printlog "Closed the Media Player"
endif
-
+
+ '/// Tools - MediaPlayer ///'
ToolsMediaPlayer
sleep 2
+ '/// Open file ///' 'a bigger / longer one
kontext "mPlayer"
if mPlayer.exists then
- printlog "The MediaPlayer was open."
+ printlog "The MediaPlayer was open."
else
- warnlog "Tools - MediaPlayer didnt work. The MediaPlayer wasnt visible. Aborting test."
- goto endsub
+ warnlog "Tools - MediaPlayer didnt work. The MediaPlayer wasnt visible. Aborting test."
+ Call hCloseDocument '/// Close document ///'
+ goto endsub
endif
Mopen.Click
kontext "OeffnenDlg"
Pfad.SetText Datei$
Oeffnen.Click
-
-
+
+ '/// This test wont work correctly under Solaris and Linux, ///'
+ '/// unless some optional Media-libraries are installed. ///'
+ '/// Therefore we warn the tester about it if we cannot open the file. ///'
+
iWaitIndex = 0
do while OeffnenDlg.Exists AND iWaitIndex < 10
- sleep (1)
- iWaitIndex = iWaitIndex + 1
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
loop
kontext "Active"
if Active.exists then
- Warnlog "Error when opening file. Last dialogue said: " + Active.GetText
- Active.OK
- kontext "Mplayer"
- ToolsMediaPlayer
- goto endsub
+ Warnlog "Error when opening file. Last dialogue said: " + Active.GetText
+ Active.OK
+ kontext "Mplayer"
+ ToolsMediaPlayer
+ Call hCloseDocument '/// close document ///'
+ goto endsub
else
- kontext "Mplayer"
- if Mplayer.exists then printlog "Media Player was opened."
- endif
-
- timevalue1 = mTimeedit.GetText
-
- sleep 2
- mStop.Click
- printlog "Just pressed stop."
- sleep 1
- timevalue2 = mTimeedit.GetText
- sleep 2
- timevalue3 = mTimeedit.GetText
- printlog "The time was: " + mTimeedit.GetText
- if timevalue1 = timevalue2 AND timevalue2 = timevalue3 then
- if gtSYSName <> "WinXP" then '("Solaris x86" OR "Linux" OR "Solaris") then
- warnlog "The sound doesnt seem to be played at all. And since the test is run on a platform which needs extra libraries, the test ends now."
- kontext "Mplayer"
- if Mplayer.Exists(3) then
- ToolsMediaPlayer
- endif
- goto endsub
- else
- warnlog "The sound doesnt seem to be played at all, but I will continue the test. The platform was: " + gtSYSName
- endif
- else
- if timevalue1 <> timevalue2 AND timevalue2 = timevalue3 then
- Printlog "the stop-button seemed to work. Good."
- else
- warnlog "Very strange. The first value was: " + timevalue1 + ". Second: " + timevalue2 + ". Third: " + timevalue3
- endif
- endif
- ' Save value
- timevalue1 = mTimeedit.GetText
- ' Press 'Play'
- mPlay.Click
- sleep 2
- timevalue2 = mTimeedit.GetText
- printlog "The time was: " + mTimeedit.GetText
- if timevalue1 = timevalue2 then
- warnlog "The play-button didnt seem to work" ' Because the time did not change.
- else
- Printlog "the play-button seemed to work. Good."
- endif
-
- mPlay.Click
- sleep 10
- mPause.Click
- printlog "Pause."
- timevalue1 = mTimeedit.GetText
- sleep 2
- timevalue2 = mTimeedit.GetText
- printlog "The time was: " + mTimeedit.GetText
- if timevalue1 <> timevalue2 then
- warnlog "The pause-button didnt seem to work"
- else
- Printlog "the pause-button seemed to work. Good."
- endif
-
- mStop.Click 'to get to the beginning.
- sleep 1 'And make sure it's really the beginning.
+ kontext "Mplayer"
+ if Mplayer.exists then printlog "Media Player was opened."
+ endif
+
+ timevalue1 = mTimeedit.GetText
+
+ '/// Stop ///'
+ sleep 2
+ mStop.Click
+ printlog "Just pressed stop."
+ sleep 1
+ timevalue2 = mTimeedit.GetText
+ sleep 2
+ timevalue3 = mTimeedit.GetText
+ printlog "The time was: " + mTimeedit.GetText
+ if timevalue1 = timevalue2 AND timevalue2 = timevalue3 then
+ if gtSYSName <> "WinXP" then '("Solaris x86" OR "Linux" OR "Solaris") then
+ warnlog "The sound doesnt seem to be played at all. And since the test is run on a platform which needs extra libraries, the test ends now."
+ kontext "Mplayer"
+ if Mplayer.Exists(3) then
+ ToolsMediaPlayer
+ endif
+ Call hCloseDocument '/// close document ///'
+ goto endsub
+ else
+ warnlog "The sound doesnt seem to be played at all, but I will continue the test. The platform was: " + gtSYSName
+ endif
+ else
+ if timevalue1 <> timevalue2 AND timevalue2 = timevalue3 then
+ Printlog "the stop-button seemed to work. Good."
+ else
+ warnlog "Very strange. The first value was: " + timevalue1 + ". Second: " + timevalue2 + ". Third: " + timevalue3
+ endif
+ endif
+ '/// Play ///'
+ ' Save value
+ timevalue1 = mTimeedit.GetText
+ ' Press 'Play'
+ mPlay.Click
+ sleep 2
+ timevalue2 = mTimeedit.GetText
+ printlog "The time was: " + mTimeedit.GetText
+ if timevalue1 = timevalue2 then
+ warnlog "The play-button didnt seem to work" ' Because the time did not change.
+ else
+ Printlog "the play-button seemed to work. Good."
+ endif
+
+ '/// Pause ///'
+ mPlay.Click
+ sleep 10
+ mPause.Click
+ printlog "Pause."
+ timevalue1 = mTimeedit.GetText
+ sleep 2
+ timevalue2 = mTimeedit.GetText
+ printlog "The time was: " + mTimeedit.GetText
+ if timevalue1 <> timevalue2 then
+ warnlog "The pause-button didnt seem to work"
+ else
+ Printlog "the pause-button seemed to work. Good."
+ endif
+
+ '/// Time ///'
+ mStop.Click 'to get to the beginning.
+ sleep 1 'And make sure it's really the beginning.
+ timevalue1 = mTimeedit.GetText
+ if timevalue1 <> "00:00:00 / 00:00:29" then
+ warnlog "Expected the time to go back to 00:00:00, but was " + timevalue1 + " instead."
+ mStop.Click 'to make another try to get to the beginning again.
+ else
+ printlog "Sound stopped, time-value set to 00:00:00."
+ endif
+
+ printlog "We press 'Play'"
+ mPlay.Click 'to get it running
+ sleep 5
+ timefound = 0
+
+ for timecounter = 1 to 50000
timevalue1 = mTimeedit.GetText
- if timevalue1 <> "00:00:00 / 00:00:29" then
- warnlog "Expected the time to go back to 00:00:00, but was " + timevalue1 + " instead."
- mStop.Click 'to make another try to get to the beginning again.
- else
- printlog "Sound stopped, time-value set to 00:00:00."
+ if timevalue1 = "00:00:20 / 00:00:29" then
+ timecounter = 50000
+ timefound = 1
endif
-
- printlog "We press 'Play'"
- mPlay.Click 'to get it running
- sleep 5
- timefound = 0
-
- for timecounter = 1 to 50000
- timevalue1 = mTimeedit.GetText
- if timevalue1 = "00:00:20 / 00:00:29" then
- timecounter = 50000
- timefound = 1
- endif
- if timevalue1 = "00:00:29 / 00:00:29" then
- timecounter = 50000
- timefound = 2
- endif
- next timecounter
-
- if timefound = 1 then
- Printlog "the time-counter seemed to work. Good."
- elseif timefound = 2 then
- warnlog "Contact the test-administrator, this test needs to be rewritten."
- elseif timefound = 0 then
- warnlog "Either the time didnt change, or the test-computer is too fast."
+ if timevalue1 = "00:00:29 / 00:00:29" then
+ timecounter = 50000
+ timefound = 2
endif
-
- '-Repeat
- 'Plays the file repeatedly.
- mLoop.Click
-
- 'mVolume. 'Click
- '-Volume slider
- 'Adjusts the volume.
-
- mMute.Click
- sleep 1
- mMute.Click
- '-Mute
- 'Turns sound off and on.
-
- ' mTimeslider. 'Click
- '-Position slider
- 'Moves to a different position in the file.
-
- 'mZoomlistbox.
- '-Zoom
- 'Adjusts the size of the movie playback.
-
- mInsert.Click
- sleep 10
-
- ToolsMediaPlayer
-
- if (gApplication = "IMPRESS") then
- kontext "DocumentImpress"
- else
- kontext "DocumentDraw"
- endif
- hTypeKeys ("<escape><tab>")
- hOpenContextMenu()
- hMenuSelectNr(1)
-
- Kontext "TabPositionAndSize"
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if Width.Exists then
- Printlog "Position and Size came up, object inserted correctly."
- TabPositionAndSize.OK
- else
- Warnlog "Position And Size didn't come up, was there no sound-object inserted?"
- endif
- sleep 2
+ next timecounter
+
+ if timefound = 1 then
+ Printlog "the time-counter seemed to work. Good."
+ elseif timefound = 2 then
+ warnlog "Contact the test-administrator, this test needs to be rewritten."
+ elseif timefound = 0 then
+ warnlog "Either the time didnt change, or the test-computer is too fast."
+ endif
+
+ '-Repeat
+ 'Plays the file repeatedly.
+ '/// Loop ///'
+ mLoop.Click
+
+ '/// Volume ///'
+ 'mVolume. 'Click
+ '-Volume slider
+ 'Adjusts the volume.
+
+ '/// Mute ///'
+ mMute.Click
+ sleep 1
+ mMute.Click
+ '-Mute
+ 'Turns sound off and on.
+
+ '/// Time-slider ///'
+ ' mTimeslider. 'Click
+ '-Position slider
+ 'Moves to a different position in the file.
+
+ '/// Scroll-whatever ///'
+ 'mZoomlistbox.
+ '-Zoom
+ 'Adjusts the size of the movie playback.
+
+ '/// Apply ///'
+ mInsert.Click
+ sleep 10
+
+ '/// Close the MediaPlayer via Tools - MediaPlayer ///'
+ ToolsMediaPlayer
+
+ '/// Check if there is an object available. ///'
+ if (gApplication = "IMPRESS") then
+ kontext "DocumentImpress"
else
- qaerrorLog "#74350# - Different strings in g_mediaplayer under Italian."
+ kontext "DocumentDraw"
endif
+ hTypeKeys ("<escape><tab>")
+ hOpenContextMenu()
+ hMenuSelectNr(1)
+
+ Kontext "TabPositionAndSize"
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if Width.Exists then
+ Printlog "Position and Size came up, object inserted correctly."
+ '/// Close dialog TabPositionAndSize with 'OK' ///'
+ TabPositionAndSize.OK
+ else
+ Warnlog "Position And Size didn't come up, was there no sound-object inserted?"
+ endif
+ sleep 2
+ '/// close document ///'
+ Call hCloseDocument '/// close document ///'
+ else
+ qaerrorLog "#74350# - Different strings in g_mediaplayer under Italian."
+ endif
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_ole.inc b/testautomation/graphics/optional/includes/global/g_ole.inc
index 71780c6..407fd0d 100755
--- a/testautomation/graphics/optional/includes/global/g_ole.inc
+++ b/testautomation/graphics/optional/includes/global/g_ole.inc
@@ -44,24 +44,28 @@
testcase tOLE_Copy
qaerrorlog "not running due to reconstruction"
goto endsub
-
+ printlog "Test to see if three different OLEs can be copied and identified correctly."
+
dim writerfilename1 as string
writerfilename1 = ConvertPath (gTesttoolPath + "graphics\required\input\oletest.odg")
-
+
+ printlog "Open draw-file" & writerfilename1
FileOpen
Kontext "OeffnenDlg"
sleep 1
Dateiname.SetText (writerfilename1)
Oeffnen.Click
Sleep 3
-
+
+ printlog "When messagebox about Update all links shows up - press yes."
kontext "Messagebox"
if Messagebox.exists then
- Messagebox.Yes
+ Messagebox.Yes
endif
-
+
sleep 3
gApplication = "DRAW"
+ printlog "Select first object. Use EditCopy to copy it to the clipboard"
sleep 1
kontext "DocumentDraw"
DocumentDraw.mousedown (10,10)
@@ -69,49 +73,57 @@ testcase tOLE_Copy
sleep 1
DocumentDraw.Typekeys "<TAB>"
EditCopy
-
+
+ printlog "Close document. Open new Impress-Document. Paste the OLE-Object."
Call hCloseDocument
gApplication = "IMPRESS"
Call hNewDocument
EditPaste
-
+
+ printlog "Select object and check via the Context-menu what it has been opened as."
sleep 1
Kontext "DocumentImpress"
hTypekeys "<MOD1> A"
hTypekeys "<RETURN>"
hOpenContextMenu
-
+
+ printlog "Count the number of entries. If 5 (including a menuseparator), then its a spreadsheet"
if MenuGetItemCount <> 5 then
Warnlog "This doesn't seem to be recognized as a Metafile. It has " + MenuGetItemCount + " entries."
end if
+ printlog "Close Context menu. Then check if a Edit-line for the Cells is visible."
sleep 3
MenuSelect (1) 'Default
-
+
Kontext "RechenleisteCalc"
if RechenleisteCalc.Exists then
Printlog "This is a spreadsheet-Document. Good"
endif
-
+
Kontext "DocumentImpress"
+ printlog "Click outside the OLE to deactivate it. Then close the Document "
DocumentImpress.mousedown (10,10)
DocumentImpress.mouseup (10,10)
sleep 3
Call hCloseDocument
-
+
+ printlog "Open Draw-file "
FileOpen
Kontext "OeffnenDlg"
sleep 1
Dateiname.SetText (writerfilename1)
Oeffnen.Click
Sleep 3
-
+
+ printlog " When messagebox about Update all links shows up - press yes."
kontext "Messagebox"
if Messagebox.exists then
Messagebox.Yes
endif
sleep 3
-
+
+ printlog "Select second object. Use EditCopy to copy it to the clipboard."
gApplication = "DRAW"
sleep 1
kontext "DocumentDraw"
@@ -120,43 +132,49 @@ testcase tOLE_Copy
sleep 1
DocumentDraw.Typekeys "<TAB><TAB>"
EditCopy
-
+
+ printlog "Close document. Open new Impress-Document. Paste the OLE-Object."
sleep 1
DocumentDraw.mousedown (10,10)
DocumentDraw.mouseup (10,10)
sleep 1
Call hCloseDocument
-
+
gApplication = "IMPRESS"
Call hNewDocument
EditPaste
-
+
+ printlog "Select the object, and check via the Context-menu what it has been opened as."
sleep 1
Kontext "DocumentImpress"
hTypekeys "<MOD1> A"
hTypekeys "<RETURN>"
hOpenContextMenu
+ printlog "Count the number of entries. If 5 (including a menuseparator), then its a spreadsheet"
if MenuGetItemCount <> 5 then
Warnlog "This doesn't seem to be recognized as a Metafile. It has " + MenuGetItemCount + " entries."
end if
-
+
+ printlog "Close Context menu. Then check if a Edit-line for the Cells is visible."
sleep 3
MenuSelect (1) 'Default
-
+
Kontext "RechenleisteCalc"
if RechenleisteCalc.Exists then
Printlog "This is a spreadsheet-Document. Good"
endif
-
+
kontext "DocumentImpress"
sleep 1
DocumentImpress.mousedown (10,10)
DocumentImpress.mouseup (10,10)
sleep 1
-
+
+ printlog "Close document"
Call hCloseDocument
-
+
+ printlog "Open draw-file"
FileOpen
Kontext "OeffnenDlg"
sleep 1
@@ -164,11 +182,13 @@ testcase tOLE_Copy
Oeffnen.Click
Sleep 3
kontext "Messagebox"
+ printlog "When messagebox about Update all links shows up - press yes."
if Messagebox.exists then
Messagebox.Yes
endif
sleep 3
-
+
+ printlog "Select third object. Use EditCopy to copy it to the clipboard."
gApplication = "DRAW"
sleep 1
kontext "DocumentDraw"
@@ -177,7 +197,8 @@ testcase tOLE_Copy
sleep 1
DocumentDraw.Typekeys "<TAB><TAB><TAB>"
EditCopy
-
+
+ printlog "Close the Document. Open new Impress-Document. Paste the OLE-Object."
sleep 1
DocumentDraw.mousedown (10,10)
DocumentDraw.mouseup (10,10)
@@ -187,37 +208,40 @@ testcase tOLE_Copy
gApplication = "IMPRESS"
Call hNewDocument
EditPaste
-
+
+ printlog "Select the object, and check via the Context-menu what it has been opened as."
Kontext "DocumentImpress"
hTypekeys "<MOD1> A"
hTypekeys "<RETURN>"
hOpenContextMenu
-
+
+ printlog "Count the number of entries. If 5 (including a menuseparator), then its a spreadsheet"
if MenuGetItemCount <> 5 then
Warnlog "This doesn't seem to be recognized as a Metafile. It has " + MenuGetItemCount + " entries."
end if
-
+
+ printlog "Close Context menu. Then check if a Edit-line for the Cells is visible."
sleep 3
MenuSelect (1) 'Default
-
+
Kontext "RechenleisteCalc"
if RechenleisteCalc.Exists then
Printlog "This is a spreadsheet-Document. Good"
endif
-
+
+ printlog "Close Context menu. Then close the Document"
Call hCloseDocument
+
endcase 'tOLE_Copy
-
'-----------------------------------------------------------------------------------------------------------'
-
testcase tOLE_SaveLoad
printlog "Test to see if an OLE can be inserted, saved and loaded correctly."
dim filename as string
dim filetype as string
dim filetype2 as string
-
- if (gApplication = "IMPRESS") then
+
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
@@ -229,13 +253,13 @@ testcase tOLE_SaveLoad
printlog "Insert->Object->OLE Object..."
InsertObjectOLEObject
Kontext "OLEObjektInsert"
-
+
printlog "Choose create new. Select Writer."
Objekttyp.Select 5
-
+
printlog "Click OK to close dialog and insert OLE."
OLEObjektInsert.OK
-
+
printlog "Deselect object."
sleep 1
kontext "DocumentImpress"
@@ -260,7 +284,7 @@ testcase tOLE_SaveLoad
Dateiname.Settext (filename)
printlog "Saving as: " & filename
Speichern.Click
-
+
printlog "If the file already exists - press yes to overwrite it."
Sleep 3
kontext "Messagebox"
@@ -268,7 +292,7 @@ testcase tOLE_SaveLoad
Messagebox.Yes
endif
Sleep 3
-
+
printlog "Getting type of OLE from save as dialog."
hOpenContextMenu
hMenuSelectNr(-1)
@@ -286,7 +310,7 @@ testcase tOLE_SaveLoad
Call hFileOpen (filename)
sleep 1
hTypekeys "<MOD1 A>"
- hOpenContextMenu
+ hOpenContextMenu
hMenuSelectNr(-1)
Kontext "SpeichernDlg"
filetype2 = Dateityp.GetSelText
@@ -303,25 +327,31 @@ testcase tOLE_SaveLoad
'FHA TODO
'testcase tOLE_DragDrop
+ printlog " Create OLE, drag n drop within the document. "
+ printlog " If Impress, drag and drop from document to another slide. "
'endcase 'tOLE_DragDrop
endcase ' tOLE_Save
-
'-------------------------------------------------------------------------------
testcase tiOpenOLECrash
dim sFileodp as string
dim oFile as string
dim i as integer
-
+ printlog "Testing for bug nr: i70019"
+
+ printlog "Open Application"
Call hNewDocument
sleep 1
+ printlog "1. Open file: generic_de.ppt"
FileOpen
sleep 1
Kontext "OeffnenDlg"
+ printlog " Use file: graphics\\optional\\input\\generic_de.ppt "
oFile = ConvertPath (gTesttoolPath + "graphics\required\input\generic_de.ppt")
Printlog "file: '" + oFile + "'"
Dateiname.SetText (oFile)
+ printlog "2. Save this document as an *.odp -file."
Oeffnen.Click
kontext "DocumentImpress"
i = 0
@@ -336,7 +366,7 @@ testcase tiOpenOLECrash
if DocumentImpress.StatusIsProgress AND i > 19 then
warnlog " Took over 20 seconds to load the document Document. Stalled?"
endif
-
+
FileSaveAs
Kontext "SpeichernDlg"
sFileodp = (ConvertPath(gOfficePath + "user\work\generic_de"))
@@ -347,16 +377,18 @@ testcase tiOpenOLECrash
if Messagebox.Exists(2) then
Messagebox.Yes
Kontext "AlienWarning"
- if AlienWarning.Exists(2) then
- Warnlog "Should not be any alienwarning when saving in our own format!"
- AlienWarning.OK
- end if
- printlog "Saved as: " + sFileodp
+ if AlienWarning.Exists(2) then
+ Warnlog "Should not be any alienwarning when saving in our own format!"
+ AlienWarning.OK
+ end if
+ printlog "Saved as: " + sFileodp
end if
Sleep 3
kontext "DocumentImpress"
+ printlog "3. Close Impress."
Call hCloseDocument
-
+
+ printlog "4.Reopen the *.odp file again"
FileOpen
Kontext "OeffnenDlg"
Dateiname.SetText (sFileodp + ".odp")
@@ -367,7 +399,7 @@ testcase tiOpenOLECrash
Active.ok
Warnlog "failed to open file? :-("
end if
-
+
i = 0
do while (i < 20)
try
@@ -378,40 +410,45 @@ testcase tiOpenOLECrash
endcatch
loop
if DocumentImpress.StatusIsProgress AND i > 19 then
- warnlog " Took over 20 seconds to load the document Document. Stalled?"
+ warnlog "Took over 20 seconds to load the document Document. Stalled?"
endif
-
+
+ printlog "5. Right-click on the second slide and click on New slide. "
Kontext "Slides"
SlidesControl.TypeKeys "<PAGEDOWN>" 'Goto second slide. (and get the focus right)
SlidesControl.TypeKeys "<SHIFT F10>" 'OpenContextMenu (True) 'Open Context-menu
hMenuSelectNr (1) 'New Slide
+ printlog "6. Change the title-(the text was F�r den TCM-Test, but this should irrelevant... ;) )."
hTypeKeys "<TAB>" 'To select the title.
- hTypeKeys "F�r den TCM-Test" 'To enter text
+ hTypeKeys "Fuer den TCM-Test" 'To enter text
+ printlog " 7. Clicked two times on the Click twice to insert object "
hTypeKeys "<ESCAPE>"
gMouseClick 1,1
hTypeKeys "<TAB><TAB>" '(to select the second object)
hTypeKeys "<RETURN>"
sleep (2)
-
+
+ printlog "8. Choose OpenOffice.org 2.0 Formular"
Kontext "OLEObjektInsert"
- Objekttyp.Select (4)
+ Objekttyp.Select (3)
sleep (2)
- PrintLog " Objeckt: " + Objekttyp.GetSelText + " will be inserted."
+ PrintLog " Object: " + Objekttyp.GetSelText + " will be inserted."
+ printlog "Leave dialog 'Insert OLE Object' with OK"
OLEObjektInsert.OK
sleep (2)
-
+
kontext "CommandsMath"
Commands.TypeKeys "A over B + FACT 6 = x"
-
+
+ 'printlog " Leave edit mode by typing key [Escape] "
'Comment: If I do this, the bug wont occur...
'hTypeKeys "<ESCAPE>"
-
+
+ printlog "10. Click on the Save button."
kontext "Standardbar"
Speichern.Click
-
+
+ printlog "11. Click on the X to close the window while the OLE-object still in Edit-mode."
Call hCloseDocument
-endcase
-
-'-----------------oooo-----------------oooo-----------------oooo-----------------
-
+endcase 'tiOpenOLECrash
diff --git a/testautomation/graphics/optional/includes/global/g_shaddow.inc b/testautomation/graphics/optional/includes/global/g_shaddow.inc
index 46d32a7..485ffed 100755
--- a/testautomation/graphics/optional/includes/global/g_shaddow.inc
+++ b/testautomation/graphics/optional/includes/global/g_shaddow.inc
@@ -40,434 +40,479 @@
' #1 tiShaddow
'*
'\*******************************************************************
-
testcase tiShaddow
- dim sFilter as string
- dim i as integer
- dim t as integer
- dim q as integer
- dim PosX as integer
- dim PosY as integer
- dim e as string
- dim sFileName as string
- dim ImageWidth as string
- dim ImageHeight as string
- dim shadowdistancevalue as string
- dim shadowcolorvalue as string
- dim shadowtransparencyvalue as string
- dim linetype as string
- dim linecolour as string
- dim linewidth as string
- dim cornerstyletype as string
+ dim sFilter as string
+ dim i as integer
+ dim t as integer
+ dim q as integer
+ dim PosX as integer
+ dim PosY as integer
+ dim e as string
+ dim sFileName as string
+ dim ImageWidth as string
+ dim ImageHeight as string
+ dim shadowdistancevalue as string
+ dim shadowcolorvalue as string
+ dim shadowtransparencyvalue as string
+ dim linetype as string
+ dim linecolour as string
+ dim linewidth as string
+ dim cornerstyletype as string
+
+ '/// Set the file-extension we'll be using when opening the saved file ///'
if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
- Call hNewDocument
- sleep 1
-
- InsertGraphicsFromFile
- sleep 3
- kontext "Active"
- if Active.Exists Then
- Active.OK
- end if
- sleep 5
- Kontext "GrafikEinfuegenDlg"
- sleep 2
- Dateiname.SetText (ConvertPath(gOfficeBasisPath + "share\gallery\bigapple.gif"))
- sleep 2
- Oeffnen.Click
- printlog "Inserted file"
- sleep 2
- EditSelectAll
- sleep 3
- FormatPositionAndSize
- kontext
- active.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- ImageWidth = Width.GetText
- ImageHeight = Height.GetText
- printlog "Got values from position and size"
- ProtectSize.Check
- TabPositionAndSize.Ok
-
- Kontext "GraphicObjectbar"
- if GraphicObjectbar.Exists = FALSE then
- ViewToolbarsPicture
+ '/// Open application ///'
+ Call hNewDocument
+ sleep 1
+
+ '/// Import picture ///'
+ InsertGraphicsFromFile
+ sleep 3
+ kontext "Active"
+ if Active.Exists Then
+ Active.OK
+ end if
+ sleep 5
+ Kontext "GrafikEinfuegenDlg"
+ sleep 2
+ Dateiname.SetText (ConvertPath(gOfficeBasisPath + "share\gallery\bigapple.gif"))
+ sleep 2
+ Oeffnen.Click
+ printlog "Inserted file"
+ sleep 2
+ '/// Select all ///'
+ EditSelectAll
+ sleep 3
+ '/// Check values and save them ///'
+ FormatPositionAndSize
+ kontext
+ active.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ ImageWidth = Width.GetText
+ ImageHeight = Height.GetText
+ printlog "Got values from position and size"
+ '/// Check the "Protect Size"-button. And close dialogue. ///'
+ ProtectSize.Check
+ TabPositionAndSize.Ok
+
+ '/// Add Shaddow via Toolbar-Button ///'
+ Kontext "GraphicObjectbar"
+ if GraphicObjectbar.Exists = FALSE then
+ ViewToolbarsPicture
+ endif
+ if schatten.GetState(2) <> 0 then '0 = not pressed. 1 = pressed.
+ warnlog "Shaddow-button shouldnt have been checked"
+ end if
+ sleep 1
+
+ '/// click button 'Shadow' ///'
+ Schatten.Click
+' '/// Check and save Shaddow-values via context-menu ///'
+ EditSelectAll
+ hOpenContextMenu
+ sleep(2)
+ if hMenuFindSelect(10142, true, 4) = false then
+ Warnlog "Context-Menu-entry `Area` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ '/// Select Contextmenu entry "Area" ///'
+ sleep(2)
+ kontext "TabArea"
+ '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
+ if Anzeigen.GetState <> 1 then Warnlog "Anzeigen.GetState should be 1, but is: " + Anzeigen.GetState
+ Anzeigen.Check
+ else
+ Warnlog "'Use Shadow' doesn't exist or isn't visible."
+ endif
+
+ '/// Change Distance and Transparency-values ///'
+ Entfernung.More ',2
+ Transparenz.More ',2
+ shadowdistancevalue = Entfernung.GetText
+ shadowcolorvalue = Farbe.GetSelText
+ shadowtransparencyvalue = Transparenz.GetText
+ printlog "Got values from TabArea"
+ TabSchatten.Ok
+
+ '/// Check if it's the same when going over FormatArea ///'
+ FormatArea
+ sleep 1
+ kontext "TabArea"
+ '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue ///'
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
+ if Anzeigen.GetState <> 1 then Warnlog "should be active"
+ Anzeigen.Check
+ else
+ Warnlog "'Use Shadow' doesn't exist or isn't visible."
+ endif
+ if shadowdistancevalue <> Entfernung.GetText then
+ warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
endif
- if schatten.GetState(2) <> 0 then '0 = not pressed. 1 = pressed.
- warnlog "Shaddow-button shouldnt have been checked"
- end if
- sleep 1
-
- Schatten.Click
- EditSelectAll
- hOpenContextMenu
- sleep(2)
- if hMenuFindSelect(10142, true, 4) = false then
- Warnlog "Context-Menu-entry `Area` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
+ if shadowcolorvalue <> Farbe.GetSelText then
+ warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.getSeltext
endif
- sleep(2)
- kontext "TabArea"
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
- if Anzeigen.GetState <> 1 then Warnlog "Anzeigen.GetState should be 1, but is: " + Anzeigen.GetState
+ if shadowtransparencyvalue <> Transparenz.GetText then
+ warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
+ endif
+ TabSchatten.Ok
+
+ '/// Add Cornerstyle via FormatLine ///'
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ Stil.Select 2 ' Select Continuously.
+ linetype = Stil.GetItemText
+ Farbe.Select 2 ' Select Blue
+ linecolour = Farbe.GetItemText
+ Breite.More 3 ' Set Width to 3
+ linewidth = Breite.Gettext
+ CornerStyle.Select 4 ' Select number four: Beveled
+ cornerstyletype = CornerStyle.GetSelText
+ printlog "Cornerstyle is: " + CornerStyle.GetSelText '+ cornerstyletype
+ TabLinie.ok
+
+ '/// Check values via PositionAndSize via the Contextmenu ///'
+ hOpenContextmenu
+ sleep(2)
+ if hMenuFindSelect(10087, true, 1) = false then
+ Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ 'Select "Position and Size"
+ sleep(2)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
+ if ImageHeight <> Height.GetText then warnlog "Position Y differs. Should be: " + ImageHeight + " But is: " + Height.GetText
+ TabPositionAndSize.OK
+
+ '/// Check Cornerstyle via FormatLine ///'
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
+ if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
+ if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
+ if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
+ TabLinie.ok
+
+ '/// Check if the Shaddow-button is activated ///'
+ Kontext "GraphicObjectbar"
+ if Schatten.GetState(2) <> 1 then
+ warnlog "Shaddow-button shouldnt have been checked"
+ endif
+
+ '/// Save the file. Then close the office and reload the file ///'
+ sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
+ '/// File-Save As with filter as: "user\temp\shaddow-test" ///'
+ try
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText sFileName
+ printlog "Saving with filter: " + Dateityp.GetSelText
+ Speichern.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Kontext "AlienWarning"
+ if AlienWarning.Exists(2) then AlienWarning.OK
+ printlog "Saved as: " + sFileName
+ catch
+ warnlog "Error when saving file."
+ endcatch
+
+ '/// Close the office-session ///'
+ FileClose
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Sleep 3
+ '/// Open the saved file ///'
+ try
+ hFileOpen sFileName + "." + ExtensionString
+ Sleep 3
+ printlog "opened file successfully"
+ catch
+ warnlog "Error when opening file."
+ endcatch
+
+ '/// Select all ///'
+ EditSelectAll
+ sleep 2
+
+ '/// Check if the Shaddow-button still is activated ///'
+ kontext "GraphicObjectbar"
+ if schatten.Getstate(2) <> 1 then
+ warnlog "The Shadow-button should be activated"
+ else
+ Printlog "Shaddowbutton activated, good."
+ endif
+
+ '/// Check the attributes for the picture ///'
+ hOpenContextmenu
+ sleep(2)
+ if hMenuFindSelect(10087, true, 1) = false then
+ Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ 'Select "Position and Size"
+ sleep(2)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
+ if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
+ TabPositionAndSize.OK
+
+ FormatArea
+ sleep 1
+ kontext "TabArea"
+ '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue ///'
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
+ if Anzeigen.GetState <> 1 then Warnlog "Shaddow-checkbox should be active"
Anzeigen.Check
- else
+ else
Warnlog "'Use Shadow' doesn't exist or isn't visible."
- endif
-
- Entfernung.More ',2
- Transparenz.More ',2
- shadowdistancevalue = Entfernung.GetText
- shadowcolorvalue = Farbe.GetSelText
- shadowtransparencyvalue = Transparenz.GetText
- printlog "Got values from TabArea"
- TabSchatten.Ok
-
- FormatArea
- sleep 1
- kontext "TabArea"
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
- if Anzeigen.GetState <> 1 then Warnlog "should be active"
- Anzeigen.Check
- else
- Warnlog "'Use Shadow' doesn't exist or isn't visible."
- endif
- if shadowdistancevalue <> Entfernung.GetText then
- warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
- endif
- if shadowcolorvalue <> Farbe.GetSelText then
- warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.getSeltext
- endif
- if shadowtransparencyvalue <> Transparenz.GetText then
- warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
- endif
- TabSchatten.Ok
-
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- Stil.Select 2 ' Select Continuously.
- linetype = Stil.GetItemText
- Farbe.Select 2 ' Select Blue
- linecolour = Farbe.GetItemText
- Breite.More 3 ' Set Width to 3
- linewidth = Breite.Gettext
- CornerStyle.Select 4 ' Select number four: Beveled
- cornerstyletype = CornerStyle.GetSelText
- printlog "Cornerstyle is: " + CornerStyle.GetSelText '+ cornerstyletype
- TabLinie.ok
-
- hOpenContextmenu
- sleep(2)
- if hMenuFindSelect(10087, true, 1) = false then
- Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- 'Select "Position and Size"
- sleep(2)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
- if ImageHeight <> Height.GetText then warnlog "Position Y differs. Should be: " + ImageHeight + " But is: " + Height.GetText
- TabPositionAndSize.OK
-
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
- if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
- if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
- if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
- TabLinie.ok
-
- Kontext "GraphicObjectbar"
- if Schatten.GetState(2) <> 1 then
- warnlog "Shaddow-button shouldnt have been checked"
- endif
-
- sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
- try
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText sFileName
- printlog "Saving with filter: " + Dateityp.GetSelText
- Speichern.Click
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Kontext "AlienWarning"
- if AlienWarning.Exists(2) then AlienWarning.OK
- printlog "Saved as: " + sFileName
- catch
- warnlog "Error when saving file."
- endcatch
-
- FileClose
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Sleep 3
- try
- hFileOpen sFileName + "." + ExtensionString
- Sleep 3
- printlog "opened file successfully"
- catch
- warnlog "Error when opening file."
- endcatch
-
- EditSelectAll
- sleep 2
-
- kontext "GraphicObjectbar"
- if schatten.Getstate(2) <> 1 then
- warnlog "The Shadow-button should be activated"
- else
- Printlog "Shaddowbutton activated, good."
- endif
-
- hOpenContextmenu
- sleep(2)
- if hMenuFindSelect(10087, true, 1) = false then
- Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- 'Select "Position and Size"
- sleep(2)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
- if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
- TabPositionAndSize.OK
-
- FormatArea
- sleep 1
- kontext "TabArea"
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
- if Anzeigen.GetState <> 1 then Warnlog "Shaddow-checkbox should be active"
- Anzeigen.Check
- else
- Warnlog "'Use Shadow' doesn't exist or isn't visible."
- endif
- if shadowdistancevalue <> Entfernung.GetText then warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
- if shadowcolorvalue <> Farbe.GetSelText then warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.gettext
- if shadowtransparencyvalue <> Transparenz.GetText then warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
-
- Kontext
- Active.SetPage TabTransparenz
- kontext "TabTransparenz"
- LineareTransparenz.Check
- shadowtransparencyvalue = MFLinTransparenz.GetText
-
-
- sleep 2
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- TabSchatten.Ok
-
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
- if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
- if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
- if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
- TabLinie.ok
-
- if (gApplication = "IMPRESS") then
- ExtensionString = "ppt"
- else
- ExtensionString = "odg"
- end if
-
- sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
-
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText sFileName
- if (gApplication = "IMPRESS") then
- Dateityp.Select 5 ' Powerpoint
- printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
- else
- Dateityp.Select 1
- printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
- endif
- Speichern.Click
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Kontext "AlienWarning"
- if AlienWarning.Exists(2) then AlienWarning.OK
- printlog "Saved as: " + sFileName
- Sleep 3
-
- FileClose
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Sleep 3
- hFileOpen (sFileName + "." + ExtensionString)
- printlog "File opened: " + sFileName + "." + ExtensionString
- Sleep 3
- EditSelectAll
-
- hOpenContextmenu
- sleep(2)
- if hMenuFindSelect(10087, true, 1) = false then
- Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- 'Select "Position and Size"
- sleep(2)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
- if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
- TabPositionAndSize.OK
-
- FormatArea
- Kontext
- Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
- if (gApplication = "DRAW") then
- if LineareTransparenz.Ischecked = FALSE then
- warnlog "Transparency should have been checked!"
- if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
- KeineTransparenz.Check
- end if
- endif
- if (gApplication = "DRAW") then
- if LineareTransparenz.Ischecked = FALSE then
- warnlog "Transparency should have been checked!"
- if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
- KeineTransparenz.Check
- end if
- endif
- if (gApplication = "IMPRESS") then
- if LineareTransparenz.Ischecked <> FALSE then
- warnlog "Transparency should NOT have been checked!"
- if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
- KeineTransparenz.Check
- end if
- endif
-
- TabTransparenz.Cancel
-
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
- if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
- if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
- if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
- TabLinie.ok
-
- FormatArea
- Kontext
- Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
- KeineTransparenz.Check
- sleep 1
- kontext "TabArea"
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- Anzeigen.UnCheck
- TabSchatten.Ok
-
- if (gApplication = "IMPRESS") then
- ExtensionString = "ppt"
- else
- ExtensionString = "odg"
- end if
- sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
-
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText sFileName
- if (gApplication = "IMPRESS") then
- Dateityp.Select 5 ' Powerpoint
- printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
- else
- Dateityp.Select 1
- printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
- endif
- Speichern.Click
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Kontext "AlienWarning"
- if AlienWarning.Exists(2) then AlienWarning.OK
- printlog "Saved as: " + sFileName
- Sleep 3
-
- FileClose
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Sleep 3
- hFileOpen (sFileName + "." + ExtensionString)
- printlog "File opened: " + sFileName + "." + ExtensionString
- Sleep 3
- EditSelectAll
-
- hOpenContextmenu
- sleep(2)
- if hMenuFindSelect(10087, true, 1) = false then
- Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- 'Select "Position and Size"
- sleep(2)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
- if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
- TabPositionAndSize.OK
-
- FormatArea
- Kontext
- Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
- if LineareTransparenz.Ischecked <> FALSE then
- warnlog "Transparency should NOT have been checked!"
- if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
- LineareTransparenz.UnCheck
- end if
- TabTransparenz.Cancel
-
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
- if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
- if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
- if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
- TabLinie.ok
-
- Call hCloseDocument
- Printlog "Finished Shaddow-test for " + gApplication
+ endif
+ if shadowdistancevalue <> Entfernung.GetText then warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
+ if shadowcolorvalue <> Farbe.GetSelText then warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.gettext
+ if shadowtransparencyvalue <> Transparenz.GetText then warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
+
+ '/// Check Transparency ///'
+ Kontext
+ Active.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ LineareTransparenz.Check
+ shadowtransparencyvalue = MFLinTransparenz.GetText
+
+ sleep 2
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ TabSchatten.Ok
+
+ '/// Check Cornerstyle via FormatLine ///'
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
+ if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
+ if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
+ if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
+ TabLinie.ok
+
+ '/// If Impress: Save as Powerpoint-file. If Draw: Save as usual Draw-file. ///'
+ if (gApplication = "IMPRESS") then
+ ExtensionString = "ppt"
+ else
+ ExtensionString = "odg"
+ end if
+
+ sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
+
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText sFileName
+ if (gApplication = "IMPRESS") then
+ Dateityp.Select 5 ' Powerpoint
+ printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
+ else
+ Dateityp.Select 1
+ printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
+ endif
+ Speichern.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Kontext "AlienWarning"
+ if AlienWarning.Exists(2) then AlienWarning.OK
+ printlog "Saved as: " + sFileName
+ Sleep 3
+
+ '/// Close the office and reload the file ///'
+ FileClose
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Sleep 3
+ '/// Open the saved file ///'
+ hFileOpen (sFileName + "." + ExtensionString)
+ printlog "File opened: " + sFileName + "." + ExtensionString
+ Sleep 3
+ '/// Select all ///'
+ EditSelectAll
+
+ '/// Check the attributes for the picture ///'
+ hOpenContextmenu
+ sleep(2)
+ if hMenuFindSelect(10087, true, 1) = false then
+ Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ 'Select "Position and Size"
+ sleep(2)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
+ if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
+ TabPositionAndSize.OK
+
+ '/// Check if transparency has disappeared and if the cornerstyle has changed ///'
+ FormatArea
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ if (gApplication = "DRAW") then
+ if LineareTransparenz.Ischecked = FALSE then
+ warnlog "Transparency should have been checked!"
+ if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
+ KeineTransparenz.Check
+ end if
+ endif
+ if (gApplication = "DRAW") then
+ if LineareTransparenz.Ischecked = FALSE then
+ warnlog "Transparency should have been checked!"
+ if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
+ KeineTransparenz.Check
+ end if
+ endif
+ if (gApplication = "IMPRESS") then
+ if LineareTransparenz.Ischecked =TRUE then
+ printlog "Transparency contained in newer ppt files, ok.!"
+ if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
+ KeineTransparenz.Check
+ end if
+ endif
+
+ TabTransparenz.Cancel
+
+ '/// Check Cornerstyle via FormatLine ///'
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
+ if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
+ if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
+ if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
+ TabLinie.ok
+
+ '/// Remove the Shaddow, Transparency and Cornerstyle ///'
+ FormatArea
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ KeineTransparenz.Check
+ sleep 1
+ kontext "TabArea"
+ '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue ///'
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ Anzeigen.UnCheck
+ TabSchatten.Ok
+
+ '/// If Impress: Save as Powerpoint-file. If Draw: Save as usual Draw-file. ///'
+ if (gApplication = "IMPRESS") then
+ ExtensionString = "ppt"
+ else
+ ExtensionString = "odg"
+ end if
+ sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
+
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText sFileName
+ if (gApplication = "IMPRESS") then
+ Dateityp.Select 5 ' Powerpoint
+ printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
+ else
+ Dateityp.Select 1
+ printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
+ endif
+ Speichern.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Kontext "AlienWarning"
+ if AlienWarning.Exists(2) then AlienWarning.OK
+ printlog "Saved as: " + sFileName
+ Sleep 3
+
+ '/// Close the office-session ///'
+ FileClose
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Sleep 3
+ '/// Open the saved file ///'
+ hFileOpen (sFileName + "." + ExtensionString)
+ printlog "File opened: " + sFileName + "." + ExtensionString
+ Sleep 3
+ '/// Select all ///'
+ EditSelectAll
+
+ '/// Check the attributes for the picture ///'
+ hOpenContextmenu
+ sleep(2)
+ if hMenuFindSelect(10087, true, 1) = false then
+ Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ 'Select "Position and Size"
+ sleep(2)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
+ if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
+ TabPositionAndSize.OK
+
+ '/// Check if transparency has disappeared ///'
+ FormatArea
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ if LineareTransparenz.Ischecked <> FALSE then
+ warnlog "Transparency should NOT have been checked!"
+ if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
+ LineareTransparenz.UnCheck
+ end if
+ TabTransparenz.Cancel
+
+ '/// Check if the cornerstyle has changed via FormatLine ///'
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
+ if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
+ if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
+ if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
+ TabLinie.ok
+
+ '/// Close application ///'
+ Call hCloseDocument
+ Printlog "Finished Shaddow-test for " + gApplication
+
endcase ' tiShaddow
diff --git a/testautomation/graphics/optional/includes/global/g_stylist.inc b/testautomation/graphics/optional/includes/global/g_stylist.inc
index 6933180..2f8eeab 100755
--- a/testautomation/graphics/optional/includes/global/g_stylist.inc
+++ b/testautomation/graphics/optional/includes/global/g_stylist.inc
@@ -56,11 +56,14 @@ testcase tFormatStylistFlyer
Dim ySize%
printlog " - Format/Stylist : using all possible things to manipulate the flyer"
+ '/// open application ///'
Call hNewDocument
Kontext "Gestalter"
+ '/// Check if stylist is there. Expected: not there ///'
if Gestalter.NotExists = false Then
qaErrorLog " - Expected Stylist to be closed; But is Open. Check tests."
else
+ hTypekeys "<F11>" '/// open stylist by pressing key [F11] ///'
sleep 1
end if
Kontext "Gestalter"
@@ -68,67 +71,89 @@ testcase tFormatStylistFlyer
Warnlog " No stylist popped up using F11; opening now via slotID"
FormatStylist
end if
+ '///+ save stylist position and size ///'
xPos% = Gestalter.GetPosX
yPos% = Gestalter.GetPosY
xSize% = Gestalter.GetSizeX
ySize% = Gestalter.GetSizeY
+ '///+ if Stylist is docked; undock ///'
if Gestalter.IsDocked then Gestalter.UnDock
- Gestalter.Move 10, 10
- Sleep 1
- Gestalter.Move 300, 400
- Sleep 1
- Gestalter.Move 590, 790
- Sleep 1
- Gestalter.Move xPos%, yPos%
- Sleep 1
+ printlog " - '///move stylist ///"
+ '///+ move stylist to 10,10 ///'
+ Gestalter.Move 10, 10
+ Sleep 1
+ '///+ move stylist to 300,400 ///'
+ Gestalter.Move 300, 400
+ Sleep 1
+ '///+ move stylist to 590,790 ///'
+ Gestalter.Move 590, 790
+ Sleep 1
+ '///+ move stylist back to saved start position ///'
+ Gestalter.Move xPos%, yPos%
+ Sleep 1
- Gestalter.Size 200, 200
- Sleep 1
- Gestalter.Size 300, 400
- Sleep 1
- Gestalter.Size 150, 250
- Sleep 1
- Gestalter.Size xSize%, ySize%
- Sleep 1
+ printlog " - '///size stylist ///"
+ '///+ change size to 200,200 ///'
+ Gestalter.Size 200, 200
+ Sleep 1
+ '///+ change size to 300,400 ///'
+ Gestalter.Size 300, 400
+ Sleep 1
+ '///+ change size to 150,250 ///'
+ Gestalter.Size 150, 250
+ Sleep 1
+ '///+ change size back to saved size ///'
+ Gestalter.Size xSize%, ySize%
+ Sleep 1
- printlog " - Close stylist reopen stylist, check if appearence is same as before"
- xPos% = Gestalter.GetPosX
- yPos% = Gestalter.GetPosY
- xSize% = Gestalter.GetSizeX
- ySize% = Gestalter.GetSizeY
- FormatStylist
- Sleep 1
- FormatStylist
- sleep (1)
- if xPos% <> Gestalter.GetPosX then Warnlog "The x-Pos. has changed : Should be -> '"+ xPos% + "' Is -> '"+ Gestalter.GetPosX +"'."
- if yPos% <> Gestalter.GetPosY then Warnlog "The y-Pos. has changed : Should be -> '"+ yPos% + "' Is -> '"+ Gestalter.GetPosY +"'."
- if xSize% <> Gestalter.GetSizeX then Warnlog "The x-Size has changed : Should be -> '"+ xSize% + "' Is -> '"+ Gestalter.GetSizeX +"'."
- if ySize% <> Gestalter.GetSizeY then Warnlog "The y-Size has changed : Should be -> '"+ ySize% + "' Is -> '"+ Gestalter.GetSizeY +"'."
-
- printlog " - dock stylist"
- Gestalter.Dock
- Sleep 1
- if (NOT Gestalter.IsDocked) then
- warnlog " stylist not docked but should"
- endif
- if (Gestalter.IsDocked) Then
- Gestalter.UnDock
- endif
- Sleep 1
-
- printlog " - maximize/minimize stylist"
- Gestalter.Minimize
- Sleep 1
- Gestalter.Maximize
- Sleep 1
- if (NOT Gestalter.IsMax) then
- warnlog " The stylist did not return to maximized state"
- endif
- Gestalter.Close
- Call hCloseDocument
-endcase
+ printlog " - Close stylist reopen stylist, check if appearence is same as before"
+ '/// save stylist position and size ///'
+ xPos% = Gestalter.GetPosX
+ yPos% = Gestalter.GetPosY
+ xSize% = Gestalter.GetSizeX
+ ySize% = Gestalter.GetSizeY
+ '/// close stylist Format->Stylist ///'
+ FormatStylist
+ Sleep 1
+ '/// open stylist Format->Stylist ///'
+ FormatStylist
+ sleep (1)
+ if xPos% <> Gestalter.GetPosX then Warnlog "The x-Pos. has changed : Should be -> '"+ xPos% + "' Is -> '"+ Gestalter.GetPosX +"'."
+ if yPos% <> Gestalter.GetPosY then Warnlog "The y-Pos. has changed : Should be -> '"+ yPos% + "' Is -> '"+ Gestalter.GetPosY +"'."
+ if xSize% <> Gestalter.GetSizeX then Warnlog "The x-Size has changed : Should be -> '"+ xSize% + "' Is -> '"+ Gestalter.GetSizeX +"'."
+ if ySize% <> Gestalter.GetSizeY then Warnlog "The y-Size has changed : Should be -> '"+ ySize% + "' Is -> '"+ Gestalter.GetSizeY +"'."
+
+ printlog " - dock stylist"
+ '/// dock stylist ///'
+ Gestalter.Dock
+ Sleep 1
+ if (NOT Gestalter.IsDocked) then
+ warnlog " stylist not docked but should"
+ endif
+ '/// UNdock stylist ///'
+ if (Gestalter.IsDocked) Then
+ Gestalter.UnDock
+ endif
+ Sleep 1
+ printlog " - maximize/minimize stylist"
+ '/// minimize stylist ///'
+ Gestalter.Minimize
+ Sleep 1
+ '/// maximize stylist ///'
+ Gestalter.Maximize
+ Sleep 1
+ if (NOT Gestalter.IsMax) then
+ warnlog " The stylist did not return to maximized state"
+ endif
+ '/// close stylist ///'
+ Gestalter.Close
+ Call hCloseDocument
+
+endcase 'tFormatStylistFlyer
+'--------------------------------------------------------
testcase tFormatStylistDocuments
+
Dim xPos% as Integer
Dim yPos% as Integer
Dim xSize% as Integer
@@ -188,9 +213,11 @@ testcase tFormatStylistDocuments
Gestalter.Close
end if
Call hCloseDocument
-endcase
-
+
+endcase 'tFormatStylistDocuments
+'--------------------------------------------------------
testcase tFormatStylistTemplatesUse
+
Dim i as Integer
Dim save as integer
@@ -228,9 +255,11 @@ testcase tFormatStylistTemplatesUse
sleep 3
Call hCloseDocument
-endcase
-
+
+endcase 'tFormatStylistTemplatesUse
+'--------------------------------------------------------
testcase tFormatStylistTemplateCreate
+
goto endsub
dim i
dim Zaehler
@@ -269,29 +298,31 @@ testcase tFormatStylistTemplateCreate
i=0
do
inc i
-loop while ((Ansicht.getItemText(i) <> "ATesttool") AND (i <= zaehler))
-if i>zaehler then
+ loop while ((Ansicht.getItemText(i) <> "ATesttool") AND (i <= zaehler))
+ if i>zaehler then
warnlog " error"
-endif
-Ansicht.Select i
-sleep 1
-Ansicht.TypeKeys "<SPACE>"
-sleep 1
-Loeschen.Click
-Kontext "Active"
-Active.Yes
-sleep 1
-Kontext "Vorlagenkatalog"
-Vorlagenkatalog.Close
-sleep 1
-Kontext "DocumentDraw"
-gMouseClick 90,90
-sleep 1
-Call hCloseDocument
-sleep 1
-endcase
-
+ endif
+ Ansicht.Select i
+ sleep 1
+ Ansicht.TypeKeys "<SPACE>"
+ sleep 1
+ Loeschen.Click
+ Kontext "Active"
+ Active.Yes
+ sleep 1
+ Kontext "Vorlagenkatalog"
+ Vorlagenkatalog.Close
+ sleep 1
+ Kontext "DocumentDraw"
+ gMouseClick 90,90
+ sleep 1
+ Call hCloseDocument
+ sleep 1
+
+endcase 'tFormatStylistTemplateCreate
+'--------------------------------------------------------
testcase tFormatStylistTemplateSelect
+
dim i as integer
dim sListDown(21) as string
dim sListUp(21) as string
@@ -367,9 +398,11 @@ testcase tFormatStylistTemplateSelect
TabArea.OK
sleep 2
hCloseDocument
-endcase
-
+
+endcase 'tFormatStylistTemplateSelect
+'---------------------------------------------------------
testcase tFormatStylistTemplateNew
+
dim sListDown(21) as string
dim sListUp(21) as string
dim sTemp as string
@@ -452,22 +485,24 @@ testcase tFormatStylistTemplateNew
inc i
sTemp = Vorlagenliste.GetText
Vorlagenliste.TypeKeys "<Up>"
-loop while (("Testtool" <> sTemp) AND (i<20))
-Vorlagenliste.TypeKeys "<Return>"
-Kontext "Gestalter"
-Gestalter.Close
-
-Printlog " - check template"
-FormatCharacter
-Kontext
-Active.SetPage TabFont
-Kontext "TabFont"
-TabFont.OK
-hTypeKeys ("<escape>",2)
-hCloseDocument
-endcase
+ loop while (("Testtool" <> sTemp) AND (i<20))
+ Vorlagenliste.TypeKeys "<Return>"
+ Kontext "Gestalter"
+ Gestalter.Close
+
+ Printlog " - check template"
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ TabFont.OK
+ hTypeKeys ("<escape>",2)
+ hCloseDocument
+endcase 'tFormatStylistTemplateNew
+'--------------------------------------------------------
testcase tiFormatStylist
+
Dim Num1 as integer ' graphics : first line indent ; the one with 0,6cm in the summary
Dim Num2 as integer ' presentations : background ; just one tabpage pops up: Area
Dim Num3 as integer ' : background objects ; Line pops up
@@ -637,8 +672,9 @@ testcase tiFormatStylist
Kontext "Gestalter"
if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
Call hCloseDocument
-endcase
-
+
+endcase 'tiFormatStylist
+'---------------------------------------------------------
sub hWalkTheStyles (optional a as integer,optional b as integer)
' TODO: TBO DialogTest should go to Recource test!
dim i as integer
@@ -752,9 +788,11 @@ sub hWalkTheStyles (optional a as integer,optional b as integer)
Call DialogTest (TabOptionenNumerierung)
sleep 1
endif
-end sub
-
+
+end sub 'hWalkTheStyles
+'---------------------------------------------------------
testcase tFormatStylist
+
Dim sTemp as String
dim sSettings(20,3) ' control_name; control_type; value
dim i as integer
@@ -841,9 +879,11 @@ testcase tFormatStylist
endif
endif
Call hCloseDocument
-endcase
-
+
+endcase 'tFormatStylist
+'--------------------------------------------------------
function hSelectInList (window, sEntry as String) as Boolean
+
Dim i as Integer
Dim sTemp as String
Dim sLastTemp as String
@@ -861,9 +901,11 @@ if (sEntry = sTemp) then
else
hSelectInList = FALSE
endif
-end function
+end function 'hSelectInList
+'---------------------------------------------------------
function hWalkTheStyles2 (atemp)
+
'function hWalkTheStyles2 (bSet as boolean, aSettings(), atemp as variant) as string
dim i as integer
dim x as integer
@@ -984,6 +1026,4 @@ function hWalkTheStyles2 (atemp)
' sleep 1
' Call DialogTest (TabOptionenNumerierung)
' sleep 1
-end function
-
-
+end function 'hWalkTheStyles2
diff --git a/testautomation/graphics/optional/includes/global/g_tools.inc b/testautomation/graphics/optional/includes/global/g_tools.inc
index 7900466..1e58bda 100755
--- a/testautomation/graphics/optional/includes/global/g_tools.inc
+++ b/testautomation/graphics/optional/includes/global/g_tools.inc
@@ -46,75 +46,83 @@
'-------------------------------------------------------------------------------
testcase tiToolsThesaurus
- Dim DasWort$
- Dim ZaehlerBedeutung
-
-
- ' As long as OOo has no modules for that, disabled
- if gOOO = True then
- printlog "No spellchecking in OOo"
- goto endsub
- endif
+ Dim DasWort$
+ Dim ZaehlerBedeutung
+
+'/// for normal text, the thesaurus is enabled, if the format->character->language of the word has a thesaurus///'
+'///+ unfortunately in textboxes this doesn't work, you can give the word a langauge, but this is been ignored by///'
+'///+ our thesaurus :-(((///'
+'/// so especially for asian languages you have to set a default language in the options, to be able to use///'
+'///+ the thesaurus there - fallback to englisch, because there is no ? thesaurus for cjk languages ??///'
+
+ '/// First we make sure we test a language where Thesa
+ ' As long as OOo has no modules for that, disabled
+ if gOOO = True then
+ printlog "No spellchecking in OOo"
+ goto endsub
+ endif
select case iSprache
- case 01 : DasWort$ = "Hello"
- case 03 : DasWort$ = "Alo"
- case 07 : printlog "- No Thesaur for Russian available"
- goto endsub
- case 30 : Printlog "- No Thesaurus available !"
- goto endsub
- case 31 : DasWort$ = "Guiten"
- case 33 : DasWort$ = "Bonjour"
- case 34 : DasWort$ = "Hola"
- case 35 : Printlog "- No Thesaurus available !"
- goto endsub
- case 36 : Printlog "- No Thesaurus available !"
- goto endsub
- case 37 : Printlog "- No Thesaurus available !"
- goto endsub
- case 39 : DasWort$ = "Ciao"
- case 42 : Printlog "- No Thesaurus available !"
- goto endsub
- case 45 : DasWort$ = "Hej"
- case 46 : DasWort$ = "Välkommen"
- case 47 : Printlog "- No Thesaurus available !"
- goto endsub
- case 48 : Printlog "- No Thesaurus in Polish!"
- goto endsub
- case 49 : DasWort$ = "Hallo"
- case 50 : DasWort$ = "Prosojnica"
- case 51 : Printlog "- No Thesaurus available !"
- goto endsub
- case 55 : Printlog "- No Thesaurus in Brazilian!"
- goto endsub
- case 90 : Printlog "- No Thesaurus available !"
- goto endsub
-
- case else : if bAsianLan then
- hSetSpellHypLanguage
- DasWort$ = "Hello"
- else
- Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
- DasWort$ = "Hello"
- endif
-end select
+ case 01 : DasWort$ = "Hello"
+ case 03 : DasWort$ = "Alo"
+ case 07 : printlog "- No Thesaur for Russian available"
+ goto endsub
+ case 30 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 31 : DasWort$ = "Guiten"
+ case 33 : DasWort$ = "Bonjour"
+ case 34 : DasWort$ = "Hola"
+ case 35 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 36 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 37 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 39 : DasWort$ = "Ciao"
+ case 42 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 45 : DasWort$ = "Hej"
+ case 46 : DasWort$ = "Välkommen"
+ case 47 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 48 : Printlog "- No Thesaurus in Polish!"
+ goto endsub
+ case 49 : DasWort$ = "Hallo"
+ case 50 : DasWort$ = "Prosojnica"
+ case 51 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 55 : Printlog "- No Thesaurus in Brazilian!"
+ goto endsub
+ case 90 : Printlog "- No Thesaurus available !"
+ goto endsub
+
+ case else : if bAsianLan then
+ hSetSpellHypLanguage
+ DasWort$ = "Hello"
+ else
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
+ DasWort$ = "Hello"
+ endif
+ end select
-printlog " Thesaurus without any word in the document"
-try
- Kontext "Thesaurus"
- Thesaurus.Cancel
- WarnLog " If no word is in the document, Thesaurus shouldn't be available"
-catch
- PrintLog " No Thesaurus available"
-endcatch
+ printlog " Thesaurus without any word in the document"
+ Call hNewDocument '/// New document ///'
+ try
+ ExtrasThesaurusDraw '/// try thesaurus in empty document ///'
+ Kontext "Thesaurus"
+ Thesaurus.Cancel
+ WarnLog " If no word is in the document, Thesaurus shouldn't be available"
+ catch
+ PrintLog " No Thesaurus available"
+ endcatch
-PrintLog " Thesaurus with 1 word: " + DasWort$
+ PrintLog " Thesaurus with 1 word: " + DasWort$
-Call hTextrahmenErstellen (DasWort$,20,20,50,30)
-sleep 1
+ Call hTextrahmenErstellen (DasWort$,20,20,50,30)
+ sleep 1
-hTypeKeys "<Home><SHIFT END>"
-'------------------------
+ hTypeKeys "<Home><SHIFT END>"
+ '------------------------
ToolsOptions
Kontext "ExtrasOptionenDlg"
hToolsOptions("LANGUAGESETTINGS","Languages")
@@ -122,161 +130,179 @@ Westlich.Select 32
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
sleep 1
-'------------------------
-try
- Kontext "Thesaurus"
- if Thesaurus.Exists(3) then
+ '------------------------
+ try
+ ExtrasThesaurusDraw '/// Thesaurus with only 1 word ///'
+ Kontext "Thesaurus"
+ if Thesaurus.Exists(3) then
if Wort.GetSelText <> DasWort$ Then WarnLog "marked word should be:" + DasWort$ + " but it is:" + Wort.GetSelText
- ZaehlerBedeutung=Bedeutung.GetItemCount
- if Bedeutung.GetItemCount = 0 Then
- PrintLog " There are no suggestions for this word"
- sleep 1
- else
- if ZaehlerBedeutung=1 Then
- Bedeutung.Select ZaehlerBedeutung
- else
- Bedeutung.Select (ZaehlerBedeutung - 1)
- end if
- sleep 1
- sleep 1
- if Ersetzen.GetText=Synonym.GetSelText Then PrintLog " Meaning transfered into Replace edit field"
- if Ersetzen.GetText<>Synonym.GetSelText Then WarnLog " Replacement should have been: '" + Bedeutung.GetSelText + "' but it is '" + Ersetzen.GetText+"'"
- endif
- Thesaurus.Cancel
- else
- warnlog " thesaurus didn't come up, that's bad :-("
- end if
- catch
- warnLog " No Thesaurus available ??! check if options western has smth selected !! !TL!"
- endcatch
+ if Wort.GetSelText = DasWort$ Then PrintLog " Marked word is correctly changed" '/// Control if word has changed ///'
+ ZaehlerBedeutung=Bedeutung.GetItemCount
+ if Bedeutung.GetItemCount = 0 Then
+ PrintLog " There are no suggestions for this word"
+ sleep 1
+ else
+ if ZaehlerBedeutung=1 Then
+ Bedeutung.Select ZaehlerBedeutung
+ else
+ Bedeutung.Select (ZaehlerBedeutung - 1)
+ end if
+ sleep 1
+ Synonym.Select 1 '/// Select synonym 1///'
+ sleep 1
+ if Ersetzen.GetText=Synonym.GetSelText Then PrintLog " Meaning transfered into Replace edit field"
+ if Ersetzen.GetText<>Synonym.GetSelText Then WarnLog " Replacement should have been: '" + Bedeutung.GetSelText + "' but it is '" + Ersetzen.GetText+"'"
+ endif
+ Thesaurus.Cancel
+ else
+ warnlog " thesaurus didn't come up, that's bad :-("
+ end if
+ catch
+ warnLog " No Thesaurus available ??! check if options western has smth selected !! !TL!"
+ endcatch
+ Call hCloseDocument '/// Close document ///'
endcase 'tiToolsThesaurus
'-------------------------------------------------------------------------------
testcase tiToolsHyphenation1
- printlog " - Hyphenation without any text"
- sleep 3
- Kontext "Silbentrennung"
+ printlog " - Hyphenation without any text"
+ Call hNewDocument '/// New impress document ///'
+ sleep 3
+ ExtrasSilbentrennungDraw '/// Try Silbentrennung with empty document ///'
+ Kontext "Silbentrennung"
if Silbentrennung.Exists(1) = True Then
- Warnlog " - Dialog ist da"
- Silbentrennung.Cancel
- else
- Printlog " - Hyphenation activated"
- end if
- ' Kontext "DocumentImpress"
- printlog " - Hyphenation with text, but without any possibility to break words"
- select case iSprache
- case 03 : hTextrahmenErstellen ("Compare a tradu" + Chr(231) + Chr(227) + "o com o original",10,10,40,40)
- case 07 : qaerrorlog "- No Hypenation for Russian available"
- goto endsub
- case 31 : hTextrahmenErstellen ("Het is mijn bedoeling om voor en hulpmiddel.",10,10,40,40)
- case 33 : hTextrahmenErstellen ("Merci beaucoup pout votre candidature du 13/11/97.",10,10,40,40)
- case 34 : hTextrahmenErstellen ("This ist a text with no spliting words",10,10,40,40)
- case 36 : hTextrahmenErstellen ("Semmi karhozattyoc nincz most azoknac, a kic az Iesus Christusban be oltattac",10,10,40,40)
- case 39 : hTextrahmenErstellen ("Il documento 'Senza nome 1' stato modififcato",10,10,40,40)
- case 45 : hTextrahmenErstellen ("at du har nok i dit hvis du",10,10,40,40 )
- case 46 : hTextrahmenErstellen ("Detta är en text utan delade ord",10,10,40,40)
- case 48 : hTextrahmenErstellen (" Jeoli jednak zechcesz",10,10,40,40)
- case 49 : hTextrahmenErstellen ("Dies ist ein Text ohne eine Moeglichkeit Woerter zu trennen",10,10,40,40)
- case 50 : hTextrahmenErstellen ("Zato ves Äas iÅ¡Äemo nove Älane: sodelujte",10,10,40,40)
- case 55 : hTextrahmenErstellen ("a Sun tentou adquirir a Apple",10,10,40,40)
- case else : if bAsianLan then
- printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-)"
- printlog " :-) will use English instead"
- hTextrahmenErstellen ("This ist a text with no split words",10,10,40,40)
+ Warnlog " - Dialog ist da"
+ Silbentrennung.Cancel
else
- Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
- endif
-end select
-hTypeKeys "<Home>"
-Kontext "Silbentrennung"
-if Silbentrennung.Exists =True Then
- Warnlog "Dialog exists"
- Silbentrennung.Cancel
-else
- Kontext "Active"
- if Active.Exists then Active.OK
+ Printlog " - Hyphenation activated"
end if
-
-
+' Kontext "DocumentImpress"
+ printlog " - Hyphenation with text, but without any possibility to break words"
+ select case iSprache
+ case 01 : hTextrahmenErstellen ("This ist a text with no split words",10,10,40,40) '/// Create text without a pssibility to split words///'
+ case 03 : hTextrahmenErstellen ("Compare a tradu" + Chr(231) + Chr(227) + "o com o original",10,10,40,40)
+ case 07 : qaerrorlog "- No Hypenation for Russian available"
+ Call hCloseDocument '/// Close document ///'
+ goto endsub
+ case 31 : hTextrahmenErstellen ("Het is mijn bedoeling om voor en hulpmiddel.",10,10,40,40)
+ case 33 : hTextrahmenErstellen ("Merci beaucoup pout votre candidature du 13/11/97.",10,10,40,40)
+ case 34 : hTextrahmenErstellen ("This ist a text with no spliting words",10,10,40,40)
+ case 36 : hTextrahmenErstellen ("Semmi karhozattyoc nincz most azoknac, a kic az Iesus Christusban be oltattac",10,10,40,40)
+ case 39 : hTextrahmenErstellen ("Il documento 'Senza nome 1' stato modififcato",10,10,40,40)
+ case 45 : hTextrahmenErstellen ("at du har nok i dit hvis du",10,10,40,40 )
+ case 46 : hTextrahmenErstellen ("Detta är en text utan delade ord",10,10,40,40)
+ case 48 : hTextrahmenErstellen (" Jeoli jednak zechcesz",10,10,40,40)
+ case 49 : hTextrahmenErstellen ("Dies ist ein Text ohne eine Moeglichkeit Woerter zu trennen",10,10,40,40)
+ case 50 : hTextrahmenErstellen ("Zato ves Äas iÅ¡Äemo nove Älane: sodelujte",10,10,40,40)
+ case 55 : hTextrahmenErstellen ("a Sun tentou adquirir a Apple",10,10,40,40)
+ case else : if bAsianLan then
+ printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-)"
+ printlog " :-) will use English instead"
+ hTextrahmenErstellen ("This ist a text with no split words",10,10,40,40)
+ else
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
+ endif
+ end select
+ hTypeKeys "<Home>"
+ ExtrasSilbentrennungDraw '/// Try Silbentrennung ///'
+ Kontext "Silbentrennung"
+ if Silbentrennung.Exists =True Then
+ Warnlog "Dialog exists"
+ Silbentrennung.Cancel
+ else
+ Kontext "Active"
+ if Active.Exists then Active.OK
+ end if
+
+ Call hCloseDocument '/// Close document ///'
+
endcase 'tiToolsHyphenation1
'-------------------------------------------------------------------------------
testcase tiToolsHyphenation2
- dim iWaitIndex as integer
- dim sExt as string
- Dim i : Dim DasWort : Dim DasWort2 : Dim DasWort3 : Dim DasWort4 : Dim DasWort5 : Dim DasWort6 : Dim DasWort7
- dim sDraw as string
- dim sFile as string
- PrintLog "- Tools/Hyphenation2"
- Select Case Ucase(gApplication)
- case "DRAW" : sExt = ".odg"
- case "IMPRESS" : sExt = ".odp"
- end select
-
- if ((not bAsianLan) AND (iSprache <> 07)) then
- sFile = gTesttoolpath + "graphics\required\input\silben_"+iSprache+sExt
- Call hFileOpen (sFile)
- endif
-
-case 01 :DasWort = "ation" : DasWort2 = "tion" : DasWort3 = "ion" : DasWort4 = "on" '+Chr(34)
-case 07 : qaerrorlog "- No Hypenation for Russian available"
- goto endsub
-case 31 :DasWort = "siteit" : DasWort2 = "iteit" : DasWort3 = "teit" : DasWort4 = "eit"
-case 33 :DasWort = "ture" : DasWort2 = "ure" : DasWort3 = "re" : DasWort4 = "e"
-case 34 :DasWort = "chvo" : DasWort2 = "hvo" : DasWort3 = "vo" : DasWort4 = "o"
-case 36 :DasWort = "zatnal" : DasWort2 = "atnal" : DasWort3 = "tnal" : DasWort4 = "nal"
-case 39 :DasWort = "sentu" : DasWort2 = "entu" : DasWort3 = "ntu" : DasWort4 = "tu"
-case 46 :DasWort = "niska" : DasWort2 = "iska" : DasWort3 = "ska" : DasWort4 = "ka"
-case 48 :DasWort = "nie" : DasWort2 = "ie" : DasWort3 = "e"
-case 49 :DasWort = "nung" : DasWort2 = "ung" : DasWort3 = "ng" : DasWort4 = "g"
-case 50 :DasWort = "nica" : DasWort2 = "ica" : DasWort3 = "ca" : DasWort4 = "a"
-case 55 :DasWort = "gia" : DasWort2 = "ia" : DasWort3 = "a" : DasWort4 = "ogia"
-case else : if bAsianLan then
- printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-)"
- printlog " :-) will use English instead"
- Call hFileOpen (gTesttoolpath + "graphics\required\input\silben_"+"1"+sExt)
- DasWort = "ation" : DasWort2 = "tion" : DasWort3 = "ion" : DasWort4 = "on" '+Chr(34)
-else
- Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here and create file: "+sFile
- hNewDocument
-endif
-end select
-
-Call sMakeReadOnlyDocumentEditable
-
-printlog " - Test hyphenation"
-hTypeKeys "<Return>"
-
-sleep 1
-' WA for draw, or smth else: get text part before hyphenation:
-if iSprache = "1" OR bAsianLan = TRUE then
-else
-hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT>"
-endif
-EditCopy
-sDraw = GetClipboardText()
-gMouseClick 50,50
-sleep 3
-EditCopy
+ dim iWaitIndex as integer
+ dim sExt as string
+ Dim i : Dim DasWort : Dim DasWort2 : Dim DasWort3 : Dim DasWort4 : Dim DasWort5 : Dim DasWort6 : Dim DasWort7
+ dim sDraw as string
+ dim sFile as string
+ PrintLog "- Tools/Hyphenation2"
+ Select Case Ucase(gApplication)
+ case "DRAW" : sExt = ".odg"
+ case "IMPRESS" : sExt = ".odp"
+ end select
+
+ if ((not bAsianLan) AND (iSprache <> 07)) then
+ sFile = gTesttoolpath + "graphics\required\input\silben_"+iSprache+sExt
+ Call hFileOpen (sFile)
+ endif
+
+ select case iSprache '/// Open prepared document ///'
+ case 01 :DasWort = "ation" : DasWort2 = "tion" : DasWort3 = "ion" : DasWort4 = "on" '+Chr(34)
+ case 07 : qaerrorlog "- No Hypenation for Russian available"
+ goto endsub
+ case 31 :DasWort = "siteit" : DasWort2 = "iteit" : DasWort3 = "teit" : DasWort4 = "eit"
+ case 33 :DasWort = "ture" : DasWort2 = "ure" : DasWort3 = "re" : DasWort4 = "e"
+ case 34 :DasWort = "chvo" : DasWort2 = "hvo" : DasWort3 = "vo" : DasWort4 = "o"
+ case 36 :DasWort = "zatnal" : DasWort2 = "atnal" : DasWort3 = "tnal" : DasWort4 = "nal"
+ case 39 :DasWort = "sentu" : DasWort2 = "entu" : DasWort3 = "ntu" : DasWort4 = "tu"
+ case 46 :DasWort = "niska" : DasWort2 = "iska" : DasWort3 = "ska" : DasWort4 = "ka"
+ case 48 :DasWort = "nie" : DasWort2 = "ie" : DasWort3 = "e"
+ case 49 :DasWort = "nung" : DasWort2 = "ung" : DasWort3 = "ng" : DasWort4 = "g"
+ case 50 :DasWort = "nica" : DasWort2 = "ica" : DasWort3 = "ca" : DasWort4 = "a"
+ case 55 :DasWort = "gia" : DasWort2 = "ia" : DasWort3 = "a" : DasWort4 = "ogia"
+ case else : if bAsianLan then
+ printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-)"
+ printlog " :-) will use English instead"
+ Call hFileOpen (gTesttoolpath + "graphics\required\input\silben_"+"1"+sExt)
+ DasWort = "ation" : DasWort2 = "tion" : DasWort3 = "ion" : DasWort4 = "on" '+Chr(34)
+ else
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here and create file: "+sFile
+ hNewDocument
+ endif
+ end select
+
+ Call sMakeReadOnlyDocumentEditable
+
+ printlog " - Test hyphenation"
+ EditSelectAll '/// Press CTRL + A to select all ///'
+ '/// press return to go into the edit mode ///'
+ hTypeKeys "<Return>"
+
+ sleep 1
+ ' WA for draw, or smth else: get text part before hyphenation:
+ if iSprache = "1" OR bAsianLan = TRUE then
+ hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT RIGHT>" '/// Select part of text and compare it with original text at this place ///'
+ else
+ hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT>"
+ endif
+ EditCopy
+ sDraw = GetClipboardText()
+ EditSelectAll '/// Select whole text ///'
+ ExtrasSilbentrennungDraw '/// Run Hyphenation ///'
+ gMouseClick 50,50
+ hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT>" '/// Select part of text and compare it with original text at this place ///'
+ sleep 3
+ EditCopy
printlog GetClipboardText
-select case GetClipboardText
-case DasWort : printlog " - Hyphenation worked"
-case DasWort2 : printlog " - Hyphenation worked"
-case DasWort3 : printlog " - Hyphenation worked"
-case DasWort4 : printlog " - Hyphenation worked"
-case else : warnlog " - Hyphenation didnt work"
-end select
-if GetClipboardText <> sDraw then
-Printlog " - WA draw hyphenation did work :-)"
-else
-Warnlog " - Hyphenation did not work"
-Printlog "Expected: '"+DasWort+"'; or something different than: '"+sDraw+"'; But what we got was: '"+GetClipboardText+"'"
-end if
-sleep 1
-
+ select case GetClipboardText
+ case DasWort : printlog " - Hyphenation worked"
+ case DasWort2 : printlog " - Hyphenation worked"
+ case DasWort3 : printlog " - Hyphenation worked"
+ case DasWort4 : printlog " - Hyphenation worked"
+ case else : warnlog " - Hyphenation didnt work"
+ end select
+ if GetClipboardText <> sDraw then
+ Printlog " - WA draw hyphenation did work :-)"
+ else
+ Warnlog " - Hyphenation did not work"
+ Printlog "Expected: '"+DasWort+"'; or something different than: '"+sDraw+"'; But what we got was: '"+GetClipboardText+"'"
+ end if
+ sleep 1
+ Call hCloseDocument '/// Close document ///'
+
endcase 'tiToolsHyphenation2
'-------------------------------------------------------------------------------
@@ -292,6 +318,7 @@ testcase tToolsMacro
ToolsMacro
Kontext "Makro"
+ '/// to get the count of all macros, the list needs to get elapsed-all ///'
for j = 1 to 2
Zaehler=MakroAus.GetItemCount
MakroAus.typeKeys "<end>"
@@ -405,5 +432,5 @@ testcase tToolsMacro
'TODO: organizer testing!
Call hCloseDocument
Call hCloseDocument
-
+
endcase 'tToolsMacro
diff --git a/testautomation/graphics/optional/includes/global/g_zoom.inc b/testautomation/graphics/optional/includes/global/g_zoom.inc
index 55c8e86..e0a3f68 100755
--- a/testautomation/graphics/optional/includes/global/g_zoom.inc
+++ b/testautomation/graphics/optional/includes/global/g_zoom.inc
@@ -40,13 +40,13 @@
'\********************************************************************
testcase tViewZoom
- dim Zaehler as integer
- dim Position1 as integer
- dim Position2 as integer
- Dim Datei$
- Printlog "- view Zoom"
+ dim Zaehler as integer
+ dim Position1 as integer
+ dim Position2 as integer
+ Dim Datei$
+ Printlog "- view Zoom"
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
@@ -55,78 +55,85 @@ testcase tViewZoom
Datei$ = ConvertPath (gOfficePath + "user\work\test." & ExtensionString)
Printlog "- View-Zoom testing"
- if dir(Datei$) <> "" then app.Kill(Datei$) ' to avoid the anoying overwrite warnlog :-)
- ViewZoom
- Kontext "Massstab"
- Massstab.OK
- Kontext "SD_Farbleiste"
- sleep 1
- if SD_Farbleiste.Exists then
- Printlog "- Color toolbar will be disabled now"
- ViewToolbarsColorBar
- end if
- For Zaehler = 1 to 9
- Position1 = 5 * Zaehler - 3
- Position2 = 105 - 5 * Zaehler
- Call hRechteckErstellen (Position1, Position1, Position2, Position2)
- FormatArea
- kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- Farbe.Select 5*Zaehler
- TabFarben.OK
- sleep 1
- gMouseClick 50,0
- Next Zaehler
- sleep 2
- sleep 3
- ViewZoom
- Kontext "Massstab"
- VergroesserungStufenlos.check
- Stufenlos.Settext "45"
- Massstab.OK
- sleep 2
- gMouseClick 50,1
- ViewZoom
- Kontext "Massstab"
- Select Case Zaehler
- Case 1: VergroesserungStufenlos.check
- Stufenlos.Settext "40"
- Case 2: VergroesserungStufenlos.check
- Stufenlos.Settext "50"
- Case 3: VergroesserungStufenlos.check
- Stufenlos.Settext "75"
- Case 4: VergroesserungStufenlos.check
- Stufenlos.Settext "100"
- Case 5: VergroesserungStufenlos.check
- Stufenlos.Settext "150"
- Case 6: VergroesserungStufenlos.check
- Stufenlos.Settext "200"
-
- 'Case 2: Vergroesserung50.check
- 'Case 3: Vergroesserung75.check
- 'Case 4: Vergroesserung100.check
- 'Case 5: Vergroesserung150.check
- 'Case 6: Vergroesserung200.check
- End Select
- Massstab.OK
- sleep 1
- Kontext "DocumentImpress"
- gMouseClick 15,15 'hier soll die Maus ein Rechteck treffen;
- 'die Farbe des Rechtecks sagt uns dann, ob
- FormatArea 'richtig vergroessert oder verkleinert wurde.
- sleep 1
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- printlog "Color index ", Farbe.GetSelIndex
- TabFarben.Cancel
- sleep 1
- next Zaehler
+ if dir(Datei$) <> "" then app.Kill(Datei$) ' to avoid the anoying overwrite warnlog :-)
+ Call hNewDocument '/// new document ///'
+ ViewZoom
+ Kontext "Massstab"
+ Vergroesserung100.Check '/// set zoom to 50% ///'
+ Massstab.OK
+ '/// create a number of rectangles with different color properties ///'
+ Kontext "SD_Farbleiste"
+ sleep 1
+ if SD_Farbleiste.Exists then
+ Printlog "- Color toolbar will be disabled now"
+ ViewToolbarsColorBar
+ end if
+ '/// All rectangles are created with same dimensions but using different zoom settings ///'
+ For Zaehler = 1 to 9
+ Position1 = 5 * Zaehler - 3
+ Position2 = 105 - 5 * Zaehler
+ Call hRechteckErstellen (Position1, Position1, Position2, Position2)
+ FormatArea
+ kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ Farbe.Select 5*Zaehler
+ TabFarben.OK
+ sleep 1
+ gMouseClick 50,0
+ Next Zaehler
+ sleep 2
+ hFileSaveAs (Datei$) '/// save document ///'
+ sleep 3
+ for Zaehler = 1 to 6 '/// changing zoom settings and checking functionality with controlling the color of the selected rectangle ///'
+ ViewZoom
+ Kontext "Massstab"
+ VergroesserungStufenlos.check
+ Stufenlos.Settext "45"
+ Massstab.OK
+ sleep 2
+ gMouseClick 50,1
+ ViewZoom
+ Kontext "Massstab"
+ Select Case Zaehler
+ Case 1: VergroesserungStufenlos.check
+ Stufenlos.Settext "40"
+ Case 2: VergroesserungStufenlos.check
+ Stufenlos.Settext "50"
+ Case 3: VergroesserungStufenlos.check
+ Stufenlos.Settext "75"
+ Case 4: VergroesserungStufenlos.check
+ Stufenlos.Settext "100"
+ Case 5: VergroesserungStufenlos.check
+ Stufenlos.Settext "150"
+ Case 6: VergroesserungStufenlos.check
+ Stufenlos.Settext "200"
+
+ 'Case 2: Vergroesserung50.check
+ 'Case 3: Vergroesserung75.check
+ 'Case 4: Vergroesserung100.check
+ 'Case 5: Vergroesserung150.check
+ 'Case 6: Vergroesserung200.check
+ End Select
+ Massstab.OK
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseClick 15,15 'hier soll die Maus ein Rechteck treffen;
+ 'die Farbe des Rechtecks sagt uns dann, ob
+ FormatArea 'richtig vergroessert oder verkleinert wurde.
+ sleep 1
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ printlog "Color index ", Farbe.GetSelIndex
+ TabFarben.Cancel
+ sleep 1
+ next Zaehler
- 'GanzeSeite.push
- 'Optimal.push
- 'Seitenbreite.push
- sleep 2
+ 'GanzeSeite.push
+ 'Optimal.push
+ 'Seitenbreite.push
+ sleep 2
+ Call hCloseDocument '/// close document ///'
endcase
diff --git a/testautomation/graphics/optional/includes/global/gallery.inc b/testautomation/graphics/optional/includes/global/gallery.inc
index 266ba01..a1420ad 100755
--- a/testautomation/graphics/optional/includes/global/gallery.inc
+++ b/testautomation/graphics/optional/includes/global/gallery.inc
@@ -324,7 +324,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
printlog " - 'add all' for the rest of the files"
DateiListe.Select 1
HinzufuegenAlle.Click
- sleep (1)
+ sleep (8)
printlog " - apply-dialog -> cancel"
Kontext "ApplyGallery"
for j=1 to 100
@@ -341,7 +341,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
printlog " - 'add all' for the rest of the files"
DateiListe.Select 1
HinzufuegenAlle.Click
- sleep (2)
+ sleep (8)
Kontext "ApplyGallery"
for j=1 to 100
If ApplyGallery.Exists then
diff --git a/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc
index a529e7b..6513f45 100755
--- a/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc
+++ b/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc
@@ -332,10 +332,10 @@ testcase tViewNavigator
'/// Check that the dragmodus has 3 modes
printlog " Check that the dragmodus has 3 modes"
Dragmodus.OpenMenu
- if MenuGetItemCount <> 3 then
+ if hMenuItemGetCount <> 3 then
warnlog "Not enough modes for dragmodus"
end if
- MenuSelect (0)
+ hMenuSelectNr (0)
'/// Close Navigator
printlog " Close Navigator"
Kontext "Navigator"
More information about the ooo-build-commit
mailing list