test arguments

guillep · Aug 1, 2023 · adc3855 · adc3855
1 parent 5e5bb2d
commit adc3855
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/smalltalksrc/VMMakerTests/VMLiterRulesTest.class.st b/smalltalksrc/VMMakerTests/VMLiterRulesTest.class.st
@@ -18,7 +18,23 @@ VMLiterRulesTest >> testSlangRedundantTypeDeclaration [
 	self assert:
 		(ReSlangRedundantTypeDeclarationRule new basicCheck:
 			 ast pragmas first).
+]
+
+{ #category : #tests }
+VMLiterRulesTest >> testSlangTypeDeclarationForArgument [
 
+	| ast |
+	ast := self class compiler parse:
+		       'testMethod: anArg <var:#anArg declareC: #aDeclaration>'.
+	self deny:
+		(ReSlangRedundantTypeDeclarationRule new basicCheck:
+			 ast pragmas first)
+]
+
+{ #category : #tests }
+VMLiterRulesTest >> testSlangTypeDeclarationForVariable [
+
+	| ast |
 	ast := self class compiler parse:
 		       'testMethod <var:#aVar declareC: #aDeclaration> | aVar |'.
 	self deny: