home *** CD-ROM | disk | FTP | other *** search
/ FCE Gold Plus / GOLD.iso / pc / fscommand / Xtras / FileXtra4-Mac.sit / FileXtra4_test.dir / 00014_Script_FileTests() < prev    next >
Text File  |  2002-12-20  |  8KB  |  139 lines
  1. on FileTests
  2.   global folderToUse       -- defined in FolderTests()
  3.   
  4.   pathSepChar = the last char of the moviePath       -- either ':' (Mac) or '\' (Windows)
  5.   
  6.   WriteInfo(RETURN & RETURN & "File & Alias Tests commencing")
  7.   WriteInfo("******************************************")
  8.   
  9.   fxObj = xtra("FileXtra4").new()
  10.   if not(objectP(fxObj)) then
  11.     WriteInfo("*** Could not instantiate FileXtra4.  Is it in the Xtras folder? ***" & RETURN)
  12.     return
  13.   end if
  14.   
  15.   volumeList = fxObj.fx_VolumesToList()
  16.   volumeToUse = volumeList.getAt(1)       -- assume it's the boot drive
  17.   
  18.   -- pick out a file to copy, etc.
  19.   filesList = fxObj.fx_FolderToList(folderToUse)
  20.   -- fx_FolderToList() gives us every file in the folder, so strip out non-folders from the list
  21.   repeat with i = filesList.count down to 1
  22.     fname = filesList.getAt(i)
  23.     if chars(fname, fname.length, fname.length) <> pathSepChar then
  24.       if chars(fname, 1, 1) <> "." then
  25.         fileToUse = fname
  26.         exit repeat
  27.       end if
  28.     end if
  29.   end repeat
  30.   
  31.   sourceFileName = folderToUse & fileToUse
  32.   
  33.   -- make a unique folder name to test copying etc.
  34.   targetFolderName = volumeToUse & "_FX3_Test-Folder2-Name"
  35.   if fxObj.fx_FolderExists(targetFolderName) then
  36.     targetFolderName = targetFolderName & "_AA_"
  37.   end if
  38.   targetFolderName = targetFolderName & pathSepChar
  39.   
  40.   targetFileName = targetFolderName & fileToUse
  41.   
  42.   WriteInfo("Creating temp folder for testing...")
  43.   retVal = fxObj.fx_FolderCreate(targetFolderName)
  44.   WriteInfo("fx_FolderCreate('" & targetFolderName & "') returns " & GetTrueFalseString(retVal))
  45.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  46.   
  47.   retVal = fxObj.fx_FileCopy(sourceFileName, targetFileName)
  48.   WriteInfo("fx_FileCopy('" & sourceFileName & "', '" & targetFileName & "') returns " & GetTrueFalseString(retVal))
  49.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  50.   
  51.   retVal = fxObj.fx_FileExists(targetFileName)
  52.   WriteInfo("fx_FileExists('" & targetFileName & "') returns " & GetTrueFalseString(retVal))
  53.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  54.   
  55.   retVal = fxObj.fx_FileIsLink(targetFileName)
  56.   WriteInfo("fx_FileIsLink('" & targetFileName & "') returns " & GetTrueFalseString(retVal))
  57.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  58.   
  59.   tempRootFName = "FX_temp_fname"
  60.   tempNewFileName = targetFolderName & tempRootFName
  61.   
  62.   retVal = fxObj.fx_FileRename(targetFileName, tempNewFileName)
  63.   WriteInfo("fx_FileRename('" & targetFileName & "', '" & tempNewFileName & "') returns " & GetTrueFalseString(retVal))
  64.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  65.   
  66.   retVal = fxObj.fx_FileRename(tempNewFileName, targetFileName)
  67.   WriteInfo("fx_FileRename('" & tempNewFileName & "', '" & targetFileName & "') returns " & GetTrueFalseString(retVal))
  68.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  69.   
  70.   fromFPath = targetFileName
  71.   --  toFPath = volumeToUse & tempRootFName
  72.   toFPath = volumeToUse & fileToUse
  73.   retVal = fxObj.fx_FileMove(fromFPath, toFPath)
  74.   WriteInfo("fx_FileMove('" & fromFPath & "', '" & toFPath & "') returns " & GetTrueFalseString(retVal))
  75.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  76.   
  77.   retVal = fxObj.fx_FileCopy(toFPath, targetFileName)
  78.   WriteInfo("fx_FileCopy('" & toFPath & "', '" & targetFileName & "') returns " & GetTrueFalseString(retVal))
  79.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  80.   
  81.   retVal = fxObj.fx_FileCompare(toFPath, targetFileName)
  82.   WriteInfo("fx_FileCompare('" & toFPath & "', '" & targetFileName & "') returns " & GetTrueFalseString(retVal))
  83.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  84.   
  85.   retVal = fxObj.fx_FileRecycle(toFPath)
  86.   WriteInfo("fx_FileRecycle('" & toFPath & "') returns " & GetTrueFalseString(retVal))
  87.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  88.   
  89.   retVal = fxObj.fx_FileGetWriteState(targetFileName)
  90.   WriteInfo("fx_FileGetWriteState('" & targetFileName & "') returns " & GetTrueFalseString(retVal))
  91.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  92.   
  93.   retVal = fxObj.fx_FileSetWriteState(targetFileName, False)
  94.   WriteInfo("fx_FileSetWriteState('" & targetFileName & "', False) returns " & GetTrueFalseString(retVal))
  95.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  96.   
  97.   retValStr = fxObj.fx_FileGetModDate(targetFileName)
  98.   WriteInfo("fx_FileGetModDate('" & targetFileName & "') returns " & retValStr)
  99.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  100.   
  101.   retVal = fxObj.fx_FileGetModNumber(targetFileName)
  102.   WriteInfo("fx_FileGetModNumber('" & targetFileName & "') returns " & retVal)
  103.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  104.   
  105.   retVal = fxObj.fx_FileGetSize(targetFileName)
  106.   WriteInfo("fx_FileGetSize('" & targetFileName & "') returns " & retVal)
  107.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  108.   
  109.   retValStr = fxObj.fx_FileGetType(targetFileName)
  110.   WriteInfo("fx_FileGetType('" & targetFileName & "') returns '" & retValStr & "'")
  111.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  112.   
  113.   retValStr = fxObj.fx_FileGetAppPath("TEXTttxt")       -- *** Mac SimpleText
  114.   WriteInfo("fx_FileGetAppPath('" & targetFileName & "') returns " & retValStr)
  115.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  116.   
  117.   retVal = fxObj.fx_LinkCreate(sourceFileName, targetFolderName)
  118.   WriteInfo("fx_LinkCreate('" & sourceFileName & "', '" & targetFolderName & "') returns " & GetTrueFalseString(retVal))
  119.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  120.   
  121.     aliasFileName = targetFileName & " alias"       -- *** this may give Windoze indigestion ***
  122.   retValStr = fxObj.fx_LinkResolve(aliasFileName)
  123.   WriteInfo("fx_LinkResolve('" & aliasFileName & "') returns '" & retValStr & "'")
  124.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  125.   
  126.   retVal = fxObj.fx_FileDelete(aliasFileName)
  127.   WriteInfo("fx_FileDelete('" & aliasFileName & "') returns " & GetTrueFalseString(retVal))
  128.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  129.   
  130.   WriteInfo("Deleting temp folder...")
  131.   retVal = fxObj.fx_FolderDelete(targetFolderName, True)       -- delete test folder and all contents
  132.   WriteInfo("fx_FolderDelete('" & targetFolderName & "', True) returns " & GetTrueFalseString(retVal))
  133.   WriteInfo("     fx_ErrorNumber returns " & fxObj.fx_ErrorNumber() & ", fx_ErrorString returns '" & fxObj.fx_ErrorString() & "'")
  134.   
  135.   WriteInfo("")
  136.   
  137.   fxObj = 0
  138. end
  139.