1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
'******************************* CTHON00.MST *********************************
' @(#)cthon00.mst 1.1 98/10/26 Connectathon Testsuite
'
'Description: This test suite contains a set of test cases and scenarios that
' are used to test Directory Caching. It is the same as CTHON01,
' except that it uses the MS-Test SHELL command instead of RUN.
' This allows it to work properly with Win95.
'
'******************************************************************************
'********************************* HISTORY ************************************
' Date DVE Comments
' 3/01/94 Jack Morrison Initial version
'******************************************************************************
'
'******************************************************************************
'* Include Files
'******************************************************************************
'$INCLUDE 'DECLARES.INC'
Const APPL_ABBR$ = "CTHON"
'$INCLUDE 'NFSCOMM.INC'
'$INCLUDE 'NFSSUBS.INC'
'******************************************************************************
' Subroutines and Functions Declarations
'******************************************************************************
Declare Sub CTHONTest12a ()
Declare Sub CTHONTest12b ()
Declare Sub CTHONTest12c ()
Declare Sub CTHONTest03 ()
Declare Sub CTHONTest04 ()
Declare Sub CTHONTest05 ()
Declare Sub CTHONTest06 ()
Declare Sub CTHONTest07 ()
Declare Sub CTHONTest09 ()
'******************************************************************************
'* Initialize Variables
'******************************************************************************
Const Failed = "err"
Const Drives = 3
'******************************************************************************
'* Main prorgram code
'******************************************************************************
On Error Goto ErrorTrap
QueSetSpeed 75
Setup
FOR C = 1 TO Drives
rtn = Connect(NetHost(C), NetDrive(C), NetPath(C), "") 'user$ passwd$
If rtn <> PASS Then EXIT FOR
If EXISTS (NetDrive(C)+":\testlog.*") Then KILL NetDrive(C)+":\testlog.*"
NEXT C
If C >= Drives Then
' *** Execute the tests
CTHONTest12a
Else
WriteLogFile "Drive Could Not Be Connected. Test Aborted !"
failure_Occurred = TRUE
End If
FOR D = 1 TO Drives
rtn = Disconnect (NetDrive(D))
NEXT D
Cleanup
CheckExit
End
'******************************************************************************
'Subroutines
'******************************************************************************
'******************************************************************************
'SUB CTHONTest12a
'******************************************************************************
Sub CTHONTest12a() Static
' initialize - open logs and start CTHON
StartSubTest " CTHON Acceptance Test"+" "+DateTime$
FOR I = 1 TO Drives
CHDRIVE NetDrive(I)
SHELL "deltree /y *.12"
CreateDir$ = ""
levels$ = "1"
files$ = "1"
dirs$ = "1"
If EXISTS ("testdir.12","+d") Then CreateDir$ = "-n"
STATUSBOX "CTHON Acceptance Test In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test1 testdir.12 testlog.12 "+CreateDir$+" "+levels$+" "+files$+" "+dirs$
SHELL Execute$
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test2 testdir.12 testlog.12 "+CreateDir$+" "+levels$+" "+files$+" "+dirs$
SHELL Execute$
CheckLog "testlog.12", Failed$, False
NEXT I
EndSubTest " CTHON Acceptance Test"+" "+DateTime$
End Sub
|
