БАЗОВАЯ документация показала мне, как весело дразнить различные созданные функции Perl. Однако я не действительно уверен, как заменить '-d' &c. с моими методами. Таким образом, это - действительно просто вопрос о том, как делают я заменяю функцию тире в нем в ЯДРЕ:: ГЛОБАЛЬНЫЙ.
Ссылка на руководство была бы хороша.
package Testing::MockDir;
use strict;
use warnings;
use Exporter();
use Symbol 'qualify_to_ref';
*import = \&Exporter::import;
our @EXPORT_OK = qw(SetMockDir UnsetMockDir);
our %EXPORT_TAGS = (
'all' => \@EXPORT_OK,
);
my %path2List = ();
my %handle2List = ();
BEGIN {
*CORE::GLOBAL::opendir = \&Testing::MockDir::opendir;
*CORE::GLOBAL::readdir = \&Testing::MockDir::readdir;
*CORE::GLOBAL::closedir = \&Testing::MockDir::closedir;
######################### the "-" is really the problem here
*CORE::GLOBAL::-d = \&Testing::MockDir::mock_d; # This does not work <<<<<
}
sub mock_d ($) {
die 'It worked';
}
sub SetMockDir {
my ($path, @files) = @_;
$path2List{$path} = [@files];
}
sub UnsetMockDir {
my ($path) = @_;
delete $path2List{$path};
}
sub opendir (*$) {
my $handle = qualify_to_ref(shift, caller);
my ($path) = @_;
return CORE::opendir($handle, $path) unless defined $path2List{$path};
$handle2List{$handle} = $path2List{$path};
return 1;
}
sub readdir (*) {
my $handle = qualify_to_ref(shift, caller);
return CORE::readdir($handle) unless defined $handle2List{$handle};
return shift @{$handle2List{$handle}} unless wantarray;
my @files = @{$handle2List{$handle}};
$handle2List{$handle} = [];
return @files;
}
sub closedir (*) {
my $handle = qualify_to_ref(shift, caller);
return CORE::closedir($handle) unless defined $handle2List{$handle};
delete $handle2List{$handle};
return 1;
}
1;
Это может быть невозможно. Раздел perlsub о Overriding Built-in Functions расплывчато описывает, какие функции могут быть переопределены. "Многие" могут, "некоторые" не могут, но кроме горстки примеров нет окончательного списка.
Обычно я бы попробовал следующее:
{
no strict 'refs';
*{'CORE::GLOBAL::-d'} = \&Testing::MockDir::mock_d;
}
, что не является синтаксической ошибкой, но не имеет эффекта переопределения -d
.
CORE :: GLOBAL не работает с вещами без прототипов. Единственный способ, которым я могу это сделать, - это переписать дерево кодов операций ... что не для слабонервных. Вы можете осуществить это с помощью комбинации B :: Utils и B :: Generate и множества экспериментов.
Самый простой способ - использовать File :: Temp , чтобы создать временную структуру каталогов по своему вкусу.
Вы можете перейти по маршруту исходного фильтра:
package Testing::MockDir;
use Filter::Simple;
FILTER { s/\s+\-d (\S+)/ Testing::MockDir::filetest 'd',$1/g };
sub filetest {
my ($test, $file) = @_;
print "Mocking -$test $file\n";
return 1;
}
(Этот пример кода не очень надежен. Например, он не будет переводить -d $ dir
или -d "имя каталога с пробелами"
, но вы можете улучшить его, пока он не будет соответствовать требованиям вашего целевого кода).
Проблема в том, что ваше приложение зависит от жестко заданных спецификаций файлов. Вам следует параметризовать спецификации файла; тогда вам больше не нужно высмеивать, вы можете просто использовать Directory :: Scratch или что-то в этом роде.
Спасибо всем за ответы.
То, что я закончил, заключается в том, что для каждого модуля / тестовой цели я выделил код с «-d» в его собственную функцию. Примерно так ...
# Because I cannot mock -d directly
sub dirExists {
return -d shift;
}
Тогда я могу заменить эту функцию в тестовом модуле на подобную
my $doesDirExist = 1;
*MyModule::dirExists = \&main::mock_dirExists;
sub mock_dirExists {
return $doesDirExist;
}
Это довольно некрасиво, но я не хотел слишком долго зацикливаться на этом, и это хорошо работает enuf для моих целей