📄 tihxfile.in
字号:
# ************* DataFile Tests *************# *** Operations on unbound file ***GetLastErrorCode OKDelete FAILName FAILIsOpen FALSEClose OKFlush FAILOpen "wb" FAILOpen "rb" FAILCreate "wb" FAILCreate "rb" FAILRead 20 FAILWrite HelloWorld FAILStat FAILTellGetLastErrorCode FAIL# *** Bind ***Bind FakeFile.txtName OK FakeFile.txt# *** Rebind ***Bind TestFile.txtName OK TestFile.txt# *** Open-Create ***Create wb OKIsOpen TRUEName OK TestFile.txt# *** Close and close againClose OKIsOpen FALSEName OK TestFile.txtClose OKClose OK# *** Open ***Open rwb OKIsOpen TRUEName OK TestFile.txtClose OK# *** Write on Closed File ***Write HelloWorld FAILWrite NeverSayNeverAgain FAIL# *** Open ***Open rwb OKIsOpen TRUEName OK TestFile.txt# *** Write on Open File ***Write HelloWorld OKWrite NeverSayNeverAgain OKFlush OK# *** Stat ***Stat OK 28# *** Seek/Read/Tell ***Seek 2 SET OKRead 3 OK lloTell 5Seek 2 CUR OKTell 7Read 3 OK rldSeek -5 CUR OKTell 5Stat OK 28Read 5 OK WorldTell 10Seek -5 END OKTell 23Read 5 OK AgainTell 28Stat OK 28# *** Flush on Open File ***Flush OKFlush OKFlush OKStat OK 28# *** EOF Read ***Read 3 FAILRead 5 FAILRead 23 FAIL# *** Partial EOF Read ***Seek -3 END OKRead 5 OK ainTell 28Stat OK 28# *** Close ***Close OKIsOpen FALSEName OK TestFile.txt# *** Stat unbound file ***Stat OK 28# *** Flush on Closed File ***Flush FAILFlush FAILFlush FAIL# *** Delete Closed File ***Delete OK# *** Open non-existent file ***Open rb FAILOpen rwb FAILOpen w FAIL# *** Open for read/write ***Create rwb OK# *** Write ***Write HelloWorld OK# *** Delete Open File ***Delete OKIsOpen FALSE# *** Open for read/write ***Open rwb FAILIsOpen FALSECreate rwb OKWrite HelloWorld OKFlush OKStat OK 10# *** Re-open test ***Open rb OKTell 0Stat OK 10GetLastErrorStringClose OKClose OK# *** Create-NoTrunc test ***Create rwbn FAILCreate rwn FAILCreate rbn FAILCreate wbn FAILCreate rn FAILCreate wn FAIL# *** Blast test ***Create wb OKStat OK 0Write HelloWorld OKFlush OKStat OK 10Delete OKOpen rb FAIL# *** CHX Data file tests ***# *** Get Temp File Name ***GetTempNameCreate rwb OKGetTempNameWrite HelloWorld OKFlush OK# *** Rewind Test ***Rewind OKRead 5 OK HelloRewind OKRead 5 OK HelloClose OKRewind FAILRewind FAIL# *** Delete name test ***Delete TestFile.txt OKDelete TestFile.txt FAILDelete TestFIle.txt FAILOpen rb FAIL# ************* Directory Tests *************# *** Dir Creation/Destruction ***SetDirPath C:\TestDir2\DestroyDir TRUEGetDirPath OK C:\TestDir2\CreateDir OKIsDirValid TRUEDestroyDir FALSE OKIsDirValid FALSESetDirPath C:\TestDir\DestroyDir TRUECreateDir OKIsDirValid TRUE# *** Make Files in Dir ***Bind C:\TestDir\TestFile1.txtCreate wb OKClose OKBind C:\TestDir\TestFile2.txtCreate wb OKClose OKBind C:\TestDir\TestFile3.txtCreate wb OKClose OK# *** List Dir ***FindFirstInDir * 50 OKFindNextInDir 50 OKFindNextInDir 50 OKFindNextInDir 50 FAILFindFirstInDir * 50 OKFindNextInDir 50 OKFindNextInDir 50 OKFindNextInDir 50 FAILFindFirstInDir * 50 OKFindNextInDir 50 OKFindFirstInDir * 50 OKFindNextInDir 50 OKFindNextInDir 50 OKFindNextInDir 50 FAIL# *** Make More Files in Dir ***Bind C:\TestDir\TestFile1.tttCreate wb OKClose OKBind C:\TestDir\TestFile2.tttCreate wb OKClose OKBind C:\TestDir\TestFile3.tttCreate wb OKClose OK# *** List Dir with Pattern ***FindFirstInDir * 50 OKFindNextInDir 50 OKFindNextInDir 50 OKFindNextInDir 50 OKFindNextInDir 50 OKFindNextInDir 50 OKFindNextInDir 50 FAILFindFirstInDir * 50 OKFindNextInDir 50 OKFindNextInDir 50 OKFindFirstInDir *.ttt 50 FILEFindNextInDir 50 FILEFindNextInDir 50 FILEFindNextInDir 50 FAIL# *** Make Dirs in Dir ***SetDirPath C:\TestDir\ADir1\CreateDir OKSetDirPath C:\TestDir\ADir2\CreateDir OKSetDirPath C:\TestDir\BDir1\CreateDir OK# *** List Dir withs Pattern ***SetDirPath C:\TestDir\FindFirstInDir A* 50 DIRFindNextInDir 50 DIRFindNextInDir 50 FAILFindFirstInDir B* 50 DIR C:\TestDir\BDir1# *** Delete File ***DeleteDirFile TestFile3.ttt OKDeleteDirFile TestFile2.ttt OKDeleteDirFile C:\TestDir\TestFile1.ttt OK# List of non existent patternFindFirstInDir *.ttt 50 FAIL# *** Rename File ***Rename C:\TestDir\TestFile1.txt C:\TestDir\TestFile1.xxx OKRename C:\TestDir\TestFile1.txt C:\TestDir\TestFile1.yyy FAILFindFirstInDir *.yyy 50 FAILFindFirstInDir *.xxx 50 FILE C:\TestDir\TestFile1.xxx# *** Delete of non-empty dir ***SetDirPath C:\TestDir\DestroyDir FALSE FAILDestroyDir TRUE OKIsDirValid FALSE
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -