declareC pragma + tests

smalltalksrc/VMMaker/RBPragmaNode.extension.st

@@ -3,5 +3,5 @@ Extension { #name : #RBPragmaNode }
 { #category : #'*VMMaker' }
 RBPragmaNode >> isTypeDefinition [
 
-	^ self selector = #var:type:
+	^ #( #var:type: #var:declareC: ) includes: self selector
 ]

smalltalksrc/VMMakerTests/VMLiterRulesTest.class.st

@@ -0,0 +1,27 @@
+Class {
+	#name : #VMLiterRulesTest,
+	#superclass : #TestCase,
+	#category : #VMMakerTests
+}
+
+{ #category : #tests }
+VMLiterRulesTest >> testSlangRedundantTypeDeclaration [
+
+	| ast |
+	ast := self class compiler parse:
+		       'testMethod <var:#aVar type: #aType>'.
+	self assert:
+		(ReSlangRedundantTypeDeclarationRule new basicCheck:
+			 ast pragmas first).
+	ast := self class compiler parse:
+		       'testMethod <var:#aVar declareC: #aDeclaration>'.
+	self assert:
+		(ReSlangRedundantTypeDeclarationRule new basicCheck:
+			 ast pragmas first).
+
+	ast := self class compiler parse:
+		       'testMethod <var:#aVar declareC: #aDeclaration> | aVar |'.
+	self deny:
+		(ReSlangRedundantTypeDeclarationRule new basicCheck:
+			 ast pragmas first)
+]