dfmc-environment-test-suite: Add initial debugger tests

* sources/environment/tests/dfmc/main-suite.dylan
  (suite dfmc-environment-browsing-suite): Rename from
   dfmc-environment-suite.
  (suite dfmc-environment-suite): New suite incorporating
   the original environment tests along with the new
   debugging suite.

* sources/environment/tests/dfmc/projects.dylan
  (test-project-location): Add cmu-test-suite case.
  (test-project-build): Extracted new function for compiling (and
   optionally linking) the given project.
  (open-test-projects): Reference extracted test-project-build.

* sources/environment/tests/dfmc/debugging.dylan: New file containing
  the initially empty dfmc-environment-debugging-suite and its setup
  and cleanup functions.

* sources/environment/tests/dfmc/dfmc-environment-test-suite.lid:
  Reference the new debugging.dylan.

Author: housel

sources/environment/tests/dfmc/debugging.dylan

@@ -0,0 +1,33 @@
+Module:    dfmc-environment-test-suite
+Synopsis:  DFMC Environment Tests
+Author:    Peter S. Housel
+Copyright:    Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
+              All rights reserved.
+License:      See License.txt in this distribution for details.
+Warranty:     Distributed WITHOUT WARRANTY OF ANY KIND
+
+define constant $debugging-test-application = "cmu-test-suite";
+
+define function open-debugging-test-project () => ()
+  let application
+    = open-project(test-project-location($debugging-test-application));
+  open-project-compiler-database
+    (application, error-handler: project-condition-handler);
+
+  test-project-build(application, link?: #t);
+
+  unless (open-project-compiler-database
+            (application, error-handler: project-condition-handler))
+    parse-project-source(application);
+  end unless;
+  *test-application* := application;
+end function;
+
+define function close-debugging-test-project () => ()
+  close-project(*test-application*);
+end function;
+
+define suite dfmc-environment-debugging-suite
+    (setup-function:   open-debugging-test-project,
+     cleanup-function: close-debugging-test-project)
+end suite;

sources/environment/tests/dfmc/dfmc-environment-test-suite.lid

@@ -6,6 +6,7 @@ Files:  library
         module
         projects
         names
+        debugging
         main-suite
 Copyright:    Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
               All rights reserved.

sources/environment/tests/dfmc/main-suite.dylan

@@ -8,10 +8,15 @@ Warranty:     Distributed WITHOUT WARRANTY OF ANY KIND
 
 /// DFMC environment suite
 
-define suite dfmc-environment-suite
+define suite dfmc-environment-browsing-suite
     (setup-function:   open-test-projects,
      cleanup-function: close-test-projects)
   suite environment-suite;
   suite projects-suite;
   suite names-suite;
-end suite dfmc-environment-suite;
+end suite dfmc-environment-browsing-suite;
+
+define suite dfmc-environment-suite ()
+  suite dfmc-environment-browsing-suite;
+  suite dfmc-environment-debugging-suite;
+end suite;

sources/environment/tests/dfmc/projects.dylan

@@ -55,24 +55,18 @@ define function test-project-location
          select (name by \=)
            "environment-test-application" => "test-application";
            "environment-test-library"     => "test-library";
+           "cmu-test-suite"               => "cmu-test-suite";
          end,
          name);
   format-out("project-location: %=\n", location-name);
   as(<file-locator>, location-name);
 end function test-project-location;
 
-define function open-test-projects () => ()
-  let library = open-project(test-project-location($test-library));
-  open-project-compiler-database
-    (library, error-handler: project-condition-handler);
-  let application = open-project(test-project-location($test-application));
-  open-project-compiler-database
-    (application, error-handler: project-condition-handler);
-
+define function test-project-build (project :: <project-object>, #key link?)
   let progress
     = make(<progress-stream>, inner-stream: *standard-output*);
-  build-project(application,
-                link?: #f,
+  build-project(project,
+                link?: link?,
                 save-databases?: #t,
                 error-handler: project-condition-handler,
                 progress-callback:
@@ -87,6 +81,17 @@ define function open-test-projects () => ()
                     show-progress(progress, position, range, label: label);
                   end);
   new-line(progress);
+end function;
+
+define function open-test-projects () => ()
+  let library = open-project(test-project-location($test-library));
+  open-project-compiler-database
+    (library, error-handler: project-condition-handler);
+  let application = open-project(test-project-location($test-application));
+  open-project-compiler-database
+    (application, error-handler: project-condition-handler);
+
+  test-project-build(application);
 
   unless (open-project-compiler-database
             (library, error-handler: project-condition-handler))