X-Git-Url: https://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/9abf0eb2e74d0fb3a4f652499571cb35697d3036..5fc35dc076078b9710d86b47c53f4315edd3cd82:/tests/internal.at

diff --git a/tests/internal.at b/tests/internal.at
index 9012c15..3fa785a 100644
--- a/tests/internal.at
+++ b/tests/internal.at
@@ -73,3 +73,43 @@ AT_CLEANUP
 
 TEST_TAP_SIMPLE([cdecl__err sanity], [cdeclerr],
   [TEST_NEED_PROGRAM([cdeclerr])], [libcdecl internal])
+
+AT_SETUP([cdecl_declare truncation])
+AT_KEYWORDS([libcdecl internal])
+
+AT_DATA([input],
+[[int hello_world
+int x[1234567890]
+]])
+
+AT_CHECK([rendertest -n 0 <input], [0],
+[[15
+17
+]])
+
+AT_CHECK([rendertest -n 10 <input], [0],
+[[15 int hello
+17 int x@<:@123
+]])
+
+AT_CLEANUP
+
+AT_SETUP([cdecl_explain truncation])
+AT_KEYWORDS([libcdecl internal])
+
+AT_DATA([input],
+[[declare x as int
+type array 123456789 of int
+]])
+
+AT_CHECK([rendertest --english -n 0 <input], [0],
+[[16
+27
+]])
+
+AT_CHECK([rendertest --english -n 15 <input], [0],
+[[16 declare x as i
+27 type array 123
+]])
+
+AT_CLEANUP