我在一些测试中使用MockObjects,只需要通过调用SUPER类来测试函数,我似乎无法使其工作. UNIVERSAL可以调用$this-> SUPER :: save()不被嘲笑吗？如果是的话,你是怎么做到的？
谢谢.
编辑：
找到了！
使用Test :: MockObject中的fake_module
所以,假设您的基本模块是Some :: Module,并且您的子例程正在进行$this-> SUPER :: save调用,请使用
my $child_class_mockup = Test::MockObject->new();
$child_class_mockup->fake_module(
'Some::Module',save => sub () { return 1; }
);
让问题保持开放几天,在接受这个答案之前获得关于这样做的不同方式/库(如果,SUPER呼叫有超级呼叫？)的输入.
解决方法
找出对象的超类(或其中一个超类,因为Perl有多重继承)的名称,并在超类的包中定义save调用.
例如,如果你有
package MyClass;
use YourClass;
our @ISA = qw(YourClass); # <-- name of superclass
...
sub foo {
my $self = shift;
...
$self->SUPER::save(); # <--- want to mock this function in the test
...
}
sub save {
# MyClass version of save method
...
}
然后在你的测试脚本中,你会说
no warnings 'redefine'; # optional,suppresses warning
sub YourClass::save {
# mock function for $yourClassObj->save,but also
# a mock function for $myClassObj->SUPER::save
...
}