fixed a bug where the RFC6901 decoding wasn’t quite right.

added additional unit tests from the spec.

Author: jacobwilliams

files/inputs/test1.json

@@ -1,42 +1,49 @@
 {
-"version": {
-"major": 2,
-"minor": 2,
-"patch": 1,
-"string": "2.2.1",
-"svn": 7191
-},
-"files": [
-    "..\\path\\to\\files\\file1.txt",
-    "..\\path\\to\\files\\file2.txt",
-    "..\\path\\to\\files\\file3.txt",
-    "test \u2FA4 \uABCD \uABCD\uABCDtest",
-    "   test  \\u \" blah\\\" test test",
-    "..\\path\\to\\files\\"
-  ],
-"empty_array": [
-  ],
-"empty_object": {
-},
-"empty_string": "",
-"data": [
-    {
-    "number": 1,
-    "tf1": true,
-    "tf2": false,
-    "empty": null,
-    "name": "Horatio",
-    "array": [
-        "1",
-        "2",
-        "3"
-      ]
-    },
-    {
-    "number": 2,
-    "integer": 33,
-    "real": 0.2333000000000000E+003,
-    "name": "Nelson"
-    }
-  ]
+	"version": {
+		"major": 2,
+		"minor": 2,
+		"patch": 1,
+		"string": "2.2.1",
+		"svn": 7191
+	},
+	"files": [
+		"..\\path\\to\\files\\file1.txt",
+		"..\\path\\to\\files\\file2.txt",
+		"..\\path\\to\\files\\file3.txt",
+		"test \u2FA4 \uABCD \uABCD\uABCDtest",
+		"   test  \\u \" blah\\\" test test",
+		"..\\path\\to\\files\\"
+	],
+	"empty_array": [],
+	"empty_object": {},
+	"empty_string": "",
+	"data": [{
+		"number": 1,
+		"tf1": true,
+		"tf2": false,
+		"empty": null,
+		"name": "Horatio",
+		"array": [
+			"1",
+			"2",
+			"3"
+		]
+	}, {
+		"number": 2,
+		"integer": 33,
+		"real": 0.2333000000000000E+003,
+		"name": "Nelson"
+	}],
+	"rfc6901 tests": {
+		"foo": ["bar", "baz"],
+		"": 0,
+		"a/b": 1,
+		"c%d": 2,
+		"e^f": 3,
+		"g|h": 4,
+		"i\\j": 5,
+		"k\"l": 6,
+		" ": 7,
+		"m~n": 8
+	}
 }

src/json_string_utilities.F90

@@ -796,8 +796,8 @@ pure subroutine replace_string(str,s1,s2)
             if (i>0) then
                 if (i>1) tmp = tmp//str(1:i-1)
                 tmp = tmp//s2 ! replace s1 with s2 in new string
-                n = i+ilen1+1 ! start of remainder of str to keep
-                if (n<ilen) then
+                n = i+ilen1   ! start of remainder of str to keep
+                if (n<=ilen) then
                     str = str(n:ilen)
                 else
                     ! done