Version 3.03

[vbslib/main.git] / _src / Test / vbslib_test / T_File / T_File.vbs

diff --git a/_src/Test/vbslib_test/T_File/T_File.vbs b/_src/Test/vbslib_test/T_File/T_File.vbs
index f903009..0328f9e 100644 (file)
--- a/_src/Test/vbslib_test/T_File/T_File.vbs
+++ b/_src/Test/vbslib_test/T_File/T_File.vbs
@@ -1,4 +1,4 @@
-Option Explicit\r
+Option Explicit \r
 '--- start of vbslib include ------------------------------------------------------\r
 '// \82±\82±\82Í\81A\8fC\90³\82µ\82È\82¢\82Å\82­\82¾\82³\82¢\81B\89º\8bL\83\81\83C\83\93\8aÖ\90\94\82©\82ç\83X\83N\83\8a\83v\83g\82ð\8bL\8fq\82µ\82Ä\82­\82¾\82³\82¢\81B\r
 '// \82l\82r\83I\83t\83B\83X\82â\83R\83\93\83p\83C\83\89\82ª\82 \82ê\82Î\81A\89º\8bL\82Ì\82\87\81Q\82\84\82\85\82\82\82\95\82\87 \82ð\82P\82É\82·\82ê\82Î\81A\83f\83o\83b\83K\82ª\8eg\82¦\82Ü\82·\81B\r
@@ -30,15 +30,18 @@ End If
 '--- end of vbslib include --------------------------------------------------------\r
 \r
 \r
+ \r
 '********************************************************************************\r
 '  <<< [main2] >>> \r
 '********************************************************************************\r
 Sub main2( Opt, AppKey ):Dim w_:Set w_=AppKey.NewWritable( "." ).Enable()\r
   Select Case  WScript.Arguments.Named.Item("Test")\r
-    Case "T_TempFile"   : T_TempFile\r
-    Case "T_TempDel"    : T_TempDel\r
-    Case "T_CreateFile" : T_CreateFile\r
-    Case Else : T_CreateFile  '// for Debug\r
+    Case "T_TempFile"   : T_TempFile    AppKey\r
+    Case "T_TempDel"    : T_TempDel     AppKey\r
+    Case "T_CreateFile" : T_CreateFile  AppKey\r
+    Case "T_Del"        : T_Del         AppKey\r
+    Case "T_ReadFile"   : T_ReadFile    AppKey\r
+    Case Else : T_ReadFile  AppKey  '// for Debug\r
   End Select\r
 End Sub\r
 \r
@@ -48,7 +51,7 @@ End Sub
 '********************************************************************************\r
 '  <<< [T_TempFile] >>> \r
 '********************************************************************************\r
-Sub  T_TempFile()\r
+Sub  T_TempFile( AppKey )\r
   Dim  path1, f1, path2, f2\r
 \r
 \r
@@ -75,7 +78,7 @@ End Sub
 '********************************************************************************\r
 '  <<< [T_TempDel] >>> \r
 '********************************************************************************\r
-Sub T_TempDel()\r
+Sub T_TempDel( AppKey )\r
   Dim  path1, f1, path2, f2\r
 \r
   '//=== Check auto delete old file\r
@@ -107,7 +110,7 @@ End Sub
 '********************************************************************************\r
 '  <<< [T_CreateFile] >>> \r
 '********************************************************************************\r
-Sub T_CreateFile()\r
+Sub T_CreateFile( AppKey )\r
   Dim  path, fmt\r
 \r
   '//=== Create Ascii file\r
@@ -130,3 +133,34 @@ Sub T_CreateFile()
   del  path\r
 End Sub\r
  \r
+'********************************************************************************\r
+'  <<< [T_Del] >>> \r
+'********************************************************************************\r
+Sub  T_Del( AppKey )\r
+\r
+  Dim w_:Set w_=AppKey.NewWritable( "." ).Enable()\r
+\r
+  mkdir  "work" : CreateFile  "work\file.txt", "1"\r
+  del  "work"\r
+  If exist( "work" ) Then  Fail\r
+\r
+  mkdir  "work" : CreateFile  "work\file.txt", "1"\r
+  del  "work\file.txt"\r
+  If exist( "work\file.txt" ) Then  Fail\r
+\r
+  del  "work\not_exist_sub\file.txt"\r
+  del  "work\not_exist_sub\*.txt"  '// not call ExpandWildcard inside\r
+\r
+  Pass\r
+End Sub\r
+ \r
+'********************************************************************************\r
+'  <<< [T_ReadFile] >>> \r
+'********************************************************************************\r
+Sub  T_ReadFile( AppKey )\r
+  If ReadFile("T_CreateFile1_ans.txt") <> "abc_ascii"+vbCRLF+"cde" Then  Fail\r
+  If  ReadFile("NotFound.txt") <> "" Then  Fail\r
+  If  ReadFile("sub\sub2\NotFound.txt") <> "" Then  Fail\r
+End Sub\r
+\r
+ \r