Add the following packages libalgorithm-diff-perl libspiffy-perl libtext-diff-perl...

[pkg-perl] / deb-src / libtest-base-perl / libtest-base-perl-0.54 / t / arguments.t

use Test::Base tests => 3;

run {};

sub Test::Base::Filter::something {
    my $self = shift;
    my $value = shift;
    my $arguments = $self->current_arguments;
    is $value, 
       "candle\n", 
       'value is ok';
    is $arguments, 
       "wicked", 
       'arguments is ok';
    is $Test::Base::Filter::arguments, 
       "wicked", 
       '$arguments global variable is ok';
}

__END__
=== One
--- foo something=wicked
candle