Hi,

while doing the SUnit changes. I have used gst-package --test
packages.xml inside the SUnit subdirectory. One thing that cost me
sometime was that some other SUnit.star was used. So this patch right
now is just printing the .star file that is going to be used, I'm also
working on a patch to inject the right directory into the baseDirectories.

regards
  holger
>From 54c860d2646cee030b2bda15cce7e4595cadd79f Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <[email protected]>
Date: Sat, 24 Apr 2010 13:09:09 +0800
Subject: [PATCH] Indicate which package file was loaded for the package name.

This can be extremely helpful when trying to figure out if the
changed code of a package was ran or the initial one.

2010-04-24  Holger Hans Peter Freyther <[email protected]>

        * kernel/PkgLoader.st: Print the file name of the package
        that will be loaded.
---
 ChangeLog           |    5 +++++
 kernel/PkgLoader.st |    3 ++-
 2 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f4aed11..08d4179 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-24  Holger Hans Peter Freyther <[email protected]>
+
+       * kernel/PkgLoader.st: Print the file name of the package
+       that will be loaded.
+
 2010-04-15  Paolo Bonzini <[email protected]>
 
        * kernel/Regex.st: Fix printing a MatchingRegexResults.
diff --git a/kernel/PkgLoader.st b/kernel/PkgLoader.st
index 840890f..565a907 100644
--- a/kernel/PkgLoader.st
+++ b/kernel/PkgLoader.st
@@ -1865,7 +1865,8 @@ into a Smalltalk image, correctly handling dependencies.'>
                OutputVerbosity > 0 
                    ifTrue: 
                        [Transcript
-                           nextPutAll: 'Loading package ' , each;
+                           nextPutAll: 'Loading package ' , each,
+                           ' from ', (self packageAt: each) fileName;
                            nl].
                (self packageAt: each) primFileIn]
     ]
-- 
1.7.0.1

_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk

Reply via email to