|
@@ -686,6 +686,29 @@ messageSends: ["=", "name"]
|
|
|
}),
|
|
|
$globals.TestCase.klass);
|
|
|
|
|
|
+$core.addMethod(
|
|
|
+$core.method({
|
|
|
+selector: "isTestClass",
|
|
|
+protocol: 'testing',
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+
|
|
|
+return $core.withContext(function($ctx1) {
|
|
|
+
|
|
|
+return $recv(self._isAbstract())._not();
|
|
|
+
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"isTestClass",{},$globals.TestCase.klass)});
|
|
|
+
|
|
|
+},
|
|
|
+
|
|
|
+args: [],
|
|
|
+source: "isTestClass\x0a\x09^ self isAbstract not",
|
|
|
+referencedClasses: [],
|
|
|
+
|
|
|
+messageSends: ["not", "isAbstract"]
|
|
|
+}),
|
|
|
+$globals.TestCase.klass);
|
|
|
+
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "lookupHierarchyRoot",
|
|
@@ -1744,37 +1767,6 @@ messageSends: ["suite:", "new"]
|
|
|
}),
|
|
|
$globals.TestSuiteRunner.klass);
|
|
|
|
|
|
-$core.addMethod(
|
|
|
-$core.method({
|
|
|
-selector: "isTestClass",
|
|
|
-protocol: '*SUnit',
|
|
|
-fn: function (){
|
|
|
-var self=this;
|
|
|
-
|
|
|
-return $core.withContext(function($ctx1) {
|
|
|
-
|
|
|
-return $recv(self._includesBehavior_($globals.TestCase))._and_((function(){
|
|
|
-
|
|
|
-return $core.withContext(function($ctx2) {
|
|
|
-
|
|
|
-return $recv(self._isAbstract())._not();
|
|
|
-
|
|
|
-}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
|
|
|
-
|
|
|
-}));
|
|
|
-
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"isTestClass",{},$globals.Behavior)});
|
|
|
-
|
|
|
-},
|
|
|
-
|
|
|
-args: [],
|
|
|
-source: "isTestClass\x0a\x09^(self includesBehavior: TestCase) and: [ \x0a\x09\x09\x09self isAbstract not ]",
|
|
|
-referencedClasses: ["TestCase"],
|
|
|
-
|
|
|
-messageSends: ["and:", "includesBehavior:", "not", "isAbstract"]
|
|
|
-}),
|
|
|
-$globals.Behavior);
|
|
|
-
|
|
|
$core.addMethod(
|
|
|
$core.method({
|
|
|
selector: "isTestClass",
|