我想将工作区中的代码发送到方法。这意味着创建类,然后创建方法,而无需离开工作区或使用浏览器。这是可能的,如果是的话怎么样?
我可以为创建测试做同样的事吗?
答案 0 :(得分:3)
在工作区中尝试:
|myClass myTest|
myClass := Object subclass: #MyClass
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'GeneratedInAWorkspace'.
myClass compile: 'foo ^ 10'.
myTest := TestCase subclass: #MyClassTest
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'GeneratedInAWorkspace'.
myTest compile: 'testFoo self assert: (Smalltalk at: #MyClass) new foo = 10'.
myTest run: #testFoo "prints: 1 run, 1 passes, 0 skipped, 0 expected failures, 0 failures, 0 errors, 0 unexpected passes"