summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rwxr-xr-xtest/audioboom-inspect3
-rwxr-xr-xtest/cba-inspect4
2 files changed, 3 insertions, 4 deletions
diff --git a/test/audioboom-inspect b/test/audioboom-inspect
index aab1b2b..7f4c6fc 100755
--- a/test/audioboom-inspect
+++ b/test/audioboom-inspect
@@ -42,8 +42,7 @@ binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");
-my %h = ( 'Accept' => 'application/json; version=1' );
-my ($result, $data) = RHRD::utils::fetch_parse_json($API_URL, "Radio Helsinki - Automatic Import", \%h);
+my ($result, $data) = rhautoimport::fetch_parse_json_audioboom($API_URL);
unless ($result) {
print "Error fetching data: $data\n";
exit 1;
diff --git a/test/cba-inspect b/test/cba-inspect
index f625cff..bc03ac3 100755
--- a/test/cba-inspect
+++ b/test/cba-inspect
@@ -43,13 +43,13 @@ if($#ARGV != 0) {
print "Usage: cba-inspect <rss url>\n";
exit 1;
}
-my $RSS_URL = $ARGV[0] . "?c=Kfs2IoV2Wmd";
+my $RSS_URL = $ARGV[0];
binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");
-my ($result, $feed) = rhautoimport::fetch_parse_rss($RSS_URL);
+my ($result, $feed) = rhautoimport::fetch_parse_rss_cba($RSS_URL);
unless ($result) {
print "Error fetching feed: $feed\n";
exit 1;