File: http-ua-detect.t

package info (click to toggle)
perlbrew 0.86-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 704 kB
  • sloc: perl: 8,459; makefile: 7; sh: 1
file content (22 lines) | stat: -rw-r--r-- 411 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/env perl
use strict;
use warnings;
use File::Which qw(which);
use App::perlbrew;
use Test::More;

my $expected_ua;
if (which("curl")) {
    $expected_ua = "curl";
}
elsif (which("wget")) {
    $expected_ua = "wget";
}
elsif (which("fetch")) {
    $expected_ua = "fetch";
}

my $detected_ua = App::perlbrew::http_user_agent_program();
is $detected_ua, $expected_ua, "UA: $detected_ua";

done_testing;