Menu
▾
▴
frontierkernel-commits — Mailing list for Subversion commit messages.
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(447) |
Nov
(163) |
Dec
(57) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(172) |
Feb
|
Mar
(123) |
Apr
(64) |
May
(1) |
Jun
(278) |
Jul
(89) |
Aug
(97) |
Sep
(62) |
Oct
(53) |
Nov
(119) |
Dec
(60) |
| 2006 |
Jan
(76) |
Feb
(1094) |
Mar
(363) |
Apr
(163) |
May
(57) |
Jun
(43) |
Jul
(39) |
Aug
(15) |
Sep
(33) |
Oct
(62) |
Nov
(8) |
Dec
|
| 2007 |
Jan
(9) |
Feb
(34) |
Mar
(2) |
Apr
(14) |
May
(8) |
Jun
(40) |
Jul
(21) |
Aug
(1) |
Sep
(20) |
Oct
(15) |
Nov
(26) |
Dec
|
| 2008 |
Jan
(1) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(3) |
Oct
|
Nov
|
Dec
(1) |
| 2009 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(32) |
Jun
|
Jul
|
Aug
(3) |
Sep
(3) |
Oct
|
Nov
|
Dec
|
| 2010 |
Jan
(1) |
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2011 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(7) |
Dec
|
| 2012 |
Jan
|
Feb
|
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: creedon <icr...@us...> - 2006-02-18 18:41:26
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/windowTypes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16676 Modified Files: runOpenRecentMenuScript Log Message: use factored init code Index: runOpenRecentMenuScript =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/tools/windowTypes/runOpenRecentMenuScript,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** runOpenRecentMenuScript 9 Feb 2006 03:12:57 -0000 1.3 --- runOpenRecentMenuScript 18 Feb 2006 18:41:22 -0000 1.4 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.windowTypes.runOpenRecentMenuScript ! on runOpenRecentMenuScript (ix) { ÇChanges Ç2/8/06; 5:18:31 PM by TAC Çadded some initialization Ç11/1/05; 8:51:49 AM by TAC Çadded check for missing files and way deal with them Ç9/24/05; 8:45:56 PM by TAC Çcreated bundle { // init if not (defined (user.prefs.openRecentMenu)) { new (tableType, @user.prefs.openRecentMenu)}; if not (defined (user.prefs.openRecentMenu.items)) { new (tableType, @user.prefs.openRecentMenu.items)}; if not (defined (user.prefs.openRecentMenu.maxNumberOfItems)) { user.prefs.openRecentMenu.maxNumberOfItems = 20}}; local (count = sizeOf (user.prefs.openRecentMenu.items)); ix = number (ix); if ix > count { // clear menu table.emptyTable (@user.prefs.openRecentMenu.items)} else { local (f); ix = count + 1 - ix; // translate from position in menu to position in items table f = user.prefs.openRecentMenu.items [ix]; if not (file.exists (f)) { local (s = file.fileFromPath (f)); case dialog.threeWay ("File \"" + s + "\" is missing.", "Find", "Clear", "Cancel") { 1 { if file.getFileDialog ("Find file \"" + s + "\"...", @f, 0) { user.prefs.openRecentMenu.items [ix] = f} else { return (false)}}; 2 { delete (user.prefs.openRecentMenu.items [ix]); return (false)}; 3 { return (false)}}}; Frontier.tools.windowTypes.commands.open (f)}; return (true)}; Çbundle // testing ÇrunOpenRecentMenuScript ("1") \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.tools.windowTypes.runOpenRecentMenuScript ! on runOpenRecentMenuScript (ix) { ÇChanges Ç2/16/06; 8:14:40 PM by TAC Çuse factored init code Ç2/8/06; 5:18:31 PM by TAC Çadded some initialization Ç11/1/05; 8:51:49 AM by TAC Çadded check for missing files and way deal with them Ç9/24/05; 8:45:56 PM by TAC Çcreated Frontier.openRecentMenu.init (); local (count = sizeOf (user.prefs.openRecentMenu.items)); ix = number (ix); if ix > count { // clear menu table.emptyTable (@user.prefs.openRecentMenu.items)} else { local (f); ix = count + 1 - ix; // translate from position in menu to position in items table f = user.prefs.openRecentMenu.items [ix]; if not (file.exists (f)) { local (s = file.fileFromPath (f)); case dialog.threeWay ("File \"" + s + "\" is missing.", "Find", "Clear", "Cancel") { 1 { if file.getFileDialog ("Find file \"" + s + "\"...", @f, 0) { user.prefs.openRecentMenu.items [ix] = f} else { return (false)}}; 2 { delete (user.prefs.openRecentMenu.items [ix]); return (false)}; 3 { return (false)}}}; Frontier.tools.windowTypes.commands.open (f)}; return (true)}; Çbundle // testing ÇrunOpenRecentMenuScript ("1") \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-18 18:40:56
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/openRecentMenu In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15969 Added Files: addFile init Log Message: created, factored from Frontier.tools.windowTypes.commands.open --- NEW FILE: addFile --- (This appears to be a binary file; contents omitted.) --- NEW FILE: init --- (This appears to be a binary file; contents omitted.) |
|
From: creedon <icr...@us...> - 2006-02-18 18:38:20
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/openRecentMenu In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15348/openRecentMenu Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/openRecentMenu added to the repository |
|
From: creedon <icr...@us...> - 2006-02-18 18:34:36
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rootUpdates In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13647 Modified Files: update Log Message: when getting an update for the host database (@root) send paramaters just like when updating a guest database, except dbName is any empty string Index: update =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rootUpdates/update,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** update 25 Dec 2005 01:39:10 -0000 1.3 --- update 18 Feb 2006 18:34:32 -0000 1.4 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.verbs.builtins.rootUpdates.update ! on update (adrInRoot = table.getcursoraddress (), flQuietMode=false, adrCtNewParts=nil) { ÇChanges Ç12/23/05; 9:45:17 PM by TAC Çupdated root update code Ç6/13/05; 12:53:52 PM by TAC Çdisabled trial version and serial number checks Ç1/12/04; 12:48:36 AM by JES ÇChanged default updates server from madrid.userland.com to updates.userland.com. Ç2002 Ç8/28/02; 10:48:23 PM by JES ÇAdded support for two new callbacks: Çuser.rootUpdates.callbacks.beforeInstallPart -- scripts in this table are called with two parameters: the address of the part, and the change note. If any script returns false, then the part is not installed. No error is generated -- it's up to the callback script to provide feedback to the user. Çuser.rootUpdates.callbacks.afterInstallPart -- scripts in this table are called with two parameters: the address of the part, and the change note. The return value is ignored. Ç4/16/02; 4:34:53 PM by JES ÇBug fix: Store the new part count in adrCtNewParts^ even if no new parts were loaded. Ç1/21/02; 2:25:42 PM by JES ÇUse a string comparison to determine whether we're getting updates from radioupdates.userland.com, instead of a call to tcp.equalNames, since tcp.equalNames fails for some proxy server users. Ç1/7/02; 9:09:40 PM by PBS ÇIf getting Radio updates from radioupdates.userland.com, send your usernum as an additional parameter. Ç8/6/01; 2:22:37 PM by PBS ÇWhen updating Manila or mainResponder, send the serial number. Ç01/21/01; 6:03:11 PM by JES ÇAdded optional parameter, adrCtNewParts. If not nil, the number of updated parts is assigned to adrCtNewParts^. Ç08/20/00; 11:49:35 AM by PBS ÇIf the server returns a last update time, use that instead of clock.now (). This fixes problems with people missing updates due to having clocks out-of-synch with the server. This way, the server's time is always used. Ç06/17/00; 11:16:23 PM by PBS ÇUse new root updates timeout pref. Ç11/16/99; 1:43:53 AM AM by AR ÇMake sure backup folder exists before backing up GDBs. ÇAdded flQuietMode parameter, defaulting to false. If it's true, we suppress all server-unfriendly interaction like putting up dialogs or opening the outline of new parts, regardless of the settings in user.rootUpdates. Ç10/7/99; 6:43:29 PM by DW ÇNew pref, user.rootupdates.prefs.flShowUpdatesToUser, defaults true, initialized in rootUpdates.init. ÇNew pref, user.rootupdates.prefs.adrOutlineForUser, defaults to @user.rootUpdates.updateOutline. Çif flShowUpdatesToUser is true, we create the outline if it doesn't exist and add a top-level headline with the date and time and the name of the database being updated. Each subordinate entry is the address of an object that's been updated. Underneath the address is the explanation of the change, if available. Çbundle //trial, 6/13/05; 12:53:52 PM by TAC - disabled Çif defined (userland.trialVersionCheck) Çif userland.trialVersionCheck () ÇscriptError ("Can't update the database because the trial period has expired.") rootUpdates.init (); local (adrroot = table.getrootaddress (adrInRoot)); local (alist = string.parseaddress (adrroot)); local (f = window.getFile (alist [1])); local (fname = file.filefrompath (f)); if not string.lower (fname) endswith ".root" { scripterror ("Can't update the file because its name doesn't end with .root.")}; local (channelname = string.mid (fname, 1, sizeof (fname) - 5)); local (adrtable = @user.rootUpdates.servers.[channelname]); if not defined (adrtable^) { new (tabletype, adrtable); adrtable^.server = "rootUpdates.frontierOpenSource.editHere.com"; adrtable^.port = 8081; adrtable^.method = "mainResponder.subscriptions.update"; adrtable^.dbname = fname; adrtable^.lastupdate = "Sun, 01 Jan 2006 08:00:00 GMT"; //indicate that it's never been updated adrtable^.autobackup = true; //if true the backup will be of docServer.root, not Frontier.root adrtable^.dialogs = true; //set this false if you're updating automatically thru the scheduler adrtable^.openLog = true; //show the log file of changes adrtable^.URL = ""}; Çelse Çif string.lower (adrtable^.server) == "madrid.userland.com" Çadrtable^.server = "updates.userland.com" Çbundle //the responder name on the server changed Çif adrtable^.method == "mainResponder.subscriptions.update" Çadrtable^.method = "nirvanaServer.subscriptions.update" on getUpdate (serverName, adrInRoot = nil) { //an enhanced version of rootupdates.getUpdate Ç10/18/98; 11:33:30 AM by DW ÇMade it guest database-aware. ÇIf adrInRoot is specified, it's assumed to point into the guest db that's getting updated ÇAdded a field to the prefs record, dbname, which names the guest database that's being shared ÇIt's an index into user.mainresponder.databases on the server. ÇThe handler for this is at mainresponder.rpchandlers.subscriptions.update. local (frontierVersion = Frontier.version ()); local (platform = string.mid (sys.os (), 1, 3)); local (ctnewparts = 0); local (flDialogs = true); local (flLogOutlineOpened = false, flNewLogOutline = false); local (adrPrefs = @user.rootUpdates.servers.[serverName]); local (flguestdb = false, addressprefixstring); //10/18/98 DW bundle { //gather info about guest database if adrInRoot != nil and string.lower (channelname) != "frontier" { addressprefixstring = string (table.getRootAddress (adrInRoot)); flguestdb = true}}; if defined (adrPrefs^.dialogs) and not adrPrefs^.dialogs { flDialogs = false}; if flQuietMode { //AR 11/15/1999 flDialogs = false}; Çif not defined (user.prefs.serialNumber) // 6/13/05; 12:53:52 PM by TAC - disabled Çuser.prefs.serialNumber = "" try { //try to get the root update from the server if flDialogs { local (prompt = "Connect with " + adrPrefs^.server + " to get latest update"); if flguestdb { prompt = prompt + " of " + adrprefs^.dbname}; prompt = prompt + "?"; if not dialog.confirm (prompt) { return (false)}}; window.about (); local (sn = 0); Çif adrPrefs == @user.rootUpdates.servers.Frontier ÇOnly send Frontier serial number when getting Frontier.root udpate. ÇThu, Mar 18, 1999 at 3:21:10 PM by PBS Çsn = user.prefs.serialNumber local (rpcPath = user.betty.prefs.rpcClientDefaultPath); Çbundle // 6/13/05; 12:53:52 PM by TAC - disabled, no serial number check needed for open source release Çcase true //PBS 08/06/01: send serial number for Frontier, Manila, and mainResponder ÇadrPrefs == @user.rootUpdates.servers.Radio ÇadrPrefs == @user.rootUpdates.servers.radioCommunityServer ÇadrPrefs == @user.rootUpdates.servers.serverMonitor ÇadrPrefs == @user.rootUpdates.servers.Prefs ÇadrPrefs == @user.rootUpdates.servers.Frontier ÇadrPrefs == @user.rootUpdates.servers.Manila ÇadrPrefs == @user.rootUpdates.servers.mainResponder Çsn = user.prefs.serialNumber Çif string.lower (adrprefs^.server) endswith ".userland.com" Çtry //add path args to rpcPath Çlocal (args); new (tableType, @args) Çargs.org (xn--args-zoa.org) = user.prefs.organization Çargs.name = user.prefs.name Çargs.email = user.prefs.mailAddress Çargs.sn = user.prefs.serialNumber Çif defined (config.mainResponder.domains) Çargs.domains = sizeOf (config.mainResponder.domains) Çelse Çargs.domains = 0 Çif defined (config.manila.sites) Çargs.sites = sizeOf (config.manila.sites) Çelse Çargs.sites = 0 Çif defined (radioCommunityServerData.users) Çargs.rcsUsers = sizeOf (radioCommunityServerData.users) Çelse Çargs.rcsUsers = 0 ÇrpcPath = rpcPath + "?" + webserver.encodeArgs (@args) Çelse Çif defined (adrPrefs^.serialNum) Çsn = adrPrefs^.serialNum Çelse Çsn = 0 local (paramlist = {adrPrefs^.lastupdate, platform, sn, user.prefs.name, user.prefs.mailAddress, frontierVersion}); bundle { //PBS 01/07/02: send usernum to radioupdates.userland.com Çif tcp.equalNames (adrPrefs^.server, "radioupdates.userland.com") Çparamlist = paramlist + user.radio.prefs.usernum if string.lower (adrPrefs^.server) == "radioupdates.userland.com" { paramlist = paramlist + user.radio.prefs.usernum}}; if flguestdb { paramlist = {adrprefs^.dbname} + {tcp.addressDecode (tcp.myAddress ())} + paramlist}; local (newpartstable); local (i); msg ("Connecting to " + adrPrefs^.server + " to get " + serverName + " update..."); newpartstable = betty.rpc.client (adrPrefs^.server, adrPrefs^.port, adrPrefs^.method, @paramlist, false, rpcPath:rpcPath, ticksToTimeOut:user.rootUpdates.prefs.timeout); Çbundle //original call Çnewpartstable = betty.rpc.client (adrPrefs^.server, adrPrefs^.port, adrPrefs^.method, @paramlist, false, ticksToTimeOut:user.rootUpdates.prefs.timeout) if not defined (newPartsTable.parts) { if newPartsTable beginsWith "There are no new or changed parts available." or newPartsTable beginsWith "Your root is already updated" { msg (""); if flDialogs { dialog.notify (newPartsTable)} else { msg (newPartsTable)}; if adrCtNewParts != nil { //4/16/02; 4:33:24 PM by JES: make the new part count available to the caller, even if there are no new parts adrCtNewParts^ = ctNewParts}; return (true)}}; if adrPrefs^.autobackup { //10/18/98; 11:36:58 AM by DW if flguestdb { backups.init (); //make sure user.backups.folder is set local (alist = string.parseaddress (adrInRoot)); local (source = alist [1]); filemenu.save (source); local (dest); bundle { //set dest to point at the destination file dest = file.filefrompath (source); if string.lower (dest) endswith ".root" { dest = string.delete (dest, sizeof (dest) - 4, 5); //pop off .root dest = dest + "." + user.backups.nextBackup + ".root"} else { dest = dest + "." + user.backups.nextBackup}; dest = user.backups.folder + dest; user.backups.nextBackup++}; file.sureFilePath (dest); //AR 11/15/1999 file.copy (source, dest); filemenu.save (); msg (dest + " is " + string.megabytestring (file.size (dest)))} else { backups.backuproot ()}}; for i = 1 to sizeof (newpartstable.parts) { local (adrnewpart = @newpartstable.parts [i]); local (bytes = binary (base64.decode (adrnewpart^))); local (flpartinstalled = true); setBinaryType (@bytes, tableType); unpack (@bytes, adrnewpart); on installPart (adrpart) { if defined (user.rootUpdates.protected) { //Don't import into these places. local (j); for j = 1 to sizeOf (user.rootUpdates.protected) { local (oneItem = address (user.rootUpdates.protected [j])); if table.tableContains (oneItem, adrpart^.adr) { //Don't install. flpartinstalled = false; return (true)}}}; if defined (adrpart^.platform) { if string.lower (adrpart^.platform) != "both" { // Only install parts for this platform. if string.lower (adrpart^.platform) != string.lower (platform) { return (true)}}}; try { if flguestdb { //we got a relative address, convert it to a real address adrpart^.adr = address (addressprefixstring + "." + adrpart^.adr)}; msg ("Importing " + adrpart^.adr + "."); local (adrcallback, ixcallback, ctcallbacks, flInstallPart = true); bundle { //call beforeInstallPart callbacks ctcallbacks = sizeOf (user.rootUpdates.callbacks.beforeInstallPart); for ixcallback = 1 to ctcallbacks { local (adrcallback = @user.rootUpdates.callbacks.beforeInstallPart[ixcallback] ); try { while typeOf (adrcallback^) == addressType { adrcallback = adrcallback^}; if not adrcallback^ (adrpart^.adr, string (adrpart^.changes) ) { flInstallPart = false; break}}}}; if flInstallPart { adrpart^.adr^ = adrpart^.data}; bundle { //call afterInstallPart callbacks ctcallbacks = sizeOf (user.rootUpdates.callbacks.afterInstallPart); for ixcallback = 1 to ctcallbacks { local (adrcallback = @user.rootUpdates.callbacks.afterInstallPart[ixcallback] ); try { while typeOf (adrcallback^) == addressType { adrcallback = adrcallback^}; adrcallback^ (adrpart^.adr, string (adrpart^.changes) )}}}} else { flpartinstalled = false; if flDialogs { if not dialog.yesNo ("Installation of \"" + adrpart^.adr + "\" failed. Continue installation?") { return (false)}}}; local (logline); bundle { //clean up address so you can 2click on it logline = string (adrpart^.adr); local (ix = string.patternmatch ("].", logline)); if ix != 0 { logline = string.delete (logline, 1, ix + 1)}}; bundle { //log the update on cleanNote (s) { if s != "" { s = string.replaceAll (s, "\r\n", "\r"); s = string.replace (s, ": ", ":\r"); s = string.replaceAll (s, ". ", ".\r"); s = string.replaceAll (s, "-- ", "--\r"); s = "Changed " + s; s = string.replaceAll (s, "\r\r\r\r", "\r\r"); s = string.replaceAll (s, "\r\r\r", "\r\r"); s = string.popTrailing (s, "\r")}; return (s)}; local (changenote = cleanNote (string (adrpart^.changes))); export.addToLog (logline, adrPrefs^.url, changenote); if user.rootupdates.prefs.flShowUpdatesToUser { if not flLogOutlineOpened { if not defined (user.rootupdates.prefs.adrOutlineForUser^) { new (outlinetype, user.rootupdates.prefs.adrOutlineForUser); local (oldtarget = target.set (user.rootupdates.prefs.adrOutlineForUser)); op.setLineText (user.rootupdates.prefs.adrOutlineForUser + " created on " + clock.now ()); target.set (oldtarget); flNewLogOutline = true}; local (oldtarget = target.set (user.rootupdates.prefs.adrOutlineForUser)); op.firstSummit (); op.insert ("Updated " + fname + " on " + clock.now (), up); target.set (oldtarget); flLogOutlineOpened = true}; local (oldtarget = target.set (user.rootupdates.prefs.adrOutlineForUser)); op.insert (logline, right); if sizeof (changenote) > 0 { op.insert (changenote, right); op.go (left, 1); op.collapse ()}; op.go (left, 1); target.set (oldtarget)}}; return (true)}; if not installPart (adrnewpart) { break}; if flpartinstalled { ctnewparts++}}; if defined (newPartsTable.lastUpdateTime) { //PBS 08/20/00: get last update time from server, if supplied adrPrefs^.lastUpdate = newPartsTable.lastUpdateTime} else { //PBS 08/20/00: fallback -- use clock.now () to set last update time adrPrefs^.lastUpdate = date.netStandardString (clock.now ())}; adrPrefs^.serialNum = newPartsTable.serialNum; if flguestdb { msg ("Saving " + adrprefs^.dbname + "..."); fileMenu.saveMyRoot (adrInRoot); msg ("")} else { menu.installMainMenu (); system.menus.buildSuitesSubMenu (); //re-build in case any new suites were imported. msg ("Saving Frontier.root..."); fileMenu.save (); msg ("")}; if flLogOutlineOpened and not flQuietMode { edit (user.rootupdates.prefs.adrOutlineForUser); if flNewLogOutline { window.zoom (user.rootupdates.prefs.adrOutlineForUser)}} else { thread.sleepFor (0); if ctnewparts == 1 { if flDialogs { dialog.alert ("1 new part loaded from \"" + adrPrefs^.server + "\".")} else { msg ("1 new part loaded from \"" + adrPrefs^.server + "\".")}} else { if flDialogs { dialog.alert (ctnewparts + " new parts loaded from \"" + adrPrefs^.server + "\".")} else { msg (ctnewparts + " new parts loaded from \"" + adrPrefs^.server + "\".")}}}} else { //handle errors on alert (message) { if flDialogs { return (dialog.alert (message))}; scriptError (message)}; local (lowerError = string.lower (tryerror)); local (errmsg = "Can't update the root because "); case true { lowerError contains "socket is not connected" { alert (errmsg + "the server is not responding.")}; lowerError contains "can't get the address of"; lowerError contains "poorly formed xml text"; lowerError contains "missing tag" { alert (errmsg + "the server timed out.")}} else { alert (errmsg + "\"" + tryError + ".\"")}; return (false)}; if adrCtNewParts != nil { //01/21/01 JES: make the new part count available to the caller adrCtNewParts^ = ctNewParts}; return (true)}; getUpdate (channelname, adrroot)}; Çbundle // testing Çupdate (@mainResponder) \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:system.verbs.builtins.rootUpdates.update ! on update (adrInRoot = table.getcursoraddress (), flQuietMode=false, adrCtNewParts=nil) { ÇChanges Ç2/16/06; 6:27:30 PM by TAC Çwhen getting an update for the host database (@root) send paramaters just like when updating a guest database, except dbName is any empty string Ç12/23/05; 9:45:17 PM by TAC Çupdated root update code Ç6/13/05; 12:53:52 PM by TAC Çdisabled trial version and serial number checks Ç1/12/04; 12:48:36 AM by JES ÇChanged default updates server from madrid.userland.com to updates.userland.com. Ç2002 Ç8/28/02; 10:48:23 PM by JES ÇAdded support for two new callbacks: Çuser.rootUpdates.callbacks.beforeInstallPart -- scripts in this table are called with two parameters: the address of the part, and the change note. If any script returns false, then the part is not installed. No error is generated -- it's up to the callback script to provide feedback to the user. Çuser.rootUpdates.callbacks.afterInstallPart -- scripts in this table are called with two parameters: the address of the part, and the change note. The return value is ignored. Ç4/16/02; 4:34:53 PM by JES ÇBug fix: Store the new part count in adrCtNewParts^ even if no new parts were loaded. Ç1/21/02; 2:25:42 PM by JES ÇUse a string comparison to determine whether we're getting updates from radioupdates.userland.com, instead of a call to tcp.equalNames, since tcp.equalNames fails for some proxy server users. Ç1/7/02; 9:09:40 PM by PBS ÇIf getting Radio updates from radioupdates.userland.com, send your usernum as an additional parameter. Ç8/6/01; 2:22:37 PM by PBS ÇWhen updating Manila or mainResponder, send the serial number. Ç01/21/01; 6:03:11 PM by JES ÇAdded optional parameter, adrCtNewParts. If not nil, the number of updated parts is assigned to adrCtNewParts^. Ç08/20/00; 11:49:35 AM by PBS ÇIf the server returns a last update time, use that instead of clock.now (). This fixes problems with people missing updates due to having clocks out-of-synch with the server. This way, the server's time is always used. Ç06/17/00; 11:16:23 PM by PBS ÇUse new root updates timeout pref. Ç11/16/99; 1:43:53 AM AM by AR ÇMake sure backup folder exists before backing up GDBs. ÇAdded flQuietMode parameter, defaulting to false. If it's true, we suppress all server-unfriendly interaction like putting up dialogs or opening the outline of new parts, regardless of the settings in user.rootUpdates. Ç10/7/99; 6:43:29 PM by DW ÇNew pref, user.rootupdates.prefs.flShowUpdatesToUser, defaults true, initialized in rootUpdates.init. ÇNew pref, user.rootupdates.prefs.adrOutlineForUser, defaults to @user.rootUpdates.updateOutline. Çif flShowUpdatesToUser is true, we create the outline if it doesn't exist and add a top-level headline with the date and time and the name of the database being updated. Each subordinate entry is the address of an object that's been updated. Underneath the address is the explanation of the change, if available. Çbundle // trial Çif defined (userland.trialVersionCheck) Çif userland.trialVersionCheck () ÇscriptError ("Can't update the database because the trial period has expired.") rootUpdates.init (); local (adrroot = table.getrootaddress (adrInRoot)); local (alist = string.parseaddress (adrroot)); local (f = window.getFile (alist [1])); local (fname = file.filefrompath (f)); if not string.lower (fname) endswith ".root" { scripterror ("Can't update the file because its name doesn't end with .root.")}; local (channelname = string.mid (fname, 1, sizeof (fname) - 5)); local (adrtable = @user.rootUpdates.servers.[channelname]); if not defined (adrtable^) { new (tabletype, adrtable); adrtable^.server = "rootUpdates.frontierOpenSource.editHere.com"; adrtable^.port = 8081; adrtable^.method = "mainResponder.subscriptions.update"; adrtable^.dbname = fname; adrtable^.lastupdate = "Sun, 01 Jan 2006 08:00:00 GMT"; //indicate that it's never been updated adrtable^.autobackup = true; //if true the backup will be of docServer.root, not Frontier.root adrtable^.dialogs = true; //set this false if you're updating automatically thru the scheduler adrtable^.openLog = true; //show the log file of changes adrtable^.URL = ""}; Çelse Çif string.lower (adrtable^.server) == "madrid.userland.com" Çadrtable^.server = "updates.userland.com" Çbundle //the responder name on the server changed Çif adrtable^.method == "mainResponder.subscriptions.update" Çadrtable^.method = "nirvanaServer.subscriptions.update" on getUpdate (serverName, adrInRoot = nil) { //an enhanced version of rootupdates.getUpdate Ç10/18/98; 11:33:30 AM by DW ÇMade it guest database-aware. ÇIf adrInRoot is specified, it's assumed to point into the guest db that's getting updated ÇAdded a field to the prefs record, dbname, which names the guest database that's being shared ÇIt's an index into user.mainresponder.databases on the server. ÇThe handler for this is at mainresponder.rpchandlers.subscriptions.update. local (frontierVersion = Frontier.version ()); local (platform = string.mid (sys.os (), 1, 3)); local (ctnewparts = 0); local (flDialogs = true); local (flLogOutlineOpened = false, flNewLogOutline = false); local (adrPrefs = @user.rootUpdates.servers.[serverName]); local (flGuestDb = false, addressprefixstring); //10/18/98 DW bundle { //gather info about guest database if adrInRoot != nil and string.lower (channelname) != "frontier" { addressprefixstring = string (table.getRootAddress (adrInRoot)); flGuestDb = true}}; if defined (adrPrefs^.dialogs) and not adrPrefs^.dialogs { flDialogs = false}; if flQuietMode { //AR 11/15/1999 flDialogs = false}; Çif not defined (user.prefs.serialNumber) // 6/13/05; 12:53:52 PM by TAC - disabled Çuser.prefs.serialNumber = "" try { //try to get the root update from the server if flDialogs { local (prompt = "Connect with " + adrPrefs^.server + " to get latest update"); if flGuestDb { prompt = prompt + " of " + adrPrefs^.dbname}; prompt = prompt + "?"; if not dialog.confirm (prompt) { return (false)}}; window.about (); local (sn = 0); Çif adrPrefs == @user.rootUpdates.servers.Frontier ÇOnly send Frontier serial number when getting Frontier.root udpate. ÇThu, Mar 18, 1999 at 3:21:10 PM by PBS Çsn = user.prefs.serialNumber local (rpcPath = user.betty.prefs.rpcClientDefaultPath); Çbundle // 6/13/05; 12:53:52 PM by TAC - disabled, no serial number check needed for open source release Çcase true //PBS 08/06/01: send serial number for Frontier, Manila, and mainResponder ÇadrPrefs == @user.rootUpdates.servers.Radio ÇadrPrefs == @user.rootUpdates.servers.radioCommunityServer ÇadrPrefs == @user.rootUpdates.servers.serverMonitor ÇadrPrefs == @user.rootUpdates.servers.Prefs ÇadrPrefs == @user.rootUpdates.servers.Frontier ÇadrPrefs == @user.rootUpdates.servers.Manila ÇadrPrefs == @user.rootUpdates.servers.mainResponder Çsn = user.prefs.serialNumber Çif string.lower (adrPrefs^.server) endswith ".userland.com" Çtry //add path args to rpcPath Çlocal (args); new (tableType, @args) Çargs.org (xn--args-zoa.org) = user.prefs.organization Çargs.name = user.prefs.name Çargs.email = user.prefs.mailAddress Çargs.sn = user.prefs.serialNumber Çif defined (config.mainResponder.domains) Çargs.domains = sizeOf (config.mainResponder.domains) Çelse Çargs.domains = 0 Çif defined (config.manila.sites) Çargs.sites = sizeOf (config.manila.sites) Çelse Çargs.sites = 0 Çif defined (radioCommunityServerData.users) Çargs.rcsUsers = sizeOf (radioCommunityServerData.users) Çelse Çargs.rcsUsers = 0 ÇrpcPath = rpcPath + "?" + webserver.encodeArgs (@args) Çelse Çif defined (adrPrefs^.serialNum) Çsn = adrPrefs^.serialNum Çelse Çsn = 0 local (paramlist = {tcp.addressDecode (tcp.myAddress ()), adrPrefs^.lastupdate, platform, sn, user.prefs.name, user.prefs.mailAddress, frontierVersion}); bundle { //PBS 01/07/02: send usernum to radioupdates.userland.com Çif tcp.equalNames (adrPrefs^.server, "radioupdates.userland.com") Çparamlist = paramlist + user.radio.prefs.usernum if string.lower (adrPrefs^.server) == "radioupdates.userland.com" { paramlist = paramlist + user.radio.prefs.usernum}}; if flGuestDb { paramlist = {adrPrefs^.dbname} + paramlist} else { paramlist = {""} + paramlist}; // empty string indicates get host database (@root) update local (newpartstable); local (i); msg ("Connecting to " + adrPrefs^.server + " to get " + serverName + " update..."); newpartstable = betty.rpc.client (adrPrefs^.server, adrPrefs^.port, adrPrefs^.method, @paramlist, false, rpcPath:rpcPath, ticksToTimeOut:user.rootUpdates.prefs.timeout); Çbundle //original call Çnewpartstable = betty.rpc.client (adrPrefs^.server, adrPrefs^.port, adrPrefs^.method, @paramlist, false, ticksToTimeOut:user.rootUpdates.prefs.timeout) if not defined (newPartsTable.parts) { if newPartsTable beginsWith "There are no new or changed parts available." or newPartsTable beginsWith "Your root is already updated" { msg (""); if flDialogs { dialog.notify (newPartsTable)} else { msg (newPartsTable)}; if adrCtNewParts != nil { //4/16/02; 4:33:24 PM by JES: make the new part count available to the caller, even if there are no new parts adrCtNewParts^ = ctNewParts}; return (true)}}; if adrPrefs^.autobackup { //10/18/98; 11:36:58 AM by DW if flGuestDb { backups.init (); //make sure user.backups.folder is set local (alist = string.parseaddress (adrInRoot)); local (source = alist [1]); filemenu.save (source); local (dest); bundle { //set dest to point at the destination file dest = file.filefrompath (source); if string.lower (dest) endswith ".root" { dest = string.delete (dest, sizeof (dest) - 4, 5); //pop off .root dest = dest + "." + user.backups.nextBackup + ".root"} else { dest = dest + "." + user.backups.nextBackup}; dest = user.backups.folder + dest; user.backups.nextBackup++}; file.sureFilePath (dest); //AR 11/15/1999 file.copy (source, dest); filemenu.save (); msg (dest + " is " + string.megabytestring (file.size (dest)))} else { backups.backuproot ()}}; for i = 1 to sizeof (newpartstable.parts) { local (adrnewpart = @newpartstable.parts [i]); local (bytes = binary (base64.decode (adrnewpart^))); local (flpartinstalled = true); setBinaryType (@bytes, tableType); unpack (@bytes, adrnewpart); on installPart (adrpart) { if defined (user.rootUpdates.protected) { //Don't import into these places. local (j); for j = 1 to sizeOf (user.rootUpdates.protected) { local (oneItem = address (user.rootUpdates.protected [j])); if table.tableContains (oneItem, adrpart^.adr) { //Don't install. flpartinstalled = false; return (true)}}}; if defined (adrpart^.platform) { if string.lower (adrpart^.platform) != "both" { // Only install parts for this platform. if string.lower (adrpart^.platform) != string.lower (platform) { return (true)}}}; try { if flGuestDb { //we got a relative address, convert it to a real address adrpart^.adr = address (addressprefixstring + "." + adrpart^.adr)}; msg ("Importing " + adrpart^.adr + "."); local (adrcallback, ixcallback, ctcallbacks, flInstallPart = true); bundle { //call beforeInstallPart callbacks ctcallbacks = sizeOf (user.rootUpdates.callbacks.beforeInstallPart); for ixcallback = 1 to ctcallbacks { local (adrcallback = @user.rootUpdates.callbacks.beforeInstallPart[ixcallback] ); try { while typeOf (adrcallback^) == addressType { adrcallback = adrcallback^}; if not adrcallback^ (adrpart^.adr, string (adrpart^.changes) ) { flInstallPart = false; break}}}}; if flInstallPart { adrpart^.adr^ = adrpart^.data}; bundle { //call afterInstallPart callbacks ctcallbacks = sizeOf (user.rootUpdates.callbacks.afterInstallPart); for ixcallback = 1 to ctcallbacks { local (adrcallback = @user.rootUpdates.callbacks.afterInstallPart[ixcallback] ); try { while typeOf (adrcallback^) == addressType { adrcallback = adrcallback^}; adrcallback^ (adrpart^.adr, string (adrpart^.changes) )}}}} else { flpartinstalled = false; if flDialogs { if not dialog.yesNo ("Installation of \"" + adrpart^.adr + "\" failed. Continue installation?") { return (false)}}}; local (logline); bundle { //clean up address so you can 2click on it logline = string (adrpart^.adr); local (ix = string.patternmatch ("].", logline)); if ix != 0 { logline = string.delete (logline, 1, ix + 1)}}; bundle { //log the update on cleanNote (s) { if s != "" { s = string.replaceAll (s, "\r\n", "\r"); s = string.replace (s, ": ", ":\r"); s = string.replaceAll (s, ". ", ".\r"); s = string.replaceAll (s, "-- ", "--\r"); s = "Changed " + s; s = string.replaceAll (s, "\r\r\r\r", "\r\r"); s = string.replaceAll (s, "\r\r\r", "\r\r"); s = string.popTrailing (s, "\r")}; return (s)}; local (changenote = cleanNote (string (adrpart^.changes))); export.addToLog (logline, adrPrefs^.url, changenote); if user.rootupdates.prefs.flShowUpdatesToUser { if not flLogOutlineOpened { if not defined (user.rootupdates.prefs.adrOutlineForUser^) { new (outlinetype, user.rootupdates.prefs.adrOutlineForUser); local (oldtarget = target.set (user.rootupdates.prefs.adrOutlineForUser)); op.setLineText (user.rootupdates.prefs.adrOutlineForUser + " created on " + clock.now ()); target.set (oldtarget); flNewLogOutline = true}; local (oldtarget = target.set (user.rootupdates.prefs.adrOutlineForUser)); op.firstSummit (); op.insert ("Updated " + fname + " on " + clock.now (), up); target.set (oldtarget); flLogOutlineOpened = true}; local (oldtarget = target.set (user.rootupdates.prefs.adrOutlineForUser)); op.insert (logline, right); if sizeof (changenote) > 0 { op.insert (changenote, right); op.go (left, 1); op.collapse ()}; op.go (left, 1); target.set (oldtarget)}}; return (true)}; if not installPart (adrnewpart) { break}; if flpartinstalled { ctnewparts++}}; if defined (newPartsTable.lastUpdateTime) { //PBS 08/20/00: get last update time from server, if supplied adrPrefs^.lastUpdate = newPartsTable.lastUpdateTime} else { //PBS 08/20/00: fallback -- use clock.now () to set last update time adrPrefs^.lastUpdate = date.netStandardString (clock.now ())}; adrPrefs^.serialNum = newPartsTable.serialNum; if flGuestDb { msg ("Saving " + adrPrefs^.dbname + "..."); fileMenu.saveMyRoot (adrInRoot); msg ("")} else { menu.installMainMenu (); system.menus.buildSuitesSubMenu (); //re-build in case any new suites were imported. msg ("Saving Frontier.root..."); fileMenu.save (); msg ("")}; if flLogOutlineOpened and not flQuietMode { edit (user.rootupdates.prefs.adrOutlineForUser); if flNewLogOutline { window.zoom (user.rootupdates.prefs.adrOutlineForUser)}} else { thread.sleepFor (0); if ctnewparts == 1 { if flDialogs { dialog.alert ("1 new part loaded from \"" + adrPrefs^.server + "\".")} else { msg ("1 new part loaded from \"" + adrPrefs^.server + "\".")}} else { if flDialogs { dialog.alert (ctnewparts + " new parts loaded from \"" + adrPrefs^.server + "\".")} else { msg (ctnewparts + " new parts loaded from \"" + adrPrefs^.server + "\".")}}}} else { //handle errors on alert (message) { if flDialogs { return (dialog.alert (message))}; scriptError (message)}; local (lowerError = string.lower (tryerror)); local (errmsg = "Can't update the root because "); case true { lowerError contains "socket is not connected" { alert (errmsg + "the server is not responding.")}; lowerError contains "can't get the address of"; lowerError contains "poorly formed xml text"; lowerError contains "missing tag" { alert (errmsg + "the server timed out.")}} else { alert (errmsg + "\"" + tryError + ".\"")}; return (false)}; if adrCtNewParts != nil { //01/21/01 JES: make the new part count available to the caller adrCtNewParts^ = ctNewParts}; return (true)}; getUpdate (channelname, adrroot)}; Çbundle // testing Çupdate (@root) \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-18 18:29:57
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/extensions/odbc/data/dll/macCarbon In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11538 Modified Files: rFork Log Message: replaced because of corruption Index: rFork =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/extensions/odbc/data/dll/macCarbon/rFork,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** rFork 26 Mar 2005 19:41:26 -0000 1.1.1.1 --- rFork 18 Feb 2006 18:29:51 -0000 1.2 *************** *** 1,3 **** ! FrontierVcsFile:1:list:system.extensions.odbc.data.dll.macCarbon.rFork ! {{"type":'DATA', "itms":{{"itID":0, "name":"ProcInfo", "data":"\x00LSSSSSSS\tExecute\x00SSSSSSSS\tReturnText\x00SS\tDisconnect\x00I\tDisconnectAll\x00SS\tDSExists\x00SSSS\tConnect\x00S\tConnectionCleaner\x00S\tViewConnections\x00SSSSSL\tInsertBlob\x00\É, {"type":version, "itms":{{"itID":1, "name":"", "data":"1.0b14"}}}, {"type":'cfrg', "itms":{{"itID":0, "name":"Generated cfrg", "data":"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01pwpc\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00É} \ No newline at end of file --- 1,3 ---- ! FrontierVcsFile:1:list (data):system.extensions.odbc.data.dll.macCarbon.rFork ! AAwAAQAAB4EAAwAAAAIAAAcGAAAAAwAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAAAAAAvKAQfbygEH0AAAAtAAABJwE/Ae8CwExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAADQ0NgAAAAAKScmVjbwAMAAEAAAKCAAIAAQACAAACAAAAAAoAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAALygEH28oBB9AAAAAQAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAHR5cGUNaXRtcw2AAAAAAAh0eXBlREFUQYAAAAAB7Gxpc3QADAABAAAB3AABAAAAAgAAAWMAAAABAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAAAAAAAAAAAAAAAC8oBB9vKAQfQAAAAIAAAEnAT8B7wLATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAAANgAAAAAFdcmVjbwAMAAEAAAFNAAMAAQACAAAAxgAAAA8AAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAALygEH28oBB9AAAAAQAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGl0SUQNbmFtZQ1kYXRhDYAAAAAACGxvbmcAAAAAgAAAAAAMVEVYVFByb2NJbmZvgAAAAACgZGF0YURBVEGXAExTU1NTU1NTCUV4ZWN1dGUAU1NTU1NTU1MJUmV0dXJuVGV4dABTUwlEaXNjb25uZWN0AEkJRGlzY29ubmVjdEFsbABTUwlEU0V4aXN0cwBTU1NTCUNvbm5lY3QAUwlDb25uZWN0aW9uQ2xlYW5lcgBTCVZpZXdDb25uZWN0aW9ucwBTU1NTU0wJSW5zZXJ0QmxvYgAAAIAAAAACBnJlY28ADAABAAAB9gACAAEAAgAAAXQAAAAKAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAAAAAAAAAAAAAAAC8oBB9vKAQfQAAAAEAAAEnAT8B7wLATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAAB0eXBlDWl0bXMNgAAAAAAIdHlwZXZlcnOAAAAAAWBsaXN0AAwAAQAAAVAAAQAAAAIAAADXAAAAAQAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAAAAAAvKAQfbygEH0AAAACAAABJwE/Ae8CwExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAADYAAAAAA0XJlY28ADAABAAAAwQADAAEAAgAAADoAAAAPAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAAAAAAAAAAAAAAAC8oBB9vKAQfQAAAAEAAAEnAT8B7wLATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABpdElEDW5hbWUNZGF0YQ2AAAAAAAhsb25nAAAAAYAAAAAABFRFWFSAAAAAABxkYXRhdmVycwEAYBEAAAYxLjBiMTQGMS4wYjE0gAAAAAJccmVjbwAMAAEAAAJMAAIAAQACAAABygAAAAoAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAALygEH28oBB9AAAAAQAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAHR5cGUNaXRtcw2AAAAAAAh0eXBlY2ZyZ4AAAAABtmxpc3QADAABAAABpgABAAAAAgAAAS0AAAABAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAAAAAAAAAAAAAAAC8oBB9vKAQfQAAAAIAAAEnAT8B7wLATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAAANgAAAAAEncmVjbwAMAAEAAAEXAAMAAQACAAAAkAAAAA8AAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAALygEH28oBB9AAAAAQAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGl0SUQNbmFtZQ1kYXRhDYAAAAAACGxvbmcAAAAAgAAAAAASVEVYVEdlbmVyYXRlZCBjZnJngAAAAABkZGF0YWNmcmcAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAXB3cGMAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAPA5vZGJjQ2FyYm9uLmRsbAAAAA== \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-18 18:29:50
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/extensions/odbc/data/dll/macPPC In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11510 Modified Files: rFork Log Message: replaced because of corruption Index: rFork =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/extensions/odbc/data/dll/macPPC/rFork,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** rFork 26 Mar 2005 19:41:29 -0000 1.1.1.1 --- rFork 18 Feb 2006 18:29:47 -0000 1.2 *************** *** 1,3 **** ! FrontierVcsFile:1:list:system.extensions.odbc.data.dll.macPPC.rFork ! {{"type":version, "itms":{{"itID":1, "name":"", "data":"1.0b14"}}}, {"type":'DATA', "itms":{{"itID":0, "name":"ProcInfo", "data":"\x00LSSSSSSS\tExecute\x00SSSSSSSS\tReturnText\x00SS\tDisconnect\x00I\tDisconnectAll\x00SS\tDSExists\x00SSSS\tConnect\x00S\tConnectionCleaner\x00S\tViewConnections\x00SSSSSL\tInsertBlob\x00\É, {"type":'cfrg', "itms":{{"itID":0, "name":"Generated cfrg", "data":"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01pwpc\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00É} \ No newline at end of file --- 1,3 ---- ! FrontierVcsFile:1:list (data):system.extensions.odbc.data.dll.macPPC.rFork ! AAwAAQAAB30AAwAAAAIAAAcCAAAAAwAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAAAAAAvKAQZLygEGQAAAAfAAABJwE/Ae8CwExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAADQ0NgAAAAAIGcmVjbwAMAAEAAAH2AAIAAQACAAABdAAAAAoAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAALygEGS8oBBkAAAAAQAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAHR5cGUNaXRtcw2AAAAAAAh0eXBldmVyc4AAAAABYGxpc3QADAABAAABUAABAAAAAgAAANcAAAABAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAAAAAAAAAAAAAAAC8oBBkvKAQZAAAAAIAAAEnAT8B7wLATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAAANgAAAAADRcmVjbwAMAAEAAADBAAMAAQACAAAAOgAAAA8AAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAALygEGS8oBBkAAAAAQAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGl0SUQNbmFtZQ1kYXRhDYAAAAAACGxvbmcAAAABgAAAAAAEVEVYVIAAAAAAHGRhdGF2ZXJzAQBgEQAABjEuMGIxNAYxLjBiMTSAAAAAApJyZWNvAAwAAQAAAoIAAgABAAIAAAIAAAAACgAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAAAAAAvKAQZLygEGQAAAABAAABJwE/Ae8CwExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAdHlwZQ1pdG1zDYAAAAAACHR5cGVEQVRBgAAAAAHsbGlzdAAMAAEAAAHcAAEAAAACAAABYwAAAAEAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAALygEGS8oBBkAAAAAgAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAA2AAAAAAV1yZWNvAAwAAQAAAU0AAwABAAIAAADGAAAADwAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAAAAAAvKAQZLygEGQAAAABAAABJwE/Ae8CwExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAaXRJRA1uYW1lDWRhdGENgAAAAAAIbG9uZwAAAACAAAAAAAxURVhUUHJvY0luZm+AAAAAAKBkYXRhREFUQZcATFNTU1NTU1MJRXhlY3V0ZQBTU1NTU1NTUwlSZXR1cm5UZXh0AFNTCURpc2Nvbm5lY3QASQlEaXNjb25uZWN0QWxsAFNTCURTRXhpc3RzAFNTU1MJQ29ubmVjdABTCUNvbm5lY3Rpb25DbGVhbmVyAFMJVmlld0Nvbm5lY3Rpb25zAFNTU1NTTAlJbnNlcnRCbG9iAAAAgAAAAAJYcmVjbwAMAAEAAAJIAAIAAQACAAABxgAAAAoAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAALygEGS8oBBkAAAAAQAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAHR5cGUNaXRtcw2AAAAAAAh0eXBlY2ZyZ4AAAAABsmxpc3QADAABAAABogABAAAAAgAAASkAAAABAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAAAAAAAAAAAAAAAC8oBBkvKAQZAAAAAIAAAEnAT8B7wLATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAAANgAAAAAEjcmVjbwAMAAEAAAETAAMAAQACAAAAjAAAAA8AAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAAAALygEGS8oBBkAAAAAQAAAScBPwHvAsBMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAGl0SUQNbmFtZQ1kYXRhDYAAAAAACGxvbmcAAAAAgAAAAAASVEVYVEdlbmVyYXRlZCBjZnJngAAAAABgZGF0YWNmcmcAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAXB3cGMAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAOAtvZGJjUFBDLmRsbAAA \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-18 18:27:30
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10665 Modified Files: getProgramName Log Message: added check for OPML Editor added flDisplayVersion parameter Index: getProgramName =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/getProgramName,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** getProgramName 8 Sep 2005 02:51:47 -0000 1.2 --- getProgramName 18 Feb 2006 18:27:20 -0000 1.3 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.getProgramName ! on getProgramName () { ÇChanges Ç9/7/05; 3:03:53 PM by TAC Çchanged UserLand Frontier to Frontier Ç5/19/01; 9:41:59 AM by DW ÇCreated. Returns the program name and version in a string that can be displayed or included in an automatically generated file. local (s); if system.environment.isRadio { s = "Radio UserLand"} else { s = "Frontier"}; s = s + " v" + Frontier.version (); return (s)}; Çbundle //test code Çdialog.alert (getProgramName ()) \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.getProgramName ! on getProgramName (flDisplayVersion = true) { ÇChanges Ç2/18/06; 9:35:33 AM by TAC Çadded check for OPML Editor Çadded flDisplayVersion parameter Ç9/7/05; 3:03:53 PM by TAC Çchanged UserLand Frontier to Frontier Ç5/19/01; 9:41:59 AM by DW ÇCreated. Returns the program name and version in a string that can be displayed or included in an automatically generated file. local (s = "Unknown"); bundle { // program name if system.environment.isFrontier { s = "Frontier"}; if system.environment.isRadio { s = "Radio UserLand"}; if system.environment.isOpmlEditor { s = "OPML Editor"}}; if flDisplayVersion { s = s + " v" + Frontier.version ()}; return (s)}; Çbundle // testing Çdialog.alert (getProgramName (false)) \ No newline at end of file |
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16428/testSuperStress Modified Files: Tag: fUnit_Suite-branch testExternalDatabaseAccess testFile testMisc Log Message: Fixed Windows bugs. Index: testExternalDatabaseAccess =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testExternalDatabaseAccess,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** testExternalDatabaseAccess 18 Feb 2006 11:31:14 -0000 1.1.2.2 --- testExternalDatabaseAccess 18 Feb 2006 15:07:50 -0000 1.1.2.3 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testExternalDatabaseAccess ! on testExternalDatabaseAccess () { local (f = file.getSpecialFolderPath ("", "desktop folder", false) + "testing.root"); local (x, n, s = "scratchpad"); if not file.exists (f) { db.new (f)}; db.open (f, false); if not db.defined (f, s) { db.newTable (f, s)}; n = db.countItems (f, s); if n == 0 { db.setValue (f, s + ".test", user.prefs)}; s = s + '.' + db.getNthItem (f, s, 1); x = db.getValue (f, s); db.setValue (f, "scratchpad.bTable", x); db.save (f); db.close (f); db.open (f, true); x = db.getValue (f, "scratchpad.bTable"); db.close (f); file.delete (f); assertEqual(string(x), string(user.prefs), "The db verbs are broken.")}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testExternalDatabaseAccess ! on testExternalDatabaseAccess () { local (f); if system.environment.isMac { f = file.getSpecialFolderPath ("", "desktop folder", false)} else { f = file.getSpecialFolderPath ("", "desktop", false)}; f = f + "testing.root"; local (x, n, s = "scratchpad"); if not file.exists (f) { db.new (f)}; db.open (f, false); if not db.defined (f, s) { db.newTable (f, s)}; n = db.countItems (f, s); if n == 0 { db.setValue (f, s + ".test", user.prefs)}; s = s + '.' + db.getNthItem (f, s, 1); x = db.getValue (f, s); db.setValue (f, "scratchpad.bTable", x); db.save (f); db.close (f); db.open (f, true); x = db.getValue (f, "scratchpad.bTable"); db.close (f); file.delete (f); assertEqual(string(x), string(user.prefs), "The db verbs are broken.")}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file Index: testMisc =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testMisc,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** testMisc 18 Feb 2006 11:27:24 -0000 1.1.2.2 --- testMisc 18 Feb 2006 15:07:50 -0000 1.1.2.3 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testMisc ! on testMisc () { Çmiscellaneous random stuff local (adrdata = @parentOf (this^)^.data); bundle { Çbinary values as arrays x = binary (0xaabbccdd); assert(x[1] == 0xaa and x[4] == 0xdd, "binary array indexing is broken"); on checkRange() { x[5]}; assertErrors(@checkRange, "out of range"); delete (@x [1]); delete (@x [1]); setBinaryType (@x, shortType); assertEqual(number(x), 0xccdd, "delete of binary array item is broken"); x [2] = 3; assertEqual(short(x), short(0xcc03), "binary array assignment is broken")}; bundle { Çscript.getCode on foo (x) { return (x)}; local (miscUserTalk); script.getCode (@adrdata^.miscUserTalk, @miscUserTalk); assertEqual(miscUserTalk(2, 3, 4), 14, "script.getCode is broken")}; bundle { Çtry out nested bundles bundle { Çcheck rects local (x, t, l, b, r); x = rectangle.set (10, 20, 30, 40); rectangle.get (x, @t, @l, @b, @r); assert(t == 10 and l == 20 and b == 30 and r == 40, "Problems with rects. " + x)}; bundle { Çmess with keyboard local (s); s = ""; if kb.optionKey () { s = s + "opt "}; if kb.cmdKey () { s = s + "cmd "}; if kb.shiftKey () { s = s + "shift "}; if kb.controlKey () { s = s + "ctrl "}; };// no asserts in original superstress - Monday, October 04, 2004 at 6:45:46 PM by JPB bundle { Çcheck addresses local (adr); adr = address ("root.system"); assert(sizeOf(adr^) > 0, "Something's wrong with addresses.")}; bundle { Çcheck targeting if not Frontier.isRuntime () { if defined (root.examples.list2) { target.set (@root.examples.list2); op.firstSummit (); assertEqual(op.getLineText(), "Nebraska", "Something's wrong with targeting."); assertEqual(target.get(), @root.examples.list2, "Something's wrong with targeting."); target.clear (); assertNotEqual(target.get(), @root.examples.list2, "Something's wrong with targeting.")}}}; ÇmyMoof (5, 1) // don't know what this is - Monday, October 04, 2004 at 6:47:02 PM by JPB bundle { Çtable surgery local (adr); adr = @scratchpad.tableTesting; assert(new(tableType, adr)); assert(defined(adr^), "new verb didn't create anything"); assertEqual(typeOf(adr^), tableType, "new didn't create a table."); delete (adr); assert(!defined(adr^), "delete didn't delete " + adr)}; bundle { Çcheck typeOf assertEqual(typeOf(root), tableType, "typeOf has a problem"); assertEqual(typeOf(user.prefs["name"]), stringType, "typeOf has a problem."); assertEqual(typeOf(examples.yesterday), dateType, "typeOf has a problem")}; bundle { Çcheck evaluate assertEqual(evaluate("12 + 24 + abs (-12)"), 48, "evaluate has a problem")}}; bundle { Çcheck addressing modes & case insenstivity assertEqual(@user.prefs ["name"], @User.prefs.Name, "array operations are broken"); assertEqual((@uSEr.prefs.NamE)^, user.Prefs.name, "dereferencing is broken"); assertEqual((@user)^.Prefs ["name"], uSEr.pRefs.NamE, "dereferencing or array is broken"); assertEqual(user.prefs.["name"], user.prefs.NAME, "bracketed expressions are broken")}; bundle { Çcheck with statement table.surePath ("temp.foo.test.xyzzy"); temp.foo.test.xyzzy = 5; with temp { with foo { with test { assertEqual(xyzzy, 5, "with statement is broken")}}}; with temp, foo, test { delete (@xyzzy)}; delete (@temp.foo)}; states.looper (); assertEqual(states.nthState(45), "Vermont", "states.nthState is broken."); if system.environment.isMacOsClassic { local (x, y); x = number (callXCMD (@adrdata^.miscXCMD)); y = sys.memAvail (); if x != y { scriptError ("callXCMD or sys.memAvail is broken.")}}; bundle { Çtest semophores local (locked); semaphores.lock ("testing", 0); try { semaphores.lock ("testing", 6); locked = false} else { locked = true}; assert(locked, "semaphores.lock is broken"); assert(semaphores.unlock("testing"), "semaphores.unlock is broken")}}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testMisc ! on testMisc () { Çmiscellaneous random stuff local (adrdata = @parentOf (this^)^.data); bundle { Çbinary values as arrays x = binary (0xaabbccdd); assert(x[1] == 0xaa and x[4] == 0xdd, "binary array indexing is broken"); on checkRange() { x[5]}; assertErrors(@checkRange, "out of range"); delete (@x [1]); delete (@x [1]); setBinaryType (@x, shortType); assertEqual(number(x), 0xccdd, "delete of binary array item is broken"); x [2] = 3; assertEqual(short(x), short(0xcc03), "binary array assignment is broken")}; bundle { Çscript.getCode on foo (x) { return (x)}; local (miscUserTalk); script.getCode (@adrdata^.miscUserTalk, @miscUserTalk); assertEqual(miscUserTalk(2, 3, 4), 14, "script.getCode is broken")}; bundle { Çtry out nested bundles bundle { Çcheck rects local (x, t, l, b, r); x = rectangle.set (10, 20, 30, 40); rectangle.get (x, @t, @l, @b, @r); assert(t == 10 and l == 20 and b == 30 and r == 40, "Problems with rects. " + x)}; bundle { Çmess with keyboard local (s); s = ""; if kb.optionKey () { s = s + "opt "}; if kb.cmdKey () { s = s + "cmd "}; if kb.shiftKey () { s = s + "shift "}; if kb.controlKey () { s = s + "ctrl "}; };// no asserts in original superstress - Monday, October 04, 2004 at 6:45:46 PM by JPB bundle { Çcheck addresses local (adr); adr = address ("root.system"); assert(sizeOf(adr^) > 0, "Something's wrong with addresses.")}; bundle { Çcheck targeting if not Frontier.isRuntime () { if defined (root.examples.list2) { target.set (@root.examples.list2); op.firstSummit (); assertEqual(op.getLineText(), "Nebraska", "Something's wrong with targeting."); assertEqual(target.get(), @root.examples.list2, "Something's wrong with targeting."); target.clear (); assertNotEqual(target.get(), @root.examples.list2, "Something's wrong with targeting.")}}}; ÇmyMoof (5, 1) // don't know what this is - Monday, October 04, 2004 at 6:47:02 PM by JPB bundle { Çtable surgery local (adr); adr = @scratchpad.tableTesting; assert(new(tableType, adr)); assert(defined(adr^), "new verb didn't create anything"); assertEqual(typeOf(adr^), tableType, "new didn't create a table."); delete (adr); assert(!defined(adr^), "delete didn't delete " + adr)}; bundle { Çcheck typeOf assertEqual(typeOf(root), tableType, "typeOf has a problem"); assertEqual(typeOf(user.prefs["name"]), stringType, "typeOf has a problem."); assertEqual(typeOf(examples.yesterday), dateType, "typeOf has a problem")}; bundle { Çcheck evaluate assertEqual(evaluate("12 + 24 + abs (-12)"), 48, "evaluate has a problem")}}; bundle { Çcheck addressing modes & case insenstivity assertEqual(@user.prefs ["name"], @User.prefs.Name, "array operations are broken"); assertEqual((@uSEr.prefs.NamE)^, user.Prefs.name, "dereferencing is broken"); assertEqual((@user)^.Prefs ["name"], uSEr.pRefs.NamE, "dereferencing or array is broken"); assertEqual(user.prefs.["name"], user.prefs.NAME, "bracketed expressions are broken")}; bundle { Çcheck with statement table.surePath ("temp.foo.test.xyzzy"); temp.foo.test.xyzzy = 5; with temp { with foo { with test { assertEqual(xyzzy, 5, "with statement is broken")}}}; with temp, foo, test { delete (@xyzzy)}; delete (@temp.foo)}; states.looper (); assertEqual(states.nthState(45), "Vermont", "states.nthState is broken."); if system.environment.isMac and system.environment.isMacOsClassic { local (x, y); x = number (callXCMD (@adrdata^.miscXCMD)); y = sys.memAvail (); if x != y { scriptError ("callXCMD or sys.memAvail is broken.")}}; bundle { Çtest semaphores local (locked); semaphores.lock ("testing", 0); try { semaphores.lock ("testing", 6); locked = false} else { locked = true}; assert(locked, "semaphores.lock is broken"); assert(semaphores.unlock("testing"), "semaphores.unlock is broken")}}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file Index: testFile =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testFile,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** testFile 18 Feb 2006 12:14:30 -0000 1.1.2.1 --- testFile 18 Feb 2006 15:07:50 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testFile ! on testFile () { 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"; bundle { Çpath parsing local (finder = sysfolder + "Finder"); assertEqual(file.fileFromPath (finder), "Finder", "file.fileFromPath is broken."); assertEqual(file.folderFromPath (finder), sysfolder, "file.folderFromPath is broken."); assertEqual(file.volumeFromPath (finder), sysdisk, "file.volumeFromPath is broken.")}; bundle { Çpath char if system.environment.isMac { assertEqual (file.getPathChar (), ":", "file.getPathChar is broken")}; if system.environment.isWindows { assertEqual (file.getPathChar (), "\\", "file.getPathChar is broken")}}; bundle { Çfile.getPath, file.setPath oldpath = file.getPath (); newpath = file.folderFromPath (Frontier.getFilePath ()); rootname = file.fileFromPath (Frontier.getFilePath ()); file.setPath (newpath); assert(file.exists(rootname), "file.setPath is broken"); assertEqual(file.getPath(), newpath, "file.getPath is broken."); file.setPath (oldpath); assertEqual(file.getPath(), oldpath, "file.getPath is broken.")}; bundle { Çfile.exists, fileloop, file.getSystemDisk, file.isVolume ctfiles = 0; fileloop (fname in file.getSystemDisk ()) { assert(file.exists(fname)); assert(!file.isVolume(fname), "file.isVolume is broken."); ctfiles++}; assertEqual(file.filesInFolder(sysdisk, 1), ctfiles, "file.filesInFolder is broken."); ctvolumes = 0; fileloop (fname in "") { Çtest fileloop at the volume level assert(file.exists(fname), "file.exists is broken."); assert(file.isVolume(fname), "file.isVolume is broken."); ctvolumes++}; assertEqual(file.countVolumes(), ctvolumes); assert(file.exists(sysfolder), "file.exists is broken."); assert(!file.exists(sysfolder + file.getPathChar () + "this file doesn't exist"), "file.exists is broken")}; bundle { Çextended fileloop, file.visitFolder local (ctfiles1 = 0, ctfiles2 = 0, path); on countFiles (path) { if not file.isFolder (path) { ctfiles1++}; return (true)}; file.visitFolder (sysdisk, 2, @countFiles); fileloop (path in sysdisk, 2) { ctfiles2++}; assertEqual(ctfiles1, ctfiles2, "extended fileloop or file.visitFolder is broken")}; bundle { Çfile.new, file.created, file.modified file.new (f); assert(file.exists(f), "file.new is broken"); assert(!file.isFolder(f), "file.new created a folder (!)"); file.delete (f); assert(!file.exists(f), "file.delete is broken"); file.new (f); now = clock.now (); assert(now - file.created(f) < 1, "file.created is broken."); assert(now - file.modified(f) < 1, "file.modified is broken.")}; bundle { Çfile.isVisible, setVisible assert(file.isVisible(Frontier.getProgramPath()), "file.isVisible is broken."); file.setVisible (f, false); assert(!file.isVisible(f), "file.setVisible is broken."); file.setVisible (f, true); assert(file.isVisible(f), "file.setVisible is broken.")}; bundle { Çfile.lock, islocked, unlock assert(!file.isLocked(f), "file.new created a locked file."); file.lock (f); assert(file.isLocked(f), "file.lock is broken"); file.unlock (f); assert(!file.isLocked(f), "file.unlock is broken.")}; bundle { Çfile.copy, file.size local (fold = Frontier.getFilePath ()); local (fnew = tmpfolder + "superstress.root"); file.copy (fold, fnew); assert(file.exists(fnew), "file.copy is broken"); assertEqual(file.size(fnew), file.size(fold), "file.copy or file.size is broken."); assert(file.compare(fold, fnew), "file.copy is broken."); file.delete (fnew)}; bundle { Çfile reading/writing local (path, i); path = tmpfolder + "superstress.states.txt"; if file.exists (path) { file.delete (path)}; file.new (path); for i = 1 to 50 { file.writeLine (path, states.nthState (i))}; file.open (path); i = 1; while (not file.endOfFile (path)) { assertEqual(file.readLine(path), states.nthState(i), "File reading/writing is broken."); i++}; bundle { //test 5.0.1 verbs local (eol, eof = file.getEndOfFile (path)); local (x, s = states.nthState (50)); if system.environment.isMac { eol = "\r"} else { eol = "\r\n"}; file.setPosition (path, eof - string.length (s + eol)); x = file.read (path, string.length (s)); assertEqual(string(x), s, "File getEndOfFile or file.setPosition is broken. \"" + x + "\" != \"" + s + "\".")}; file.setEndOfFile (path, 10); file.close (path); assertEqual(file.size(path), 10, "file.setEndOfFile is broken."); file.delete (path)}; assert(file.delete(f), "file.delete is broken.")}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testFile ! on testFile () { 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" + random (1, infinity) + ".txt"; bundle { Çpath parsing local (finder = sysfolder + "Finder"); assertEqual(file.fileFromPath (finder), "Finder", "file.fileFromPath is broken."); assertEqual(file.folderFromPath (finder), sysfolder, "file.folderFromPath is broken."); assertEqual(file.volumeFromPath (finder), sysdisk, "file.volumeFromPath is broken.")}; bundle { Çpath char if system.environment.isMac { assertEqual (file.getPathChar (), ":", "file.getPathChar is broken")}; if system.environment.isWindows { assertEqual (file.getPathChar (), "\\", "file.getPathChar is broken")}}; bundle { Çfile.getPath, file.setPath oldpath = file.getPath (); newpath = file.folderFromPath (Frontier.getFilePath ()); rootname = file.fileFromPath (Frontier.getFilePath ()); file.setPath (newpath); assert(file.exists(rootname), "file.setPath is broken"); assertEqual(file.getPath(), newpath, "file.getPath is broken."); file.setPath (oldpath); assertEqual(file.getPath(), oldpath, "file.getPath is broken.")}; bundle { Çfile.exists, fileloop, file.getSystemDisk, file.isVolume ctfiles = 0; fileloop (fname in file.getSystemDisk ()) { assert(file.exists(fname)); assert(!file.isVolume(fname), "file.isVolume is broken."); ctfiles++}; assertEqual(file.filesInFolder(sysdisk, 1), ctfiles, "file.filesInFolder is broken."); ctvolumes = 0; fileloop (fname in "") { Çtest fileloop at the volume level assert(file.exists(fname), "file.exists is broken."); assert(file.isVolume(fname), "file.isVolume is broken."); ctvolumes++}; assertEqual(file.countVolumes(), ctvolumes); assert(file.exists(sysfolder), "file.exists is broken."); assert(!file.exists(sysfolder + file.getPathChar () + "this file doesn't exist"), "file.exists is broken")}; bundle { Çextended fileloop, file.visitFolder local (ctfiles1 = 0, ctfiles2 = 0, path); on countFiles (path) { if not file.isFolder (path) { ctfiles1++}; return (true)}; file.visitFolder (sysdisk, 2, @countFiles); fileloop (path in sysdisk, 2) { ctfiles2++}; assertEqual(ctfiles1, ctfiles2, "extended fileloop or file.visitFolder is broken")}; bundle { Çfile.new, file.created, file.modified file.new (f); assert(file.exists(f), "file.new is broken"); assert(!file.isFolder(f), "file.new created a folder (!)"); file.delete (f); assert(!file.exists(f), "file.delete is broken"); local (now = clock.now ()); file.new (f); assert(number (now - file.created(f)) < 10, "file.created is broken."); assert(number (now - file.modified(f)) < 10, "file.modified is broken.")}; bundle { Çfile.isVisible, setVisible assert(file.isVisible(Frontier.getProgramPath()), "file.isVisible is broken."); file.setVisible (f, false); assert(!file.isVisible(f), "file.setVisible is broken."); file.setVisible (f, true); assert(file.isVisible(f), "file.setVisible is broken.")}; bundle { Çfile.lock, islocked, unlock assert(!file.isLocked(f), "file.new created a locked file."); file.lock (f); assert(file.isLocked(f), "file.lock is broken"); file.unlock (f); assert(!file.isLocked(f), "file.unlock is broken.")}; bundle { Çfile reading/writing local (i); if file.exists (f) { file.delete (f)}; file.new (f); for i = 1 to 50 { file.writeLine (f, states.nthState (i))}; file.open (f); i = 1; while (not file.endOfFile (f)) { assertEqual(file.readLine(f), states.nthState(i), "File reading/writing is broken."); i++}; bundle { //test 5.0.1 verbs local (eol, eof = file.getEndOfFile (f)); local (x, s = states.nthState (50)); if system.environment.isMac { eol = "\r"} else { eol = "\r\n"}; file.setPosition (f, eof - string.length (s + eol)); x = file.read (f, string.length (s)); assertEqual(string(x), s, "File getEndOfFile or file.setPosition is broken. \"" + x + "\" != \"" + s + "\".")}; file.setEndOfFile (f, 10); file.close (f); assertEqual(file.size(f), 10, "file.setEndOfFile is broken."); file.delete (f)}; bundle { Çfile.copy, file.size local (fold = tmpfolder + "superstress" + random (1, infinity) + ".txt"); local (fnew = tmpfolder + "superstress" + random (1, infinity) + ".txt"); file.writeWholeFile (fold, string (startup.license)); assertEqual(file.size(fold), string.length (string (startup.license)), "file.size is broken."); file.copy (fold, fnew); assert(file.exists(fnew), "file.copy is broken"); assertEqual(file.size(fnew), file.size(fold), "file.copy or file.size is broken."); assert(file.compare(fold, fnew), "file.copy is broken."); file.delete (fold); file.delete (fnew)}}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file |
|
From: Andre R. <and...@us...> - 2006-02-18 15:02:23
|
Update of /cvsroot/frontierkernel/Frontier/Common/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14329/Common/source Modified Files: langstartup.c Log Message: Set environment.isMacOsClassic to false on Windows, previously undefined. Index: langstartup.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langstartup.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** langstartup.c 5 Feb 2006 15:58:57 -0000 1.7 --- langstartup.c 18 Feb 2006 15:02:13 -0000 1.8 *************** *** 383,386 **** --- 383,388 ---- langassignbooleanvalue (ht, str_isCarbon, false); /*7.0b28: isCarbon is false on Windows.*/ + langassignbooleanvalue (ht, str_isMacOsClassic, false); /* 2006-02-18 aradke */ + langassignbooleanvalue (ht, str_isServer, isServer); /* 2004-11-19 creedon */ |
|
From: Andre R. <and...@us...> - 2006-02-18 13:13:51
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv387/testSuperStress Added Files: Tag: fUnit_Suite-branch testRegularExpressions Log Message: Added test for kernelized regular expression verbs. --- NEW FILE: testRegularExpressions --- (This appears to be a binary file; contents omitted.) |
|
From: Andre R. <and...@us...> - 2006-02-18 12:14:34
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7972 Modified Files: Tag: fUnit_Suite-branch testMacFileHandling Added Files: Tag: fUnit_Suite-branch testFile Log Message: Split general file testing out from testMacFileHandling. The SuperStress testing suite now passes on my OS X machine. Still need to check out everything on Windows. Index: testMacFileHandling =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testMacFileHandling,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** testMacFileHandling 18 Feb 2006 08:02:29 -0000 1.1.2.2 --- testMacFileHandling 18 Feb 2006 12:14:30 -0000 1.1.2.3 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testMacFileHandling ! on testMacFileHandling () { if sys.os() != osMacCn && sys.os () != osMacOS { abort("testMacFileHandling can only be run on Macs.")}; local (sysdisk, sysfolder, f, finder, i); sysdisk = file.getSystemDisk (); sysfolder = file.getSystemFolderPath (); tmpfolder = file.getSpecialFolderPath (sysdisk, "Temporary Items", true); finder = sysfolder + "Finder"; f = tmpfolder + "superstress test file #23"; bundle { Çpath parsing x = file.fileFromPath (finder); assertEqual(file.fileFromPath (finder), "Finder", "file.fileFromPath is broken."); assertEqual(file.fileFromPath (finder), "Finder", "file.folderFromPath is broken."); assertEqual(file.volumeFromPath (finder), sysdisk, "file.volumeFromPath is broken.")}; if sys.os() == osMacOS { bundle { Çfile.getPath, file.setPath oldpath = file.getPath (); file.setPath (sysfolder); assert(file.exists("Finder"), "file.setPath is broken"); assertEqual(file.getPath(), sysfolder, "file.getPath is broken."); file.setPath (sysfolder + "Control Panels:"); assert(file.exists("General Controls"), "file.setPath is broken."); file.setPath (oldpath); assertEqual(file.getPath, oldpath, "file.getPath is broken.")}}; bundle { Çfile.exists, fileloop, file.getSystemDisk, file.isVolume ctfiles = 0; fileloop (fname in file.getSystemDisk ()) { assert(file.exists(fname)); assert(!file.isVolume(fname), "file.isVolume is broken."); ctfiles++}; assertEqual(files.filesInFolder(sysdisk, 1), ctfiles, "file.filesInFolder is broken."); ctvolumes = 0; fileloop (fname in "") { Çtest fileloop at the volume level assert(file.exists(fname, "file.exists is broken.")); assert(file.isVolume(fname), "file.isVolume is broken."); ctvolumes++}; assertEqual(file.countVolumes(), ctvolumes); assert(!file.exists("System:this file doesn't exist"), "file.exists is broken"); assert(file.exists(sysfolder), "file.exists is broken.")}; bundle { Çfile.getSpecialFolderPath assertEqual(file.getSpecialFolderPath ("", "System", false), sysfolder, "file.getSpecialFolderPath is broken.")}; bundle { Çextended fileloop, file.visitFolder local (ctfiles1 = 0, ctfiles2 = 0, path); on countFiles (path) { if not file.isFolder (path) { ctfiles1++}; return (true)}; file.visitFolder (sysdisk, 2, @countFiles); fileloop (path in sysdisk, 2) { ctfiles2++}; assertEqual(ctfiles1, ctfiles2, "extended fileloop or file.visitFolder is broken")}; bundle { Çfile.new, file.created, file.modified file.new (f); assert(file.exists(f), "file.new is broken"); assert(!file.isFolder(f), "file.new created a folder (!)"); file.delete (f); assert(!file.exists(f), "file.delete is broken"); file.new (f); now = clock.now (); assert(now - file.created(f) < 10, "file.created is broken."); assert(now - file.modified(f) < 10, "file.modified is broken.")}; if sys.os() == osMacOS { bundle { Çfile.setType, type, setcreator, creator file.setType (f, 'TEXT'); assert(file.type(f) == 'TEXT', "file.type is broken."); file.setCreator (f, 'KAHL'); assert(file.creator(f) == 'KAHL', "file.creator is broken.")}; bundle { Çfile.setLabel, getLabel file.setLabel (f, "Hot"); assertEqual(file.getLabel(f), "Hot", "file.setLabel is broken."); file.setLabel (f, "None"); assertEqual(file.getLabel(f), "None", "file.setLabel is broken")}; bundle { Ç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."); file.setBundle (f, false); assert(!file.hasBundle(f), "file.setBundle is broken.")}}; bundle { Çfile.isVisible, setVisible assert(file.isVisible(Frontier.getProgramPath()), "file.isVisible is broken."); file.setVisible (f, false); assert(!file.isVisible(f), "file.setVisible is broken."); file.setVisible (f, true); assert(file.isVisible(f), "file.setVisible is broken.")}; bundle { Çfile.lock, islocked, unlock assert(!file.isLocked(f), "file.new created a locked file."); file.lock (f); assert(file.isLocked(f), "file.lock is broken"); file.unlock (f); assert(!file.isLocked(f), "file.unlock is broken.")}; if sys.os() == osMacOS { bundle { Çfile.copy, file.size fnew = tmpfolder + "superstress test file #24"; file.copy (finder, fnew); assert(file.exists(fnew), "file.copy is broken"); assertEqual(file.size(fnew), file.size(finder), "file.copy or file.size is broken."); assert(file.compare(finder, fnew), "file.copy is broken."); file.delete (fnew)}; bundle { Çfile.newAlias, isAlias, followAlias 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"); 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"); file.delete (fnew)}; bundle { Çfolders 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 = sysdisk + "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."); 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."); file.deleteFolder (newfolder); assert(!file.exists(newfolder), "file.deleteFolder is broken.")}}; bundle { Çfile reading/writing local (path, i); path = sysfolder + "superstress.states.txt"; if file.exists (path) { file.delete (path)}; file.new (path); try { file.setType (path, 'TEXT'); file.setCreator (path, 'KAHL')}; for i = 1 to 50 { file.writeLine (path, states.nthState (i))}; file.open (path); i = 1; while (not file.endOfFile (path)) { assertEqual(file.readLine(path), states.nthState(i), "File reading/writing is broken."); i++}; bundle { //test 5.0.1 verbs local (eol, eof = file.getEndOfFile (path)); local (x, s = states.nthState (50)); if sys.os() == osMacOS { eol = "\r"} else { eol = "\r\n"}; file.setPosition (path, eof - string.length (s + eol)); x = file.read (path, string.length (s)); assertEqual(string(x), s, "File getEndOfFile or file.setPosition is broken. \"" + x + "\" != \"" + s + "\".")}; file.setEndOfFile (path, 10); file.close (path); assertEqual(file.size(path), 10, "file.setEndOfFile is broken."); file.delete (path)}; assert(file.delete(f), "file.delete is broken.")} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testMacFileHandling ! on testMacFileHandling () { 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 { Çfile.setType, type, setcreator, creator file.setType (f, 'TEXT'); assert(file.type(f) == 'TEXT', "file.type is broken."); file.setCreator (f, 'KAHL'); assert(file.creator(f) == 'KAHL', "file.creator is broken.")}; bundle { Çfile.setLabel, getLabel file.setLabel (f, "Hot"); assertEqual(file.getLabel(f), "Hot", "file.setLabel is broken."); file.setLabel (f, "None"); assertEqual(file.getLabel(f), "None", "file.setLabel 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"); 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"); file.delete (fnew)}; 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."); file.setBundle (f, false); assert(!file.hasBundle(f), "file.setBundle is broken.")}; if system.environment.isMacOsClassic { Çfolders 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(); 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."); 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."); file.deleteFolder (newfolder); assert(!file.exists(newfolder), "file.deleteFolder 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 --- NEW FILE: testFile --- (This appears to be a binary file; contents omitted.) |
|
From: Andre R. <and...@us...> - 2006-02-18 11:31:21
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21858/testSuperStress Modified Files: Tag: fUnit_Suite-branch testExternalDatabaseAccess Log Message: Fixed file path of test root for Mac OS X. Index: testExternalDatabaseAccess =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testExternalDatabaseAccess,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** testExternalDatabaseAccess 22 Aug 2005 00:41:20 -0000 1.1.2.1 --- testExternalDatabaseAccess 18 Feb 2006 11:31:14 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testExternalDatabaseAccess ! on testExternalDatabaseAccess () { local (f = file.getSpecialFolderPath ("", "desktop", false) + "testing.root"); local (x, n, s = "scratchpad"); if not file.exists (f) { db.new (f)}; db.open (f, false); if not db.defined (f, s) { db.newTable (f, s)}; n = db.countItems (f, s); if n == 0 { db.setValue (f, s + ".test", user.prefs)}; s = s + '.' + db.getNthItem (f, s, 1); x = db.getValue (f, s); db.setValue (f, "scratchpad.bTable", x); db.save (f); db.close (f); db.open (f, true); x = db.getValue (f, "scratchpad.bTable"); db.close (f); file.delete (f); assertEqual(string(x), string(user.prefs), "The db verbs are broken.")} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testExternalDatabaseAccess ! on testExternalDatabaseAccess () { local (f = file.getSpecialFolderPath ("", "desktop folder", false) + "testing.root"); local (x, n, s = "scratchpad"); if not file.exists (f) { db.new (f)}; db.open (f, false); if not db.defined (f, s) { db.newTable (f, s)}; n = db.countItems (f, s); if n == 0 { db.setValue (f, s + ".test", user.prefs)}; s = s + '.' + db.getNthItem (f, s, 1); x = db.getValue (f, s); db.setValue (f, "scratchpad.bTable", x); db.save (f); db.close (f); db.open (f, true); x = db.getValue (f, "scratchpad.bTable"); db.close (f); file.delete (f); assertEqual(string(x), string(user.prefs), "The db verbs are broken.")}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file |
|
From: Andre R. <and...@us...> - 2006-02-18 11:27:32
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20040/testSuperStress Modified Files: Tag: fUnit_Suite-branch testMisc Log Message: Cleaned up testMisc and moved required infrastructure into the testSuperStress.data sub-table. Index: testMisc =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testMisc,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** testMisc 22 Aug 2005 00:41:19 -0000 1.1.2.1 --- testMisc 18 Feb 2006 11:27:24 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testMisc ! on testMisc () { Çmiscellaneous random stuff bundle { Çbinary values as arrays x = binary (0xaabbccdd); assert(x[1] == 0xaa and x[4] == 0xdd, "binary array indexing is broken"); on checkRange() { x[5]}; assertErrors(@checkRange, "out of range"); delete (@x [1]); delete (@x [1]); setBinaryType (@x, shortType); assertEqual(number(x), 0xccdd, "delete of binary array item is broken"); x [2] = 3; assertEqual(short(x), short(0xcc03), "binary array assignment is broken")}; bundle { Çscript.getCode on foo (x) { return (x)}; local (miscUserTalk); script.getCode (@testing.miscUserTalk, @miscUserTalk); assertEqual(miscUserTalk(2, 3, 4), 14, "script.getCode is broken")}; bundle { Çtry out nested bundles bundle { Çcheck rects local (x, t, l, b, r); x = rectangle.set (10, 20, 30, 40); rectangle.get (x, @t, @l, @b, @r); assert(t == 10 and l == 20 and b == 30 and r == 40, "Problems with rects. " + x)}; bundle { Çmess with keyboard local (s); s = ""; if kb.optionKey () { s = s + "opt "}; if kb.cmdKey () { s = s + "cmd "}; if kb.shiftKey () { s = s + "shift "}; if kb.controlKey () { s = s + "ctrl "}; };// no asserts in original superstress - Monday, October 04, 2004 at 6:45:46 PM by JPB bundle { Çcheck addresses local (adr); adr = address ("root.system"); assert(sizeOf(adr^) > 0, "Something's wrong with addresses.")}; bundle { Çcheck targeting if not Frontier.isRuntime () { if defined (root.examples.list2) { target.set (@root.examples.list2); op.firstSummit (); assertEqual(op.getLineText(), "Nebraska", "Something's wrong with targeting."); assertEqual(target.get(), @root.examples.list2, "Something's wrong with targeting."); target.clear (); assertNotEqual(target.get(), @root.examples.list2, "Something's wrong with targeting.")}; }};ÇmyMoof (5, 1) // don't know what this is - Monday, October 04, 2004 at 6:47:02 PM by JPB bundle { Çtable surgery local (adr); adr = @scratchpad.tableTesting; assert(new(tableType, adr)); assert(defined(adr^), "new verb didn't create anything"); assertEqual(typeOf(adr^), tableType, "new didn't create a table."); delete (adr); assert(!defined(adr^), "delete didn't delete " + adr)}; bundle { Çcheck typeOf assertEqual(typeOf(root), tableType, "typeOf has a problem"); assertEqual(typeOf(user.prefs["name"]), stringType, "typeOf has a problem."); assertEqual(typeOf(examples.yesterday), dateType, "typeOf has a problem")}; bundle { Çcheck evaluate assertEqual(evaluate("12 + 24 + abs (-12)"), 48, "evaluate has a problem")}}; bundle { Çcheck addressing modes & case insenstivity assertEqual(@user.prefs ["name"], @User.prefs.Name, "array operations are broken"); assertEqual((@uSEr.prefs.NamE)^, user.Prefs.name, "dereferencing is broken"); assertEqual((@user)^.Prefs ["name"], uSEr.pRefs.NamE, "dereferencing or array is broken"); assertEqual(user.prefs.["name"], user.prefs.NAME, "bracketed expressions are broken")}; bundle { Çcheck with statement table.surePath ("temp.foo.test.xyzzy"); temp.foo.test.xyzzy = 5; with temp { with foo { with test { assertEqual(xyzzy, 5, "with statement is broken")}}}; with temp, foo, test { delete (@xyzzy)}; delete (@temp.foo)}; states.looper (); assertEqual(states.nthState(45), "Vermont", "states.nthState is broken."); Çif (sys.os() == osMacOS) Çbundle Çtest extensions, sys.memAvail Çlocal (x, y) Çx = number (callXCMD (@testing.miscXCMD)) Çy = sys.memAvail () Çx = number (callXCMD (@testing.miscXCMD)) Çy = sys.memAvail () Çif x != y ÇscriptError ("callXCMD or sys.memAvail is broken.") bundle { Çtest semophores local (locked); semaphores.lock ("testing", 0); try { semaphores.lock ("testing", 6); locked = false} else { locked = true}; assert(locked, "semaphores.lock is broken"); assert(semaphores.unlock("testing"), "semaphores.unlock is broken")}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testMisc ! on testMisc () { Çmiscellaneous random stuff local (adrdata = @parentOf (this^)^.data); bundle { Çbinary values as arrays x = binary (0xaabbccdd); assert(x[1] == 0xaa and x[4] == 0xdd, "binary array indexing is broken"); on checkRange() { x[5]}; assertErrors(@checkRange, "out of range"); delete (@x [1]); delete (@x [1]); setBinaryType (@x, shortType); assertEqual(number(x), 0xccdd, "delete of binary array item is broken"); x [2] = 3; assertEqual(short(x), short(0xcc03), "binary array assignment is broken")}; bundle { Çscript.getCode on foo (x) { return (x)}; local (miscUserTalk); script.getCode (@adrdata^.miscUserTalk, @miscUserTalk); assertEqual(miscUserTalk(2, 3, 4), 14, "script.getCode is broken")}; bundle { Çtry out nested bundles bundle { Çcheck rects local (x, t, l, b, r); x = rectangle.set (10, 20, 30, 40); rectangle.get (x, @t, @l, @b, @r); assert(t == 10 and l == 20 and b == 30 and r == 40, "Problems with rects. " + x)}; bundle { Çmess with keyboard local (s); s = ""; if kb.optionKey () { s = s + "opt "}; if kb.cmdKey () { s = s + "cmd "}; if kb.shiftKey () { s = s + "shift "}; if kb.controlKey () { s = s + "ctrl "}; };// no asserts in original superstress - Monday, October 04, 2004 at 6:45:46 PM by JPB bundle { Çcheck addresses local (adr); adr = address ("root.system"); assert(sizeOf(adr^) > 0, "Something's wrong with addresses.")}; bundle { Çcheck targeting if not Frontier.isRuntime () { if defined (root.examples.list2) { target.set (@root.examples.list2); op.firstSummit (); assertEqual(op.getLineText(), "Nebraska", "Something's wrong with targeting."); assertEqual(target.get(), @root.examples.list2, "Something's wrong with targeting."); target.clear (); assertNotEqual(target.get(), @root.examples.list2, "Something's wrong with targeting.")}}}; ÇmyMoof (5, 1) // don't know what this is - Monday, October 04, 2004 at 6:47:02 PM by JPB bundle { Çtable surgery local (adr); adr = @scratchpad.tableTesting; assert(new(tableType, adr)); assert(defined(adr^), "new verb didn't create anything"); assertEqual(typeOf(adr^), tableType, "new didn't create a table."); delete (adr); assert(!defined(adr^), "delete didn't delete " + adr)}; bundle { Çcheck typeOf assertEqual(typeOf(root), tableType, "typeOf has a problem"); assertEqual(typeOf(user.prefs["name"]), stringType, "typeOf has a problem."); assertEqual(typeOf(examples.yesterday), dateType, "typeOf has a problem")}; bundle { Çcheck evaluate assertEqual(evaluate("12 + 24 + abs (-12)"), 48, "evaluate has a problem")}}; bundle { Çcheck addressing modes & case insenstivity assertEqual(@user.prefs ["name"], @User.prefs.Name, "array operations are broken"); assertEqual((@uSEr.prefs.NamE)^, user.Prefs.name, "dereferencing is broken"); assertEqual((@user)^.Prefs ["name"], uSEr.pRefs.NamE, "dereferencing or array is broken"); assertEqual(user.prefs.["name"], user.prefs.NAME, "bracketed expressions are broken")}; bundle { Çcheck with statement table.surePath ("temp.foo.test.xyzzy"); temp.foo.test.xyzzy = 5; with temp { with foo { with test { assertEqual(xyzzy, 5, "with statement is broken")}}}; with temp, foo, test { delete (@xyzzy)}; delete (@temp.foo)}; states.looper (); assertEqual(states.nthState(45), "Vermont", "states.nthState is broken."); if system.environment.isMacOsClassic { local (x, y); x = number (callXCMD (@adrdata^.miscXCMD)); y = sys.memAvail (); if x != y { scriptError ("callXCMD or sys.memAvail is broken.")}}; bundle { Çtest semophores local (locked); semaphores.lock ("testing", 0); try { semaphores.lock ("testing", 6); locked = false} else { locked = true}; assert(locked, "semaphores.lock is broken"); assert(semaphores.unlock("testing"), "semaphores.unlock is broken")}}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file |
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20040/originalSuperStressRemnants Modified Files: Tag: fUnit_Suite-branch miscAppleScript Removed Files: Tag: fUnit_Suite-branch miscUserTalk miscXCMD Log Message: Cleaned up testMisc and moved required infrastructure into the testSuperStress.data sub-table. --- miscXCMD DELETED --- Index: miscAppleScript =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants/Attic/miscAppleScript,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** miscAppleScript 22 Aug 2005 00:41:43 -0000 1.1.2.1 --- miscAppleScript 18 Feb 2006 11:27:24 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.originalSuperStressRemnants.miscAppleScript ! on miscAppleScript of x from y between z -- AppleScript test for testing.scripts.OSA return |string.kBytes| (|testing.miscUserTalk| (first item of x, y, z)) end \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.originalSuperStressRemnants.miscAppleScript ! on miscAppleScript of x from y between z -- AppleScript test for testing.scripts.OSA return |string.kBytes| (|fUnit.testSuperStress.data.miscUserTalk| (first item of x, y, z)) end \ No newline at end of file --- miscUserTalk DELETED --- |
|
From: Andre R. <and...@us...> - 2006-02-18 11:27:30
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/data In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20040/testSuperStress/data Added Files: Tag: fUnit_Suite-branch miscUserTalk miscXCMD Log Message: Cleaned up testMisc and moved required infrastructure into the testSuperStress.data sub-table. --- NEW FILE: miscXCMD --- FrontierVcsFile:1:data:suites.fUnit.testSuperStress.data.miscXCMD WEZDTmAOAABYRkNOAIAAAAAAAABB+v/uTnFOcWAAAFROVv8ALwwgbgAIQ+7/AHA/IthRyP/8KG4ADEHu/wApSABQOXwABwBMLywASCBfTpAtbABwABAoX05eIF9QT07QIG8ABCAvAAhCZ6nuIF9QT07QTlb/AEKnPzwAGKiPSG7/AE66/9xCpy8uAAhIbv8ATrr/jiBuAAghXwBCTl4un051hG1haW4AAAA= --- NEW FILE: miscUserTalk --- (This appears to be a binary file; contents omitted.) |
|
From: Andre R. <and...@us...> - 2006-02-18 11:08:39
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants/data In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11808/data Removed Files: Tag: fUnit_Suite-branch helloWorld xmlReceiver xmlSender xmlTestList xmlTestListCopy Log Message: Moved scripts required for SuperStress testing suite in its own data table. --- xmlSender DELETED --- --- xmlTestListCopy DELETED --- --- xmlTestList DELETED --- --- helloWorld DELETED --- --- xmlReceiver DELETED --- |
|
From: Andre R. <and...@us...> - 2006-02-18 11:06:27
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/data/rpcHandlers In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10981/rpcHandlers Added Files: Tag: fUnit_Suite-branch helloWorld xmlReceiver Log Message: Added infrastructure required for xml-rpc tests in testXML. --- NEW FILE: helloWorld --- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.data.rpcHandlers.helloWorld on helloWorld (name) { return ("Hello " + name + ".")} --- NEW FILE: xmlReceiver --- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.data.rpcHandlers.xmlReceiver on xmlReceiver (addressString, objectType, encodedObject) { local (adr = @temp.["fUnit" + addressString]); local (bytes = binary (base64.decode (encodedObject))); setBinaryType (@bytes, objectType); unpack (@bytes, adr); if objectType == scripttype { script.compile (adr)}; return (true)} |
|
From: Andre R. <and...@us...> - 2006-02-18 11:06:27
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/data In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10981 Added Files: Tag: fUnit_Suite-branch xmlTestList Log Message: Added infrastructure required for xml-rpc tests in testXML. --- NEW FILE: xmlTestList --- FrontierVcsFile:1:list:suites.fUnit.testSuperStress.data.xmlTestList {1, 3, 5, 7} |
|
From: Andre R. <and...@us...> - 2006-02-18 10:48:38
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/data/rpcHandlers In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3678/rpcHandlers Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/data/rpcHandlers added to the repository --> Using per-directory sticky tag `fUnit_Suite-branch' |
|
From: Andre R. <and...@us...> - 2006-02-18 10:47:48
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2457 Modified Files: Tag: fUnit_Suite-branch testXML Log Message: Cleaned up. Make sure Frontier webserver is running before testing xml-rpc. Index: testXML =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testXML,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** testXML 22 Aug 2005 00:41:20 -0000 1.1.2.1 --- testXML 18 Feb 2006 10:47:45 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testXML ! on testXML () { Çxml testing local (server = tcp.myDottedID ()); local (port = user.inetd.config.http.port); ÇWe have to skip the !pathological example because it causes an error. if defined (system.verbs.builtins.xml.examples.["!pathological"].taggedText) { table.rename (@system.verbs.builtins.xml.examples.["!pathological"].taggedText, "xtaggedText")}; xml.testing.init (); user.betty.rpcHandlers.testing = @suites.testing.data; bundle { // simple HelloWord example local (s, params = {"George Washington"}); s = betty.rpc.client (server, port, "testing.helloWorld", @params, false); assertEqual(s, "Hello George Washington.", "XML-RPC is broken")}; bundle { // send and receive an object local (adr = @testing.data.xmlTestListCopy); if defined (adr^) { delete (adr)}; testing.data.xmlSender (server, @testing.data.xmlTestList); assertEqual(adr^, testing.data.xmlTestList, "xmlTestList send/recieve failed")}; bundle { //xml.examples xml.testing.validate ()}; Çbundle // WebEdit functions //uncomment this and use your own prefs Çlocal (paramlist = {user.webEdit.servers.["betty.userland.com"].username, user.webEdit.servers.["betty.userland.com"].password, "websites.frontier5.default"}) ÇwebEdit.sendCommand ("betty.userland.com", 80, "webEdit.getFromServer", @paramlist, false) bundle { //user.betty.rpcHandlers.examples local (paramlist = {{1, 3, 5}}); s = betty.rpc.client (server, port, "examples.getStateList", @paramlist); assertEqual(s, {"Alabama,Arizona,California"}, "betty.rpc.client is broken: GetStateList failed"); paramlist = {1, 3, 5, 7}; s = betty.rpc.client (server, port, "examples.getStateNames", @paramlist); assertEqual(s, "Alabama\rArizona\rCalifornia\rConnecticut", "betty.rpc.client is broken: GetStateNames failed"); new (tabletype, @x); x.a = 1; x.b = 3; x.c = 5; x.d = 7; paramlist = {x}; s = betty.rpc.client (server, port, "examples.getStateStruct", @paramlist); assertEqual(s, "Alabama,Arizona,California,Connecticut", "betty.rpc.client is broken: GetStateStruct failed")}; ÇFix the !pathological example. if defined (system.verbs.builtins.xml.examples.["!pathological"].xtaggedText) { table.rename (@system.verbs.builtins.xml.examples.["!pathological"].xtaggedText, "taggedText")}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testXML ! on testXML () { Çxml testing bundle { //xml.examples ÇWe have to skip the !pathological example because it causes an error. if defined (system.verbs.builtins.xml.examples.["!pathological"].taggedText) { table.rename (@system.verbs.builtins.xml.examples.["!pathological"].taggedText, "xtaggedText")}; xml.testing.init (); xml.testing.validate (); ÇFix the !pathological example. if defined (system.verbs.builtins.xml.examples.["!pathological"].xtaggedText) { table.rename (@system.verbs.builtins.xml.examples.["!pathological"].xtaggedText, "taggedText")}}; if inetd.isDaemonRunning (@user.inetd.config.http) { //2006-02-18 aradke: requires Frontier webserver to listen local (server = tcp.myDottedID ()); local (port = user.inetd.config.http.port); local (adrdata = @parentOf (this^)^.data); user.betty.rpcHandlers.fUnit = @adrdata^.rpcHandlers; try { bundle { // simple HelloWord example local (s, params = {"George Washington"}); s = betty.rpc.client (server, port, "fUnit.helloWorld", @params, false); assertEqual(s, "Hello George Washington.", "XML-RPC is broken")}; bundle { // send and receive an object local (adr = @adrdata^.xmlTestList); local (data, s, objecttype, name); name = string (nameOf (adr^)); objecttype = typeof (adr^); pack (adr^, @data); s = base64.encode (string (data), 80); local (params = {name, string (objecttype), s}); betty.rpc.client (server, port, "fUnit.xmlReceiver", @params); assertEqual(adr^, temp.["fUnit" + name], "xmlTestList send/receive failed")}} else { delete (@user.betty.rpcHandlers.fUnit); scripterror (tryerror)}; delete (@user.betty.rpcHandlers.fUnit); bundle { //user.betty.rpcHandlers.examples local (paramlist = {{1, 3, 5}}); s = betty.rpc.client (server, port, "examples.getStateList", @paramlist); assertEqual(s, {"Alabama,Arizona,California"}, "betty.rpc.client is broken: GetStateList failed"); paramlist = {1, 3, 5, 7}; s = betty.rpc.client (server, port, "examples.getStateNames", @paramlist); assertEqual(s, "Alabama\rArizona\rCalifornia\rConnecticut", "betty.rpc.client is broken: GetStateNames failed"); new (tabletype, @x); x.a = 1; x.b = 3; x.c = 5; x.d = 7; paramlist = {x}; s = betty.rpc.client (server, port, "examples.getStateStruct", @paramlist); assertEqual(s, "Alabama,Arizona,California,Connecticut", "betty.rpc.client is broken: GetStateStruct failed")}; }}; Çbundle // WebEdit functions //uncomment this and use your own prefs Çlocal (paramlist = {user.webEdit.servers.["betty.userland.com"].username, user.webEdit.servers.["betty.userland.com"].password, "websites.frontier5.default"}) ÇwebEdit.sendCommand ("betty.userland.com", 80, "webEdit.getFromServer", @paramlist, false) bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file |
|
From: Andre R. <and...@us...> - 2006-02-18 10:45:43
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/data In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30287/data Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/data added to the repository --> Using per-directory sticky tag `fUnit_Suite-branch' |
|
From: Andre R. <and...@us...> - 2006-02-18 10:08:08
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14672/testSuperStress Modified Files: Tag: fUnit_Suite-branch testSizeOf Log Message: Corrected size of fixed and double value types for Mac version. Index: testSizeOf =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testSizeOf,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** testSizeOf 22 Aug 2005 00:41:20 -0000 1.1.2.1 --- testSizeOf 18 Feb 2006 10:08:04 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testSizeOf ! on testSizeOf () { local (e = "sizeof is broken."); assertEqual(sizeof('A'), 1, e); assertEqual(sizeof('XXXX'), 4, e); assertEqual(sizeof(true), 1, e); assertEqual(sizeof(number(1)), 4, e); assertEqual(sizeof("123456789"), 9, e); assertEqual(sizeof(clock.now()), 4, e); assertEqual(sizeof(up), 1, e); assertEqual(sizeof(@system.misc), 11, e); assertEqual(sizeof(point.set(12, 24)), 4, e); assertEqual(sizeof(single(1)), 4, e); assertEqual(sizeof(double(2)), 10, e); if (sys.os () == osMacOS) { assertEqual(sizeof(fixed), 4, e); assertEqual(sizeof(rectangle.set(12, 24, 36, 48)), 8, e)}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testSizeOf ! on testSizeOf () { local (e = "sizeof is broken."); assertEqual(sizeof('A'), 1, e); assertEqual(sizeof('XXXX'), 4, e); assertEqual(sizeof(true), 1, e); assertEqual(sizeof(number(1)), 4, e); assertEqual(sizeof("123456789"), 9, e); assertEqual(sizeof(clock.now()), 4, e); assertEqual(sizeof(up), 1, e); assertEqual(sizeof(@system.misc), 11, e); assertEqual(sizeof(point.set(12, 24)), 4, e); assertEqual(sizeof(single(1)), 4, e); if system.environment.isMac { assertEqual(sizeof(double(2)), 8, e); assertEqual(sizeof(fixed), 2, e); assertEqual(sizeof(rectangle.set(12, 24, 36, 48)), 8, e)}; if system.environment.isWindows { assertEqual(sizeof(double(2)), 10, e)}}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file |
|
From: Andre R. <and...@us...> - 2006-02-18 10:07:14
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/engine In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14468/engine Modified Files: Tag: fUnit_Suite-branch runTestSuite Log Message: Default to storing test results in temp table rather than in user table. Index: runTestSuite =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/engine/Attic/runTestSuite,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** runTestSuite 22 Aug 2005 00:41:37 -0000 1.1.2.1 --- runTestSuite 18 Feb 2006 10:07:10 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.engine.runTestSuite ! on runTestSuite (suiteAdr, resultsTableAdr = @user.fUnitResults, recursive = 0, testCaseToRun = nil, displayTestResults = false, allowErrorsOut = false) { ÇResponsible for running the test suite and generating the results table. Parameter "recursive" indicates if this is a recursive call to runTestSuite, in which case we should not initialize the results table. ÇallowErrorsOut indicates if we should catch the errors, or allow the scriptError to propogate all the way out to the user for debugging purposes. on isTestSuite(adr) { return fUnit.engine.isTestSuite(adr)}; on isTestCase(adr) { return fUnit.engine.isTestCase(adr)}; suiteAdr = isTestSuite(suiteAdr); if not suiteAdr { // validate this is a suite scriptError("Can't run tests on " + suiteAdr + " because it is not a test suite.")}; if not recursive { // initialize results table fUnit.engine.initializeResultsTable(resultsTableAdr); if displayTestResults { edit(resultsTableAdr)}}; local (testCases = {}, testSuites = {}, setup, teardown, name = nameOf(suiteAdr^), description = "", adr, testSuite, testCase, setupResults); bundle { // scan the suite table for tests, suites, and constants bundle { // scan for the constant names if defined(suiteAdr^.setup) { setup = @suiteAdr^.setup}; if defined(suiteAdr^.teardown) { teardown = @suiteAdr^.teardown}; if defined(suiteAdr^.name) { name = suiteAdr^.name}; if defined(suiteAdr^.description) { description = suiteAdr^.description}}; if testCaseToRun { // add this test case only testCases = testCases + testCaseToRun} else { // collect test cases and suites for adr in suiteAdr { testSuite = isTestSuite(adr); if testSuite { testSuites = testSuites + testSuite}; testCase = isTestCase(adr); if testCase { testCases = testCases + testCase}}}}; bundle { // run this test suite for testCase in testCases { if setup { // run setup if it exists try { // to run setup setupResults = setup^()} else { scriptError("Can't run test suite \"" + name + "\" because the setup script failed while trying to run \"" + nameOf(testCase^) + "\" with the following error: " + tryError)}} else { setupResults = null}; local (error = nil); msg ("Running case " + nameOf(testCase^) + " in " + name); script.unCompile(testCase); // paranoia new(nil, @fUnit.contextForTests.stackDump); local (parms = {}); if setupResults { parms = parms + setupResults}; if allowErrorsOut { // run test case with requested error handling callScript(testCase, parms, @fUnit.contextForTests)} else { try { callScript(testCase, parms, @fUnit.contextForTests)} else { error = tryError}}; if !error { // record result table.uniqueName("pass", @resultsTableAdr^.passed, 5)^ = nameOf(testCase^)} else { if error beginsWith "[aborted]" { // test was aborted error = string.replace(error, "[aborted]", ""); local (abortTblAdr = table.uniqueName("aborted", @resultsTableAdr^.aborted, 5)); new (tableType, abortTblAdr); abortTblAdr^.name = nameOf(testCase^); abortTblAdr^.message = error} else { // actual failure local (errorTblAdr = table.uniqueName("failed", @resultsTableAdr^.failed, 5)); new (tableType, errorTblAdr); errorTblAdr^.name = nameOf(testCase^); errorTblAdr^.suite = name; errorTblAdr^.error = error; if (defined(fUnit.contextForTests.stackDump) && typeOf(fUnit.contextForTests.stackDump) == tableType) { errorTblAdr^.stackDump = fUnit.contextForTests.stackDump}}}; if teardown { // run teardown if it exists try { teardown^(setupResults)} else { scriptError("Can't continue to run test suite \"" + name + "\" because the teardown script failed after running \"" + nameOf(testCase^) + "\" with the following error: " + tryError)}}}}; bundle { // run the child test suites for suite in testSuites { fUnit.engine.runTestSuite(suite, resultsTableAdr, 1)}}; bundle { //cleanup if defined(fUnit.contextForTests.stackDump) { delete(@fUnit.contextForTests.stackDump)}; bundle { // remove any stray temp tables created by fUnit.getTempTable local (tempname, templist = {}); for tempname in @temp { if nameOf(tempname^) beginsWith "fUnit" { templist = templist + tempname}}; for tempname in templist { delete(tempname)}}}; return resultsTableAdr}; // for the TestRunner to process and display runTestSuite(@fUnit.testGlobalSuite, displayTestResults: true) \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.engine.runTestSuite ! on runTestSuite (suiteAdr, resultsTableAdr = @temp.resultsfUnit, recursive = 0, testCaseToRun = nil, displayTestResults = false, allowErrorsOut = false) { ÇResponsible for running the test suite and generating the results table. Parameter "recursive" indicates if this is a recursive call to runTestSuite, in which case we should not initialize the results table. ÇallowErrorsOut indicates if we should catch the errors, or allow the scriptError to propogate all the way out to the user for debugging purposes. on isTestSuite(adr) { return fUnit.engine.isTestSuite(adr)}; on isTestCase(adr) { return fUnit.engine.isTestCase(adr)}; suiteAdr = isTestSuite(suiteAdr); if not suiteAdr { // validate this is a suite scriptError("Can't run tests on " + suiteAdr + " because it is not a test suite.")}; if not recursive { // initialize results table fUnit.engine.initializeResultsTable(resultsTableAdr); if displayTestResults { edit(resultsTableAdr)}}; local (testCases = {}, testSuites = {}, setup, teardown, name = nameOf(suiteAdr^), description = "", adr, testSuite, testCase, setupResults); bundle { // scan the suite table for tests, suites, and constants bundle { // scan for the constant names if defined(suiteAdr^.setup) { setup = @suiteAdr^.setup}; if defined(suiteAdr^.teardown) { teardown = @suiteAdr^.teardown}; if defined(suiteAdr^.name) { name = suiteAdr^.name}; if defined(suiteAdr^.description) { description = suiteAdr^.description}}; if testCaseToRun { // add this test case only testCases = testCases + testCaseToRun} else { // collect test cases and suites for adr in suiteAdr { testSuite = isTestSuite(adr); if testSuite { testSuites = testSuites + testSuite}; testCase = isTestCase(adr); if testCase { testCases = testCases + testCase}}}}; bundle { // run this test suite for testCase in testCases { if setup { // run setup if it exists try { // to run setup setupResults = setup^()} else { scriptError("Can't run test suite \"" + name + "\" because the setup script failed while trying to run \"" + nameOf(testCase^) + "\" with the following error: " + tryError)}} else { setupResults = null}; local (error = nil); msg ("Running case " + nameOf(testCase^) + " in " + name); script.unCompile(testCase); // paranoia new(nil, @fUnit.contextForTests.stackDump); local (parms = {}); if setupResults { parms = parms + setupResults}; if allowErrorsOut { // run test case with requested error handling callScript(testCase, parms, @fUnit.contextForTests)} else { try { callScript(testCase, parms, @fUnit.contextForTests)} else { error = tryError}}; if !error { // record result table.uniqueName("pass", @resultsTableAdr^.passed, 5)^ = nameOf(testCase^)} else { if error beginsWith "[aborted]" { // test was aborted error = string.replace(error, "[aborted]", ""); local (abortTblAdr = table.uniqueName("aborted", @resultsTableAdr^.aborted, 5)); new (tableType, abortTblAdr); abortTblAdr^.name = nameOf(testCase^); abortTblAdr^.message = error} else { // actual failure local (errorTblAdr = table.uniqueName("failed", @resultsTableAdr^.failed, 5)); new (tableType, errorTblAdr); errorTblAdr^.name = nameOf(testCase^); errorTblAdr^.suite = name; errorTblAdr^.error = error; if (defined(fUnit.contextForTests.stackDump) && typeOf(fUnit.contextForTests.stackDump) == tableType) { errorTblAdr^.stackDump = fUnit.contextForTests.stackDump}}}; if teardown { // run teardown if it exists try { teardown^(setupResults)} else { scriptError("Can't continue to run test suite \"" + name + "\" because the teardown script failed after running \"" + nameOf(testCase^) + "\" with the following error: " + tryError)}}}}; bundle { // run the child test suites for suite in testSuites { fUnit.engine.runTestSuite(suite, resultsTableAdr, 1)}}; bundle { //cleanup if defined(fUnit.contextForTests.stackDump) { delete(@fUnit.contextForTests.stackDump)}; bundle { // remove any stray temp tables created by fUnit.getTempTable local (tempname, templist = {}); for tempname in @temp { if nameOf(tempname^) beginsWith "fUnit" { templist = templist + tempname}}; for tempname in templist { delete(tempname)}}}; return resultsTableAdr}; // for the TestRunner to process and display runTestSuite(@fUnit.testGlobalSuite, displayTestResults: true) \ No newline at end of file |
|
From: Andre R. <and...@us...> - 2006-02-18 09:41:26
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4628/testSuperStress Modified Files: Tag: fUnit_Suite-branch testOp Log Message: Fixed location of test outline, use temp storage instead of location in deprecated suites.testing table. Index: testOp =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testOp,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** testOp 22 Aug 2005 00:41:20 -0000 1.1.2.1 --- testOp 18 Feb 2006 09:41:21 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testOp ! on testOp () { if not Frontier.isRuntime () and defined (op.firstSummit) { local (i, j, dir); local (adr = @testing.testOutline); new (outlineType, adr); edit (adr); bundle { Çadd five lines for i = 1 to 5 { op.insert (i, down); op.setRefCon (i); dir = right; for j = 1 to 3 { op.insert (i + "." + j, dir); dir = down}; op.go (left, 1)}; op.firstsummit (); assertEqual(op.getLineText(), "", "op is broken"); op.deleteLine ()}; bundle { Çcheck resulting outline local (n = 0); op.firstsummit (); for i = 1 to 5 { assertEqual(op.getLineText(), i, "bad outline"); n = n + op.getRefCon (); op.go (flatdown, 1); for j = 1 to 3 { assertEqual(op.getlinetext(), i + "." + j, "bad outline"); n = n + op.getRefCon (); op.go (flatdown, 1)}}; assert(!op.go(flatdown, 1), "too many heads in outline."); assertEqual(n, 15, "op.getRefCon or op.setRefCon is broken")}; bundle { Çcheck op.find for i = 1 to 5 { for j = 1 to 3 { op.firstsummit (); assert(op.find(i + "." + j), "op.find is broken"); assertEqual(op.getLineText(), i + "." + j, "op.find is broken")}}}; bundle { Çcheck hoisting op.firstSummit (); for i = 1 to 5 { assertEqual(op.countSummits(), 5, "hoisting is broken."); op.hoist (); assertEqual(op.countSummits(), 3, "hoisting is broken."); op.deHoist (); op.go (down, 1)}}; bundle { Çtry editMenu verbs editMenu.setFont ("Courier"); editMenu.setFontSize (10); assertEqual(editMenu.getFont(), "Courier", "editMenu getFont or setFont is broken"); assertEqual(editMenu.getFontSize(), 10, "editMenu getFontSize or setFontSize is broken")}; close (adr); delete (adr)}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testOp ! on testOp () { if not Frontier.isRuntime () and defined (op.firstSummit) { local (i, j, dir); local (adr = @fUnit.getTempTableAdr ()^.superStressOutline); new (outlineType, adr); edit (adr); bundle { Çadd five lines for i = 1 to 5 { op.insert (i, down); op.setRefCon (i); dir = right; for j = 1 to 3 { op.insert (i + "." + j, dir); dir = down}; op.go (left, 1)}; op.firstsummit (); assertEqual(op.getLineText(), "", "op is broken"); op.deleteLine ()}; bundle { Çcheck resulting outline local (n = 0); op.firstsummit (); for i = 1 to 5 { assertEqual(op.getLineText(), i, "bad outline"); n = n + op.getRefCon (); op.go (flatdown, 1); for j = 1 to 3 { assertEqual(op.getlinetext(), i + "." + j, "bad outline"); n = n + op.getRefCon (); op.go (flatdown, 1)}}; assert(!op.go(flatdown, 1), "too many heads in outline."); assertEqual(n, 15, "op.getRefCon or op.setRefCon is broken")}; bundle { Çcheck op.find for i = 1 to 5 { for j = 1 to 3 { op.firstsummit (); assert(op.find(i + "." + j), "op.find is broken"); assertEqual(op.getLineText(), i + "." + j, "op.find is broken")}}}; bundle { Çcheck hoisting op.firstSummit (); for i = 1 to 5 { assertEqual(op.countSummits(), 5, "hoisting is broken."); op.hoist (); assertEqual(op.countSummits(), 3, "hoisting is broken."); op.deHoist (); op.go (down, 1)}}; bundle { Çtry editMenu verbs editMenu.setFont ("Courier"); editMenu.setFontSize (10); assertEqual(editMenu.getFont(), "Courier", "editMenu getFont or setFont is broken"); assertEqual(editMenu.getFontSize(), 10, "editMenu getFontSize or setFontSize is broken")}; close (adr); delete (adr)}}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file |
|
From: Andre R. <and...@us...> - 2006-02-18 09:27:27
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32012/testSuperStress Modified Files: Tag: fUnit_Suite-branch testClock Log Message: Fixed date coercion to make it independent of current system date format. Index: testClock =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testClock,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** testClock 22 Aug 2005 00:41:20 -0000 1.1.2.1 --- testClock 18 Feb 2006 09:27:22 -0000 1.1.2.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testClock ! on testClock () { date.get (clock.now (), @thisday, @thismonth, @thisyear, @thishour, @thisminute, @thissecond); Çbundle Çclock.set Çlocal (x = clock.now ()) Çlocal (y) Çlocal (testdate = date ("December 11, 1996; 4:05:06 AM")) Çclock.set (date.set (11, 12, 96, 4, 5, 6)) Çy = clock.now () Çif (y - testdate + 3) > 5 // a little slop for Windows Çclock.set (x) Çrestore! ÇscriptError ("clock.set is broken.") Çclock.set (x) Çrestore assertEqual(date.set (24, 12, 1991, 12, 4, 9), date ("December 24, 1991; 12:04:09 PM")); // type coercian if not Frontier.isRuntime () { // check that timeCreated and timeModified seem to work local (adr = @scratchpad.SuperStressClockTest, now = clock.now()); if (defined(adr^)) { delete(adr)}; new(tableType, adr); assert(timeCreated(adr) >= now && timeCreated(adr) <= now + 1, "timeCreated is not working"); clock.waitSeconds(1); adr^.change = 1; assert(timeModified(adr) >= now + 1 && timeModified(adr) <= now + 2, "timeModified is not working"); delete(adr)}; bundle { Çclock.waitSixtieths local (i); local (origtime = clock.now ()); for i = 1 to 10 { clock.waitSixtieths (6)}; assert(abs(clock.now() - origtime) <= 2, "clock.waitsixtieths is broken")}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testClock ! on testClock () { Çbundle //2006-02-18 aradke: can't run clock.set without admin rights anymore Çlocal (x = clock.now ()) Çlocal (y) Çlocal (testdate = date ("December 11, 1996; 4:05:06 AM")) Çclock.set (date.set (11, 12, 96, 4, 5, 6)) Çy = clock.now () Çif (y - testdate + 3) > 5 // a little slop for Windows Çclock.set (x) Çrestore! ÇscriptError ("clock.set is broken.") Çclock.set (x) Çrestore bundle { //2006-02-18 aradke: date.get, date.set local (now = clock.now ()); local (day, month, year, hour, minute, second); date.get (now, @day, @month, @year, @hour, @minute, @second); assertEqual (date.set (day, month, year, hour, minute, second), now, "date.get or date.set is broken")}; assertEqual(date.set (18, 2, 2006, 9, 22, 43) + date.getCurrentTimeZone (), date ("Sat, 18 Feb 2006 09:22:43 GMT")); if not Frontier.isRuntime () { // check that timeCreated and timeModified seem to work local (adr = @scratchpad.SuperStressClockTest, now = clock.now()); if (defined(adr^)) { delete(adr)}; new(tableType, adr); assert(timeCreated(adr) >= now && timeCreated(adr) <= now + 1, "timeCreated is not working"); clock.waitSeconds(1); adr^.change = 1; assert(timeModified(adr) >= now + 1 && timeModified(adr) <= now + 2, "timeModified is not working"); delete(adr)}; bundle { Çclock.waitSixtieths local (i); local (origtime = clock.now ()); for i = 1 to 10 { clock.waitSixtieths (6)}; assert(abs(clock.now() - origtime) <= 2, "clock.waitsixtieths is broken")}}; bundle { //debug code fUnit.runners.run (parentOf(this^), testCaseToRun: this)} \ No newline at end of file |
1 message has been excluded from this view by a project administrator.