luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge branch 'master' of degserv:gambas/gb.deg.unittest

Browse source
This commit is contained in:
Christof Thalhofer 2017-07-01 10:18:34 +02:00
commit aaac105af8
8 changed files with 32 additions and 48 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.component
View file

@ -1,6 +1,6 @@
[Component]
Key=gb.deg.unittest
Version=3.9.10
Version=3.9.12
State=2
Authors=Christof Thalhofer
Needs=Form

5
.hidden/CHANGELOG
View file

@ -1,3 +1,8 @@
* Fri Feb 24 2017 christof <christof@deganius.de> 3.9.12
* Fri Feb 24 2017 christof <christof@deganius.de> 3.9.11
- test
* Thu Sep 29 2016 christof <christof@deganius.de> 3.9.10
* Thu Sep 29 2016 christof <christof@deganius.de> 3.9.10

8
.project
View file

@ -1,8 +1,8 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.9.1
# Compiled with Gambas 3.9.2
Title=gb.deg.unittest
Startup=TesteStartRunner
Version=3.9.10
Startup=FmRunner
Version=3.9.12
Component=gb.image
Component=gb.gui.qt
Component=gb.form
@ -22,7 +22,7 @@ Address=christof@deganius.de
Url=www.deganius.de
License=General Public License
Prefix=1
PackageName=gambas3-gb-deg-unittest-3.9.10
PackageName=gambas3-gb-deg-unittest-3.9.12
Packager=1
Systems=debian
Groups=debian:"libs"

22
.settings
View file

@ -330,28 +330,8 @@ File[1]=".src/TestRunner/FmRunner.form"
File[2]=".src/TestRunner/FmTrace.form"
File[3]=".src/TestRunner/FmRunner.class:28.17"
File[4]=".src/TestRunner/FmTrace.class:9.121"
Count=4
Active=4
Count=24
File[5]=".src/TesteStartRunner.module:4.14"
File[6]=".src/TestMyself/TestErrorsAndFailures.class:0.4"
File[7]=".src/TestRunner/UnitTest.class:36.166"
File[8]=".src/TestSuite/TestSuite.class:18.89"
File[9]=".src/TestSuite/ITestCase.class:0.3"
File[10]=".src/TestSuite/TestCase.class:0.7"
File[11]=".src/TestSuite/ATestContainer.class:0.139"
File[12]=".src/TestSuite/ITest.class:0.1"
File[13]=".src/TestMyself/TestExample1.class:0.4"
File[14]=".src/TestMyself/TestExample2.class:0.4"
File[15]=".src/TestMyself/TestIntentionalError.class:0.4"
File[16]=".src/TestRunner/DegFormHelper.class:3.24"
File[17]=".src/TestMyself/TestAllAsserts.class:0.4"
File[18]=".src/TestRunner/FmRunnerResult.form"
File[19]=".src/TestRunner/FmRunnerResult.class:30.12"
File[20]=".src/TestSuite/TestError.class:0.1"
File[21]=".src/TestSuite/TestErrors.class:0.15"
File[22]=".src/TestSuite/TestParameter.class:0.1"
File[23]=".src/TestSuite/TestParameters.class:0.1"
File[24]=".src/TestSuite/TestResult.class:0.125"
[Watches]
Count=0

10
.src/TestRunner/FmRunner.class
View file

@ -90,7 +90,7 @@ Sub FillCboContainers()
.Insert(UnitTest.GetAllTestContainerNames($DoSelftest))
End With
With Me.CboContainers
With CboContainers
.List = ContainerNames
.Index = 0
.Show()
@ -124,7 +124,7 @@ Sub FillCboTests(Optional TestContainerName As String)
Next
TestNames.Sort
With Me.CboTestCases
With CboTestCases
.List = TestNames
.Index = 0
.Show()
@ -143,7 +143,7 @@ Sub FillTabs()
.Expand = True
End With
With Me.TabPanel1
With TabPanel1
.Count = 1
.Arrangement = Arrange.Fill
.Index = 0
@ -161,7 +161,7 @@ Sub FillTabs()
.Show
End With
With Me.TabPanel1
With TabPanel1
.Count = 2
.Arrangement = Arrange.Fill
.Index = 1
@ -172,7 +172,7 @@ Sub FillTabs()
' ------------------------------------------------- Index 0
With Me.TabPanel1
With TabPanel1
.Index = 0
.Show
End With

28
.src/TestRunner/FmRunnerResult.class
View file

@ -6,12 +6,12 @@ Property Result As TestResult
Public Sub Reset()
Me.ProgressBar1.Value = 0
Me.LblErrors.Text = Null
Me.LblFailures.Text = Null
Me.LblRuns.Text = Null
Me.LblTestName.Text = Null
Me.GridViewTests.Clear
ProgressBar1.Value = 0
LblErrors.Text = Null
LblFailures.Text = Null
LblRuns.Text = Null
LblTestName.Text = Null
GridViewTests.Clear
End
@ -26,8 +26,8 @@ Private Sub Runs_Write(Value As Integer[])
done = Value[0]
all = Value[1]
Me.ProgressBar1.Value = done / all
Me.LblRuns.Text = "Runs: " & done & "/" & all
ProgressBar1.Value = done / all
LblRuns.Text = "Runs: " & done & "/" & all
End
@ -47,15 +47,15 @@ Private Sub Result_Write(Res As TestResult)
Errs = Res.Errors
Fails = Res.Failures
Me.LblErrors.Text = "Errors: " & Errs.Count
Me.LblFailures.Text = "Failures: " & Fails.Count
LblErrors.Text = "Errors: " & Errs.Count
LblFailures.Text = "Failures: " & Fails.Count
FillGrid(Res)
If Errs.Count > 0 Or If Fails.Count > 0 Then
Me.LblTestName.Text = "No success!"
LblTestName.Text = "No success!"
Else
Me.LblTestName.Text = "Success!"
LblTestName.Text = "Success!"
Endif
Wait
Endif
@ -129,7 +129,7 @@ End
Public Sub Form_Close()
Me.GridViewTests = Null
Me.ProgressBar1 = Null
GridViewTests = Null
ProgressBar1 = Null
End

1
.src/TesteStartRunner.module
View file

@ -10,7 +10,6 @@ Public Sub Main()
' Do Selftest:
r.DoSelfTest = True
'r.Test()
r.ShowTestForm()

4
.startup
View file

@ -1,8 +1,8 @@
TesteStartRunner
FmRunner
gb.deg.unittest
0
0
3.9.10
3.9.12
gb.image
gb.gui.qt