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

Merge branch 'master' of gitlab.com:gambas/gambas

Browse source
This commit is contained in:
Benoît Minisini 2022-12-20 15:33:23 +01:00
commit 2123d65926
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
app/src/gambas3-selftest/.src/Tests/GambasSelftests.test
View file

@ -718,10 +718,16 @@ Fast Public Function FastTests() As Integer
Endif
Test.Note("CShort")
If CShort(1000) <> 1000 Or CShort("17") <> 17 Or CShort(True) <> -1 Then
If CShort("17") <> 17 Or CShort(True) <> -1 Then
Assert.Fail("CShort")
Endif
Test.Note("CShort Overflow")
Test.TODO("Expected error, that an overflow happened in CShort")
Dim siShort As Short
Try siShort = CShort(100000)
Assert.Error()
Test.Note("CSingle")
If Format$(CSingle("+3.1416"), "#.####") <> Str$(3.1416) Or CSingle("1.0E+3") <> 1000 Then
'' Or CSng(Pi) <> 3.141592741013 Then' Actually gives 3.14159274101257 Which is correct?