Mercurial Mercurial > hg > stx-goodies-petitparser / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
compiler/tests/PPCInliningVisitorTest.st
changeset 453 bd5107faf4d6
parent 444 a3657ab0ca6b
parent 452 9f4558b3be66
child 460 87a3d30ab570 
--- a/compiler/tests/PPCInliningVisitorTest.st	Tue May 05 16:25:23 2015 +0200
+++ b/compiler/tests/PPCInliningVisitorTest.st	Sun May 10 06:46:56 2015 +0100
@@ -13,99 +13,99 @@
 !PPCInliningVisitorTest methodsFor:'as yet unclassified'!
 
 assert: object type: class
-	self assert: object class == class
+    self assert: object class == class
 !
 
 setUp
-	visitor := PPCInliningVisitor new.
+    visitor := PPCInliningVisitor new.
 !
 
 testCharacterNode
-	node := PPCCharacterNode new
-		character: $a;
-		yourself.
-	result := visitor visit: node.
-	
-	self assert: result type: PPCCharacterNode.
-	self assert: result isMarkedForInline not.
-	self assert: result character = $a.
+    node := PPCCharacterNode new
+        character: $a;
+        yourself.
+    result := visitor visit: node.
+    
+    self assert: result type: PPCCharacterNode.
+    self assert: result isMarkedForInline not.
+    self assert: result character = $a.
 !
 
 testCharacterNode2
-	| charNode |
-	charNode := PPCCharacterNode new
-		character: $a;
-		yourself.
-	node := PPCStarNode new
-		child: charNode;
-		yourself.
-	result := visitor visit: node.
-	
-	self assert: result child type: PPCCharacterNode.
-	self assert: result child isMarkedForInline.
-	self assert: result child character = $a.
+    | charNode |
+    charNode := PPCCharacterNode new
+        character: $a;
+        yourself.
+    node := PPCStarNode new
+        child: charNode;
+        yourself.
+    result := visitor visit: node.
+    
+    self assert: result child type: PPCCharacterNode.
+    self assert: result child isMarkedForInline.
+    self assert: result child character = $a.
 !
 
 testLiteralNode
-	| literalNode |
-	literalNode := PPCLiteralNode new
-		literal: 'foo';
-		yourself.
-	node := PPCOptionalNode new
-		child: literalNode;
-		yourself.
+    | literalNode |
+    literalNode := PPCLiteralNode new
+        literal: 'foo';
+        yourself.
+    node := PPCOptionalNode new
+        child: literalNode;
+        yourself.
 
-	result := visitor visit: node.
-	
-	self assert: result child type: PPCLiteralNode.
-	self assert: result child isMarkedForInline.
-	self assert: result child literal = 'foo'.
+    result := visitor visit: node.
+    
+    self assert: result child type: PPCLiteralNode.
+    self assert: result child isMarkedForInline.
+    self assert: result child literal = 'foo'.
 !
 
 testNil
-	node := PPCNilNode new.
-	result := visitor visit: node.
+    node := PPCNilNode new.
+    result := visitor visit: node.
 
-	self assert: result type: PPCNilNode.
-	self assert: result isMarkedForInline not.
+    self assert: result type: PPCNilNode.
+    self assert: result isMarkedForInline not.
 !
 
 testNil2
-	node := PPCStarNode new
-		child: PPCNilNode new;
-		yourself.
-	result := visitor visit: node.
+    node := PPCStarNode new
+        child: PPCNilNode new;
+        yourself.
+    result := visitor visit: node.
 
-	self assert: result type: PPCStarNode.
-	self assert: result child type: PPCNilNode.
-	self assert: result child isMarkedForInline.
+    self assert: result type: PPCStarNode.
+    self assert: result child type: PPCNilNode.
+    self assert: result child isMarkedForInline.
 !
 
 testNotLiteralNode
-	| notLiteralNode |
+    | notLiteralNode |
 
-	notLiteralNode := PPCNotLiteralNode new
-		literal: 'foo';
-		yourself.
+    notLiteralNode := PPCNotLiteralNode new
+        literal: 'foo';
+        yourself.
 
