clean up and tweak substr tests

Author: alandekok

src/lib/unlang/xlat_builtin.c

@@ -3475,7 +3475,8 @@ static xlat_action_t xlat_func_substr(TALLOC_CTX *ctx, fr_dcursor_t *out, UNUSED
 		memcpy(buf, &in->vb_octets[start], len);
 	}
 		break;
-	default:
+
+	default:		/* 'in' was cast to #FR_TYPE_STRING */
 		fr_assert(0);
 	}
 

src/tests/keywords/substr

@@ -9,47 +9,54 @@ test_string = "hello world"
 test_octets = 0x01234567
 test_int = 123456
 
-if !(%str.substr(%{test_string}, 1, 3) == 'ell') {
+if !(%str.substr(test_string, 1, 3) == 'ell') {
 	test_fail
 }
 
-if !(%str.substr(%{test_string}, 0, 3) == 'hel') {
+if !(%str.substr(test_string, 0, 3) == 'hel') {
 	test_fail
 }
 
-if !(%str.substr(%{test_string}, 5) == ' world') {
+if !(%str.substr(test_string, 5) == ' world') {
 	test_fail
 }
 
-if !(%str.substr(%{test_string}, -3) == 'rld') {
+if !(%str.substr(test_string, -3) == 'rld') {
 	test_fail
 }
 
-if !(%str.substr(%{test_string}, -20) == 'hello world') {
+if !(%str.substr(test_string, -20) == 'hello world') {
 	test_fail
 }
 
-if !(%str.substr(%{test_string}, -4, 2) == 'or') {
+if !(%str.substr(test_string, -4, 2) == 'or') {
 	test_fail
 }
 
-if !(%str.substr(%{test_string}, -10, -3) == 'ello wo') {
+if !(%str.substr(test_string, -10, -3) == 'ello wo') {
 	test_fail
 }
 
-if (%str.substr(%{test_string}, 20)) {
+if (%str.substr(test_string, 20)) {
 	test_fail
 }
 
-if (%str.substr(%{test_string}, 5, -7)) {
+if (%str.substr(test_string, 5, -7)) {
 	test_fail
 }
 
-if !(%str.substr(%{test_octets}, 1, 2) == 0x2345) {
+if !(%str.substr(test_octets, 1, 2) == 0x2345) {
 	test_fail
 }
 
-if !(%str.substr(%{test_int}, 1, 2) == '23') {
+if !(%str.substr(test_int, 1, 2) == '23') {
+	test_fail
+}
+
+#
+#  123456 = 0x0001e240 in network byte order.
+#
+if !(%str.substr((octets) test_int, 1, 2) == 0x01e2) {
 	test_fail
 }