printer: Add another failing input to TestFormatParsable.

hcl/printer/printer_test.go

@@ -153,6 +153,7 @@ func TestFormatValidOutput(t *testing.T) {
 	cases := []string{
 		"#\x00",
 		"#\ue123t",
+		"Y=<<4\n4/\n\n\n/4/@=4/\n\n\n/4000000004\r\r\n00004\n",
 	}
 
 	for _, c := range cases {

hcl/printer/testdata/object_with_heredoc.golden

@@ -1,6 +1,7 @@
 obj {
   foo = [<<EOF
         TEXT!
+!!EOF
 EOF
   ]
 }

hcl/printer/testdata/object_with_heredoc.input

@@ -1,6 +1,7 @@
 obj {
     foo = [<<EOF
         TEXT!
+!!EOF
 EOF
     ]
 }