'******************************* CTHON04.MST *********************************
' @(#)cthon04.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 similar to CTHON02,
'             but it only runs on 1 drive and the parameters used are not as
'             large, so it creates less stress and executes in much less time.
'             It also uses the MS-Test SHELL command instead of RUN, which
'             allows it to work properly with Win95 (usually).
'
'******************************************************************************

'********************************* 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"
'******************************************************************************
'* Main prorgram code
'******************************************************************************
On Error Goto ErrorTrap

QueSetSpeed 75

Setup

rtn = Connect(NetHost(1), NetDrive(1), NetPath(1), "") 'user$ passwd$
If rtn = PASS Then

If EXISTS (NetDrive(1)+":\testlog.*") Then KILL NetDrive(1)+":\testlog.*"

CTHONTest12a
CTHONTest12b
CTHONTest12c
CTHONTest03
CTHONTest04
CTHONTest05
CTHONTest06
CTHONTest07
CTHONTest09

rtn = Disconnect (NetDrive(1))

Else
    WriteLogFile "Could Not Connect Drive "+NetDrive(1)+" to "+NetHost(1)+" "+NetPath(1)
    failure_Occurred = TRUE
End If

Cleanup
CheckExit

End

'******************************************************************************
'Subroutines
'******************************************************************************

'******************************************************************************
'SUB CTHONTest12a
'******************************************************************************
Sub CTHONTest12a() Static

'  initialize - open logs and start CTHON

StartSubTest "                              CTHON SubTest12A"+"  "+DateTime$

CHDRIVE NetDrive(1)
SHELL "deltree /y *.12"
CreateDir$ = ""

levels$ = "1"
files$  = "1"
dirs$   = "1"

If EXISTS ("testdir.12","+d") Then CreateDir$ = "-n"

STATUSBOX "CTHON04 SubTest 1a In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test1 testdir.12 testlog.12 "+CreateDir$+" "+levels$+" "+files$+" "+dirs$
SHELL Execute$

STATUSBOX "CTHON04 SubTest 2a In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test2 testdir.12 testlog.12 "+CreateDir$+" "+levels$+" "+files$+" "+dirs$
SHELL Execute$

CheckLog "testlog.12", Failed$, False
EndSubTest "                              CTHON SubTest12A"+"  "+DateTime$

End Sub

'******************************************************************************
'SUB CTHONTest12b
'******************************************************************************
Sub CTHONTest12b() Static

'  initialize - open logs and start CTHON

StartSubTest "                              CTHON SubTest12B"+"  "+DateTime$

CHDRIVE NetDrive(1)
SHELL "deltree /y *.12"
CreateDir$ = ""

levels$ = "1"
files$  = "1"
dirs$   = "1"

If EXISTS ("testdir.12","+d") Then CreateDir$ = "-n"

STATUSBOX "CTHON04 SubTest 1b In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test1 testdir.12 testlog.12 "+CreateDir$+" "+levels$+" "+files$+" "+dirs$
SHELL Execute$

STATUSBOX "CTHON04 SubTest 2b In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test2 testdir.12 testlog.12 "+CreateDir$+" "+levels$+" "+files$+" "+dirs$
SHELL Execute$

CheckLog "testlog.12", Failed$, False
EndSubTest "                              CTHON SubTest12B"+"  "+DateTime$

End Sub


'******************************************************************************
'SUB CTHONTest12c
'******************************************************************************
Sub CTHONTest12c() Static

'  initialize - open logs and start CTHON

StartSubTest "                              CTHON SubTest12C"+"  "+DateTime$

CHDRIVE NetDrive(1)
SHELL "deltree /y *.12"
CreateDir$ = ""

levels$ = "1"
files$  = "1"
dirs$   = "1"

If EXISTS ("testdir.12","+d") Then CreateDir$ = "-n"

STATUSBOX "CTHON04 SubTest 1c In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test1 testdir.12 testlog.12 "+CreateDir$+" "+levels$+" "+files$+" "+dirs$
SHELL Execute$

STATUSBOX "CTHON04 SubTest 2c In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test2 testdir.12 testlog.12 "+CreateDir$+" "+levels$+" "+files$+" "+dirs$
SHELL Execute$

CheckLog "testlog.12", Failed$, False
EndSubTest "                              CTHON SubTest12C"+"  "+DateTime$

End Sub

'******************************************************************************
'SUB CTHONTest03
'******************************************************************************
Sub CTHONTest03() Static

'  initialize - open logs and start CTHON

StartSubTest "                              CTHON SubTest  3"+"  "+DateTime$

CHDRIVE NetDrive(1)
SHELL "deltree /y *.3"
CreateDir$ = ""

count$ = "1"

