properly test updating HTTP_USER_AGENT_PROGRAM

gugod · Feb 5, 2017 · 34eb730 · 34eb730
1 parent 67dbc92
commit 34eb730
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/t/http-program-control.t b/t/http-program-control.t
@@ -10,9 +10,9 @@ require 'test_helpers.pl';
 use Test::More;
 use Test::Exception;
 
-for (qw(curl wget fetch)) {
-    $App::perlbrew::HTTP_USER_AGENT_PROGRAM = "curl";
-    is App::perlbrew::http_user_agent_program(), "curl";
+for my $prog (qw(curl wget fetch)) {
+    $App::perlbrew::HTTP_USER_AGENT_PROGRAM = $prog;
+    is App::perlbrew::http_user_agent_program(), $prog, "UA Program can be set to: $prog";
 }
 
 $App::perlbrew::HTTP_USER_AGENT_PROGRAM = "something-that-is-not-recognized";