-	node := PPCOptionalNode new
-		child: notLiteralNode;
-		yourself.
+    node := PPCOptionalNode new
+        child: notLiteralNode;
+        yourself.
 
-	result := visitor visit: node.
-	
-	self assert: result child type: PPCNotLiteralNode.
-	self assert: result child isMarkedForInline.
-	self assert: result child literal = 'foo'.
+    result := visitor visit: node.
+    
+    self assert: result child type: PPCNotLiteralNode.
+    self assert: result child isMarkedForInline.
+    self assert: result child literal = 'foo'.
 !
 
 testPluggable
     | pluggableNode |
     pluggableNode := PPCPluggableNode new
-            block: [:ctx | nil] asParser.
+        block: [:ctx | nil] asParser.
     node := PPCSequenceNode new
-            children: { pluggableNode  };
-            yourself.
+        children: { pluggableNode  };
+        yourself.
 
     result := visitor visit: node.
         
@@ -120,56 +120,56 @@
 !
 
 testSequenceInline
-	| charNode1 charNode2 |
-	charNode1 := PPCCharacterNode new
-		character: $a;
-		yourself.
-	charNode2 := PPCCharacterNode new
-		character: $b;
-		yourself.
+    | charNode1 charNode2 |
+    charNode1 := PPCCharacterNode new
+        character: $a;
+        yourself.
+    charNode2 := PPCCharacterNode new
+        character: $b;
+        yourself.
 
-	node := PPCSequenceNode new
-		children: { charNode1 . charNode2 };
-		yourself.
-	result := visitor visit: node.
-	
-	self assert: result type: PPCSequenceNode .
-	self assert: result children first type: PPCCharacterNode.
-	self assert: result children second type: PPCCharacterNode.	
+    node := PPCSequenceNode new
+        children: { charNode1 . charNode2 };
+        yourself.
+    result := visitor visit: node.
+    
+    self assert: result type: PPCSequenceNode .
+    self assert: result children first type: PPCCharacterNode.
+    self assert: result children second type: PPCCharacterNode.	
 !
 
 testTokenStarMessagePredicateNode
-	| tokenNode |
-	tokenNode := (PPCTokenStarMessagePredicateNode new)
-		child: PPCSentinelNode new;
-		yourself.
-	node := PPCForwardNode new
-		child: tokenNode;
-		yourself.	
-	result := visitor visit: node.
-	
-	self assert: result child type: PPCTokenStarMessagePredicateNode.
-	self assert: result child isMarkedForInline.
+    | tokenNode |
+    tokenNode := (PPCTokenStarMessagePredicateNode new)
+        child: PPCSentinelNode new;
+        yourself.
+    node := PPCForwardNode new
+        child: tokenNode;
+        yourself.	
+    result := visitor visit: node.
+    
+    self assert: result child type: PPCTokenStarMessagePredicateNode.
+    self assert: result child isMarkedForInline.
 !
 
 testTokenStarSeparatorNode
-	| tokenNode |
-	tokenNode := (PPCTokenStarSeparatorNode new)
-		name: #name;
-		message: #message;
-		child: PPCNilNode new;
-		yourself.
+    | tokenNode |
+    tokenNode := (PPCTokenStarSeparatorNode new)
+        name: #name;
+        message: #message;
+        child: PPCNilNode new;
+        yourself.
 
-	node := PPCForwardNode new
-		child: tokenNode;
-		yourself.	
+    node := PPCForwardNode new
+        child: tokenNode;
+        yourself.	
 
-		
-	result := visitor visit: node.
-	
-	self assert: result child type: PPCTokenStarSeparatorNode.
-	self assert: result child isMarkedForInline.
-	self assert: result child child type: PPCNilNode.
+        
+    result := visitor visit: node.
+    
+    self assert: result child type: PPCTokenStarSeparatorNode.
+    self assert: result child isMarkedForInline.
+    self assert: result child child type: PPCNilNode.
 ! !
 
 !PPCInliningVisitorTest class methodsFor:'documentation'!
hg/stx-goodies-petitparser