如何将代码从Workspace导入到Workspace内部的方法中

时间:2014-04-18 08:41:30

标签: smalltalk pharo

我想将工作区中的代码发送到方法。这意味着创建类,然后创建方法,而无需离开工作区或使用浏览器。这是可能的,如果是的话怎么样?

我可以为创建测试做同样的事吗?

1 个答案:

答案 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"