2 ' Copyright (c) 2002-2003 Mainsoft Corporation.
4 ' Permission is hereby granted, free of charge, to any person obtaining a
5 ' copy of this software and associated documentation files (the "Software"),
6 ' to deal in the Software without restriction, including without limitation
7 ' the rights to use, copy, modify, merge, publish, distribute, sublicense,
8 ' and/or sell copies of the Software, and to permit persons to whom the
9 ' Software is furnished to do so, subject to the following conditions:
11 ' The above copyright notice and this permission notice shall be included in
12 ' all copies or substantial portions of the Software.
14 ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
15 ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
16 ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
17 ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
18 ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
19 ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
20 ' DEALINGS IN THE SOFTWARE.
24 Imports Microsoft
.VisualBasic
26 Public Class TestClass
27 Public Function Test() As String
31 '// make sure all files are closed
32 Microsoft
.VisualBasic
.FileSystem
.Reset()
34 Dim oDT2_1
As Boolean = True
36 Dim oDT3_1
As Byte = 1
38 Dim oDT4_1
As Short
= 100
40 Dim oDT5_1
As Integer = 1000
42 Dim oDT6_1
As Long = 100000
44 Dim oDT7_1
As Char
= "c"c
46 Dim oDT8_1
As Single = 2.2
48 Dim oDT9_1
As Double = 8.8
50 Dim oDT10_1
As Decimal = 10000000
51 Dim oDT10_2
As Decimal
52 Dim oDT11_1
As String = "zzz"
54 Dim oDT12_1
As Date = #
5/31/1993#
59 FileOpen(fput
, "data\6966.txt", OpenMode
.Output
)
60 PrintLine(fput
, oDT2_1
)
61 PrintLine(fput
, oDT3_1
)
62 PrintLine(fput
, oDT4_1
)
63 PrintLine(fput
, oDT5_1
)
64 PrintLine(fput
, oDT6_1
)
65 PrintLine(fput
, oDT7_1
)
66 PrintLine(fput
, oDT8_1
)
67 PrintLine(fput
, oDT9_1
)
68 PrintLine(fput
, oDT10_1
)
69 PrintLine(fput
, oDT11_1
)
70 PrintLine(fput
, oDT12_1
)
74 FileOpen(fget
, "data\6966.txt", OpenMode
.Binary
)
88 If oDT2_1
<> oDT2_2
Then Return "failed"
89 If oDT3_1
<> oDT3_2
Then Return "failed"
90 If oDT4_1
<> oDT4_2
Then Return "failed"
91 If oDT5_1
<> oDT5_2
Then Return "failed"
92 If oDT6_1
<> oDT6_2
Then Return "failed"
93 If oDT7_1
<> oDT7_2
Then Return "failed"
94 If oDT8_1
<> oDT8_2
Then Return "failed"
95 If oDT9_1
<> oDT9_2
Then Return "failed"
96 If oDT10_1
<> oDT10_2
Then Return "failed"
97 If oDT11_1
<> oDT11_2
Then Return "failed"
98 If oDT12_1
<> oDT12_2
Then Return "failed"