If EXISTS ("testdir.3","+d") Then CreateDir$ = "-n"

STATUSBOX "CTHON04 SubTest 3 In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test3 testdir.3 testlog.3 "+CreateDir$+" "+count$
SHELL Execute$

CheckLog "testlog.3", Failed$, False
EndSubTest "                              CTHON SubTest  3"+"  "+DateTime$

End Sub

'******************************************************************************
'SUB CTHONTest04
'******************************************************************************
Sub CTHONTest04() Static

'  initialize - open logs and start CTHON

StartSubTest "                              CTHON SubTest  4"+"  "+DateTime$

CHDRIVE NetDrive(1)
SHELL "deltree /y *.4"
CreateDir$ = ""

files$ = "1"
count$ = "10"

If EXISTS ("testdir.4","+d") Then CreateDir$ = "-n"

STATUSBOX "CTHON04 SubTest 4 In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test4 testdir.4 testlog.4 "+CreateDir$+" "+files$+" "+count$
SHELL Execute$

CheckLog "testlog.4", Failed$, False
EndSubTest "                              CTHON SubTest  4"+"  "+DateTime$

End Sub


'******************************************************************************
'SUB CTHONTest06
'******************************************************************************
Sub CTHONTest06() Static

'  initialize - open logs and start CTHON

StartSubTest "                              CTHON SubTest  6"+"  "+DateTime$

CHDRIVE NetDrive(1)
SHELL "deltree /y *.6"
CreateDir$ = ""

F = 512
files$ = "1"
count$ = "1"

If EXISTS ("testdir.6","+d") Then CreateDir$ = "-n"

STATUSBOX "CTHON04 SubTest 6 In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test6 testdir.6 testlog.6 "+CreateDir$+" "+files$+" "+count$
SHELL Execute$

CheckLog "testlog.6", Failed$, False
EndSubTest "                              CTHON SubTest  6"+"  "+DateTime$

End Sub


'******************************************************************************
'SUB CTHONTest09
'******************************************************************************
Sub CTHONTest09() Static

'  initialize - open logs and start CTHON

StartSubTest "                              CTHON SubTest  9"+"  "+DateTime$

CHDRIVE NetDrive(1)
SHELL "deltree /y *.9"
CreateDir$ = ""

count$ = "1"

If EXISTS ("testdir.9","+d") Then CreateDir$ = "-n"

STATUSBOX "CTHON04 SubTest 9 In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test9 testdir.9 testlog.9 "+CreateDir$+" "+count$
SHELL Execute$

CheckLog "testlog.9", Failed$, False
EndSubTest "                              CTHON SubTest  9"+"  "+DateTime$

End Sub


'******************************************************************************
'SUB CTHONTest05
'******************************************************************************
Sub CTHONTest05() Static

'  initialize - open logs and start CTHON (this is the longest test)

StartSubTest "                              CTHON SubTest  5"+"  "+DateTime$

CHDRIVE NetDrive(1)
SHELL "deltree /y *.5"
CreateDir$ = ""
fname$ = ""

FOR N = 1 TO 2 STEP 1
fname$ = fname$+"x"

FOR C = 1 TO 2 STEP 1
count$ = STR$(C)

size$  = "512"

If EXISTS ("testdir.5","+d") Then CreateDir$ = "-n"

STATUSBOX "CTHON04 SubTest 5 In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test5 testdir.5 testlog.5 "+CreateDir$+" "+size$+" "+count$+" "+fname$
SHELL Execute$

NEXT C
NEXT N

CheckLog "testlog.5", Failed$, False
EndSubTest "                              CTHON SubTest  5"+"  "+DateTime$

End Sub


'******************************************************************************
'SUB CTHONTest07
'******************************************************************************
Sub CTHONTest07() Static

'  initialize - open logs and start CTHON

StartSubTest "                              CTHON SubTest  7"+"  "+DateTime$

CHDRIVE NetDrive(1)
SHELL "deltree /y *.7"
CreateDir$ = ""
sfname$ = ""

FOR S = 1 TO 2
sfname$ = sfname$ + "a"
efname$ = ""

FOR E = 1 TO 2
efname$ = efname$ + "z"

If EXISTS ("testdir.7","+d") Then CreateDir$ = "-n"

STATUSBOX "CTHON04 SubTest 7 In Progess", 0,0,0,0, TRUE, TRUE
Execute$ = ProgramPath$+"cthon.bat "+ProgramPath$+" test7 testdir.7 testlog.7 "+CreateDir$+" 1 1 "+sfname$+" "+efname$
SHELL Execute$

NEXT E
NEXT S

CheckLog "testlog.7", Failed$, False
EndSubTest "                              CTHON SubTest  7"+"  "+DateTime$

End Sub