equal
deleted
inserted
replaced
27 "Created: / 08-04-2011 / 16:57:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
27 "Created: / 08-04-2011 / 16:57:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
28 ! ! |
28 ! ! |
29 |
29 |
30 !stx_libjava class methodsFor:'accessing - tests'! |
30 !stx_libjava class methodsFor:'accessing - tests'! |
31 |
31 |
32 testSuite |
32 excludedFromTestSuite |
33 |
33 "List of testcases and/or tests excluded from testsuite. |
34 | suite javaTestCases | |
34 Entries maybe ClassName or #(ClassName testName) |
35 suite := super testSuite. |
|
36 JavaTestsLoader load. |
|
37 |
|
38 javaTestCases := OrderedCollection new. |
|
39 |
|
40 Java allClassesDo: |
|
41 [:jclass| |
|
42 (jclass ~~ (Java at:'stx.libjava.tests.JUnit3Tests') |
|
43 and:[jclass ~~ (Java at:'stx.libjava.tests.JUnit4Tests') |
|
44 and:[jclass isTestCaseLike]]) |
|
45 ifTrue: |
|
46 [ | tc | |
|
47 tc := jclass asTestCase. |
|
48 tc isAbstract ifFalse:[javaTestCases add:tc ]]]. |
|
49 |
|
50 javaTestCases do:[:each | suite addTests:each buildSuite tests ]. |
|
51 |
|
52 suite tests withIndexDo: |
|
53 [:t :i| |
|
54 Stdout nextPutAll: i printString; space; nextPutAll: t printString; cr]. |
|
55 |
|
56 ^suite |
|
57 |
|
58 " |
35 " |
59 stx_libjava testSuite |
36 ^ #( |
60 |
37 LookupTests |
61 " |
38 ) |
62 |
39 |
63 "Created: / 07-05-2011 / 19:58:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
40 "Created: / 03-06-2011 / 17:04:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
64 "Modified: / 07-05-2011 / 22:26:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
41 ! |
|
42 |
65 ! ! |
43 ! ! |
66 |
44 |
67 !stx_libjava class methodsFor:'description'! |
45 !stx_libjava class methodsFor:'description'! |
68 |
46 |
69 excludedFromPreRequisites |
47 excludedFromPreRequisites |
373 |
351 |
374 svnRevisionNr |
352 svnRevisionNr |
375 "Return a SVN revision number of myself. |
353 "Return a SVN revision number of myself. |
376 This number is updated after a commit" |
354 This number is updated after a commit" |
377 |
355 |
378 ^ "$SVN-Revision:"'1169M'"$" |
356 ^ "$SVN-Revision:"'1177M'"$" |
379 ! ! |
357 ! ! |
380 |
358 |
381 !stx_libjava class methodsFor:'file generation'! |
359 !stx_libjava class methodsFor:'file generation'! |
382 |
360 |
383 basicFileNamesToGenerate |
361 basicFileNamesToGenerate |