show treenodes of not run tests and clean up from Dean

git-svn-id: trunk@6778 -
This commit is contained in:
vincents 2005-02-11 07:50:27 +00:00
parent 7fc273c941
commit c51d77ed1f
3 changed files with 1331 additions and 1512 deletions

View File

@ -1,5 +1,6 @@
object GUITestRunner: TGUITestRunner
Caption = 'fpcUnit - run unit tests'
ActiveControl = tsTestTree
Caption = 'FPCUnit - run unit tests'
ClientHeight = 712
ClientWidth = 646
Icon.Data = {
@ -21,12 +22,12 @@ object GUITestRunner: TGUITestRunner
}
OnCreate = GUITestRunnerCreate
OnShow = GUITestRunnerShow
PixelsPerInch = 95
PixelsPerInch = 96
HorzScrollBar.Page = 645
VertScrollBar.Page = 711
Left = 372
Left = 338
Height = 712
Top = 142
Top = 282
Width = 646
object Panel1: TPanel
Align = alTop
@ -294,308 +295,117 @@ object GUITestRunner: TGUITestRunner
object btnClose: TBitBtn
Caption = '&Exit'
Glyph.Data = {
B42500002F2A2058504D202A2F0A7374617469632063686172202A2065786974
5F78706D5B5D203D207B0A223332203332203436342032222C0A222020096320
4E6F6E65222C0A222E2009632023394530303030222C0A222B20096320233943
30303030222C0A22402009632023394230303030222C0A222320096320233939
30303030222C0A22242009632023393630303030222C0A222520096320233934
30303030222C0A22262009632023413430303030222C0A222A20096320234133
30303030222C0A223D2009632023423331393135222C0A222D20096320234339
34443437222C0A223B2009632023443636463639222C0A223E20096320234444
37433736222C0A222C2009632023444237383733222C0A222720096320234434
36363630222C0A22292009632023433334363431222C0A222120096320234139
31433139222C0A227E2009632023393130303030222C0A227B20096320233843
30303030222C0A225D2009632023413530303030222C0A225E20096320234331
33373331222C0A222F2009632023453539413934222C0A222820096320234643
44464441222C0A225F2009632023464646344632222C0A223A20096320234646
46434642222C0A223C2009632023464646414641222C0A225B20096320234646
45454546222C0A227D2009632023464644444444222C0A227C20096320234646
43334332222C0A22312009632023464341394135222C0A223220096320234532
37353730222C0A22332009632023423433313243222C0A223420096320233841
30313030222C0A22352009632023414530423038222C0A223620096320234446
38333742222C0A22372009632023464645454541222C0A223820096320234646
46464646222C0A22392009632023464646384638222C0A223020096320234533
43334334222C0A22612009632023423037333733222C0A226220096320234144
36433643222C0A22632009632023443939453945222C0A226420096320234643
43324332222C0A22652009632023463842324232222C0A226620096320234644
41424143222C0A22672009632023464639393935222C0A226820096320234439
35433535222C0A22692009632023393431303044222C0A226A20096320233831
30303030222C0A226B2009632023413630303030222C0A226C20096320234232
30463044222C0A226D2009632023454341424135222C0A226E20096320234646
46434643222C0A226F2009632023464546324632222C0A227020096320234642
45384538222C0A22712009632023414136423642222C0A227220096320234330
39443944222C0A22732009632023433941444144222C0A227420096320234131
35383538222C0A22752009632023454641374137222C0A227620096320234634
41394138222C0A22772009632023463239433943222C0A227820096320234635
39323932222C0A22792009632023464638433842222C0A227A20096320234539
36343630222C0A22412009632023393631353132222C0A224220096320233743
30303030222C0A22432009632023414430443041222C0A224420096320234544
41444136222C0A22452009632023464646354635222C0A224620096320234644
45384538222C0A22472009632023463644354435222C0A224820096320234234
37343734222C0A22492009632023463946354635222C0A224A20096320234146
36433643222C0A224B2009632023453539303930222C0A224C20096320234635
39463946222C0A224D2009632023463339333933222C0A224E20096320234545
38373837222C0A224F2009632023454637423743222C0A225020096320234645
37343734222C0A22512009632023454135383533222C0A225220096320233844
30453043222C0A22532009632023374230303030222C0A225420096320234446
38323742222C0A22552009632023464646444644222C0A225620096320234634
44454445222C0A22572009632023464345304530222C0A225820096320234637
43434343222C0A22592009632023423737303730222C0A225A20096320234635
45454545222C0A22602009632023423336383638222C0A22202E096320234536
38383838222C0A222E2E09632023463539373937222C0A222B2E096320234541
37423742222C0A22402E09632023463237453745222C0A22232E096320234543
37333733222C0A22242E09632023454336353635222C0A22252E096320234646
36303546222C0A22262E09632023443633453342222C0A222A2E096320233741
30333032222C0A223D2E09632023433233373331222C0A222D2E096320234645
46304545222C0A223B2E09632023434439323932222C0A223E2E096320234144
35433543222C0A222C2E09632023433737443744222C0A22272E096320234638
43364336222C0A22292E09632023424336453645222C0A22212E096320234636
45464546222C0A227E2E09632023423736373637222C0A227B2E096320234541
38333833222C0A225D2E09632023433935413541222C0A225E2E096320234141
34453445222C0A222F2E09632023424434303430222C0A22282E096320234545
36363636222C0A225F2E09632023454135443544222C0A223A2E096320234545
35303530222C0A223C2E09632023464634423439222C0A225B2E096320234139
31463143222C0A227D2E09632023373230303030222C0A227C2E096320234536
39373930222C0A22312E09632023464646424642222C0A22322E096320234344
38443844222C0A22332E09632023424237313731222C0A22342E096320234630
45334533222C0A22352E09632023424637413741222C0A22362E096320234436
38323832222C0A22372E09632023433337323732222C0A22382E096320234635
46304630222C0A22392E09632023464446464646222C0A22302E096320234245
36393639222C0A22612E09632023443335363536222C0A22622E096320234241
36373637222C0A22632E09632023463245434543222C0A22642E096320234334
38453845222C0A22652E09632023424132413241222C0A22662E096320234544
35343534222C0A22672E09632023453534363436222C0A22682E096320234639
33423343222C0A22692E09632023444433323246222C0A226A2E096320233735
30323032222C0A226B2E09632023423331413136222C0A226C2E096320234643
41393938222C0A226D2E09632023464545464544222C0A226E2E096320234536
42384238222C0A226F2E09632023423835463546222C0A22702E096320234641
46374637222C0A22712E09632023443541364136222C0A22722E096320234245
34443444222C0A22732E09632023433837313731222C0A22742E096320234634
45464546222C0A22752E09632023464346464646222C0A22762E096320234334
36393639222C0A22772E09632023424233303330222C0A22782E096320234343
39373937222C0A22792E09632023464546464646222C0A227A2E096320234245
37313731222C0A22412E09632023434332343234222C0A22422E096320234541
34303430222C0A22432E09632023453933313331222C0A22442E096320234537
34303339222C0A22452E09632023393031343132222C0A22462E096320233946
30303030222C0A22472E09632023433934413432222C0A22482E096320234646
39363745222C0A22492E09632023463637373544222C0A224A2E096320234644
45424541222C0A224B2E09632023433336383639222C0A224C2E096320234535
43364336222C0A224D2E09632023453943464346222C0A224E2E096320234241
34433443222C0A224F2E09632023453638413841222C0A22502E096320234339
36413641222C0A22512E09632023463346314631222C0A22522E096320234642
46464646222C0A22532E09632023433536353635222C0A22542E096320234446
35353535222C0A22552E09632023424133363336222C0A22562E096320234532
43314331222C0A22572E09632023454645374537222C0A22582E096320234242
33313332222C0A22592E09632023453532393239222C0A225A2E096320234342
31433134222C0A22602E09632023443733383245222C0A22202B096320234141
32313145222C0A222E2B09632023364130303030222C0A222B2B096320233944
30303030222C0A22402B09632023443736313537222C0A22232B096320234645
38383644222C0A22242B09632023454531453030222C0A22252B096320234533
35333432222C0A22262B09632023434237423744222C0A222A2B096320234639
46424642222C0A223D2B09632023463846384638222C0A222D2B096320234334
35463546222C0A223B2B09632023453338323832222C0A223E2B096320234636
39453945222C0A222C2B09632023433936313631222C0A22272B096320234641
46464646222C0A22292B09632023433736313631222C0A22212B096320234536
35383538222C0A227E2B09632023453334413441222C0A227B2B096320234245
34303430222C0A225D2B09632023463446304630222C0A225E2B096320234346
38303831222C0A222F2B09632023424430363032222C0A22282B096320234233
30423030222C0A225F2B09632023443032413230222C0A223A2B096320234238
32373233222C0A223C2B09632023363930303030222C0A225B2B096320234443
36413545222C0A227D2B09632023464237413545222C0A227C2B096320234542
32333030222C0A22312B09632023434630373030222C0A22322B096320234437
39363938222C0A22332B09632023453342434243222C0A22342B096320234343
35323532222C0A22352B09632023463841364136222C0A22362B096320234545
38363836222C0A22372B09632023434435463546222C0A22382B096320234638
46464646222C0A22392B09632023434236303630222C0A22302B096320234531
34383438222C0A22612B09632023454435353535222C0A22622B096320234341
32313231222C0A22632B09632023444341384138222C0A22642B096320234530
42324232222C0A22652B09632023414230343033222C0A22662B096320234230
30383030222C0A22672B09632023434232333141222C0A22682B096320234244
32373232222C0A22692B09632023394130303030222C0A226A2B096320234442
36363543222C0A226B2B09632023463837363542222C0A226C2B096320234539
32303030222C0A226D2B09632023434431303033222C0A226E2B096320234530
42314233222C0A226F2B09632023443939343934222C0A22702B096320234442
36323632222C0A22712B09632023463639464131222C0A22722B096320234546
38313832222C0A22732B09632023443136303631222C0A22742B096320234637
46464646222C0A22752B09632023443036333633222C0A22762B096320234533
34303431222C0A22772B09632023454434433444222C0A22782B096320234436
32303146222C0A22792B09632023443438313831222C0A227A2B096320234541
43394339222C0A22412B09632023423030453044222C0A22422B096320234143
30353030222C0A22432B09632023433832303138222C0A22442B096320234243
32333146222C0A22452B09632023363830303030222C0A22462B096320233937
30303030222C0A22472B09632023443335413531222C0A22482B096320234637
37393631222C0A22492B09632023453632303030222C0A224A2B096320234346
31303033222C0A224B2B09632023453342334235222C0A224C2B096320234444
39353935222C0A224D2B09632023434432313138222C0A224E2B096320234533
35353437222C0A224F2B09632023453736333544222C0A22502B096320234430
34333431222C0A22512B09632023444338433845222C0A22522B096320234530
39373939222C0A22532B09632023434333423341222C0A22542B096320234444
33353330222C0A22552B09632023443432423232222C0A22562B096320234246
30373036222C0A22572B09632023443837463745222C0A22582B096320234639
46464646222C0A22592B09632023454343414342222C0A225A2B096320234233
30463045222C0A22602B09632023413830343030222C0A222040096320234341
31463138222C0A222E4009632023423431443142222C0A222B40096320233634
30303030222C0A22404009632023433334333343222C0A222340096320234638
38373732222C0A22244009632023453332413039222C0A222540096320234430
30393030222C0A22264009632023453139443945222C0A222A40096320234635
46464646222C0A223D4009632023453842424242222C0A222D40096320234336
30363030222C0A223B4009632023434531323030222C0A223E40096320234343
31393032222C0A222C4009632023433931373033222C0A222740096320234246
30333030222C0A22294009632023424430323030222C0A222140096320234331
30463030222C0A227E4009632023433031333031222C0A227B40096320234238
30443030222C0A225D4009632023423530303030222C0A225E40096320234534
41304131222C0A222F4009632023453942364237222C0A222840096320234232
30363036222C0A225F4009632023413730353030222C0A223A40096320234430
32313143222C0A223C4009632023413431353133222C0A225B40096320233546
30303030222C0A227D4009632023413931453141222C0A227C40096320234635
38383738222C0A22314009632023453433453231222C0A223240096320234434
30363030222C0A22334009632023444637303646222C0A223440096320234632
46464646222C0A22354009632023463446344635222C0A223640096320234435
33463345222C0A22374009632023433830373030222C0A223840096320234341
31423030222C0A22394009632023433731373030222C0A223040096320234335
31363030222C0A22614009632023433331353030222C0A226240096320234330
31333030222C0A22634009632023424231323030222C0A226440096320234234
30333030222C0A22654009632023434132383236222C0A226640096320234633
45374537222C0A22674009632023463346464646222C0A226840096320234533
38393838222C0A22694009632023414130303030222C0A226A40096320234144
30423035222C0A226B4009632023443632343146222C0A226C40096320233838
30423041222C0A226D4009632023354530303030222C0A226E40096320234444
36393545222C0A226F4009632023454436313441222C0A227040096320234435
31323030222C0A22714009632023443632333230222C0A227240096320234632
45324533222C0A22734009632023454546454644222C0A227440096320234630
43324333222C0A22754009632023434531313130222C0A227640096320234334
30383030222C0A22774009632023433231363030222C0A227840096320234246
31363030222C0A22794009632023424431343030222C0A227A40096320234241
31323030222C0A22414009632023423430353030222C0A224240096320234333
30353036222C0A22434009632023454441434143222C0A224440096320234546
46464645222C0A22454009632023463546314631222C0A224640096320234346
33363336222C0A22474009632023413030303030222C0A224840096320234245
31353130222C0A22494009632023433531433139222C0A224A40096320233636
30313030222C0A224B4009632023423332453238222C0A224C40096320234635
37463730222C0A224D4009632023444333353141222C0A224E40096320234345
30303030222C0A224F4009632023453737303731222C0A225040096320234631
46464646222C0A22514009632023454446414641222C0A225240096320234631
42464330222C0A22534009632023444133373338222C0A225440096320234337
30303030222C0A22554009632023433030313030222C0A225640096320234245
30303030222C0A22574009632023433030303030222C0A225840096320234433
32413242222C0A22594009632023454641444145222C0A225A40096320234545
46394639222C0A22604009632023463046464646222C0A222023096320234545
38443845222C0A222E2309632023423030303030222C0A222B23096320234138
30393034222C0A22402309632023443531453141222C0A222323096320233937
30453043222C0A22242309632023354130303030222C0A222523096320233842
30313031222C0A22262309632023443335363444222C0A222A23096320234546
36413539222C0A223D2309632023434631443036222C0A222D23096320234431
30343031222C0A223B2309632023463239383941222C0A223E23096320234541
46444644222C0A222C2309632023463145394539222C0A222723096320234546
41364138222C0A22292309632023454137463831222C0A222123096320234541
37443746222C0A227E2309632023454641304132222C0A227B23096320234633
45324532222C0A225D2309632023454246444644222C0A225E23096320234545
46464646222C0A222F2309632023463842314231222C0A222823096320234334
30413041222C0A225F2309632023413030333031222C0A223A23096320234341
31393135222C0A223C2309632023424531373134222C0A225B23096320233634
30313031222C0A227D2309632023393531303045222C0A227C23096320234530
36323538222C0A22312309632023453735383437222C0A223223096320234339
31363035222C0A22332309632023443130343034222C0A223423096320234633
37383741222C0A22352309632023463545384538222C0A223623096320234542
46454645222C0A22372309632023453846464646222C0A223823096320234543
46464646222C0A22392309632023453946464646222C0A223023096320234541
46464646222C0A22612309632023463638443845222C0A226223096320234337
30453045222C0A22632309632023413030313030222C0A226423096320234333
31363132222C0A22652309632023434331413137222C0A226623096320233737
30343034222C0A22672309632023393731333132222C0A226823096320234446
35413531222C0A22692309632023453735363437222C0A226A23096320234338
31463046222C0A226B2309632023433630303030222C0A226C23096320234531
32383237222C0A226D2309632023463538303831222C0A226E23096320234637
42354235222C0A226F2309632023463543434344222C0A227023096320234636
43454345222C0A22712309632023463742384239222C0A227223096320234636
38413841222C0A22732309632023453033343333222C0A227423096320234237
30303030222C0A22752309632023413630363031222C0A227623096320234344
31413137222C0A22772309632023374430363035222C0A227823096320233539
30303030222C0A22792309632023374430303030222C0A227A23096320233845
30453044222C0A22412309632023434434353345222C0A224223096320234538
35363442222C0A22432309632023443333363238222C0A224423096320234330
31343038222C0A22452309632023433330303030222C0A224623096320234346
30303030222C0A22472309632023443430353032222C0A224823096320234433
30363033222C0A22492309632023434230303030222C0A224A23096320234241
30303030222C0A224B2309632023414430333030222C0A224C23096320234241
31343045222C0A224D2309632023373630353034222C0A224E23096320233538
30303030222C0A224F2309632023374330323032222C0A225023096320234135
32323145222C0A22512309632023443034303339222C0A225223096320234530
34363344222C0A22532309632023443833413246222C0A225423096320234343
32423231222C0A22552309632023433632323139222C0A225623096320234334
31453137222C0A22572309632023433532303139222C0A225823096320234342
32323144222C0A22592309632023443532343146222C0A225A23096320233737
30313031222C0A22602309632023393231343132222C0A222024096320233838
30423039222C0A222E2409632023363630313031222C0A222B24096320233642
30303030222C0A22402409632023363030303030222C0A222020202020202020
D60D00002F2A2058504D202A2F0A7374617469632063686172202A2065786974
32345F78706D5B5D203D207B0A223234203234203134302032222C0A22202009
63204E6F6E65222C0A222E2009632023303030303030222C0A222B2009632023
443644364434222C0A22402009632023424442444243222C0A22232009632023
413841384134222C0A22242009632023393239323846222C0A22252009632023
373237333730222C0A22262009632023363136313545222C0A222A2009632023
323032303146222C0A223D2009632023463146314546222C0A222D2009632023
453645364534222C0A223B2009632023444144414437222C0A223E2009632023
434643464344222C0A222C2009632023433443344331222C0A22272009632023
413841384135222C0A22292009632023373637363734222C0A22212009632023
373737373734222C0A227E2009632023314531453144222C0A227B2009632023
423942394237222C0A225D2009632023414541454143222C0A225E2009632023
384638463844222C0A222F2009632023323632363236222C0A22282009632023
343134313430222C0A225F2009632023453938333643222C0A223A2009632023
444544454443222C0A223C2009632023433543354332222C0A225B2009632023
363336333632222C0A227D2009632023303430353034222C0A227C2009632023
303430363034222C0A22312009632023303530373035222C0A22322009632023
453837423632222C0A22332009632023453637303536222C0A22342009632023
443544354433222C0A22352009632023444244424438222C0A22362009632023
443044304345222C0A22372009632023303830413037222C0A22382009632023
304130433039222C0A22392009632023304130443039222C0A22302009632023
304230453041222C0A22612009632023463042304131222C0A22622009632023
454238443737222C0A22632009632023444634323145222C0A22642009632023
453937453636222C0A22652009632023434243424338222C0A22662009632023
304330463042222C0A22672009632023304631333044222C0A22682009632023
313031343045222C0A22692009632023313131353046222C0A226A2009632023
454641333932222C0A226B2009632023424642464244222C0A226C2009632023
354435443543222C0A226D2009632023313031353046222C0A226E2009632023
313431393132222C0A226F2009632023313631433134222C0A22702009632023
313731443135222C0A22712009632023423742374234222C0A22722009632023
304330433043222C0A22732009632023313932303137222C0A22742009632023
314332333139222C0A22752009632023314432343141222C0A22762009632023
434438343834222C0A22772009632023393930303030222C0A22782009632023
373031363136222C0A22792009632023413641364135222C0A227A2009632023
313831453136222C0A22412009632023314532363142222C0A22422009632023
323132413145222C0A22432009632023323232423146222C0A22442009632023
344630303030222C0A22452009632023414541454142222C0A22462009632023
314432363142222C0A22472009632023323432453231222C0A22482009632023
323733323234222C0A22492009632023323833333235222C0A224A2009632023
353830303030222C0A224B2009632023423542354233222C0A224C2009632023
323933343236222C0A224D2009632023324433393239222C0A224E2009632023
324533413241222C0A224F2009632023374334333433222C0A22502009632023
364130303030222C0A22512009632023373230303030222C0A22522009632023
424442444242222C0A22532009632023323332433230222C0A22542009632023
324133353236222C0A22552009632023333033433242222C0A22562009632023
333334303245222C0A22572009632023433543354333222C0A22582009632023
314532363143222C0A22592009632023333033443243222C0A225A2009632023
333734353332222C0A22602009632023333934383334222C0A22202E09632023
353030303030222C0A222E2E09632023434443444342222C0A222B2E09632023
314232333139222C0A22402E09632023323533303232222C0A22232E09632023
333033453244222C0A22242E09632023333934393334222C0A22252E09632023
334434453338222C0A22262E09632023394439443942222C0A222A2E09632023
353635363535222C0A223D2E09632023324333383238222C0A222D2E09632023
343035303341222C0A223B2E09632023343335353345222C0A223E2E09632023
424142414237222C0A222C2E09632023373737373736222C0A22272E09632023
333233383330222C0A22292E09632023323332433146222C0A22212E09632023
333133453244222C0A227E2E09632023334234413336222C0A227B2E09632023
343335353344222C0A225D2E09632023343835423432222C0A225E2E09632023
344135453434222C0A222F2E09632023463046304545222C0A22282E09632023
453545354533222C0A225F2E09632023433643364333222C0A223A2E09632023
414341434142222C0A223C2E09632023384238423841222C0A225B2E09632023
333233393246222C0A227D2E09632023324333373238222C0A227C2E09632023
334635303341222C0A22312E09632023343635383430222C0A22322E09632023
344235453434222C0A22332E09632023344536333437222C0A22342E09632023
353036353439222C0A22352E09632023444144414438222C0A22362E09632023
374137443738222C0A22372E09632023333333433330222C0A22382E09632023
343735413431222C0A22392E09632023344636333438222C0A22302E09632023
353336393443222C0A22612E09632023353636433445222C0A22622E09632023
353736443446222C0A22632E09632023393139363846222C0A22642E09632023
334234373336222C0A22652E09632023343235343343222C0A22662E09632023
353136373441222C0A22672E09632023353836463530222C0A22682E09632023
354237333533222C0A22692E09632023354337343534222C0A22202020202020
2020202020202020202020202020202020202020202020202020202020202020
202020202020202020202020202020202020202020202020222C0A2220202020
2020202020202020202020202020202020202020202020202020202020202020
20202020202020202020202020202020202020202020202020202020222C0A22
2020202020202020202020202020202020202020202020202020202020202020
2020202020202020202020202020202020202020202020202020202020202020
222C0A2220202020202020202020202020202020202020202020202020202E20
2B20402023202420252020202020202020202020202020202020202020202020
20202020222C0A22202020202020202020202020202020202020202026202A20
3D202D203B203E202C202720292021207E207B20202020202020202020202020
2020202020202020222C0A222020202020202020202020202020202020205D20
5E202F2028205F203A203C205B207D207C203120322033203420202020202020
202020202020202020202020222C0A2220202020202020202020202020205D20
3520362037203820382039203020612062206320642065206620672068206920
6A202020202020202020202020202020222C0A22202020202020202020202020
6B206C206D20382038206E206F20702071207220732074207520762077207820
79207A2041204220202020202020202020202020222C0A222020202020202020
2020202043204420382038206E204520462047204820492038204A204B204C20
4D204E204F20502051205220532020202020202020202020222C0A2220202020
2020202020205D2054203820382055203C2056205720582059205A2038206020
202E2E2E2B2E402E232E242E252E262E2A2E20202020202020202020222C0A22
202020202020202026203D2E2D2E3820552055203B2E3E2E2C2E272E292E212E
38207E2E7B2E5D2E5E2E2F2E282E5F2E3A2E3C2E5B2E7D2E2020202020202020
222C0A2220202020202020202A207C2E3820312E3820322E332E342E352E362E
372E382E392E302E612E622E632E642E652E662E672E682E692E6A2E20202020
20202020222C0A2220202020202020206B2E6C2E6D2E38206E2E6F2E702E3820
712E722E732E742E752E762E772E782E3820792E7A2E412E422E432E442E452E
2020202020202020222C0A22202020202020462E472E482E492E4A2E4B2E4C2E
752E4D2E4E2E4F2E502E512E522E532E542E552E562E752E572E582E592E5A2E
602E202B2E2B202020202020222C0A222020202020202B2B402B232B242B252B
262B2A2B3D2B2D2B3B2B3E2B2C2B512E272B292B212B7E2B7B2B5D2B752E5E2B
2F2B282B5F2B3A2B3C2B202020202020222C0A222020202020202B205B2B7D2B
7C2B312B322B752E332B342B352B362B372B512E382B392B302B612B622B632B
752E642B652B662B672B682B2E2B202020202020222C0A22202020202020692B
6A2B6B2B6C2B6D2B6E2B272B6F2B702B712B722B732B742B522E752B762B772B
782B792B272B7A2B412B422B432B442B452B202020202020222C0A2220202020
2020462B472B482B492B4A2B4B2B382B4C2B4D2B4E2B4F2B502B512B522B532B
542B552B562B572B582B592B5A2B602B20402E402B40202020202020222C0A22
2020202020202520404023402440254026402A403D402D403B403E402C402740
294021407E407B405D405E402A402F4028405F403A403C405B40202020202020
222C0A2220202020202020207D407C4031403240334034403540364037403840
394030406140624063406440654066406740684069406A406B406C406D402020
20202020222C0A2220202020202020207E206E406F4070407140724073407440
754076407740784079407A404140424043404440454046404740484049404A40
2020202020202020222C0A2220202020202020207B204B404C404D404E404F40
50405140524053405440554056405740584059405A40604020232E232B234023
232324232020202020202020222C0A2220202020202020202020252326232A23
3D232D233B2360403E232C232723292321237E237B235D235E232F2328235F23
3A233C235B2320202020202020202020222C0A22202020202020202020202020
7D237C2331233223332334233523362337233823382339233023382E61236223
6323642365236623242320202020202020202020222C0A222020202020202020
202020206A206723682369236A236B236C236D236E236F237023712372237323
742375233A23762377237823202020202020202020202020222C0A2220202020
2020202020202020202079237A23412342234323442345234623472348234923
4A234B234C2340233C234D234E232020202020202020202020202020222C0A22
2020202020202020202020202020202053204F23502351235223532354235523
5623572358235923494023235B23242320202020202020202020202020202020
222C0A2220202020202020202020202020202020202020207D2E5A236023202B
3A2B682B442B2E403C4020242E24242320202020202020202020202020202020
20202020222C0A22202020202020202020202020202020202020202020202020
20202E2B2E2B2B243C2B2B4040246D4020202020202020202020202020202020
2020202020202020222C0A222020202020202020202020202020202020202020
2020202020202020202020202020202020202020202020202020202020202020
202020202020202020202020222C0A2220202020202020202020202020202020
2020202020202020202020202020202020202020202020202020202020202020
20202020202020202020202020202020222C0A22202020202020202020202020
2020202020202020202020202020202020202020202020202020202020202020
2020202020202020202020202020202020202020227D3B0A
20202020202020202020222C0A2220202020202020202020202020202E202E20
2E202E202E202E202E202E202E202E202E202E202E202E202E202E202020222C
0A2220202020202020202020202020202E202B20402023202420252026202620
26202A202E202E202E202E202E202E202020222C0A2220202020202020202020
202020202E203D202D203B203E202C202720292021207E202E202E202E202E20
2E202E202020222C0A22202020202020202020202E2020202E203D202D203B20
3E202C207B205D205E202F202E202E202E202E202E202E202020222C0A222020
20202020202020202E202E202E203D202D203B203E202C207B207B207B202820
2E202E202E202E202E202E202020222C0A22202020202020202020202E205F20
2E203A202D203B203E203C207B207B207B205B207D207C203120312031202E20
2020222C0A222E202E202E202E202E202E20322033202E203420352036203C20
7B207B207B205B20372038203920302030202E202020222C0A222E2061203220
3220322032206220632064202E20652036203C207B207B207B205B2066206720
6820692069202E202020222C0A222E206A206320632063206320632063206320
33202E206B203C207B206C207B205B206D206E206F20702070202E202020222C
0A222E206A206320632063206320632063206320632033202E2071207B206C20
72205B206E2073207420752075202E202020222C0A222E207620772077207720
77207720772077207720772078202E20792072207B205B207A20412042204320
43202E202020222C0A222E207620772077207720772077207720772077204420
2E2045207B207B207B205B20462047204820492049202E202020222C0A222E20
762077207720772077207720772077204A202E204B203C207B207B207B205B20
43204C204D204E204E202E202020222C0A222E204F2050205020502050205120
77204A202E20522036203C207B207B207B205B20532054205520562056202E20
2020222C0A222E202E202E202E202E202E2051204A202E205720352036203C20
7B207B207B205B205820482059205A2060202E202020222C0A22202020202020
202020202E20202E2E202E2E2D20352036203C207B207B207B205B202B2E402E
232E242E252E2E202020222C0A22202020202020202020202E202E202E203D20
2D20352036203C207B205D20262E2A2E42203D2E5A202D2E3B2E2E202020222C
0A22202020202020202020202E2020202E203D202D20352036203E2E262E2C2E
272E292E212E7E2E7B2E5D2E5E2E2E202020222C0A2220202020202020202020
202020202E202F2E282E5F2E3A2E3C2E5B2E7D2E5A207C2E312E322E332E342E
342E2E202020222C0A2220202020202020202020202020202E20352E6B20362E
372E5A202D2E382E392E302E612E612E622E622E622E2E202020222C0A222020
2020202020202020202020202E20632E642E652E5E2E662E672E682E692E692E
692E692E692E692E692E2E202020222C0A222020202020202020202020202020
2E202E202E202E202E202E202E202E202E202E202E202E202E202E202E202E20
2020222C0A222020202020202020202020202020202020202020202020202020
20202020202020202020202020202020202020202020227D3B0A
}
OnClick = BtnCloseClick
TabOrder = 1
@ -627,16 +437,14 @@ object GUITestRunner: TGUITestRunner
Width = 644
object tsTestTree: TTabSheet
Caption = 'Testcase tree'
ClientHeight = 606
ClientWidth = 644
Height = 606
Top = 22
Width = 644
ClientHeight = 602
ClientWidth = 636
Height = 602
Width = 636
object TestTree: TTreeView
Align = alTop
AutoExpand = True
BackgroundColor = clBtnFace
ChangeDelay = 1
DefaultItemHeight = 16
Images = ImageList1
ParentCtl3D = False
@ -646,16 +454,16 @@ object GUITestRunner: TGUITestRunner
Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
Height = 480
Top = 63
Width = 644
Width = 636
end
object Panel4: TPanel
Align = alTop
ClientHeight = 63
ClientWidth = 644
ClientWidth = 636
FullRepaint = False
TabOrder = 1
Height = 63
Width = 644
Width = 636
object pbBar: TPaintBox
ParentColor = True
OnPaint = pbBarPaint
@ -671,49 +479,48 @@ object GUITestRunner: TGUITestRunner
Height = 10
MinSize = 400
ParentColor = True
Width = 644
Width = 636
Cursor = crVSplit
Height = 10
Top = 543
Width = 644
Width = 636
end
object Memo1: TMemo
Align = alClient
PopupMenu = PopupMenu2
TabOrder = 2
Height = 53
Height = 49
Top = 553
Width = 644
Width = 636
end
end
object tsResultsXML: TTabSheet
Caption = 'Results XML'
ClientHeight = 606
ClientWidth = 644
Height = 606
Top = 22
Width = 644
ClientHeight = 602
ClientWidth = 636
Height = 602
Width = 636
object Panel3: TPanel
Align = alClient
Caption = 'Panel3'
ClientHeight = 606
ClientWidth = 644
ClientHeight = 594
ClientWidth = 640
FullRepaint = False
TabOrder = 0
TabStop = True
Height = 606
Width = 644
Height = 594
Width = 640
object Panel5: TPanel
Align = alTop
BorderWidth = 1
ClientHeight = 58
ClientWidth = 642
ClientWidth = 638
FullRepaint = False
TabOrder = 0
Left = 1
Height = 58
Top = 1
Width = 642
Width = 638
object SpeedButton1: TSpeedButton
Action = actCopy
Flat = True
@ -912,9 +719,9 @@ object GUITestRunner: TGUITestRunner
PopupMenu = PopupMenu1
TabOrder = 1
Left = 1
Height = 546
Height = 534
Top = 59
Width = 642
Width = 638
end
end
end
@ -924,7 +731,7 @@ object GUITestRunner: TGUITestRunner
left = 16
top = 432
Bitmap = {
6C690C00000010000000100000009D0E00002F2A2058504D202A2F0A73746174
6C690D00000010000000100000009D0E00002F2A2058504D202A2F0A73746174
69632063686172202A206C65646C69676874677265656E5F78706D5B5D203D20
7B0A223136203136203139342032222C0A2220200963204E6F6E65222C0A222E
2009632023303234323046222C0A222B2009632023313934383334222C0A2240
@ -1733,7 +1540,84 @@ object GUITestRunner: TGUITestRunner
6C2E6D2E20202020222C0A2220202020202020206E2E6F2E702E712E722E732E
742E752E762E202020202020222C0A2220202020202020202020772E782E792E
7A2E412E422E20202020202020202020222C0A22202020202020202020202020
2020202020202020202020202020202020202020227D3B0A
2020202020202020202020202020202020202020227D3B0A870900002F2A2058
504D202A2F0A7374617469632063686172202A206C6564677261795F78706D5B
5D203D207B0A223136203136203131332032222C0A2220200963204E6F6E6522
2C0A222E2009632023333733373337222C0A222B200963202335363536353622
2C0A22402009632023363436343634222C0A2223200963202335313531353122
2C0A22242009632023323532353235222C0A2225200963202335303530353022
2C0A22262009632023413341334133222C0A222A200963202345364536453622
2C0A223D2009632023464646464646222C0A222D200963202346454645464522
2C0A223B2009632023453245324532222C0A223E200963202339303930393022
2C0A222C2009632023323332333233222C0A2227200963202335373537353722
2C0A22292009632023434243424342222C0A2221200963202346354635463522
2C0A227E2009632023463846384638222C0A227B200963202346434643464322
2C0A225D2009632023463946394639222C0A225E200963202346374637463722
2C0A222F2009632023433143314331222C0A2228200963202333323332333222
2C0A225F2009632023333033303330222C0A223A200963202339433943394322
2C0A223C2009632023444444444444222C0A225B200963202345454545454522
2C0A227D2009632023463446344634222C0A227C200963202346364636463622
2C0A22312009632023454445444544222C0A2232200963202345314531453122
2C0A22332009632023444644464446222C0A2234200963202339313931393122
2C0A22352009632023304630463046222C0A2236200963202333413341334122
2C0A22372009632023383138313831222C0A2238200963202343464346434622
2C0A22392009632023443644364436222C0A2230200963202345384538453822
2C0A22612009632023454145414541222C0A2262200963202343454345434522
2C0A22632009632023374337433743222C0A2264200963202332453245324522
2C0A22652009632023333633363336222C0A2266200963202334443444344422
2C0A22672009632023354135413541222C0A2268200963202341364136413622
2C0A22692009632023433943394339222C0A226A200963202344324432443222
2C0A226B2009632023443744374437222C0A226C200963202344394439443922
2C0A226D2009632023443144314431222C0A226E200963202341314131413122
2C0A226F2009632023353835383538222C0A2270200963202334423442344222
2C0A22712009632023313431343134222C0A2272200963202334373437343722
2C0A22732009632023354235423542222C0A2274200963202336333633363322
2C0A22752009632023373437343734222C0A2276200963202342354235423522
2C0A22772009632023433043304330222C0A2278200963202343334333433322
2C0A22792009632023424642464246222C0A227A200963202342344234423422
2C0A22412009632023394139413941222C0A2242200963202337323732373222
2C0A22432009632023323832383238222C0A2244200963202335333533353322
2C0A22452009632023363836383638222C0A2246200963202337373737373722
2C0A22472009632023383238323832222C0A2248200963202338353835383522
2C0A22492009632023384338433843222C0A224A200963202339343934393422
2C0A224B2009632023393839383938222C0A224C200963202337363736373622
2C0A224D2009632023363936393639222C0A224E200963202338413841384122
2C0A224F2009632023393539353935222C0A2250200963202339373937393722
2C0A22512009632023324432443244222C0A2252200963202334453445344522
2C0A22532009632023383938393839222C0A2254200963202339443944394422
2C0A22552009632023374437443744222C0A2256200963202331373137313722
2C0A22572009632023373137313731222C0A2258200963202339323932393222
2C0A22592009632023413541354135222C0A225A200963202341414141414122
2C0A22602009632023414341434143222C0A22202E0963202341344134413422
2C0A222E2E09632023354535453545222C0A222B2E0963202333313331333122
2C0A22402E09632023413241324132222C0A22232E0963202341424142414222
2C0A22242E09632023423242324232222C0A22252E0963202342364236423622
2C0A22262E09632023314131413141222C0A222A2E0963202333353335333522
2C0A223D2E09632023414441444144222C0A222D2E0963202341464146414622
2C0A223B2E09632023423742374237222C0A223E2E0963202342444244424422
2C0A222C2E09632023323132313231222C0A22272E0963202342384238423822
2C0A22292E09632023424542454245222C0A22212E0963202336463646364622
2C0A227E2E09632023314431443144222C0A227B2E0963202333453345334522
2C0A225D2E09632023334433443344222C0A225E2E0963202331423142314222
2C0A222020202020202020202020202020202020202020202020202020202020
202020222C0A222020202020202020202020202E202B20402023202420202020
20202020202020222C0A222020202020202020252026202A203D203D202D203B
203E202C20202020202020222C0A222020202020202720292021207E207B202D
207B205D205E202F20282020202020222C0A22202020205F203A203C203B205B
207D207C207D20312032203320342035202020222C0A22202020203620372038
2039203B20302061203020322039206220632064202020222C0A222020652066
206720682069206A206B206C206B206D2069206E206F2070207120222C0A2220
2072207320742075203A2076207720782079207A204120422074207320432022
2C0A2220204420452046204720482049204A204B204A204920482037204C204D
202820222C0A2220206F20462047204E203E204F205020502050204F203E204E
20472046205120222C0A2220205220472053203E204B2054206E2026206E2054
2050203E20532055205620222C0A2220202020572058204F20542059205A2060
205A20202E54204F204A202E2E2020222C0A22202020202B2E3E205420402E23
2E242E252E242E5A206E2054204920262E2020222C0A222020202020202A2E4B
203D2E2D2E3B2E3E2E3B2E2D2E3D2E4A20512020202020222C0A222020202020
2020202C2E75206820272E292E272E202E212E7E2E202020202020222C0A2220
20202020202020202020207E2E7B2E70205D2E5E2E2020202020202020202022
7D3B0A
}
end
object ActionList1: TActionList

