equal
deleted
inserted
replaced
23 !TestCase methodsFor:'generate'! |
23 !TestCase methodsFor:'generate'! |
24 |
24 |
25 doForSource:src |
25 doForSource:src |
26 |parser| |
26 |parser| |
27 |
27 |
28 parser := SmallSenseParser new. |
28 parser := SmalltalkParser new. |
29 parser sourceText:('gen',src) asText. |
29 parser sourceText:('gen',src) asText. |
30 parser |
30 parser |
31 parseMethod:'gen' , src |
31 parseMethod:'gen' , src |
32 in:self class |
32 in:self class |
33 ignoreErrors:false |
33 ignoreErrors:false |
34 ignoreWarnings:false. |
34 ignoreWarnings:false. |
35 ^ parser. |
35 ^ parser. |
36 |
36 |
37 "Created: / 16-03-2011 / 12:27:38 / Jakub <zelenja7@fel.cvut.cz>" |
37 "Created: / 16-03-2011 / 12:27:38 / Jakub <zelenja7@fel.cvut.cz>" |
38 "Modified: / 18-03-2011 / 21:57:21 / Jakub <zelenja7@fel.cvut.cz>" |
38 "Modified: / 18-03-2011 / 21:57:21 / Jakub <zelenja7@fel.cvut.cz>" |
|
39 "Modified: / 16-09-2013 / 23:16:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
39 ! |
40 ! |
40 |
41 |
41 processMethod: aCompiledMethod |
42 processMethod: aCompiledMethod |
42 "Fail by default. Needs to be overridden by subclasses to trigger the base testing backbone." |
43 "Fail by default. Needs to be overridden by subclasses to trigger the base testing backbone." |
43 |
44 |