--- a/compiler/TParserTests.st	Sun Sep 20 12:01:42 2015 +0100
+++ b/compiler/TParserTests.st	Tue Sep 22 17:43:38 2015 +0100
@@ -36,17 +36,6 @@
     "Modified: / 14-09-2015 / 14:54:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-test_inline_assembly
-    | method |    
-
-    method := TParser parseMethod: 'foo < ^ Integer > %[ :asm | asm ret: 1 %].'.
-    self assert: method body statements size == 1.
-    self assert: method body statements first isInlineAssembly.
-
-    "Created: / 02-09-2015 / 06:31:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 14-09-2015 / 12:15:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 test_locals
     | method |    
 
@@ -89,6 +78,17 @@
     "Modified: / 21-08-2015 / 23:00:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+test_primitive_inline
+    | method |    
+
+    method := TParser parseMethod: 'foo < ^ Integer > <primitive: [:asm | asm ret: self]>'.
+    self assert: method body statements isEmpty.
+    self assert: method pragmas size == 1.
+    self assert: method pragmas anElement arguments first isBlock.
+
+    "Created: / 22-09-2015 / 16:51:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_special_form
     | method |