67 cp := cp , (self classpathFor:dir) |
67 cp := cp , (self classpathFor:dir) |
68 ]]. |
68 ]]. |
69 ^ cp |
69 ^ cp |
70 |
70 |
71 " |
71 " |
72 JavaTestsResource classpath" |
72 JavaTestsResource classpath |
|
73 " |
73 |
74 |
74 "Created: / 07-05-2011 / 18:15:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
75 "Created: / 07-05-2011 / 18:15:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
75 "Modified: / 28-03-2012 / 12:28:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
76 "Modified: / 28-03-2012 / 12:28:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
77 "Modified (comment): / 21-03-2016 / 00:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
76 ! |
78 ! |
77 |
79 |
78 classpathFor:testProject |
80 classpathFor:testProject |
79 |cp dir| |
81 |cp dir| |
80 |
82 |
81 cp := OrderedCollection new. |
83 cp := OrderedCollection new. |
82 dir := self antProjectDir / testProject. |
84 dir := self antProjectDir / testProject. |
83 dir isDirectory |
85 dir isDirectory ifTrue: [ |
84 ifTrue: |
86 (dir / 'bin') exists ifTrue:[ |
85 [ (dir / 'bin') exists ifTrue:[ cp add:(dir / 'bin') asString ]. |
87 cp add:(dir / 'bin') asString |
86 (dir / 'lib') exists |
88 ]. |
87 ifTrue: |
89 (dir / 'lib') exists ifTrue: [ |
88 [ cp addAll:((dir / 'lib') directoryContentsAsFilenames |
90 cp addAll:((dir / 'lib') directoryContentsAsFilenames select:[:jar | jar suffix = 'jar' ]) |
89 select:[:jar | jar suffix = 'jar' ]) ] ]. |
91 ]. |
|
92 (dir / 'bin-tests') exists ifTrue:[ |
|
93 cp add:(dir / 'bin-tests') asString |
|
94 ]. |
|
95 "/ Argh...hack for stx:libjava/tests. We should get rid of this ancient |
|
96 "/ code!! |
|
97 (dir / 'bin-tests-INVOKEX') exists ifTrue:[ |
|
98 cp add:(dir / 'bin-tests-INVOKEX') asString |
|
99 ]. |
|
100 ]. |
90 ^ cp |
101 ^ cp |
91 |
102 |
92 " |
103 " |
93 JavaTestsResource testsClasspath" |
104 JavaTestsResource testsClasspath" |
94 |
105 |
95 "Created: / 11-06-2011 / 15:58:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
106 "Created: / 11-06-2011 / 15:58:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
107 "Modified: / 21-03-2016 / 00:19:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
96 ! |
108 ! |
97 |
109 |
98 classpathForLibjava |
110 classpathForLibjava |
99 ^ self classpathFor:'libjava' |
111 ^ self classpathFor:'libjava' |
100 |
112 |