Less strings.

lang/src/Compiler-Tests.js

@@ -1535,8 +1535,8 @@ selector: "isAbstract",
 protocol: "testing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "isAbstract\x0a\x09^ self name = 'AbstractCompilerTest'",
-referencedClasses: [],
+source: "isAbstract\x0a\x09^ self name = AbstractCompilerTest name",
+referencedClasses: ["AbstractCompilerTest"],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: ["=", "name"]
@@ -1545,7 +1545,12 @@ var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-return $recv($self._name()).__eq("AbstractCompilerTest");
+var $1;
+$1=$self._name();
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+$ctx1.sendIdx["name"]=1;
+//>>excludeEnd("ctx");
+return $recv($1).__eq($recv($globals.AbstractCompilerTest)._name());
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"isAbstract",{})});
 //>>excludeEnd("ctx");

lang/src/Compiler-Tests.st

@@ -379,7 +379,7 @@ testifTrueIfFalse
 !AbstractCompilerTest class methodsFor: 'testing'!
 
 isAbstract
-	^ self name = 'AbstractCompilerTest'
+	^ self name = AbstractCompilerTest name
 ! !
 
 AbstractCompilerTest subclass: #ASTDebuggerTest

lang/src/SUnit.js

@@ -667,8 +667,8 @@ selector: "isAbstract",
 protocol: "testing",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "isAbstract\x0a\x09^ self name = 'TestCase'",
-referencedClasses: [],
+source: "isAbstract\x0a\x09^ self name = TestCase name",
+referencedClasses: ["TestCase"],
 //>>excludeEnd("ide");
 pragmas: [],
 messageSends: ["=", "name"]
@@ -677,7 +677,12 @@ var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-return $recv($self._name()).__eq("TestCase");
+var $1;
+$1=$self._name();
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+$ctx1.sendIdx["name"]=1;
+//>>excludeEnd("ctx");
+return $recv($1).__eq($recv($globals.TestCase)._name());
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"isAbstract",{})});
 //>>excludeEnd("ctx");

lang/src/SUnit.st

@@ -185,7 +185,7 @@ testSelectors
 !TestCase class methodsFor: 'testing'!
 
 isAbstract
-	^ self name = 'TestCase'
+	^ self name = TestCase name
 !
 
 isTestClass