equal
deleted
inserted
replaced
83 Smalltalk exit: %7 |
83 Smalltalk exit: %7 |
84 ]. |
84 ]. |
85 Smalltalk packagePath: %1. |
85 Smalltalk packagePath: %1. |
86 Smalltalk loadPackage:%2. |
86 Smalltalk loadPackage:%2. |
87 Smalltalk fileIn: %3. |
87 Smalltalk fileIn: %3. |
88 Smalltalk addStartBlock:[[(%4 selector: %5) spawnSelectorInternal: %6] fork]. |
88 Smalltalk addStartBlock:[(%4 selector: %5) spawnSelectorInternal: %6]. |
89 ' |
89 ' |
90 bindWith:Smalltalk packagePath asArray storeString |
90 bindWith:Smalltalk packagePath asArray storeString |
91 with:self class package storeString |
91 with:self class package storeString |
92 with:testcaseFile pathName storeString |
92 with:testcaseFile pathName storeString |
93 with:self class name |
93 with:self class name |
96 with:EXIT_CODE_ERROR storeString. |
96 with:EXIT_CODE_ERROR storeString. |
97 (directory / 'run.st') writingFileDo:[:f | f nextPutAll:script. ]. |
97 (directory / 'run.st') writingFileDo:[:f | f nextPutAll:script. ]. |
98 self spawnSmalltalk: { '--abortOnSEGV'. '-I'. '--quick'. '--load'. (directory / 'run.st') pathName } inDirectory: directory |
98 self spawnSmalltalk: { '--abortOnSEGV'. '-I'. '--quick'. '--load'. (directory / 'run.st') pathName } inDirectory: directory |
99 |
99 |
100 "Created: / 06-01-2017 / 22:06:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
100 "Created: / 06-01-2017 / 22:06:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
101 "Modified: / 06-01-2017 / 23:27:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
101 "Modified: / 26-01-2017 / 19:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
102 ! |
102 ! |
103 |
103 |
104 spawnSelectorInternal:selector |
104 spawnSelectorInternal:selector |
105 [ |
105 [ |
106 [ |
106 [ |