diff -r 48dcdb213e34 -r 7ef95511205a CodeGeneratorTests.st
--- a/CodeGeneratorTests.st	Sun Apr 20 01:05:58 2014 +0200
+++ b/CodeGeneratorTests.st	Thu Apr 24 11:33:37 2014 +0200
@@ -172,15 +172,61 @@
     self assert: (self mock_03b = 30).
 
     "Created: / 07-07-2009 / 19:54:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+test_04a
+
+    cg
+        class: self class;
+        source: '`@selector ^ 4';
+        replace: '`@selector' with: #mock_04a;
+        compile.
+
+    self assert: (self respondsTo: #mock_04a).
+    self assert: (self mock_04a = 4).
+
+    "Created: / 24-04-2014 / 11:13:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_04b
+
+    cg
+        class: self class;
+        source: '`@selpart1 anArg `@selpart2 anArg2 ^ anArg + anArg2';
+        replace: '`@selpart1' with: #mock_04:;
+        replace: '`@selpart2' with: #b:;
+        compile.
+
+    self assert: (self respondsTo: #mock_04:b:).
+    self assert: ((self mock_04:123 b: 123) = (123+123)).
+
+    "Created: / 24-04-2014 / 11:15:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_05
+
+    cg
+        class: self class;
+        source: 'mock_05
+                "comment"
+
+                ^ 10';
+        compile.
+
+    self assert: (self respondsTo: #mock_05).
+    self assert: (self perform: #mock_05) == 10.
+    self assert: ((self class >> #mock_05) source includes: 'comment')
+
+    "Created: / 24-04-2014 / 11:28:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CodeGeneratorTests class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTests.st,v 1.3 2014-02-05 18:56:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTests.st,v 1.4 2014-04-24 09:33:37 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: CodeGeneratorTests.st,v 1.3 2014-02-05 18:56:09 cg Exp $'
+    ^ '$Id: CodeGeneratorTests.st,v 1.4 2014-04-24 09:33:37 vrany Exp $'
 ! !