File diff suppressed because it is too large Load Diff

View File

@ -25,11 +25,6 @@ uses
Buttons, ComCtrls, ActnList, Menus, Clipbrd, StdCtrls,
testreport, fpcunit, testregistry;
const
S_OK = 0; {$EXTERNALSYM S_OK}
S_FALSE = $00000001; {$EXTERNALSYM S_FALSE}
E_NOINTERFACE = HRESULT($80004002); {$EXTERNALSYM E_NOINTERFACE}
type
{ TGUITestRunner }
@ -83,11 +78,10 @@ type
procedure BuildTree(rootNode: TTreeNode; aSuite: TTestSuite);
function FindNode(aTest: TTest): TTreeNode;
procedure ResetNodeColors;
protected
{ IInterface }
function QueryInterface(const IID: TGUID; out Obj): HResult; virtual; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
procedure PaintNodeError(aNode: TTreeNode);
procedure PaintNodeFailure(aNode: TTreeNode);
procedure PaintNodeSuccess(aNode: TTreeNode);
procedure PaintRunnableSubnodes(aNode: TTreeNode);
public
procedure AddFailure(ATest: TTest; AFailure: TTestFailure);
procedure AddError(ATest: TTest; AError: TTestFailure);
@ -117,7 +111,7 @@ procedure TGUITestRunner.GUITestRunnerCreate(Sender: TObject);
var
i: integer;
begin
barColor := clGray;
barColor := clGreen;
TestTree.Items.Clear;
BuildTree(TestTree.Items.AddObject(nil, 'All Tests', GetTestRegistry), GetTestRegistry);
end;
@ -182,12 +176,21 @@ procedure TGUITestRunner.btnRunClick(Sender: TObject);
var
testResult: TTestResult;
begin
barcolor := clGray;
barcolor := clGreen;
ResetNodeColors;
if (TestTree.Selected <> nil) and (TestTree.Selected.Data <> nil) then
testSuite := TTest(TestTree.Selected.Data)
begin
testSuite := TTest(TestTree.Selected.Data);
PaintNodeSuccess(TestTree.Selected);
PaintRunnableSubnodes(TestTree.Selected);
end
else
testSuite := GetTestRegistry;
begin
testSuite := GetTestRegistry;
TestTree.Selected := TestTree.Items[0];
ResetNodeColors;
PaintRunnableSubnodes(TestTree.Selected);
end;
failureCounter := 0;
errorCounter := 0;
testsCounter := 0;
@ -214,8 +217,8 @@ begin
node := TestTree.Items.AddChildObject(rootNode, ASuite.Test[i].TestName, ASuite.Test[i]);
if ASuite.Test[i] is TTestSuite then
BuildTree(Node, ASuite.Test[i] as TTestSuite);
node.ImageIndex := -1;
node.SelectedIndex := -1;
node.ImageIndex := 12;
node.SelectedIndex := 12;
end;
end;
@ -238,8 +241,58 @@ var
begin
for i := 0 to TestTree.Items.Count - 1 do
begin
TestTree.Items[i].ImageIndex := -1;
TestTree.Items[i].SelectedIndex := -1;
TestTree.Items[i].ImageIndex := 12;
TestTree.Items[i].SelectedIndex := 12;
end;
end;
procedure TGUITestRunner.PaintNodeError(aNode: TTreeNode);
begin
while Assigned(aNode) do
begin
aNode.ImageIndex := 2;
aNode.SelectedIndex := 2;
aNode := aNode.Parent;
if Assigned(aNode) and (aNode.ImageIndex in [0, 3, 12, -1]) then
PaintNodeError(aNode);
end;
end;
procedure TGUITestRunner.PaintNodeFailure(aNode: TTreeNode);
begin
while Assigned(aNode) do
begin
if aNode.ImageIndex in [0, -1, 12] then
begin
aNode.ImageIndex := 3;
aNode.SelectedIndex := 3;
end;
aNode := aNode.Parent;
if Assigned(aNode) and (aNode.ImageIndex in [0, -1, 12]) then
PaintNodeFailure(aNode);
end;
end;
procedure TGUITestRunner.PaintNodeSuccess(aNode: TTreeNode);
begin
if Assigned(aNode) then
begin
aNode.ImageIndex := 0;
aNode.SelectedIndex := 0;
end;
end;
procedure TGUITestRunner.PaintRunnableSubnodes(aNode: TTreeNode);
var
i: integer;
begin
if Assigned(aNode) then
begin
aNode.ImageIndex := 0;
aNode.SelectedIndex := 0;
for i := 0 to aNode.Count - 1 do
if aNode.Items[i].Count > 0 then
PaintRunnableSubnodes(aNode.Items[i]);
end;
end;
@ -257,11 +310,7 @@ begin
node := TestTree.Items.AddChild(FailureNode, 'Exception: ' + AFailure.ExceptionClassName);
node.ImageIndex := 4;
node.SelectedIndex := 4;
FailureNode.ImageIndex := 3;
FailureNode.SelectedIndex := 3;
node := FailureNode.Parent;
node.ImageIndex := 3;
node.SelectedIndex := 3;
PaintNodeFailure(FailureNode);
end;
Inc(failureCounter);
if errorCounter = 0 then
@ -291,11 +340,7 @@ begin
node := TestTree.Items.AddChild(ErrorNode, 'Line number: ' + IntToStr(AError.LineNumber));
node.ImageIndex := 11;
node.SelectedIndex := 11;
ErrorNode.ImageIndex := 2;
ErrorNode.SelectedIndex := 2;
node := ErrorNode.Parent;
node.ImageIndex := 2;
node.SelectedIndex := 2;
PaintNodeError(ErrorNode);
end;
Inc(errorCounter);
barColor := clRed;
@ -310,11 +355,6 @@ begin
begin
Node.ImageIndex := 0;
Node.SelectedIndex := 0;
if Assigned(Node.Parent) and (Node.Parent.ImageIndex = -1) then
begin
Node.Parent.ImageIndex := 0;
Node.Parent.SelectedIndex := 0;
end;
end;
Application.ProcessMessages;
end;
@ -324,46 +364,9 @@ begin
Inc(testsCounter);
pbBar.invalidate;
pbBar1.invalidate;
if TestsCounter = GetTestRegistry.CountTestCases then
begin
if (ErrorCounter = 0) and (FailureCounter = 0) then
begin
TestTree.items[0].ImageIndex := 0;
TestTree.items[0].SelectedIndex := 0;
end
else
if (ErrorCounter > 0) then
begin
TestTree.items[0].ImageIndex := 2;
TestTree.items[0].SelectedIndex := 2;
end
else
begin
TestTree.items[0].ImageIndex := 3;
TestTree.items[0].SelectedIndex := 3;
end;
end;
Application.ProcessMessages;
end;
{ TGUITestRunner.IInterface }
function TGUITestRunner.QueryInterface(const IID: TGUID; out Obj): HResult; StdCall;
begin
if GetInterface(IID, Obj) then Result := S_OK
else Result := E_NOINTERFACE
end;
function TGUITestRunner._AddRef: Integer; StdCall;
begin
Result := -1;
end;
function TGUITestRunner._Release: Integer; StdCall;
begin
Result := -1;
end;
initialization
{$I guitestrunner.lrs}