ࡱ> ' " !#V$U&()*+,=./0123456789:;<%>?@ABCDEFGHIJKLMNOPQRSToXYZ[\]g_`abcdefWhijklmnpqstuvwyz{|}~rRoot Entry F& C :Workbook"_VBA_PROJECT_CUR"G`C C Ctls L  !"#$%&'()*+,-/01234578:;<=>?@ABCDEFGHIJKMNOQSTUVWXYZ[\]^_`abcdfgijklmnoqrstvwxyz{|}~@2iw_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-#,##0\ "DM";\-#,##0\ "DM"##,##0\ "DM";[Red]\-#,##0\ "DM"$#,##0.00\ "DM";\-#,##0.00\ "DM")$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->9_-* #,##0\ _D_M_-;\-* #,##0\ _D_M_-;_-* "-"\ _D_M_-;_-@_-FA_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-FA_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_-                + ) , *         `QSheet1Sheet2!Sheet3a* );; TI A   >/$"_"R.qˢ-@=_"R.qˢ- C MxڭVkSAݗ4jm4bJR(}R*&h/^J+J0C=4 xуڢ6GĢғ8oM4[~ovg70xz3 <3p@@7jjݧ-8w)4-\}ttKʆ#9D%=SAurVe5w&GcH)dӏQ2E*ȳ\.{°*O,Ԟ{Ұˠ ٚkjU{~ yn|y >Vp{H3!)&͎ t?V=Ew;2 Sc7ȵƧQ_ɮ܂}!"U8;#Cى0BM\gDUhD re=)ӁhQ'9_B0B9c{s]еJݮkU<s|Q[U{OZ-WZ,XWkM^Xv_@t Jkjk 쾅~*y xG|C wř!h6ޱAm /?TS0|b;w;$R)wWv1AbcxezbØoS@\N8wcIH(P̮(|]V'*FH(߹T" 'Ώ&9GGGlY}&C9܈ s8Nq],L@c4 \#`MОh^hyx 2_Wc?q_c_!r&u. 0e0e    2 A@@ A 8c8c     ?1 d0u0@Ty2 NP'p<'pA)BCD|E||s " 0e@        @ABC DEEFGHIJK5%LMNOPQRSTUWYZ[ \]^_ `abN E5%  N E5%  N F   5%    !"?N@ABC DEFFGHIJK5%LMNOPQRSTUWYZ[ \]^_ `ab@  cc   w  dMbP?_*+%MnMicrosoft Office Document Imag/ dhhLetterwidm" dhh??U  @      x  =(    TA ?@RunTestsButton]` T1 6$T3$Forms.CommandButton.1L>@  7 Sheet1    dMbP?_*+%"??1U> (    n2@?Sheet2Shape1"6@ NNN?NPK@]`L2  n2@?Sheet2Shape2"6@ NNN?NZ]`T  b2@?Sheet2Shape3"6@ NNN?N ]`t>@  7 Sheet2  _"  dMbP?_*+%"??U>@7 Sheet3 VBA `uC TC ThisWorkbookSheet1$__SRP_4.(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H0(p % %pxH@TT8%H$*\Rffff*0K48886a654xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD20 hSm4/cD jHIG6uWI F_y IJ7x,RunTestsButton, 1, 0, MSForms, CommandButton_y IJ7 jHIG6uWIMEPSLSSs6"<<<N0{00020820-0000-0000-C000-000000000046} ` Th@% %*4Hp@x%%@x@xHXH%H*\R8004*#5d$*\Rffff*084881dfe1x8<"  ( B@o`XAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ControlRunTestsButton, 1, 0, MSForms, CommalndP<@ Sub _Click() )Macros.in End rU   81aY`<Ey0   4 8ArU H$`T @H4__SRP_56Sheet29__SRP_8 L__SRP_9PBnDr4h#<TWHْz F&KFB0x&KFB0TWHْzME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H0h %  %8p@@HH8%H$*\Rffff*074888677d4xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU H!4`rU @nLz4R#<bG`M @W_ F FF{x FF{bG`M @W_MESheet3RTestMacros -\__SRP_7e__SRP_6h(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H0(p %" %pxH@HH8%H$*\Rffff*0L48886a654xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU~|   9eA@(Test run finished : Z  *A@(A@4o tests: Worksheet.Shapes Shapes.Item Shapes.AddShape Shapes.AddLine Shapes.Range Shapes.SelectAll Shape.Select ShapeRange.Select]Shapes_Select_Item'6 6A@8 @2dSheet1$:!<B@>Sheet1$:!<%BB@H F!H&Correctly selected shape through RangeA@DSheet1$:!<%JB@H F!H%Correctly selected shape through ItemA@Dd Sheet1$:!<B@L>Needs to be visually checked. Is there a line on the document?A@DSheet1$:!<B@N6Needs to be visually checked. Are All Shapes Selected?A@DSuccess. 6A@Potests: Shape.Fill FillFormat.Visible FillFormat.TwoColorGradient FillFormat.Transparency FillFormat.ForeColor FillFormat.BackColor ColorFormat.RGB ColorFormat.SchemeColor] Shapes_Fill'6 6A@8Sheet1$:!<%J!R(HSheet1$:!<%J!R!H&correctly set visibility of shape fillA@D?Sheet1$:!<%J!R(TSheet1$:!<%J!R!T?(correctly set transparency of shape lineA@D$@Sheet1$:!<%J!R!V(@Sheet1$:!<%J!R!V!@$@%correctly set forecolor of shape fillA@D2$@Sheet1$:!<%J!R!X(@Sheet1$:!<%J!R!X!@2$@%correctly set backcolor of shape fillA@D \Sheet1$:!<%J!RB@ZIthe success of the TwoColorGradient method needs to be verified visually!A@DSheet1$:!<%J!R!V(^Sheet1$:!<%J!R!V!^%correctly set forecolor of shape fillA@DSheet1$:!<%J!R!X(^Sheet1$:!<%J!R!X!^%correctly set forecolor of shape fillA@DSuccess. 6A@PoP0tests: Shape.Line LineFormat.Weight LineFormat.Visible LineFormat.Transparency LineFormat.Style LineFormat.DashStyle LineFormat.ForeColor LineFormat.BackColor]p Shapes_Line'6 6A@8 Sheet1$:!<%J!(`Sheet1$:!<%J!!` "correctly set weight of shape lineA@DSheet1$:!<%J!(HSheet1$:!<%J!!H&correctly set visibility of shape lineA@D?Sheet1$:!<%J!(TSheet1$:!<%J!!T?(correctly set transparency of shape lineA@D dSheet1$:!<%J!(bSheet1$:!<%J!!b d&correctly set dash style of shape lineA@D hSheet1$:!<%J!(fSheet1$:!<%J!!f h&correctly set dash style of shape lineA@D$@Sheet1$:!<%J!!V(@Sheet1$:!<%J!!V!@$@%correctly set forecolor of shape lineA@D$@Sheet1  xI4xME P "<<<6 <<<x0 $@` `|)) ,`!!!`6lA@ .0`##B`6 0`""e`6pes_ 2P``6 @@0 @%%%%% `|@`6 x`|EE`2H`4`6`8`:@D +<0`z I> I@ IB @F P`F `60`>`6 0`P ` `V`6P`` x0P@0`h`l P  x `|@ GGpx \ `|@ DD@`>"`~```P` (```F H` `8 @%H$*\Rffff*044889a251*\R1*#267" " ( 20 ,* "h     (H P &$  ( "%$ $ 2p "        8 P p     . $:8 $x: *L `D  "     $8 `        ((\P0f<Hp<p80`.8 bh . b h  "     8 X x    * Z (X \ 0 f *x ^ *^8<p<Hp  "   0 H h    6(` x "  $    &  f rH "(   0 P h   $   0 Hhpx   pF   D   (Dx   @B  40  XH  P  L8   L h B pxX88     RP(08@ `H "   "0  X (x (@ &h   8 X  N`  `b Xx   T bx!X!       x!@! `"p""p# ,## ## # $$ "$ $ 0% $ X%`%  h%(p& *% & & $% ' %%% P&X&`&%0' &8' '&  p' ' % & '\( X'\'  h( ( & & *ZH) )Z(  $* ) * % *d8* 0)d)   (%*xA@o`@A@&Test run started : Z  *A@(BEGIN Shapes_Select_ItemA@(A@,BEGIN Shapes_FillA@(A@.END Shapes_FillA@(BEGIN Shapes_LineA@(A@0END Shapes_LineA@(BEGIN Shapes_TextFrameA@(A@2END Shapes_TextFram$:!<%J!!X(@Sheet1$:!<%J!!X!@$@%correctly set backcolor of shape lineA@DSuccess. 6A@Potests: Shape.TextFrame TextFrame.Autosize TextFrame.Characters]Shapes_TextFrame'6 6A@8abcdefgSheet1$:!<%J!j!l(dSheet1$:!<%J!j(nSheet1$:!<%J!j!n)correctly set Autosize of Shape TextFrameA@DSuccess. 6A@Po@8A@Po test default Item method a) with a simple numeric index b) with a string indexShapes_Collection_Behaviour'6ll s Sheet2Shape1$%<! Sheet2Shape1/Name of indexed shape should be 'Sheet2Shape2' A@Df stri b)eric i a)Success. 6A@P(] 6A@8$%<! Sheet2Shape1/Name of indexed shape should be 'Sheet2Shape1' A@D"ShXxEND Shapes_Collection_BehaviourA@(END Shapes_Select_ItemA@(!BEGIN Shapes_Collection_BehaviourA@(h tests Shape.Height.Heigh Shape.Width Shape.Left Shape.Topha Shape.Rotationotat Shape.IncrementRotationLeft Shape.IncrementLeft Shape.IncrementTop]  read tests);$%<. ]'0]]]]0]H !'4 !'6 !('8 !.': !&'2 2 0 (& 4 0 ( 6 0 ( 8 0 (( : (.]0shape left should be 6 0  ! 6 0 $<'F8 P'<]'P P VA@Dshape top should be 8 0  !( 8 0 $<'F $<shape rotation should be 0 !. :$<'Fox]`333333?'D] @ B 'F F  F'Fmsgbox "neg delta"k0 F D ]Success. 6A@PBe 6A@8 is 'Pd'PkiKMsgBox msg & " vala = " & vala & " valb = " & valb & " tolerance is " & resShapes_SimpleGeometery'6shape height should be 2 0  !& 2 0 $<'Fftshape width should be 4 0  ! 4 0 $<'F+ ge] > and got  @'V BEGIN Shapes_SimpleGeometryA@(A@END Shapes_SimpleGeometryA@(shape rotation should be :  !. : $<'F( V > , expected  B +/-  D'VX !.': B@X !'6 0 B@ !('8 0 B@"shape incrementrotation should be :  !. : $<'Fshape incrementleft should be 6 0  ! 6 0 $<'Fshape incrementtop should be 8 0  !( 8 0 $<'Fo](0]H by numberic index 6A@8 tests getting a shapeRange  by string indexices" by array of numeric indicesSuccess. 6A@P access via string index]`] Sheet2Shape1'h ] h l >A@DBEGIN Shapes_RangeA@(! by array of string indices by array of mixed indicess$`!'lected $`!'lg(1).Narray of numeric indices `! >A@D got "HEND Shapes_RangeA@(eA@(A@x $!<%B.` Sheet2Shape3'h$ h l >A@D access via numeric index h$!<%B.` Shapes_Range'6in 1 `! >A@D expected Sheets(2).Shapes.Range( h ) to return  h got  l'>-expected Sheets(2).Shapes.Range(1) to return h got  l'> expected Sheets(2).Shapes.Range( h$) to contain 1 element, it contains  `!'>apes.REexpected Sheets(2).Shapes.Range(1) to contain 1 element, it contains `!'>` Sheet2Shape3Sheet2Shape1'h]  `3 'l D l ! 'l.`D$!<%B.`5% use a reversed list to test ordering h l >A@D.S `! >A@DOexpected Sheets(2).Shapes.Range(Array(3, 1) to contain 2 elements, it contains `!'>Sexpected Sheets(2).Shapes.Range(Array(3, 1) to return concated element/shape names h and got  l'>array of mixed indicesZ' Sheet2Shape3 Sheet2Shape2D$!<%B.`R% use a reversed list to test orderingmexpected Sheets(2).Shapes.Range(Array('Sheet2Shape3', 1, 'Sheet2Shape2')) to contain 3 elements, it contains `!'> `! >A@D$Sheet2Shape3Sheet2Shape1Sheet2Shape2'h'l  ` l ! 'l qexpected Sheets(2).Shapes.Range(Array('Sheet2Shape3', 1, 'Sheet2Shape2')) to return concated element/shape names h and got  l'> h l >A@D END Shapes_ShapeRangeA@(A@\] 6A@8 BEGIN Shapes_ShapeRangeA@( t o($Shapes_ShapeRange'6$]] access via numeric index]]0] !.'op = !'~%]# ShapeRange.IncrementRotationape.In ShapeRange.IncrementTopncre ShapeRange.IncrementLeft X$]]]P8&D$!<%B.`$%<.~(& !(' !(' !'shp 'h&  `B@] check shape 1]h$%<.D check shape 2 be ShapeRange.IncremementLeft&]'-ShapeRange.IncrementLeft shp2.left should be    !   $<'F'-ShapeRange.IncrementLeft shp1.left should be ~   ! ~  $<'FShapeRange.IncremementTop check shape 1+ShapeRange.IncrementTop shp2.Top should be    !(   $<'FF check shape 2 check shape 1  check shape 2 +ShapeRange.IncrementTop shp1.Top should be    !(   $<'F5ShapeRange.IncrementRotation shp2.Rotation should be    !.   $<'FXShapeRange.IncremementRotation5ShapeRange.IncrementRotation shp1.Rotation should be    !.   $<'F$ !.'  `B@  `B@X*Attribute VB_Name = "TestMacros" Option Explicit Sub Main() Zin En&ch@t/ibility of @frT 0.5S e2be(M= a; tI ; v&.@# P(1280ZA255(1v_JMB  foZolorYzV23 R30 P (  b`;c ?u*FavFHorizontal (RT (1`1 ]sSethod nYcerifi@tc!  &.7!IQ 3/&.O& ?etO&O&"V,8%%% 8 3END "Success.", thisTest End Su b  Shapes_Line() 'ts: F.D&Format.Weigh3R '4Vi sible6TransparenDcy Sty:DasheColor*Back#Dim As Stringg  ="Log_BEGINWorksheets("S1")..Item(3)'110+AS@SERT ($), "correctly set wl of sA2 l2&Dv*TruxEAn+ ,vility;-㉜@.0.5Y/tȹ/-mso}Sȶ^r d n sr_9\&wADot@1gz ?_?a"vƍ.R GB(0, @128D34 fo|a44h`. zbc GkTextFram AF.Aut0osizHgCharacters#pΆ a1G_]&2). rsB -"abcdefgObllSpbb/r"r/'"Q0v _u9/#ltion_Behaviourˑc_ur/' q pault Q method ' a) with a simple numeric indexbҎeWs(s (1).N3 2r@@edĆshould be '' ' bSO'_pe_x_Z2Rq3!s_SGeory/!st>ery tyj.H$1JR.`Width! a.LefTopmRotat.}IncremxentCe.readb-R4shp2 S)S0Q= R(#geoDelt.a*27shDouʃm,  _V=p= % + #  resBo`olean1= checkT`Ace(("hr"@59" &4/'V ,tat;3SshC p( C o h w,P[ D b1 Yshr  s _A+ l 6 l Q I 5 & Ep.b shTop + geoDelta res = checkTolerance(("shape tshould be " &),$p. ) shRotationnshp.r80"wD  v|o?25@A $ J4LG=p.Increment(25{miY&Lxeftp+B(j,l͛GXAWM$IYFXA3,VC$TestLog_END "Suc cess.@this End@ Sub AFuncLmsg@, valaBb) As BoDan Dimzltol90.3cg`Kult=@ Falsen ewMsgSt0ring#= expectedb +/-!N?  - aIf (A< 0) ThedA#-#' box "neg4 d"*Ifc >!$ '~Bb,@&{bg#  |isB&-*E,*Tru.), a`EgotkE `PASSERT C>,$8ONA4 Q Ss_Range($}KdVB %Z!%)1BEGIN" _' t@ds gettM ac`Ԃ 'a%`by numberic index JsbTarray ofei@pwmix\@CC#shtRn"fObj@a'AKGu i' a 8via)Set! =2eets(2).+.313= "8LShO01)0 contain 1 el"i, itUC-C .Coulnt$(1p\@S |v@ 2 14#s Nama`q(1).return5V ?6 :{+!X"3!!%!OO@Op"A"""3$"AϏo-0? toO%R(F1&('Fnd3B! A!K(3, 1)) ' use QreversaGlist;1S ord@MyI@2E@s???:2h-_? "@@cVFor 0Each!eIn%mCC+#CNexh3D@Vcaq4V/ nM +}gc=)0R')LkoA((""zHp),'qeZ2"*d _*F''s)2'@>l3_,ainl>y.]H3_,_,j3X 12+`-3+S++u.Name Next thingx(msg = "expected Sheets(2).Shapes.Range(Arra(y(':223' , 1, $2')) to return concaSelement/sQ n@s " & t&and got(sTestLog_ASS ERT (8= 1*), 0END "Success.",s&D  E;Spub ~y_o{)Dim As Str- s$"KBEGINFσ3shtRng2D@' at via numeric indexSetKM=yu2)>'%D.IncrBsRotation Y Leftq[Top'C?res?BooleaGsh1AA`DoublM1_T+I2W2V2U$p1AOp2h g(1cAc2@CA iEk V%&= 20z?`bN=w#'checko 1c#2qp1.sh*2QJ (dA= T@Brance(L("Rsh`l Oould beĊG+bX,2ce2.c$%'B6V?g6ZD6F 62.#5!55/5p5B5P?5e*]nt "G44#!kkϤ5@6 2. _6X7"7n~tFb1g Rntt@O8 sPAs* '] w&UrU $`$`$`$`$!`$I`$q`$`0` 1///$ `$ `nTestLogMacros^.__SRP_3p__SRP_2 u_VBA_PROJECTx ((B08@HPp x " "    " (0,@px P  $ $8 X `px " , "   8@X` " h p "       " (08P " X`p " x B "     0 H $P x      "  \ f8             ( 8 @ H "P  X h p x 0  / { Declarations shared with MS Office API testsd]odt ]ods ]odp]odg8 ]@( Global vbExternalCall As Long]P]\` / } Declarations shared with MS Office API tests. BEGIN: *** { TEST API (PortableHelperAPITest)]@x]@ ]@]@]@  ]` com.sun.star.beans.PropertyValue$''zPH'i8x  'd'ki  'd'kix] ' ' (Closing log, future log output going to  A@(A@4+Reopening log, previous log output went to  A@(ko  '" Establish free file handle  'k  kx  o`P]](com.sun.star.comp.framework.PathSettings$' !' / HelperAPI-test.log 'i  'dc:\HelperApi-vba.log'ki    NOT COMPLETE k8 '']`  TEST START :  '\c A@(\hokox TEST ERROR - no test begun:  A@(d  TEST ERROR - found test end:   , expecting test end  A@(d ] TEST   :  '  $   (  ). 'k A@(kk'op0 TEST ERROR - no test begun:  A@(d  ITEM  A@(ko $ilFAIL A@PsdFAIL   :$4qxME(6 << < ʐv8 HP @z` @  @  @   @odtodsodpodg\%+x` ` +` i i @+x`8 i Xi  ` i` (P`0 i+`` `+`  8x`@i` P0`iii`  `p i  ` ii  `P ipi  ` ii p `P i `i &0`i +p`  D( `i ii`  `h i i 4` ʐr HʐtHʐx(H~xH  @  @xp 0 0(  xx ( 8 ` pPxP p0  1 %H$*\Rffff*0;4881e00a 6 8HXh x $  6 4 0 8@H P BX`h.pB   B  (08@ " HPX`h8x< " * P `hpB  6A@Pako $OK A@PdhOK  A@PkHo@ $ 'd  (  ) 'k A@o'FAIL A@opOK A@o 'op0 'iXp] Assertion '  OK 'd' FAIL 'k $  :  'k  $   (  ) 'k`   A@k8o0( U SBA does not preserve "optional" status of a parameter; it is evaluated then passed,` even if the called routine (e.g. TestLog_OK) *also* has considers the parameter to be optional. $   A@d  A@kd   A@d  A@kko V'o END *** } Test API, ***** MSO MACRO RUNTIME MODULE END *****0Attribute VB_Name = "TestLogMacros" ' { Declarations shared with MS Office API tts Global C\t FILE_E@XT_DOCodtDXLS"y"PPT"pEVIEg" PrivatheCalcApplic As O`bjects7vbExterna llLongkPARAGRA@PH_ENDS XDIR_SbETOR]\K' }.' BEGIN: **B*TEST(PortableHelper)Z~HELPER__LOG[H_FileNoIntegerLast ResultA Boolean &A$$_VERBOSEL Func isOpe$noB()J On Error GoTo notoF Dim a Varian@zba`Cre~("com.sun.star.b's.PrrtyValue"@RTrue ELxi( : Fals nd 5 8MAreEqual(x1,, x2 ? If = The@W-EB"!a!E`IfjqNot  aA) o% | Sub !0_Setb](f^nA-Cz> AHtmp A= jCm= g6` (m= 0 Comment "Closing log, futurea output goto " +a@QA3 Reah pr@evious) w @!E,|-(nS$-"" &FreBe ' E`xblish f" handl 9/4""m/!#Defa2CaaA-C F O4#k?'a=, D'Cr`+hqc+ aYPath_t;sA-%pQC2AWorkDirqory/= cBUUnopServ@U p.fr6w.OV@= . :`B+ "/0"q-q.3`xE?Yy$]K! FWZ"c:\ pi-xvba E% L(! 5 Ff{//'eNo,60 NOT COMPLETE A-5  4= u1(b*/,}cs" 1 START :Q; Va qSubL2 ,B, Op!`XoI "RERROR -" begunO !poQ &!?11fou e ndK`i" , exppEF `]!# 31!p?+% A QIsMiswY'eT s(  ).I(bM d+" E._ITEM **_ *&*/ߪn_%" ~ =__FAILR/;/;'p?/!`3PC "=!"wB5me?D?_OKOp|tional testComment As String) If IsMissH() TXhenFNTLog_END "OK",NameFElsZ7:nd If  ESub  rPar(status, Op /#sl= 7S q + " ("y )""vpI8TEM'FAIL({PLastResult = Fal Z< "DyGkY%OK$ASSERTSetVerbose(vBooleanĶTESTLOG_VERBOSE@= ʚFuncFcG)qEL  2(asser 0iLId!S$DimJMsggáS= "AfDT = Truel% \8c 3P?ar bP f No2t zIdMR :e t+"IdR FA  T@C@""&ma2w Or >(z SSUMMxARYO' SBA does not pre@\ve "o" of a par@ter; it is evaluated tTd,c'en ifa callroutine (e.g.fyOK) *@o* has conside rs" to be E. @.T.Kd@=Ld`e._0jBSa? @e d`RG t&a  me|1 qO stQ  )tClA_$^ #ileNo;@0j_ ' *** }r API Rem @` MSO MACRO RUNTIME MODULEC] rU~|       rU $`,`//,`//(` 0(!`)0$I`$q`(`A00` aA00( `0, `A0,9 `A0,a `0( `(`(`#$`0)` #,Q`A0$y` nx0* pHd VBAProject4@j = r %H J< rstdole>stdole h%^*\GDashStyle msoLineDashDotDot TextFrame CharactersrgAutoSize! TestLogMacros (FILE_EXT_DOC>K (FILE_EXT_XLSӵ (FILE_EXT_PPT (FILE_EXT_VIS (PARAGRAPH_END*vbCr$ (DIR_SEPARATORHELPER_TEST_LOG_DEFAULT HELPER_TEST_LOGTestLog_FileNo\TestLog_LastTestTestLog_LastTestResultTESTLOG_VERBOSE_EqualUnoObjects.o1q^o2r^EqualRangePosition'MsgBoxR (TestAreEqualɹx1_x2_ (TestNotEqual @(TestLog_SetFileNamefilenamejtmpcommentHstestNamesj testResult testComment2 IsMissing (TestLog_ITEMh (TestLog_FAILG (TestLog_OK(TestLog_PartCommentTZstatus+(TestLog_PartFAIL(TestLog_PartOKWLverbose assertionStestId testMsg(TestLog_SUMMARY]RunTestsButtonWorkbook WorksheetClickModule1btheCalcApplication (isOpenoffice} notopenofficeWaX CreateObject (DefaultLogϝ (OpenofficeLogf# PathSettingsbWorkingDirectoryUcreateUnoServiceWorkZ1(TestLog_ASSERTGetVerboseN(Shapes_Collection_BehaviourSheets _DefaultjindicesE thesheetsvA_B_var_theSheets:;Count0vmsgbo _B_var_msgbo|foreachednames _B_var_ForjLthing~ _B_var_thingB foreachedn_B_var_foreached2sgBoxDimed _B_var_Dime;_B_var_indicesHestLog_ASSERTSheets Sheet2Shape1Sun _B_var_Sunɒ(Shapes_SimpleGeometryvoidhj IncrementLeft IncrementTopshpShape _B_var_SetHeight|Top5Msbox _B_var_MsboxRotationegeoDeltashHeight]shWidthXshLeftՀshTop' shRotationܶ(checkTolerancemsgQvalavalbtol1res _B_var_Call _B_var_res%hWidthneresultur _B_var_IfPbutznewMsgIncrementRotationwCheck_ShapeRangeI(Shapes_ShapeRangeejby\shtRng SheetRangem _B_var_shtRngMo expectedNameexpectedgot shapeNamesM shapeNameJ_B_var_shapeNameD shapesName#Testlog_commen_B_var_Testlog_commen (Shapes_Rangernex _B_var_nexush1Leftsh1Top1 sh1RotationXsh2Leftsh2TopϾ sh2Rotation incrementIshp1shp2sh12eftPsh2eftOm ShapeRangeq !# l"@$@!@ҘA@ay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{7085D45A-B16B-439B-BB0D-0C0353B6D406}#2.0#0#C:\DOCUME~1\VITUOS~1\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   %H4ThisWorkbook0K48886a65ThisWorkbook Sheet1084881dfe1 Sheet1/  Sheet2074888677d! Sheet2h0 Sheet30L48886a65# Sheet3RHTestMacros044889a251TestMacros`~ITestLogMacros0;4881e00apTestLogMacrosqx$0`xHDaG;GpP/=qFW9 ?DGQI W9VH Ҥ}/QG֚k$wp GG(hC AsBooleancall=DimBDoubleCEachDElseRFalseTFor_IfbInReturnSetSubThentoTrue Excel+ VBAWin16Win32MacVBA6# VBAProjectstdole`OfficeuMSFormsC ThisWorkbook$ _Evaluate Sheet1RunTestsButton_Click TestMacros(TestMain Sheet2 Sheet3(Main,(TestLog_ASSERTSetVerboseL(TestLog_Comment% Time(Shapes_Select_Item (Shapes_Fillsz (Shapes_Line(Shapes_TextFrame (TestLog_ClosewthisTest (TestLog_BEGINw WorksheetsShapes<AddShape,msoShapeRectangleRange (TestLog_ASSERT~ SelectionZVisibleItemzAddLine8 SelectAll! (TestLog_END`Fill, Transparency ForeColor BackColorރTwoColorGradientmsoGradientHorizontalG SchemeColorxWeightStyle) msoLineSingle dir|__SRP_0 1 __SRP_1PROJECTwm{00020430-C 0046}#2.0#0#C:\WINDOWS\Syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\Microsoft 6\MSO9.DLL#  9.0 Ob LibraryCMSForms>SFrms3D452EE1-E08FXA-8-02608C4D0BB 4POsEOFM20 'B \&/;"1fmAm00}#0m# 50 !A7085@7A-B16B-439cB0D-0C0353B6D40 DOCUME~1\VITUOSALOCALTemp\Exce l8.0\U.e Gn]MkMzb   a Q  a I) A  1QqY)Y  1 Y  ) I q 9 i  9 a yAQiqQ VBAProject ThisWorkbookSheet1Sheet2Sheet3 TestMacros TestLogMacrosF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  10F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 9@0F FC:\WINDOWS\System32\stdole2.tlbstdole  QPL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice Y`.E .`M C:\WINDOWS\system32\FM20.DLLMSForms 9pZԅpkC S7C:\DOCUME~1\VITUOS~1\LOCALS~1\Temp\Excel8.0\MSForms.exd 9F jHIG6uWI_y IJ7{lFWJORunTestsButton@2iw