Bug #18474 for Test-Less: make test failure, no method "arguments"

Fri Mar 31 08:41:16 2006 perl-cpan [...] bereft.net - Ticket created

Subject:

make test failure, no method "arguments"

Here's the output from make test, let me know if there's more info you need. PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'inc', 'blib/lib', 'blib/arch')" t/*.t t/command.......ok t/list..........Can't locate object method "arguments" via package "t::TestLess::Filter" at t/TestLess.pm line 42, <DATA> line 1. # No tests run! t/list..........dubious Test returned status 255 (wstat 65280, 0xff00) DIED. FAILED tests 1-8 Failed 8/8 tests, 0.00% okay t/parse_spec....ok t/run_list......Can't locate object method "arguments" via package "t::TestLess::Filter" at t/TestLess.pm line 42, <DATA> line 1. # No tests run! t/run_list......dubious Test returned status 255 (wstat 65280, 0xff00) DIED. FAILED tests 1-2 Failed 2/2 tests, 0.00% okay t/tag...........ok t/untag.........ok 1/4Can't locate object method "arguments" via package "t::TestLess::Filter" at t/TestLess.pm line 42, <DATA> line 1. # Looks like you planned 4 tests but only ran 1. t/untag.........dubious Test returned status 255 (wstat 65280, 0xff00) DIED. FAILED tests 2-4 Failed 3/4 tests, 25.00% okay t/usage.........ok Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t/list.t 255 65280 8 16 200.00% 1-8 t/run_list.t 255 65280 2 4 200.00% 1-2 t/untag.t 255 65280 4 6 150.00% 2-4 Failed 3/7 test scripts, 57.14% okay. 13/25 subtests failed, 48.00% okay. make: *** [test_dynamic] Error 255

Wed Oct 11 00:10:07 2006 SEKIMURA [...] cpan.org - Correspondence added

On 金曜日 3月 31 08:41:16 2006, BOWMANBS wrote: Show quoted text

> Here's the output from make test, let me know if there's more > info you need.

I wrote a patch that resolves this problem using Test::Base 0.52, and attached. I hope it helps. best,

--- t/TestLess.pm.orig 2006-10-11 12:18:27.000000000 +0900 +++ t/TestLess.pm 2006-10-11 12:53:55.000000000 +0900 @@ -39,7 +39,7 @@ } sub write_file { - my $file_path = $self->arguments; + my $file_path = $self->current_arguments; my $content = shift; if ($file_path =~ /^(.*[\\\/])/ and not -e $1) { my $path = $1;

Wed Oct 11 00:10:09 2006 The RT System itself - Status changed from 'new' to 'open'