From 127316325c93cf02cdcd0e3a548694984e092f9c Mon Sep 17 00:00:00 2001
From: Arne Goedeke <el@laramies.com>
Date: Wed, 2 Jul 2014 18:32:22 +0200
Subject: [PATCH] testsuite: test string range optimizations

---
 src/testsuite.in | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/testsuite.in b/src/testsuite.in
index a2a798e7c4..441c20ec23 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -315,6 +315,23 @@ test_compile_any([[
   }
 ]])
 
+define(test_string_range,[[
+    test_any([[
+        string s = (string) ({ $1, $1 });
+        if (!arrayp(String.range(s))) return "huh?"; // dont optimize this, it forces string range check
+        return search(s, $1);
+    ]], 0)
+]])
+
+test_string_range(254);
+test_string_range(255);
+test_string_range((1<<16)-1);
+test_string_range((1<<16)+1);
+test_string_range((1<<29)-1);
+test_string_range((1<<29)+1);
+test_string_range((1<<31)-1);
+test_string_range(-(1<<31));
+
 dnl number of variables/scope, number of scopes, expect_compiler_error
 define(test_scopes,[[
   test_any([[
-- 
GitLab