Inital Commit

1 files changed, 366 insertions, 0 deletions

diff --git a/basic/scripts/cthon04.mst b/basic/scripts/cthon04.mst
new file mode 100644
index 0000000..b5f5542
--- /dev/null
+++ b/basic/scripts/cthon04.mst
@@ -0,0 +1,366 @@
+'******************************* 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

+