X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=compiler%2Fsrc%2Fexe%2Ftiger_tests.ml;h=ebbf6ab2792d6c63cc9d4c308c18dd5a8c76b669;hb=ead887f4e331f73732898ff6bf4d6440cb50cfc3;hp=4d86259c6dbfc39a65f7530b13df1ae7ac354c65;hpb=2c754e82103d61fdadd085a0408880c6c960e0af;p=tiger.ml.git

diff --git a/compiler/src/exe/tiger_tests.ml b/compiler/src/exe/tiger_tests.ml
index 4d86259..ebbf6ab 100644
--- a/compiler/src/exe/tiger_tests.ml
+++ b/compiler/src/exe/tiger_tests.ml
@@ -354,16 +354,16 @@ let tests_micro_cases =
   ; (let code = "abc[0]" in Test.case code ~code ~out_lexing:[ID "abc"; LBRACK; INT 0; RBRACK])
 
   ; (let code = "abc[0] := foo()" in Test.case code ~code
-			~out_lexing:
-				[ID "abc"; LBRACK; INT 0; RBRACK; ASSIGN; ID "foo"; LPAREN; RPAREN])
+      ~out_lexing:
+        [ID "abc"; LBRACK; INT 0; RBRACK; ASSIGN; ID "foo"; LPAREN; RPAREN])
 
   ; (let code = "abc [5] of nil" in Test.case code ~code
-			~out_lexing:
-				[ID "abc"; LBRACK; INT 5; RBRACK; OF; NIL])
+      ~out_lexing:
+        [ID "abc"; LBRACK; INT 5; RBRACK; OF; NIL])
 
   ; (let code = "f(\"a\", 3, foo)" in Test.case code ~code
-			~out_lexing:
-				[ID "f"; LPAREN; STRING "a"; COMMA; INT 3; COMMA; ID "foo"; RPAREN])
+      ~out_lexing:
+        [ID "f"; LPAREN; STRING "a"; COMMA; INT 3; COMMA; ID "foo"; RPAREN])
   ]
 
 let tests =