| blob | c39e12f73afdf1870850ee13a73aee87aa7a59f3 |
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: export_graphic_2.inc,v $
10 '*
11 '* $Revision: 1.3 $
12 '*
13 '* last change: $Author: rt $ $Date: 2008-09-04 09:17:40 $
14 '*
15 '* This file is part of OpenOffice.org.
16 '*
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
20 '*
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
26 '*
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
31 '*
32 '/************************************************************************
33 '*
34 '* Owner : wolfram.garten@sun.com
35 '*
36 '* short description : Graphics Export B-tests. (the usual suspects)
37 '*
38 '\******************************************************************************
39 testcase tPNG
41 dim x as integer
42 dim i as integer
43 dim iWaitIndex as integer
44 dim sFilter as string
45 dim sExt as string
47 sFilter = "PNG - Portable Network Graphic (.png)"
48 sExt = ".png"
50 hFileOpen( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString )
52 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
53 Kontext "PNGOptionen"
54 if PNGOptionen.Exists (2) then
55 Kompression.ToMax
56 Interlaced.UnCheck
57 PNGOptionen.OK
58 iWaitIndex = 0
59 do while PNGOptionen.Exists AND iWaitIndex < 30
60 sleep (1)
61 iWaitIndex = iWaitIndex + 1
62 loop
63 endif
64 if ( dir(OutputGrafikTBO+sExt) <> "") then
65 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
66 else
67 warnlog "File didn't get saved :-("
68 endif
69 hCloseDocument ()
70 sleep 5
71 hNewDocument()
72 sleep 5
73 Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
74 endif
76 call hCloseDocument
77 endcase 'tPNG
79 '-------------------------------------------------------------------------------
80 testcase tSVM
82 dim x as integer
83 dim i as integer
84 dim sFilter as string
85 dim sExt as string
86 dim bTemp as boolean
87 dim sX as string
88 dim sY as string
89 dim sx1 as string
90 dim sX2 as string
91 dim sY2 as string
92 dim sDocument as string
94 sFilter = "SVM - StarView Metafile (.svm)"
95 sExt = ".svm"
97 sDocument = ConvertPath ( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString)
98 hFileOpen sDocument
100 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
101 Kontext "SVMOptionen"
102 if SVMOptionen.Exists (2) then
103 Original.Check
104 if Breite.IsEnabled then
105 warnlog " :-("
106 endif
107 if Hoehe.IsEnabled then
108 warnlog " :-("
109 endif
110 Groesse.Check
111 Breite.More
112 Hoehe.Less
113 SVMOptionen.Cancel
114 sleep 5
115 if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
116 Printlog "ok :-)"
117 else
118 warnlog "dialog was canceled, but file got saved, too :-( - i35177"
119 endif
120 else
121 Warnlog "No '" & sFilter & "' -Dialog!"
122 i=5
123 end if
124 sleep 2
125 Kontext "Active"
126 if Active.Exists(2) then
127 Warnlog " '" & sFilter & "' has a problem"
128 Active.OK
129 end if
130 end if
131 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
132 Kontext "SVMOptionen"
133 if SVMOptionen.Exists (2) then
134 Groesse.Check
135 Breite.Less
136 Hoehe.More
137 SVMOptionen.OK
138 sleep 5
139 endif
140 if ( dir(OutputGrafikTBO+sExt) <> "") then
141 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
142 else
143 warnlog "File didn't get saved :-("
144 endif
145 hCloseDocument ()
146 sleep 5
147 hNewDocument()
148 sleep 5
149 Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
150 endif
151 hCloseDocument ()
152 hFileOpen (sDocument)
153 sleep (10)
155 sMakeReadOnlyDocumentEditable
157 hTypeKeys ("<escape><tab>")
158 fGetSizeXY sx1, sY, TRUE
159 if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
160 Kontext "SVMOptionen"
161 if SVMOptionen.Exists (2) then
162 Original.Check
163 SVMOptionen.OK
164 sleep 5
165 endif
166 if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
167 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
168 else
169 warnlog "File didn't get saved :-("
170 endif
171 hCloseDocument ()
172 sleep 5
173 hNewDocument()
174 sleep 5
175 Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
176 bTemp = FALSE
177 fGetSizeXY sx1, sY, bTemp
178 if (bTemp = FALSE) then
179 warnlog "Selected original size NOT OK :-("
180 endif
181 endif
182 hCloseDocument ()
183 hNewDocument()
184 hRechteckErstellen ( 10, 10, 30, 40 )
185 if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
186 Kontext "SVMOptionen"
187 if SVMOptionen.Exists (2) then
188 Groesse.Check
189 Breite.SetText "9"
190 Hoehe.SetText "9"
191 Groesse.Check 'Check to make settings go throught
192 sx1 = Breite.GetText
193 sY = Hoehe.GetText
194 SVMOptionen.OK
195 sleep 5
196 endif
197 if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
198 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "2" & sExt & "'"
199 else
200 warnlog "File didn't get saved :-("
201 endif
202 hCloseDocument ()
203 sleep 5
204 hFileOpen (OutputGrafikTBO & "2" & sExt)
205 kontext "Filterauswahl"
206 if Filterauswahl.exists then
207 Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
208 Filterauswahl.Cancel
209 goto endsub
210 endif
211 kontext "DocumentDraw"
212 DocumentDraw.TypeKeys ("<escape><tab>")
213 ContextOriginalSize
214 bTemp = FALSE
215 fGetSizeXY sx1, sY, bTemp
216 if (bTemp = FALSE) then
217 warnlog "Selected original size NOT OK :-("
218 endif
219 endif
220 if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
221 Kontext "SVMOptionen"
222 if SVMOptionen.Exists (2) then
223 Groesse.Check
224 sX2 = Breite.GetText
225 if (LiberalMeasurement(sx1, sX2)) <> TRUE then
226 if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
227 Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
228 else
229 warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
230 endif
231 endif
232 sY2 = Hoehe.GetText
233 if (LiberalMeasurement(sY, sY2)) <> TRUE then
234 if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
235 Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
236 else
237 warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
238 endif
239 endif
240 SVMOptionen.Cancel
241 sleep 5
242 endif
243 endif
245 call hCloseDocument
247 endcase 'tSVM
248 '-------------------------------------------------------------------------------
249 testcase tPDF
251 dim sPath as string
252 dim sTemp as string
253 dim iFileSize(12) as long
254 dim i as integer
256 '/// Export the file 12 times: ///'
257 '///+ every compression level (3) and every range (3), check if button in toolbar uses last settings (6) (-> 12) ///'
258 hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport_pdf."+ExtensionString ))
259 sleep (10)
261 '---------------------------------------------------------------------------------------------------------------------------------------------------------
262 '###### all / Screen optimized ######
263 '/// File->Export as PDF document
264 printlog "File->Export as PDF document"
265 '///+ range = All
266 printlog " range = All"
267 '///+ compression = Screen optimized
268 printlog " compression = Screen optimized"
270 kontext "Standardbar"
271 checkexppdfwaitmax10sec
273 '--------------------------------------------------------- Output the first file ---------------------------------------------------------------
275 hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 1, TRUE, FALSE, 1, 1)
276 '/// Export using Button in toolbar
277 printlog "Export using Button in toolbar"
278 '///+ use the settings from the export before
279 printlog " use the settings from the export before"
281 kontext "Standardbar"
282 checkexppdfwaitmax10sec
284 '------------------------------------------------------- Output the second file -------------------------------------------------------------
286 hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 2, TRUE, FALSE, 1, 1) ' button in toolbar -> last settings have to be used
288 '###### range / Screen optimized ######
289 '/// File->Export as PDF document
290 printlog "File->Export as PDF document"
291 '///+ range = Range
292 printlog " range = Range"
293 '///+ compression = Screen optimized
294 printlog " compression = Screen optimized"
296 kontext "Standardbar"
297 checkexppdfwaitmax10sec
299 '--------------------------------------------------------- Output the third file ---------------------------------------------------------------
301 hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 3, TRUE, FALSE, 2, 1, "2")
303 '/// Export using Button in toolbar
304 printlog "Export using Button in toolbar"
305 '///+ use the settings from the export before
306 printlog " use the settings from the export before"
308 kontext "Standardbar"
309 checkexppdfwaitmax10sec
311 '--------------------------------------------------------- Output the fourth file -------------------------------------------------------------
313 hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 4, TRUE, FALSE, 2, 1) ' button in toolbar -> last settings have to be used
315 '###### all / Print optimized ######
316 '/// File->Export as PDF document
317 printlog "File->Export as PDF document"
318 '///+ range = all
319 printlog " range = all"
320 '///+ compression = Print optimized
321 printlog " compression = Print optimized"
323 kontext "Standardbar"
324 checkexppdfwaitmax10sec
326 '------------------------------------------------------------ Output the fifth file --------------------------------------------------------------
328 hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 5, TRUE, FALSE, 1, 2)
330 '/// Export using Button in toolbar
331 printlog "Export using Button in toolbar"
332 '///+ use the settings from the export before
333 printlog " use the settings from the export before"
335 kontext "Standardbar"
336 checkexppdfwaitmax10sec
338 '----------------------------------------------------------- Output the sixth file ---------------------------------------------------------------
340 hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 6, TRUE, FALSE, 1, 2) ' button in toolbar -> last settings have to be used
342 '###### range / Print optimized ######
343 '/// File->Export as PDF document
344 printlog "File->Export as PDF document"
345 '///+ range = Range
346 printlog " range = Range"
347 '///+ compression = Screen optimized
348 printlog " compression = Screen optimized"
350 kontext "Standardbar"
351 checkexppdfwaitmax10sec
353 '--------------------------------------------------------- Output the seventh file -------------------------------------------------------------
355 hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 7, TRUE, FALSE, 2, 2, "2")
357 '/// Export using Button in toolbar
358 printlog "Export using Button in toolbar"
359 ' '///+ use the settings from the export before
360 printlog " use the settings from the export before"
362 kontext "Standardbar"
363 checkexppdfwaitmax10sec
365 '------------------------------------------------------------ Output the eight file ----------------------------------------------------------------
367 hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 8, TRUE, FALSE, 2, 2) ' button in toolbar -> last settings have to be used
369 '###### all / Press optimized ######
370 '/// File->Export as PDF document ///'
371 printlog "File->Export as PDF document ///'"
372 '///+ range = all
373 printlog " range = all"
374 '///+ compression = Press optimized
375 printlog " compression = Press optimized"
377 kontext "Standardbar"
378 checkexppdfwaitmax10sec
380 '------------------------------------------------------------ Output the ninth file ----------------------------------------------------------------
382 hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 9, TRUE, FALSE, 1, 3)
383 '/// Export using Button in toolbar
384 '///+ use the settings from the export before
386 kontext "Standardbar"
387 checkexppdfwaitmax10sec
389 '------------------------------------------------------------ Output the tenth file ----------------------------------------------------------------
391 hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 10, TRUE, FALSE, 1, 3) ' button in toolbar -> last settings have to be used
393 '###### range / Press optimized ######
394 '/// File->Export as PDF document ///'
395 printlog "File->Export as PDF document ///'"
396 '///+ range = all
397 printlog " range = all"
398 '///+ compression = Press optimized
399 printlog " compression = Press optimized"
401 kontext "Standardbar"
402 checkexppdfwaitmax10sec
404 '----------------------------------------------------------- Output the eleventh file -------------------------------------------------------------
406 hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 11, TRUE, FALSE, 2, 3, "2")
407 '/// Export using Button in toolbar
408 '///+ use the settings from the export before
410 kontext "Standardbar"
411 checkexppdfwaitmax10sec
413 '------------------------------------------------------------- Output the twelfth file --------------------------------------------------------------
415 hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 12, TRUE, FALSE, 2, 3) ' button in toolbar -> last settings have to be used
417 kontext "Standardbar"
418 checkexppdfwaitmax10sec
420 '-----------------------------------------------------------------------------------------------------------------------------------------------------------------
422 for i=1 to 12
423 sPath = OutputGrafikTBO
424 sPath = sPath + i + ".pdf"
425 iFileSize(i) = app.FileLen(sPath)
426 Printlog (" - " + i + ": " + " " + iFileSize(i) + " " + sPath
427 if (dir(sPath) <> "") then
428 sleep(1)
429 '/// the first line has to be '%PDF-1.4' ///'
430 sTemp = fGetFileText(sPath, 8)
431 if (sTemp <> "%PDF-1.4") then
432 Warnlog "File doesn't start with '%PDF-1.4' it is: '" + sTemp + "'"
433 endif
434 '/// the last line has to be '%%EOF' ///'
435 sTemp = left(fGetFileText(sPath, -6),5)
436 if (sTemp <> "%%EOF") then
437 Warnlog "File doesn't end with '%%EOF' it is: '" + sTemp + "'"
438 endif
439 else
440 Warnlog "File was not exported to PDF :-( '" + sPath + "'"
441 endif
442 next i
444 ' Check if the file size is the same when exporting via toolbar and file/export
445 ' if the size different then the options are not used when exporting via the toolbar
446 if (iFileSize(1) <> iFileSize(2)) then
447 qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
448 'Warnlog ("Diffrence in filesize for file 1 and 2")
449 endif
450 ' print optimized
451 if (iFileSize(5) <> iFileSize(6)) then
452 qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
453 'Warnlog ("Difference in filesize for file 5 and 6")
454 endif
455 ' press optimized
456 if (iFileSize(9) <> iFileSize(10)) then
457 qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
458 'Warnlog ("Difference in filesize for file 9 and 10")
459 endif
463 if (iFileSize(1) > iFileSize(5)) then
464 qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
465 'Warnlog ("Filesize for file 1 is greater then for file 5. The compression level doesn't work.")
466 endif
467 if (iFileSize(5) > iFileSize(9)) then
468 Warnlog ("Filesize for file 5 is greater then for file 9. The compression level doesn't work.")
469 endif
471 call hCloseDocument()
472 endcase 'tPDF
474 '-------------------------------------------------------------------------------
475 testcase tPDF_Creator
477 dim sPath as String
478 dim sApp as String
479 dim sTemp as String
480 dim bTemp as String
481 dim sTemp2 as String
482 dim iFileSize(3) as long
483 dim iCreatorOffset as integer
484 dim i as integer
485 dim sTextFilter as String
486 dim sTextFiltername as String
487 dim sExtension() as String
489 sTemp = ConvertPath ( gTesttoolPath + "graphics\required\input\export_graphic3." + ExtensionString )
490 hFileOpen (sTemp)
491 sleep (30)
492 sPath = OutputGrafikTBO
493 sTemp = sPath
494 sPath = sPath + "L.pdf"
495 sleep(1)
496 hExportAsPDFmulti (1, TRUE, sPath, TRUE, FALSE, 1, 1)
497 name sPath as sTemp+"L.txt"
498 sleep (30)
499 iFileSize(3) = app.FileLen(sTemp+"L.txt")
500 iCreatorOffset = 0
501 sleep 5
502 '/// load file in writer as text ///'
504 hFileOpen(sTemp+"L.txt")
506 '/// if dialog 'AsciiFilterOptionen' comes up, say OK ///'
507 Kontext "AsciiFilterOptionen"
508 If AsciiFilterOptionen.Exists(3) then
509 AsciiFilterOptionen.OK
510 endif
512 Kontext "Filterauswahl"
513 If Filterauswahl.Exists then
514 Filter.Select ( hGetUIFiltername("Text" ))
515 Filterauswahl.OK
516 End If
518 sApp = gApplication
519 gApplication = "WRITER"
520 sleep 5 ' wait for document to be loaded
521 ' /Creator
522 bTemp = hFindeImDokument ("<</Creator<",true)
523 if (bTemp = TRUE) then
524 Printlog "OK"
525 else
526 warnlog " /Creator not found in pdf file :-("
527 endif
528 hTypeKeys("<left><right><shift end>")
529 editcopy
530 sTemp = getClipboardText()
531 sTemp = left(sTemp, inStr(sTemp, ">")-1)
532 sTemp2 = ""
533 for i = 0 to (len(sTemp)/4)-1
534 sTemp2 = sTemp2 + chr("&H"+mid(sTemp,(i*4)+1, 4))
535 next i
536 printlog sTemp + " -- " + len(sTemp) + " ::: '" + sTemp2 + "'"
537 if (lCase(sapp) <> lCase(right(sTemp2, len(stemp2)-1))) then
538 warnlog "Application is different from Creator; is: '" + lCase(sTemp2) + "' should: '" + lCase(sapp) + "'"
539 endif
540 iCreatorOffset = iCreatorOffset + len(sTemp)
541 ' /Producer
542 bTemp = hFindeImDokument ("/Producer<")
543 if (bTemp = TRUE) then
544 Printlog "OK"
545 else
546 warnlog " /Producer not found in pdf file :-("
547 endif
548 hTypeKeys("<left><right><shift end><shift down>")
549 editcopy
550 sTemp = getClipboardText()
551 sTemp = left(sTemp, inStr(sTemp, ">")-1)
552 sTemp2 = ""
553 for i = 0 to (len(sTemp)/4)-1
554 sTemp2 = sTemp2 + chr("&H"+mid(sTemp,(i*4)+1, 4))
555 next i
556 printlog sTemp + " -- " + len(sTemp) + " ::: '" + sTemp2 + "'"
557 if gOOO then
558 iCreatorOffset = iCreatorOffset + len(sTemp)
559 else
560 if bAsianLan then
561 iCreatorOffset = iCreatorOffset + 48
562 if (len(sTemp) <> 48) then
563 warnlog "Producer is different from 'StarSuite 8'; is: '" + sTemp2 + "'"
564 endif
565 else
566 iCreatorOffset = iCreatorOffset + 52
567 if (len(sTemp) <> 52) then
568 warnlog "Producer is different from 'StarOffice 8'; is: '" + sTemp2 + "'"
569 endif
570 endif
571 endif
572 ' /CreationDate (
573 bTemp = hFindeImDokument ("/CreationDate(")
574 if (bTemp = TRUE) then
575 Printlog "OK"
576 else
577 warnlog " /CreationDate not found in pdf file :-("
578 endif
579 hTypeKeys("<left><right><shift end>")
580 editcopy
581 sTemp = getClipboardText()
582 sTemp = left(sTemp, inStr(sTemp, ")")-1)
583 printlog sTemp + " -- " + len(sTemp)
584 iCreatorOffset = iCreatorOffset + (len(sTemp) - 23)
585 if (len(sTemp) <> 23) then
586 warnlog "Date is longer than expected; is: '" + sTemp2 + "'"
587 endif
588 gApplication = sApp
589 call hCloseDocument
590 call hCloseDocument
592 endcase 'tPDF_Creator
593 '-------------------------------------------------------------------------------
594 testcase tSVG
596 dim x as integer
597 dim i as integer
598 dim sFilter as string
599 dim sExt as string
600 dim bTemp as boolean
601 dim sTemp as string
602 dim sTextFilter as string
603 dim sExtension() as string
604 dim sTextFiltername as string
606 sFilter = "SVG - Scalable Vector Graphics (.svg)"
607 sExt = ".svg"
609 hFileOpen ( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString )
611 '------------------------\
612 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
613 '------------------------\
614 if ( dir(OutputGrafikTBO+sExt) <> "") then
615 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
616 '------------------------\
617 if (iSprache <> 82) then
618 hCloseDocument ()
619 sleep 5
620 sTextFilter = "Text"
622 hFileOpenWithFilter (OutputGrafikTBO+sExt, sTextFiltername, FALSE)
623 printlog "if dialog 'AsciiFilterOptionen' comes up, say OK"
624 Kontext "AsciiFilterOptionen"
625 '-------------------------------\
626 If AsciiFilterOptionen.Exists(3) then
627 AsciiFilterOptionen.OK
628 else
629 warnlog "No ASCII filter Options Dialog?"
630 endif
631 '-------------------------------/
632 sTemp = gApplication
633 gApplication = "WRITER"
634 sleep 5 ' wait for document to be loaded
635 bTemp = hFindeImDokument ("<!DOCTYPE svg PUBLIC " & chr(34)& "-//W3C//DTD SVG 1.1//EN" & chr(34)&" " & chr(34)&"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd" & chr(34)&">",true)
636 '-------------------------------\
637 if (bTemp = TRUE) then
638 Printlog "OK"
639 else
640 warnlog "DOCTYPE not found in svg file :-("
641 endif
642 '-------------------------------/
643 gApplication = sTemp
644 else
645 qaerrorlog "disabled for 82: #111017#"
646 endif
647 '--------------------------/
648 else
649 warnlog "File didn't get saved :-("
650 endif
651 '------------------------/
652 endif
653 '------------------------/
655 call hCloseDocument
656 endcase 'tSVG
658 '-------------------------------------------------------------------------------
659 testcase tBMP
660 qaerrorlog
661 dim x as integer
662 dim i as integer
663 dim bTemp as boolean
664 dim sX as string
665 dim sY as string
666 dim sx1 as string
667 dim sX2 as string
668 dim sY2 as string
669 dim sDocument as string
671 '/// open the document
672 sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
673 hFileOpen sDocument
675 if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
676 Kontext "BMPOptionen"
677 if BMPOptionen.Exists (2) then
678 '/// check if all properties have the right count, and depend on each other ///'
679 '/// 'Color Resolution' listbox contains eight items ///'
680 x = Farbaufloesung.GetItemCount
681 if x <> 8 then warnlog "Color Resolution Count is wrong; should be:8, is:" + x
682 for i = 1 to x
683 Farbaufloesung.Select i
684 sleep 1
685 Printlog " - " + i + ": '" +Farbaufloesung.GetSelText + "'"
686 '/// checkbox RLE coding has to be enabled only for '4 and 8 bit' color palettes ///'
687 if ((i > 3) AND (i < 8)) then
688 if RLEKodierung.IsEnabled <> TRUE then warnlog "'RLE coding' is not checkable :-("
689 else
690 if RLEKodierung.IsEnabled <> FALSE then warnlog "'RLE coding' is checkable :-("
691 endif
692 next i
693 '/// if Mode 'original' is selected, DPI///'
694 Original.Check
695 if DPI.IsEnabled then warnlog " :-("
696 if Breite.IsEnabled then warnlog " :-("
697 if Hoehe.IsEnabled then warnlog " :-("
698 Aufloesung.Check
699 x = DPI.GetItemCount
700 '/// 'DPI' listbox contains eight items ///'
701 if x <> 4 then warnlog "'DPI' Count is wrong; should be:4, is:" + x
702 for i = 1 to x
703 DPI.Select i
704 Printlog " - " + i + ": '" +DPI.GetSelText + "'"
705 next i
706 if Breite.IsEnabled then warnlog " :-("
707 if Hoehe.IsEnabled then warnlog " :-("
708 Groesse.Check
709 if DPI.IsEnabled then warnlog " :-("
710 Breite.More
711 Hoehe.Less
712 Sleep 1
713 '/// leave dialog with cancel -> there has to be no file created! ///'
714 BMPOptionen.Cancel
715 sleep 5
716 if ( dir(OutputGrafikTBO+".bmp") = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
717 Printlog "ok :-)"
718 else
719 warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
720 endif
721 else
722 Warnlog "No BMP-Option-Dialog!"
723 i=5
724 end if
725 sleep 2
726 Kontext "Active"
727 if Active.Exists(2) then
728 Warnlog "BMP-Exportfilter has a problem"
729 Active.OK
730 end if
731 end if
732 Printlog "'/// now save it realy and load the file afterwards ///'"
733 if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
734 Kontext "BMPOptionen"
735 if BMPOptionen.Exists (2) then
736 Farbaufloesung.Select 7
737 RLEKodierung.Check
738 Aufloesung.Check
739 DPI.Select 3
740 BMPOptionen.OK
741 sleep 5
742 endif
743 if ( dir(OutputGrafikTBO+".bmp") <> "") then
744 Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+".bmp" + "'"
745 else
746 warnlog "File didn't get saved :-("
747 endif
748 hCloseDocument ()
749 sleep 5
750 hNewDocument()
751 sleep 5
752 Call hGrafikEinfuegen ( OutputGrafikTBO+".bmp" )
753 endif
754 hCloseDocument ()
755 Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'"
757 hFileOpen (sDocument)
758 kontext "Filterauswahl"
759 if Filterauswahl.exists(10) then
760 Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
761 Filterauswahl.Cancel
762 goto endsub
763 endif
765 ' check if the document is writable
766 if fIsDocumentWritable = false then
767 ' make the document writable and check if it's succesfull
768 if fMakeDocumentWritable = false then
769 warnlog "The document can't be make writeable. Test stopped."
770 goto endsub
771 endif
772 endif
774 hTypeKeys ("<escape><tab>")
775 fGetSizeXY sx1, sy, TRUE
776 if hCallExport (OutputGrafikTBO + "1" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
777 Kontext "BMPOptionen"
778 if BMPOptionen.Exists (2) then
779 Original.Check
780 BMPOptionen.OK
781 sleep 5
782 endif
783 if ( dir(OutputGrafikTBO + "1"+".bmp") <> "") then
784 Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+".bmp" + "'"
785 else
786 warnlog "File didn't get saved :-("
787 endif
789 sleep 5
790 hNewDocument()
791 sleep 5
792 Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+".bmp" )
793 bTemp = FALSE
794 fGetSizeXY sx1, sY, bTemp
795 if (bTemp = FALSE) then
796 warnlog "Selected original size NOT OK :-("
797 endif
798 endif
799 hCloseDocument ()
801 Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'"
802 hNewDocument()
803 hTypeKeys "<TAB>"
804 gMouseClick 50, 50
805 hRechteckErstellen ( 10, 10, 30, 40 )
806 if hCallExport (OutputGrafikTBO + "2" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
807 Kontext "BMPOptionen"
808 if BMPOptionen.Exists (2) then
809 Groesse.Check
810 Breite.SetText "9"
811 Hoehe.SetText "9"
812 Groesse.Check 'Press "Size" one more time in order to make the change go through"
813 sx1 = Breite.GetText
814 sY = Hoehe.GetText
815 BMPOptionen.OK
816 sleep 5
817 endif
818 if ( dir(OutputGrafikTBO + "2"+".bmp") <> "") then
819 Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+".bmp" + "'"
820 else
821 warnlog "File didn't get saved :-("
822 endif
823 hCloseDocument ()
824 sleep 5
825 hFileOpen (OutputGrafikTBO + "2"+".bmp")
826 kontext "Filterauswahl"
827 if Filterauswahl.exists then
828 Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
829 Filterauswahl.Cancel
830 goto endsub
831 endif
832 kontext "DocumentDraw"
833 DocumentDraw.TypeKeys ("<escape><tab>")
835 ContextOriginalSize
836 bTemp = FALSE
837 fGetSizeXY sx1, sY, bTemp
838 if (bTemp = FALSE) then
839 warnlog "Selected original size NOT OK :-("
840 endif
842 endif
843 if hCallExport (OutputGrafikTBO + "3" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
844 Kontext "BMPOptionen"
845 if BMPOptionen.Exists (2) then
846 Groesse.Check
847 sX2 = Breite.GetText
848 if (LiberalMeasurement(sx1, sX2)) <> TRUE then
849 if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
850 Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
851 else
852 warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
853 endif
854 endif
855 sY2 = Hoehe.GetText
856 if (LiberalMeasurement(sY, sY2)) <> TRUE then
857 if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
858 Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
859 else
860 warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
861 endif
862 endif
863 BMPOptionen.Cancel
864 sleep 5
865 endif
866 endif
868 call hCloseDocument
870 endcase
871 '-------------------------------------------------------------------------------
872 testcase tEMF
874 dim x as integer
875 dim i as integer
876 dim sFilter as string
877 dim sExt as string
878 dim bTemp as boolean
879 dim sX as string
880 dim sY as string
881 dim sx1 as string
882 dim sX2 as string
883 dim sY2 as string
884 dim sDocument as string
886 sFilter = "EMF - Enhanced Metafile (.emf)"
887 sExt = ".emf"
889 sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
890 hFileOpen sDocument
892 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
893 Kontext "SVMOptionen"
894 if SVMOptionen.Exists (2) then
895 Original.Check
896 if Breite.IsEnabled then
897 warnlog " :-("
898 endif
899 if Hoehe.IsEnabled then
900 warnlog " :-("
901 endif
902 Groesse.Check
903 Breite.More
904 Hoehe.Less
905 SVMOptionen.Cancel
906 sleep 5
907 if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
908 Printlog "ok :-)"
909 else
910 warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
911 endif
912 else
913 Warnlog "No '" & sFilter & "' -Dialog!"
914 i=5
915 end if
916 sleep 2
917 Kontext "Active"
918 if Active.Exists(2) then
919 Warnlog " '" & sFilter & "' has a problem"
920 Active.OK
921 end if
922 end if
923 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
924 Kontext "SVMOptionen"
925 if SVMOptionen.Exists (2) then
926 Groesse.Check
927 Breite.Less
928 Hoehe.More
929 SVMOptionen.OK
930 sleep 5
931 endif
932 if ( dir(OutputGrafikTBO+sExt) <> "") then
933 Printlog "Ok :-) saved as: '" & OutputGrafikTBO+sExt & "'"
934 else
935 warnlog "File didn't get saved :-("
936 endif
937 hCloseDocument ()
938 sleep 5
939 hNewDocument()
940 sleep 5
941 Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
942 endif
943 hCloseDocument ()
944 hFileOpen (sDocument)
945 kontext "Filterauswahl"
946 if Filterauswahl.Exists(10) then
947 Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
948 Filterauswahl.Cancel
949 goto endsub
950 endif
951 printlog "making doc editable if it is readonly"
952 sMakeReadOnlyDocumentEditable
954 hTypeKeys ("<escape><tab>")
955 fGetSizeXY sx1, sY, TRUE
956 if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
957 Kontext "SVMOptionen"
958 if SVMOptionen.Exists (2) then
959 Original.Check
960 SVMOptionen.OK
961 sleep 5
962 endif
963 if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
964 Printlog "Ok :-) saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
965 else
966 warnlog "File didn't get saved :-("
967 endif
968 hCloseDocument ()
969 sleep 5
970 hNewDocument()
971 sleep 5
972 Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
973 bTemp = FALSE
974 fGetSizeXY sx1, sY, bTemp
975 if (bTemp = FALSE) then
976 warnlog "Selected original size NOT OK :-("
977 endif
978 endif
979 hCloseDocument ()
980 hNewDocument()
981 hRechteckErstellen ( 10, 10, 30, 40 )
982 if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
983 Kontext "SVMOptionen"
984 if SVMOptionen.Exists (2) then
985 Groesse.Check
986 Breite.SetText "9"
987 Hoehe.SetText "9"
988 Groesse.Check 'Press "Size" one more time to make the change go through"
989 sx1 = Breite.GetText
990 sY = Hoehe.GetText
991 SVMOptionen.OK
992 sleep 5
993 endif
994 if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
995 Printlog "Ok :-) saved as: '" & OutputGrafikTBO & "2" & sExt & "'"
996 else
997 warnlog "File didn't get saved :-("
998 endif
999 hCloseDocument ()
1000 sleep 5
1001 hFileOpen (OutputGrafikTBO & "2" & sExt)
1002 kontext "DocumentDraw"
1003 DocumentDraw.TypeKeys ("<escape><tab>")
1004 ContextOriginalSize
1005 bTemp = FALSE
1006 fGetSizeXY sx1, sY, bTemp
1007 if (bTemp = FALSE) then
1008 warnlog "Selected original size NOT OK :-("
1009 endif
1011 if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
1012 Kontext "SVMOptionen"
1013 if SVMOptionen.Exists (2) then
1014 Groesse.Check
1015 sX2 = Breite.GetText
1016 if (LiberalMeasurement(sx1, sX2)) <> TRUE then
1017 if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
1018 Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
1019 else
1020 warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
1021 endif
1022 endif
1023 sY2 = Hoehe.GetText
1024 if (LiberalMeasurement(sY, sY2)) <> TRUE then
1025 if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
1026 Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
1027 else
1028 warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
1029 endif
1030 endif
1031 SVMOptionen.Cancel
1032 sleep 5
1033 endif
1034 endif
1035 endif
1037 call hCloseDocument
1038 endcase 'tEMF
1040 '-------------------------------------------------------------------------------
1041 testcase tMET
1043 dim x as integer
1044 dim i as integer
1045 dim iWaitIndex as integer
1046 dim sFilter, sExt as string
1047 dim bTemp as boolean
1048 dim sX as string
1049 dim sY as string
1050 dim sx1 as string
1051 dim sX2 as string
1052 dim sY2 as string
1053 dim sTemp as string
1054 dim sDocument as string
1056 sFilter = "MET - OS/2 Metafile (.met)"
1057 sExt = ".met"
1059 sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
1060 hFileOpen sDocument
1062 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
1063 Kontext "METOptionen"
1064 if METOptionen.Exists (2) then
1065 Original.Check
1066 if Breite.IsEnabled then
1067 warnlog " :-("
1068 endif
1069 if Hoehe.IsEnabled then
1070 warnlog " :-("
1071 endif
1072 Groesse.Check
1073 sTemp = Breite.getText
1074 Breite.More
1075 if (sTemp = Breite.getText) then
1076 qaErrorLog "Width didn't change on pressing button 'More' #112225#"
1077 Breite.setText "10"
1078 Hoehe.setText "10"
1079 endif
1080 sTemp = Hoehe.getText
1081 Hoehe.Less
1082 if (sTemp = Hoehe.getText) then
1083 warnlog "Height didn't change on pressing button 'Less'"
1084 endif
1085 METOptionen.Cancel
1086 sleep 5
1087 if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
1088 Printlog "ok :-)"
1089 else
1090 warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
1091 endif
1092 else
1093 Warnlog "No '" & sFilter & "' -Dialog!"
1094 i=5
1095 end if
1096 sleep 2
1097 Kontext "Active"
1098 if Active.Exists(2) then
1099 Warnlog " '" & sFilter & "' has a problem"
1100 Active.OK
1101 end if
1102 end if
1103 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
1104 Kontext "METOptionen"
1105 if METOptionen.Exists (2) then
1106 Groesse.Check
1107 sTemp = Breite.getText
1108 Breite.Less
1109 if (sTemp = Breite.getText) then
1110 warnlog "Width didn't change on pressing button 'Less'"
1111 endif
1112 sTemp = Hoehe.getText
1113 Hoehe.More
1114 if (sTemp = Hoehe.getText) then
1115 qaErrorLog "Height didn't change on pressing button 'More' #112225#"
1116 Breite.setText "10"
1117 Hoehe.setText "10"
1118 endif
1119 METOptionen.OK
1120 iWaitIndex = 0
1121 do while METOptionen.Exists AND iWaitIndex < 30
1122 sleep (1)
1123 iWaitIndex = iWaitIndex + 1
1124 loop
1125 endif
1126 if ( dir(OutputGrafikTBO+sExt) <> "") then
1127 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
1128 else
1129 warnlog "File didn't get saved :-("
1130 endif
1131 hCloseDocument ()
1132 sleep 5
1133 hNewDocument()
1134 sleep 5
1135 Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
1136 endif
1137 hCloseDocument ()
1138 hFileOpen (sDocument)
1139 sleep (10)
1141 printlog "making doc editable if it is readonly"
1142 sMakeReadOnlyDocumentEditable
1144 hTypeKeys ("<escape><tab>")
1145 fGetSizeXY sx1, sY, TRUE
1146 if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
1147 Kontext "METOptionen"
1148 if METOptionen.Exists (2) then
1149 Original.Check
1150 METOptionen.OK
1151 iWaitIndex = 0
1152 do while METOptionen.Exists AND iWaitIndex < 30
1153 sleep (1)
1154 iWaitIndex = iWaitIndex + 1
1155 loop
1156 endif
1157 if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
1158 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
1159 else
1160 warnlog "File didn't get saved :-("
1161 endif
1162 hCloseDocument ()
1163 sleep 5
1164 hNewDocument()
1165 sleep 5
1166 Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
1167 bTemp = FALSE
1168 fGetSizeXY sx1, sY, bTemp
1169 if (bTemp = FALSE) then
1170 warnlog "Selected original size NOT OK :-("
1171 endif
1172 endif
1173 hCloseDocument ()
1174 hNewDocument()
1175 hRechteckErstellen ( 10, 10, 30, 40 )
1176 if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
1177 Kontext "METOptionen"
1178 if METOptionen.Exists (2) then
1179 Groesse.Check
1180 Breite.SetText "9"
1181 Hoehe.SetText "9"
1182 Groesse.Check ' Click "Size" one more time to make the changes go through.
1183 sx1 = Breite.GetText
1184 sY = Hoehe.GetText
1185 METOptionen.OK
1186 iWaitIndex = 0
1187 do while METOptionen.Exists AND iWaitIndex < 30
1188 sleep (1)
1189 iWaitIndex = iWaitIndex + 1
1190 loop
1191 endif
1192 if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
1193 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "2" & sExt & "'"
1194 else
1195 warnlog "File didn't get saved :-("
1196 endif
1197 hCloseDocument ()
1198 sleep 5
1199 hFileOpen (OutputGrafikTBO & "2" & sExt)
1200 kontext "DocumentDraw"
1201 DocumentDraw.TypeKeys ("<escape><tab>")
1202 ContextOriginalSize
1203 bTemp = FALSE
1204 fGetSizeXY sx1, sY, bTemp
1205 if (bTemp = FALSE) then
1206 warnlog "Selected original size NOT OK :-("
1207 endif
1208 endif
1209 if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
1210 Kontext "METOptionen"
1211 if METOptionen.Exists (2) then
1212 Groesse.Check
1213 sX2 = Breite.GetText
1214 if (LiberalMeasurement(sx1, sX2)) <> TRUE then
1215 if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
1216 Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
1217 else
1218 warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
1219 endif
1220 endif
1221 sY2 = Hoehe.GetText
1222 if (LiberalMeasurement(sY, sY2)) <> TRUE then
1223 if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
1224 Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
1225 else
1226 warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
1227 endif
1228 endif
1229 METOptionen.Cancel
1230 sleep 5
1231 endif
1232 endif
1234 call hCloseDocument
1235 endcase 'tMET
1237 '-------------------------------------------------------------------------------
1238 testcase tSWF
1240 dim sFilter as string
1241 dim sExt as string
1242 dim x as integer
1243 dim i as integer
1245 sFilter = "Macromedia Flash (SWF) (.swf)"
1246 sExt = ".swf"
1248 hFileOpen( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString )
1250 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
1251 if ( dir(OutputGrafikTBO+sExt) <> "") then
1252 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
1253 sleep 5
1254 else
1255 warnlog "File didn't get saved :-("
1256 endif
1257 endif
1259 call hCloseDocument
1260 endcase 'tSWF
1262 '------------------------------------------------------------------------------
1263 testcase tWMF
1265 dim x as integer
1266 dim i as integer
1267 dim iWaitIndex as integer
1268 dim sFilter as string
1269 dim sExt as string
1270 dim bTemp as boolean
1271 dim sX as string
1272 dim sY as string
1273 dim sx1 as string
1274 dim sX2 as string
1275 dim sY2 as string
1276 dim sDocument as string
1278 sFilter = "WMF - Windows Metafile (.wmf)"
1279 sExt = ".wmf"
1281 sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
1282 hFileOpen sDocument
1284 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
1285 Kontext "SVMOptionen"
1286 if SVMOptionen.Exists (2) then
1287 Original.Check
1288 if Breite.IsEnabled then
1289 warnlog " :-("
1290 endif
1291 if Hoehe.IsEnabled then
1292 warnlog " :-("
1293 endif
1294 Groesse.Check
1295 Breite.More
1296 Hoehe.Less
1297 SVMOptionen.Cancel
1298 sleep 5
1299 if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
1300 Printlog "ok :-)"
1301 else
1302 warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
1303 endif
1304 else
1305 Warnlog "No '" & sFilter & "' -Dialog!"
1306 i=5
1307 end if
1308 sleep 2
1309 Kontext "Active"
1310 if Active.Exists(2) then
1311 Warnlog " '" & sFilter & "' has a problem"
1312 Active.OK
1313 end if
1314 end if
1315 if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
1316 Kontext "SVMOptionen"
1317 if SVMOptionen.Exists (2) then
1318 Groesse.Check
1319 Breite.Less
1320 Hoehe.More
1321 SVMOptionen.OK
1322 iWaitIndex = 0
1323 do while SVMOptionen.Exists AND iWaitIndex < 30
1324 sleep (1)
1325 iWaitIndex = iWaitIndex + 1
1326 loop
1327 endif
1328 if ( dir(OutputGrafikTBO+sExt) <> "") then
1329 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
1330 else
1331 warnlog "File didn't get saved :-("
1332 endif
1333 hCloseDocument ()
1334 sleep 5
1335 hNewDocument()
1336 sleep 5
1337 Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
1338 endif
1339 hCloseDocument ()
1340 hFileOpen (sDocument)
1341 sleep (10)
1343 printlog "making doc editable if it is readonly"
1344 sMakeReadOnlyDocumentEditable
1346 hTypeKeys ("<escape><tab>")
1347 fGetSizeXY sx1, sY, TRUE
1348 if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
1349 Kontext "SVMOptionen"
1350 if SVMOptionen.Exists (2) then
1351 Original.Check
1352 SVMOptionen.OK
1353 iWaitIndex = 0
1354 do while SVMOptionen.Exists AND iWaitIndex < 30
1355 sleep (1)
1356 iWaitIndex = iWaitIndex + 1
1357 loop
1358 endif
1359 if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
1360 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
1361 else
1362 warnlog "File didn't get saved :-("
1363 endif
1364 hCloseDocument ()
1365 sleep 5
1366 hNewDocument()
1367 sleep 5
1368 Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
1369 bTemp = FALSE
1370 fGetSizeXY sx1, sY, bTemp
1371 if (bTemp = FALSE) then
1372 warnlog "Selected original size NOT OK :-("
1373 endif
1374 endif
1375 hCloseDocument ()
1376 hNewDocument()
1377 hRechteckErstellen ( 10, 10, 30, 40 )
1378 if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
1379 Kontext "SVMOptionen"
1380 if SVMOptionen.Exists (2) then
1381 Groesse.Check
1382 Breite.SetText "9"
1383 Hoehe.SetText "9"
1384 Groesse.Check 'Check "Size" to make changes really go through.
1385 sx1 = Breite.GetText
1386 sY = Hoehe.GetText
1387 SVMOptionen.OK
1388 iWaitIndex = 0
1389 do while SVMOptionen.Exists AND iWaitIndex < 30
1390 sleep (1)
1391 iWaitIndex = iWaitIndex + 1
1392 loop
1393 endif
1394 if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
1395 Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "2" & sExt & "'"
1396 else
1397 warnlog "File didn't get saved :-("
1398 endif
1399 hCloseDocument ()
1400 sleep 5
1401 hFileOpen (OutputGrafikTBO & "2" & sExt)
1402 kontext "DocumentDraw"
1403 DocumentDraw.TypeKeys ("<escape><tab>")
1404 ContextOriginalSize
1405 bTemp = FALSE
1406 fGetSizeXY sx1, sY, bTemp
1407 if (bTemp = FALSE) then
1408 warnlog "Selected original size NOT OK :-("
1409 endif
1410 endif
1411 if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
1412 Kontext "SVMOptionen"
1413 if SVMOptionen.Exists (2) then
1414 Groesse.Check
1415 sX2 = Breite.GetText
1416 if (LiberalMeasurement(sx1, sX2)) <> TRUE then
1417 if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
1418 Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
1419 else
1420 warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
1421 endif
1422 endif
1423 sY2 = Hoehe.GetText
1424 if (LiberalMeasurement(sY, sY2)) <> TRUE then
1425 if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
1426 Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
1427 else
1428 warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
1429 endif
1430 endif
1431 SVMOptionen.Cancel
1432 sleep 5
1433 endif
1434 endif
1436 call hCloseDocument
1437 endcase 'tWMF
1439 '-------------------------------------------------------------------------