Author: tc
Date: Sun Sep 25 13:09:33 2005
New Revision: 9984
Modified:
trunk/fundev/admin/builds/compile-library.bat
trunk/fundev/admin/builds/test-release.bat
trunk/fundev/sources/environment/tests/dfmc/module.dylan
trunk/fundev/sources/environment/tests/dfmc/projects.dylan
trunk/fundev/sources/environment/tests/library.dylan
Log:
Bug: 7233
Make test-basic-release work.
Modified: trunk/fundev/admin/builds/compile-library.bat
==============================================================================
--- trunk/fundev/admin/builds/compile-library.bat (original)
+++ trunk/fundev/admin/builds/compile-library.bat Sun Sep 25 13:09:33 2005
@@ -139,6 +139,7 @@
shift
goto PARAM_LOOP
+REM Need this line to make the shell recognize the SET_EXE label
:SET_EXE
set EXE=yes
set EXT=exe
Modified: trunk/fundev/admin/builds/test-release.bat
==============================================================================
--- trunk/fundev/admin/builds/test-release.bat (original)
+++ trunk/fundev/admin/builds/test-release.bat Sun Sep 25 13:09:33 2005
@@ -120,6 +120,7 @@
shift
goto PARAM_LOOP
+REM Need this line to make Windows recognize the SET_TEST_TARGET label.
:SET_TEST_TARGET
If "%2%"=="" GOTO NO_ARG
set TEST_TARGET=%2%
Modified: trunk/fundev/sources/environment/tests/dfmc/module.dylan
==============================================================================
--- trunk/fundev/sources/environment/tests/dfmc/module.dylan (original)
+++ trunk/fundev/sources/environment/tests/dfmc/module.dylan Sun Sep 25
13:09:33 2005
@@ -13,6 +13,7 @@
use locators;
use source-records;
+ use operating-system;
use testworks;
Modified: trunk/fundev/sources/environment/tests/dfmc/projects.dylan
==============================================================================
--- trunk/fundev/sources/environment/tests/dfmc/projects.dylan (original)
+++ trunk/fundev/sources/environment/tests/dfmc/projects.dylan Sun Sep 25
13:09:33 2005
@@ -42,27 +42,28 @@
define function root-directory
() => (directory :: false-or(<string>))
- let filename = application-filename();
- if (filename)
- let locator = as(<file-locator>, filename);
- let bin-directory = locator.locator-directory;
- let release-locator = locator.locator-directory;
- as(<string>, release-locator)
- end
+ // FIXME.
+ // The original version was trying to do something clever.
+ // Since that didn't work I've replaced it with the simplest
+ // thing that works for me. --tc
+ environment-variable("FUNCTIONAL_DEVELOPER_USER_SOURCES")
+ | "C:\\fundev\\sources";
end function root-directory;
define function test-project-location
(name :: <string>) => (location :: <locator>)
let directory = root-directory();
- as(<file-locator>,
- format-to-string
- ("%s/sources/environment/tests/%s/%s.hdp",
- directory,
- select (name by \=)
- "environment-test-application" => "test-application";
- "environment-test-library" => "test-library";
- end,
- name))
+ let location-name
+ = format-to-string
+ ("%s/environment/tests/%s/%s.hdp",
+ directory,
+ select (name by \=)
+ "environment-test-application" => "test-application";
+ "environment-test-library" => "test-library";
+ end,
+ name);
+ // format-out("project-location: %=\n", location-name);
+ as(<file-locator>, location-name);
end function test-project-location;
define function open-test-projects () => ()
Modified: trunk/fundev/sources/environment/tests/library.dylan
==============================================================================
--- trunk/fundev/sources/environment/tests/library.dylan (original)
+++ trunk/fundev/sources/environment/tests/library.dylan Sun Sep 25
13:09:33 2005
@@ -9,6 +9,7 @@
define library environment-test-suite
use environment-protocols;
+ use internal-release-info;
//---*** andrewa: this needs a DUIM backend to work
// use environment-framework;
//---*** andrewa: the editor tests aren't automatic
--
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://gauss.gwydiondylan.org/mailman/listinfo/gd-chatter
|
