--- a/RegressionTests__CompilerTests2.st Tue Apr 02 18:17:03 2013 +0200
+++ b/RegressionTests__CompilerTests2.st Wed Apr 03 15:27:51 2013 +0200
@@ -33,7 +33,7 @@
When a package is loaded from source using
- Smalltalk loadPackage:'...'
+ Smalltalk loadPackage:'...'
expression __EVALUATED FROM WORKSPACE__ AND a method from loaded class
uses a class from the same package that is not yet loaded (i.e., it will
@@ -47,18 +47,22 @@
| ws |
+ "/ this test only works with a Display...
+ self skipIf:[true "Display isNil"] description:'Test requires a Display'.
+
"/First, make sure that package is not yet loaded...
self
- assert: (Smalltalk at: #'exept_regression_testData_CompilerTests2') isNil
- description: 'Mock package already loaded'.
+ assert: (Smalltalk at: #'exept_regression_testData_CompilerTests2') isNil
+ description: 'Mock package already loaded'.
ws := WorkspaceApplication new.
- ws selectedWorkspace contents: '(Smalltalk loadPackage: #''exept:regression/testData/CompilerTests2'')'.
- ws selectedWorkspace selectAll.
- ws selectedWorkspace doIt.
+ ws selectedWorkspace
+ contents: '(Smalltalk loadPackage: #''exept:regression/testData/CompilerTests2'')';
+ selectAll;
+ doIt.
self assert: (Smalltalk at: #'RegressionTests::CompilerTests2Mock1') new foo class
- == (Smalltalk at: #'RegressionTests::CompilerTests2Mock2')
+ == (Smalltalk at: #'RegressionTests::CompilerTests2Mock2')
"Created: / 26-10-2012 / 11:59:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (comment): / 12-02-2013 / 16:24:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -110,3 +114,4 @@
version_SVN
^ '§Id:: RegressionTests__CompilerTests2.st 506 2012-10-26 12:03:11Z vranyj1 §'
! !
+