perl: ненавязчивая запись в IO :: Handle, открываемая TAP :: Formatter :: HTML - PullRequest
Новая
       18

perl: ненавязчивая запись в IO :: Handle, открываемая TAP :: Formatter :: HTML

1 голос
/ 25 ноября 2010

При выполнении действий на веб-странице с использованием Test :: WWW :: Selenium моя программа perl записывает выходные данные TAP testcase в HTML-отчет, созданный и обновленный TAP :: Harness.

Мой клиент Selenium должен войтив некоторые защищенные паролем веб-страницы, и это неизбежно.Таким образом, пароль отображается в выводе TAP. 

ok 1 - open, /homepage-with-loginform.html, true 
ok 2 - type, id_username, JoeSixp 
ok 3 - type, id_password, secrIt
...

Чтобы удалить пароль из вывода HTML, я предложил следующую функцию, но она не работает.Может ли кто-нибудь помочь?

Я создал объект formater с 

my $fmt = TAP::Formatter::HTML->new;
my $harness = TAP::Harness->new( { formatter => $fmt, merge => 1 } );
$harness->test_args( [ "--browser=$browser", "--config=$h{config}" ] ); 
my $agg     = $harness->runtests(@tests);

#remove passwords from HTML report
remove_password( \%h, $fmt ); # %h is an options hash
 ...



sub remove_password {

    # remove password from HTML report

    my ( $h, $fmt ) = @_;

    my $passwd = $h->{password} ||  "xxx-xxx";
    my $outhtml = ${ $fmt->html() };

    #from the TAP::Harness perldoc
    #html() - This is a reference to the scalar containing the html generated on the last test run.
    #Useful if you have "verbosity" set to silent, and have not provided a custom "output_fh" to write the report to.       

    note("replacing password with xxx-xxx in html file");

    $fmt->html(\$outhtml); # does not work
    $outhtml =~ s/$passwd/xxxxxx/msg; # works


    {
        local $/ = undef;
        my $fh = $fmt->output_fh(); #An IO::Handle filehandle for printing the HTML report to.
        if ( $fh->opened){
             # 
                     # ??? HOW DO I unobtrusively truncate the file here?
             # 
             print $fh $outhtml;  # writes back censored HTML output

        }
    }

}

Я думаю, что это не простой вопрос «как мне усечь файл с помощью perl».

Файл уже открыт некоторым библиотечным кодом, и этот код должен работать на Unix и Windows.программа должна продолжать работать с $ fh, я не хочу открывать и закрывать ее самостоятельно, так как это может привести к путанице в модуле TAP :: Formatter :: HTML и может перестать работать правильно.

Обновление 

#this gets the job done but it is kind of brutal
my $outf = $h->{outfile};
if ( $fh->opened){
  $fh->close();
   open $fh, ">", $outf or die "cannnot open '$outf' for truncating and writing:$!";
   print $fh $outhtml;              
  close $fh;
}

1 Ответ

1 голос
/ 25 ноября 2010

Хм ... одним возможным, но упрощенным подходом было бы переопределить метод описания из TAP :: Parser :: Result :: Test (я почти уверен, что это должно быть сделано через подкласс, но слишком ошибочно утром, чтобы понять Правильный путь).

Что-то вроде следующего черновика: 

# Original: sub description { shift->{description} }
*TAP::Parser::Result::Test::description = sub {
     my $description = shift->{description}; 
     $description =~ s/type, id_password, .*$/type, id_password, XXX_PASSWORD_REMOVED_XXX/;
     return $description;
 };
...