source: trunk/TestCase/SimpleTestCase/BlittableTest.ab@ 385

Last change on this file since 385 was 334, checked in by dai, 17 years ago

Blittableテストケースを追加

File size: 850 bytes
Line 
1Namespace BlittableTest
2
3Sub TestMain()
4 Dim a As Byte
5 Dim b As SByte
6 Dim c As Word
7 Dim d As Integer
8 Dim e As DWord
9 Dim f As Long
10 Dim g As QWord
11 Dim h As Int64
12 Dim i As Single
13 Dim j As Double
14
15 UnitTest( "System.Byte", a.GetType().Name = "Byte" )
16 UnitTest( "System.SByte", b.GetType().Name = "SByte" )
17 UnitTest( "System.UInt16", c.GetType().Name = "UInt16" )
18 UnitTest( "System.Int16", d.GetType().Name = "Int16" )
19 UnitTest( "System.UInt32", e.GetType().Name = "UInt32" )
20 UnitTest( "System.Int32", f.GetType().Name = "Int32" )
21 UnitTest( "System.UInt64", g.GetType().Name = "UInt64" )
22 UnitTest( "System.Int64", h.GetType().Name = "Int64" )
23 UnitTest( "System.Single", i.GetType().Name = "Single" )
24 UnitTest( "System.Double", j.GetType().Name = "Double" )
25
26End Sub
27
28End Namespace
29
30BlittableTest.TestMain()
Note: See TracBrowser for help on using the repository browser.