home *** CD-ROM | disk | FTP | other *** search
/ FCE Gold Plus / GOLD.iso / pc / fscommand / Xtras / FileXtra4_test.dir / 00001_Script_test_bug1() next >
Text File  |  2002-12-20  |  728b  |  20 lines
  1. on test_bug1
  2.   fxObj = xtra("FileXtra4").new()
  3.   thePath = "Macintosh HD:Test Folder Name Really Long1:Test Folder Name Really Long2:Test Folder Name Really Long3:"
  4.   thePath = thePath & "Test Folder Name Really Long4:Test Folder Name Really Long5:Test Folder Name Really Long6:"
  5.   thePath = thePath & "Test Folder Name Really Long7:Test Folder Name Really Long8:Test Folder Name Really Long9:"
  6.   
  7.   put "test_bug1(): length of path == " & string(thePath.length)
  8.   
  9.   theList = fxObj.fx_FolderToList(thePath)
  10.   put theList
  11.   
  12.   errCode = fxObj.fx_ErrorNumber()
  13.   put "FX3 error code: " & string(errCode)
  14.   if errCode <> 0 then
  15.     put "    error string: " & fxObj.fx_ErrorString()
  16.   end if
  17.   
  18.   fxObj = 0
  19. end
  20.