X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=_src%2FTest%2Fvbslib_test%2FT_File%2FT_File.vbs;fp=_src%2FTest%2Fvbslib_test%2FT_File%2FT_File.vbs;h=0328f9e1d0110e6f828880d3629fd8014a5bc9f7;hb=d681a438cc3af0b7d3395580d7984b06d4607bfc;hp=f90300986f68fbadf1c166e3fd74e9d5d18789cf;hpb=8cd319a3714156b275c5e3809401dfccfa472e29;p=vbslib%2Fmain.git

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
--- 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
+Option Explicit 
 '--- start of vbslib include ------------------------------------------------------
 '// ‚±‚±‚́AC³‚µ‚È‚¢‚Å‚­‚¾‚³‚¢B‰º‹LƒƒCƒ“ŠÖ”‚©‚çƒXƒNƒŠƒvƒg‚ð‹Lq‚µ‚Ä‚­‚¾‚³‚¢B
 '// ‚l‚rƒIƒtƒBƒX‚âƒRƒ“ƒpƒCƒ‰‚ª‚ ‚ê‚΁A‰º‹L‚Ì‚‡Q‚„‚…‚‚‚•‚‡ ‚ð‚P‚É‚·‚ê‚΁AƒfƒoƒbƒK‚ªŽg‚¦‚Ü‚·B
@@ -30,15 +30,18 @@ End If
 '--- end of vbslib include --------------------------------------------------------
 
 
+ 
 '********************************************************************************
 '  <<< [main2] >>> 
 '********************************************************************************
 Sub main2( Opt, AppKey ):Dim w_:Set w_=AppKey.NewWritable( "." ).Enable()
   Select Case  WScript.Arguments.Named.Item("Test")
-    Case "T_TempFile"   : T_TempFile
-    Case "T_TempDel"    : T_TempDel
-    Case "T_CreateFile" : T_CreateFile
-    Case Else : T_CreateFile  '// for Debug
+    Case "T_TempFile"   : T_TempFile    AppKey
+    Case "T_TempDel"    : T_TempDel     AppKey
+    Case "T_CreateFile" : T_CreateFile  AppKey
+    Case "T_Del"        : T_Del         AppKey
+    Case "T_ReadFile"   : T_ReadFile    AppKey
+    Case Else : T_ReadFile  AppKey  '// for Debug
   End Select
 End Sub
 
@@ -48,7 +51,7 @@ End Sub
 '********************************************************************************
 '  <<< [T_TempFile] >>> 
 '********************************************************************************
-Sub  T_TempFile()
+Sub  T_TempFile( AppKey )
   Dim  path1, f1, path2, f2
 
 
@@ -75,7 +78,7 @@ End Sub
 '********************************************************************************
 '  <<< [T_TempDel] >>> 
 '********************************************************************************
-Sub T_TempDel()
+Sub T_TempDel( AppKey )
   Dim  path1, f1, path2, f2
 
   '//=== Check auto delete old file
@@ -107,7 +110,7 @@ End Sub
 '********************************************************************************
 '  <<< [T_CreateFile] >>> 
 '********************************************************************************
-Sub T_CreateFile()
+Sub T_CreateFile( AppKey )
   Dim  path, fmt
 
   '//=== Create Ascii file
@@ -130,3 +133,34 @@ Sub T_CreateFile()
   del  path
 End Sub
  
+'********************************************************************************
+'  <<< [T_Del] >>> 
+'********************************************************************************
+Sub  T_Del( AppKey )
+
+  Dim w_:Set w_=AppKey.NewWritable( "." ).Enable()
+
+  mkdir  "work" : CreateFile  "work\file.txt", "1"
+  del  "work"
+  If exist( "work" ) Then  Fail
+
+  mkdir  "work" : CreateFile  "work\file.txt", "1"
+  del  "work\file.txt"
+  If exist( "work\file.txt" ) Then  Fail
+
+  del  "work\not_exist_sub\file.txt"
+  del  "work\not_exist_sub\*.txt"  '// not call ExpandWildcard inside
+
+  Pass
+End Sub
+ 
+'********************************************************************************
+'  <<< [T_ReadFile] >>> 
+'********************************************************************************
+Sub  T_ReadFile( AppKey )
+  If ReadFile("T_CreateFile1_ans.txt") <> "abc_ascii"+vbCRLF+"cde" Then  Fail
+  If  ReadFile("NotFound.txt") <> "" Then  Fail
+  If  ReadFile("sub\sub2\NotFound.txt") <> "" Then  Fail
+End Sub
+
+