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()
35 Dim oDT2_1
As Boolean = True
37 Dim oDT3_1
As Byte = 1
39 Dim oDT4_1
As Short
= 100
41 Dim oDT5_1
As Integer = 1000
43 Dim oDT6_1
As Long = 100000
45 Dim oDT7_1
As Char
= "c"c
47 Dim oDT8_1
As Single = 2.2
49 Dim oDT9_1
As Double = 8.8
51 Dim oDT10_1
As Decimal = 10000000
52 Dim oDT10_2
As Decimal
53 Dim oDT11_1
As String = "zzz"
55 Dim oDT12_1
As Date = #
5/31/1993#
59 FileOpen(fput
, System
.IO
.Directory
.GetCurrentDirectory() + "\data\6987.txt", OpenMode
.Output
)
60 Write(fput
, oDT2_1
, oDT3_1
, oDT4_1
, oDT5_1
, oDT6_1
, oDT7_1
, oDT8_1
, oDT9_1
, oDT10_1
, oDT11_1
, oDT12_1
)
64 FileOpen(fget
, System
.IO
.Directory
.GetCurrentDirectory() + "\data\6987.txt", OpenMode
.Input
)
78 If oDT2_1
<> oDT2_2
Then Return "failed"
79 If oDT3_1
<> oDT3_2
Then Return "failed"
80 If oDT4_1
<> oDT4_2
Then Return "failed"
81 If oDT5_1
<> oDT5_2
Then Return "failed"
82 If oDT6_1
<> oDT6_2
Then Return "failed"
83 If oDT7_1
<> oDT7_2
Then Return "failed"
84 If oDT8_1
<> oDT8_2
Then Return "failed"
85 If oDT9_1
<> oDT9_2
Then Return "failed"
86 If oDT10_1
<> oDT10_2
Then Return "failed"
87 If oDT11_1
<> oDT11_2
Then Return "failed"
88 If oDT12_1
<> oDT12_2
Then Return "failed"