Menu
▾
▴
SF.net SVN: frontierkernel: [1365] ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testMacFileHandling.fvc
|
From: <cre...@us...> - 2006-05-05 22:20:55
|
Revision: 1365 Author: creecode Date: 2006-05-05 15:20:50 -0700 (Fri, 05 May 2006) ViewCVS: http://svn.sourceforge.net/frontierkernel/?rev=1365&view=rev Log Message: ----------- minor formatting tweaks added tests for file.getLabelIndex, setLabelIndex, getLabelNames updated test for file.getLabel, setLabel Modified Paths: -------------- ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testMacFileHandling.fvc Modified: ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testMacFileHandling.fvc =================================================================== --- ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testMacFileHandling.fvc 2006-05-05 22:19:08 UTC (rev 1364) +++ ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testMacFileHandling.fvc 2006-05-05 22:20:50 UTC (rev 1365) @@ -1,67 +1,99 @@ -FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testMacFileHandling +FrontierVcsFile:2:scpt:suites.fUnit.testSuperStress.testMacFileHandling on testMacFileHandling () { + «Changes + «4/24/06; 2:05:11 PM by TAC + «minor formatting tweaks + «added tests for file.getLabelIndex, setLabelIndex, getLabelNames + «updated test for file.getLabel, setLabel + if system.environment.isMac { local (sysdisk, sysfolder, tmpfolder, f, finder, i); + sysdisk = file.getSystemDisk (); sysfolder = file.getSystemFolderPath (); + if system.environment.isMac { tmpfolder = file.getSpecialFolderPath (sysdisk, "Temporary Items", true)} else { tmpfolder = file.getSpecialFolderPath (sysdisk, "temp", true)}; + f = tmpfolder + "superstress test file #23.txt"; file.new (f); - bundle { \xC7file.setType, type, setcreator, creator + + bundle { // file.setType, type, setcreator, creator file.setType (f, 'TEXT'); - assert(file.type(f) == 'TEXT', "file.type is broken."); + assert (file.type (f) == 'TEXT', "file.type is broken."); file.setCreator (f, 'KAHL'); - assert(file.creator(f) == 'KAHL', "file.creator is broken.")}; - bundle { \xC7file.setLabel, getLabel - file.setLabel (f, "Hot"); - assertEqual(file.getLabel(f), "Hot", "file.setLabel is broken."); + assert (file.creator (f) == 'KAHL', "file.creator is broken.")}; + + bundle { // file.getLabelNames, setLabel, getLabel, setLabelIndex, getLabelIndex + assert (file.getLabelNames (), "file.getLabelNames is broken."); + assert (sizeOf (file.getLabelNames ()) == 8, "file.getLabelNames is broken."); + file.setLabel (f, "Red"); + assertEqual (file.getLabel (f), "Red", "file.setLabel is broken."); file.setLabel (f, "None"); - assertEqual(file.getLabel(f), "None", "file.setLabel is broken")}; - bundle { \xC7file.newAlias, isAlias, followAlias + assertEqual (file.getLabel (f), "None", "file.setLabel is broken"); + file.setLabelIndex (f, 1); + assertEqual (file.getLabelIndex (f), 1, "file.setLabelIndex is broken."); + file.setLabelIndex (f, 0); + assertEqual (file.getLabelIndex (f), 0, "file.setLabelIndex is broken")}; + + bundle { // file.newAlias, isAlias, followAlias local (fnew = tmpfolder + "superstress test file #25"); file.newAlias (f, fnew); - assert(file.isAlias(fnew), "file.newAlias is broken."); - assertEqual(file.followAlias(fnew), f, "file.followAlias is broken"); + assert (file.isAlias (fnew), "file.newAlias is broken."); + assertEqual (file.followAlias (fnew), f, "file.followAlias is broken"); file.delete (fnew); fnew = tmpfolder + "superstress test file #26"; file.newAlias (sysfolder, fnew); - assert(file.isAlias(fnew), "file.newAlias is broken."); - assertEqual(file.followAlias(fnew), sysfolder, "file.followAlias is broken"); + assert (file.isAlias (fnew), "file.newAlias is broken."); + assertEqual (file.followAlias (fnew), sysfolder, "file.followAlias is broken"); file.delete (fnew)}; - if system.environment.isMacOsClassic { \xC7file.getSpecialFolderPath - assertEqual(file.getSpecialFolderPath ("", "System", false), sysfolder, "file.getSpecialFolderPath is broken.")}; - if system.environment.isMacOsClassic { \xC7file.setBundle, file.hasBundle - assert(file.hasBundle(Frontier.getProgramPath()), "file.hasBundle is broken."); - assert(!file.hasBundle(Frontier.getFilePath()), "file.hasBundle is broken."); + + if system.environment.isMacOsClassic { // file.getSpecialFolderPath + assertEqual (file.getSpecialFolderPath ("", "System", false), sysfolder, "file.getSpecialFolderPath is broken.")}; + + if system.environment.isMacOsClassic { // file.setBundle, file.hasBundle + assert (file.hasBundle (Frontier.getProgramPath()), "file.hasBundle is broken."); + assert (!file.hasBundle (Frontier.getFilePath ()), "file.hasBundle is broken."); file.setBundle (f, true); - assert(file.hasBundle(f), "file.setBundle is broken."); + assert (file.hasBundle (f), "file.setBundle is broken."); file.setBundle (f, false); - assert(!file.hasBundle(f), "file.setBundle is broken.")}; - if system.environment.isMacOsClassic { \xC7folders - y = 2 * file.bytesInFolder (sysfolder + "Control Panels:"); + assert (!file.hasBundle (f), "file.setBundle is broken.")}; + + if system.environment.isMacOsClassic { // folders + local (y = 2 * file.bytesInFolder (sysfolder + "Control Panels:")); + if file.freeSpaceOnVolume (sysdisk) < y { abort ("You need at least " + y + " bytes free on " + sysdisk + " to complete running testMacFileHandling.")}; - newfolder = tmpfolder + "superstress test folder #89" + file.getPathChar(); + + newfolder = tmpfolder + "superstress test folder #89" + file.getPathChar (); + if file.exists (newfolder) { file.deleteFolder (newfolder)}; + file.newFolder (newfolder); - assert(file.exists(newfolder), "file.newFolder is broken."); - assert(file.isFolder(newfolder), "file.newFolder is broken."); + + assert (file.exists (newfolder), "file.newFolder is broken."); + assert (file.isFolder (newfolder), "file.newFolder is broken."); + fileloop (fname in sysfolder + "Control Panels:") { local (s = file.fileFromPath (fname)); file.copy (fname, newfolder + s)}; + file.copy (sysfolder + "Control Panels:", newfolder + "Control Panels:"); - x = file.bytesInFolder (newfolder); - assert(abs(x-y) < 1024, "file.bytesInFolder or file.copy is broken."); + + local (x = file.bytesInFolder (newfolder)); + + assert (abs (x-y) < 1024, "file.bytesInFolder or file.copy is broken."); + file.deleteFolder (newfolder); - assert(!file.exists(newfolder), "file.deleteFolder is broken.")}; + + assert (!file.exists (newfolder), "file.deleteFolder is broken.")}; - assert(file.delete(f), "file.delete is broken.")}}; + assert (file.delete (f), "file.delete is broken.")}}; -bundle { //debug code - fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file +bundle { // debug code + fUnit.runners.run (parentOf (this^), testCaseToRun: this)} \ No newline at end of file This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
