Json: test for BUG 2643

This commit is contained in:
Jed Reynolds
2018-09-06 18:31:03 -07:00
parent bb412aa560
commit d36fcb5fa3
3 changed files with 99 additions and 0 deletions

View File

@@ -77,6 +77,7 @@ sub json_post {
$req->header('Accept' => 'application/json');
$req->header('Content-Type' => 'application/json; charset=UTF-8');
$req->content(encode_json($rh_data));
#print "json_post: ".Dumper($rh_data);
#print Dumper($req);
my $response = $::Web->request($req);
#print Dumper($response);