ソースを参照

Fix isTestClass DNU for Trait.

Herbert Vojčík 7 年 前
コミット
96e2cad2c8
2 ファイル変更24 行追加0 行削除
  1. 18 0
      src/SUnit.js
  2. 6 0
      src/SUnit.st

+ 18 - 0
src/SUnit.js

@@ -1775,6 +1775,24 @@ messageSends: ["and:", "includesBehavior:", "not", "isAbstract"]
 }),
 $globals.Behavior);
 
+$core.addMethod(
+$core.method({
+selector: "isTestClass",
+protocol: '*SUnit',
+fn: function (){
+var self=this;
+return false;
+
+},
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "isTestClass\x0a\x09^ false",
+referencedClasses: [],
+//>>excludeEnd("ide");
+messageSends: []
+}),
+$globals.BehaviorBody);
+
 $core.addMethod(
 $core.method({
 selector: "isTestPackage",

+ 6 - 0
src/SUnit.st

@@ -449,6 +449,12 @@ isTestClass
 			self isAbstract not ]
 ! !
 
+!BehaviorBody methodsFor: '*SUnit'!
+
+isTestClass
+	^ false
+! !
+
 !Package methodsFor: '*SUnit'!
 
 isTestPackage