From 779b1905487b2cf1f12d3467e66694944774bc78 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Thu, 17 Nov 2022 22:34:24 +0100 Subject: [PATCH] t/examples: skip downloads unless enabled Alleviate external resources further unless sample/data exists. --- t/examples.t | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/t/examples.t b/t/examples.t index 29f7c50..cfe0e3f 100755 --- a/t/examples.t +++ b/t/examples.t @@ -31,9 +31,10 @@ SKIP: { my $ref = "$filename line $."; # store curl downloads - s{\bcurl (\S*)(?[^|]*)}{ - my $url = $1; - my @params = split ' ', $+{param}; + $cmd =~ s{\bcurl (\S*)([^|]*)}{ + my ($url, $params) = ($1, $2); + my $cache = 'sample/data/'; + -w $cache or skip($url, 2); my $ext = ( $cmd =~ /\bxml/ ? 'xml' : $cmd =~ / jq / ? 'json' : @@ -42,13 +43,15 @@ SKIP: { ); my ($domain, $path) = $url =~ m{//([^/]+) .*/ ([^/]*) \z}x; $path =~ s/\.$ext\z//; - my $cache = join '.', $path =~ tr/./_/r, $domain, $ext; - $cache = "sample/data/$cache"; + $cache .= join '.', $path =~ tr/./_/r, $domain, $ext; + my $cached = -e $cache; SKIP: { - -e $cache and skip($url, 1); - ok(defined runres(['curl', '-sS', $url, '-o', $cache, @params]), $url) - or diag("download at $ref: $@"); + # download to file + skip($url, 1) if $cached; + $cached = defined runres("curl -sSf $url$params -o $cache"); + ok($cached, $url) or diag("download at $ref: $@"); } + $cached or skip($url, 1); "cat $cache" }e; -- 2.30.0