SF.net SVN: frontierkernel: [1256] ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testSys.fvc

[<and...@us...>]

Revision: 1256
Author:   andreradke
Date:     2006-04-12 14:44:27 -0700 (Wed, 12 Apr 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1256&view=rev

Log Message:
-----------
Fix Windows-specific test case for sys.bringAppToFront in fUnit.testSuperStress.testSys: the app name check should not be case-sensitive.

Modified Paths:
--------------
    ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testSys.fvc
Modified: ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testSys.fvc
===================================================================
--- ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testSys.fvc	2006-04-12 21:15:56 UTC (rev 1255)
+++ ODBs/trunk/frontierRoot/suites/fUnit/testSuperStress/testSys.fvc	2006-04-12 21:44:27 UTC (rev 1256)
@@ -1,14 +1,14 @@
-FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testSys
+FrontierVcsFile:2:scpt:suites.fUnit.testSuperStress.testSys
 
 on testSys () {
-	\xC7test the sys verbs
-		\xC7TO DO:
-			\xC7On Carbon, check "Frontier" as well as "Frontier.app", both should work
+	«test the sys verbs
+		«TO DO:
+			«On Carbon, check "Frontier" as well as "Frontier.app", both should work
 	
 	local (frontierPath = Frontier.getProgramPath ());
 	local (frontierAppName = file.fileFromPath (frontierPath));
 	if system.environment.isCarbon {
-		\xC72006-02-18 aradke: fix appname for packages
+		«2006-02-18 aradke: fix appname for packages
 		local (appExtension = ".app" + file.getPathChar ());
 		if frontierAppName endsWith appExtension {
 			frontierAppName = string.mid (frontierAppName, 1, string.length (frontierAppName) - string.length (appExtension))}};
@@ -17,7 +17,7 @@
 	
 	local (appPath = sys.getAppPath (frontierAppName));
 	if system.environment.isCarbon {
-		\xC72006-02-18 aradke: sys.getAppPath returns the full path to the executable in a package, need to strip anything after the foo.app folder before the comparison
+		«2006-02-18 aradke: sys.getAppPath returns the full path to the executable in a package, need to strip anything after the foo.app folder before the comparison
 		local (appExtension = ".app" + file.getPathChar ());
 		if appPath contains appExtension {
 			loop {
@@ -27,21 +27,21 @@
 	assertEqual(appPath, frontierPath, "sys.getAppPath is broken.");
 	
 	if system.environment.isMac {
-		\xC7if (user.prefs.name != "Wesley Felter")
-			\xC7if Frontier.isRuntime ()
-				\xC7minappsize = 500
-			\xC7else
-				\xC7minappsize = 4760
-			\xC7if sys.getMinAppSize (path) != minappsize // * 1024
-				\xC7scriptError ("sys.getMinAppSize is broken.")
+		«if (user.prefs.name != "Wesley Felter")
+			«if Frontier.isRuntime ()
+				«minappsize = 500
+			«else
+				«minappsize = 4760
+			«if sys.getMinAppSize (path) != minappsize // * 1024
+				«scriptError ("sys.getMinAppSize is broken.")
 		sys.bringAppToFront ("Finder");
 		assertEqual(sys.frontmostApp (), "Finder", "sys.bringAppToFront or sys.frontmostApp is broken");
 		if system.environment.isMacOsClassic {
-			\xC72006-02-18 aradke: sys.appIsIACAware needs to be upraded for OS X to read from the datafork if the app is a package
+			«2006-02-18 aradke: sys.appIsIACAware needs to be upraded for OS X to read from the datafork if the app is a package
 			assert(sys.appIsIACAware (frontierPath), "sys.appIsIACAware is broken.")}};
-	if system.environment.isWindows { //2006-02-18 by aradke: still need to test on Windows
+	if system.environment.isWindows {
 		sys.bringAppToFront ("explorer.exe");
-		assertEqual(sys.frontmostApp (), "explorer.exe", "sys.bringAppToFront or sys.frontmostApp is broken")};
+		assertEqual(string.lower (sys.frontmostApp ()), "explorer.exe", "sys.bringAppToFront or sys.frontmostApp is broken")};
 	
 	sys.bringAppToFront (frontierAppName);
 	assertEqual(sys.frontmostApp (), frontierAppName, "sys.bringAppToFront or sys.frontmostApp is broken")};


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.