6827319273ffcfb7a42e9fe2a5cd1497fb5fd913 hiram Wed Apr 10 15:15:08 2019 -0700 eliminate registrationTime which may be different on other SQL servers refs #18869 diff --git src/hg/hubApi/tests/jsonConsumer.pl src/hg/hubApi/tests/jsonConsumer.pl index 0f177eb..85cd5e9 100755 --- src/hg/hubApi/tests/jsonConsumer.pl +++ src/hg/hubApi/tests/jsonConsumer.pl @@ -1,25 +1,26 @@ #!/usr/bin/env perl use strict; use warnings; use HTTP::Tiny; use Time::HiRes; use JSON; use Getopt::Long; my $http = HTTP::Tiny->new(); +# my $server = 'https://apibeta.soe.ucsc.edu'; # my $server = 'https://api-test.gi.ucsc.edu'; my $server = 'https://hgwdev-api.gi.ucsc.edu'; # my $server = 'https://hgwbeta.soe.ucsc.edu/cgi-bin/hubApi'; my $global_headers = { 'Content-Type' => 'application/json' }; my $last_request_time = Time::HiRes::time(); my $request_count = 0; ############################################################################## # command line options my $endpoint = ""; my $hubUrl = ""; my $genome = ""; my $db = ""; my $track = ""; my $chrom = ""; @@ -367,30 +368,31 @@ # "downloadTimeStamp" : 1553636410, # "dataTime" : "2019-03-11T09:16:34" # look for the specific public hub named "Plants" to print out # for a verify test case # if (ref($jsonReturn) eq "HASH") { topLevelKeys($jsonReturn); if (defined($jsonReturn->{"publicHubs"})) { my $arrayData = $jsonReturn->{"publicHubs"}; foreach my $data (@$arrayData) { if ($data->{'shortLabel'} eq "Plants") { printf "### Plants public hub data\n"; foreach my $key (sort keys %$data) { + next if ($key eq "registrationTime"); printf "'%s'\t'%s'\n", $key, $data->{$key}; } } } } } elsif (ref($jsonReturn) eq "ARRAY") { printf "ERROR: top level returns ARRAY of size: %d\n", scalar(@$jsonReturn); printf "should have been a HASH to the publicHub data\n"; } $jsonReturn = performJsonAction("/list/ucscGenomes", ""); # printf "%s", $json->pretty->encode( $jsonReturn ); if (ref($jsonReturn) eq "HASH") {