Как я могу издеваться над% ENV в тестах Perl?

Question

Я пытаюсь модифицировать некоторые тесты, используя Test::More для устаревшего кода, и я столкнулся с некоторой проблемой. Кажется, я не могу установить %ENV в тестовом модуле. Вызываемая функция определенно использует эту переменную, поэтому %ENV, похоже, не переносится на тестовый объект.

#!/usr/bin/perl 

use strict; use warnings; 
use Test::More qw(no_plan); 

BEGIN { 
    $ENV{HTTP_WWW_AUTHENTICATE} = 
     'WWW-Authenticate: MyType realm="MyRealm",userid="123",password="abc"'; 
    use_ok('Util'); 
} 

$ENV{HTTP_WWW_AUTHENTICATE} = 
    'WWW-Authenticate: MyType realm="MyRealm",userid="123",password="abc"'; 

printf qq{get_authentication_info = "%s"\n}, get_authentication_info(); 
ok(get_authentication_info(), 'Get authentication info'); 

я получаю ...

 
perl t\Util.t 
ok 1 - use Util; 
Use of uninitialized value in concatenation (.) or string at t\Util.t line 14. 
get_authentication_info = "" 

Как и со всеми вещами Perl, я уверен, что кто-то сделал это раньше.

UPDATE: Спасибо всем за вашу помощь

Проблема была между стулом клавиатуры & ... Мой тест данных был просто неправильно Это должно было быть

$ENV{HTTP_WWW_AUTHENTICATE} = 
    'MyType realm="MyRealm",userid="123",password="abc"'; 

Answer 1

Что

get_authentication_info() 

возвращение?

Моя догадка - ничто.

Если это всегда так, то строка 14 всегда возвращает предупреждение «Использование неинициализированного значения ...».

Если вы ожидаете значения, вам нужно выяснить, почему get_authentication_info() не работает?

Answer 2

Почему строки запустили $ENV{HTTP_WWW_AUTHENTICATE}?

Кроме того, что такое характеристики для get_authentication_info()?

Answer 3

Как сказал Синан, строки $ENV{...} прокомментированы, поэтому он не может работать. Но если вы хотите действительно тестируемый код, я бы предложил сделать функцию get_authentication_info хэшем в качестве аргумента. Таким образом, вы можете протестировать его, не устанавливая глобальную переменную, а в реальном коде вы можете передать реальный хеш-энвирунт. В конечном итоге глобальное государство всегда будет проблемой.

Answer 4

Согласовано с Lukáš - получите свою глобальную среду (и выполните проверки на достоверность и т. Д.) Все в одном месте, например, в своем собственном методе, а затем передайте эти значения ко всем другим методам, которые в ней нуждаются. Таким образом, в ваших модульных тестах вы можете просто заменить метод замены, который определяет переменные среды и конфигурации другим способом (например, из файла или непосредственно установленным в верхней части тестового скрипта).

Answer 5

Попробуйте установить переменную env перед BEGIN.

Если бы не попробовать это:

1. Во-первых, перейдите в командную строку и установить ENV вар там. Затем запустите свой скрипт. Если тесты пройдут. Затем, как вы и предполагали, проблема заключается в установке env var.

2. Если тесты не пройдены, проблема возникает где-то еще (возможно, в get_authentication_info).