X-Git-Url: https://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/7516ec539764125f657a144cce32ce96df05bcf4..a118e977106144aa753045c59e9f5278facc48d7:/tests/internal.at

diff --git a/tests/internal.at b/tests/internal.at
index 3fa785a..ee87919 100644
--- a/tests/internal.at
+++ b/tests/internal.at
@@ -113,3 +113,37 @@ AT_CHECK([rendertest --english -n 15 <input], [0],
 ]])
 
 AT_CLEANUP
+
+AT_SETUP([cdecl__yylex integer constants])
+
+AT_CHECK([scantest \
+  '0 000 0x00 0X00' \
+  '1234 01234 0x1234 0X1234' \
+  '4294967295 037777777777 0xffffffff 0XFFFFFFFF' \
+  09 012345678 0x 0X], [0],
+[[integer constant 0
+integer constant 0
+integer constant 0
+integer constant 0
+eof
+integer constant 1234
+integer constant 668
+integer constant 4660
+integer constant 4660
+eof
+integer constant 4294967295
+integer constant 4294967295
+integer constant 4294967295
+integer constant 4294967295
+eof
+T_LEX_ERROR
+eof
+T_LEX_ERROR
+eof
+T_LEX_ERROR
+eof
+T_LEX_ERROR
+eof
+]])
+
+AT_CLEANUP