Bug #17276 for Test-Base: filter functions don't seem to work

Wed Jan 25 11:19:35 2006 Guest - Ticket created

Subject:

filter functions don't seem to work

use t::Test; plan tests => 1 * blocks; run_is input => 'expected'; sub my_len { return scalar(@_); } __END__ === Test one --- input lines my_len foo bar baz --- expected eval 3 1..1 not ok 1 - Test one # Failed test 'Test one' # in t/molset.t at line 3. # got: 'foo # bar # baz # ' # expected: '3' # Looks like you failed 1 test of 1.

Fri Jan 27 13:35:46 2006 ingy [...] ttul.org - Correspondence added

Subject:	Re: [rt.cpan.org #17276] filter functions don't seem to work
Date:	Fri, 27 Jan 2006 10:46:09 -0800
To:	Guest via RT <bug-Test-Base [...] rt.cpan.org>
From:	ingy [...] ttul.org (Ingy dot Net)

Filters in the main namespace act a little differently when you return a number. If a number or undef is returned the result is taken from $_. That way you can write s// substitutions as filters: sub filter1 { s/foo/bar/; } In your case use: sub my_len { $_ = scalar(@_); } The other solution is to put the filter in t::Test, under the t::Test::Filter namespace: package t::Test::Filter; sub my_len { return scalar(@_); } Hope that helps, Ingy On 25/01/06 11:19 -0500, Guest via RT wrote: Show quoted text

> > Wed Jan 25 11:19:35 2006: Request 17276 was acted upon. > Transaction: Ticket created by guest > Queue: Test-Base > Subject: filter functions don't seem to work > Owner: Nobody > Requestors: > Status: new > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=17276 > > > > use t::Test; > plan tests => 1 * blocks; > run_is input => 'expected'; > > > > sub my_len { > return scalar(@_); > } > > > > __END__ > > > > === Test one > --- input lines my_len > foo > bar > baz > > > > --- expected eval > 3 > > > > 1..1 > not ok 1 - Test one > # Failed test 'Test one' > # in t/molset.t at line 3. > # got: 'foo > # bar > # baz > # ' > # expected: '3' > # Looks like you failed 1 test of 1. > > > > > > >

Fri Jan 27 13:35:48 2006 The RT System itself - Status changed from 'new' to 'open'

Sun Jan 29 13:25:08 2006 ingy [...] cpan.org - Status changed from 'open' to 'resolved'

Mon Jan 30 08:29:50 2006 Guest - Correspondence added

Thanks for that, and thanks for Test::Base --- it is the least painful test framework I have found yet ;) Regards, Ben On Fri Jan 27 13:35:46 2006, ingy@ttul.org wrote: Show quoted text

> Filters in the main namespace act a little differently when you return > a > number. If a number or undef is returned the result is taken from $_. > > That way you can write s// substitutions as filters: > > sub filter1 { > s/foo/bar/; > } > > In your case use: > > sub my_len { > $_ = scalar(@_); > } > > The other solution is to put the filter in t::Test, under the > t::Test::Filter > namespace: > > package t::Test::Filter; > > sub my_len { > return scalar(@_); > } > > Hope that helps, Ingy > > On 25/01/06 11:19 -0500, Guest via RT wrote:

> > > > Wed Jan 25 11:19:35 2006: Request 17276 was acted upon. > > Transaction: Ticket created by guest > > Queue: Test-Base > > Subject: filter functions don't seem to work > > Owner: Nobody > > Requestors: > > Status: new > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=17276 > > > > > > > use t::Test; > > plan tests => 1 * blocks; > > run_is input => 'expected'; > > > > > > > > sub my_len { > > return scalar(@_); > > } > > > > > > > > __END__ > > > > > > > > === Test one > > --- input lines my_len > > foo > > bar > > baz > > > > > > > > --- expected eval > > 3 > > > > > > > > 1..1 > > not ok 1 - Test one > > # Failed test 'Test one' > > # in t/molset.t at line 3. > > # got: 'foo > > # bar > > # baz > > # ' > > # expected: '3' > > # Looks like you failed 1 test of 1. > > > > > > > > > > > > > >

Mon Jan 30 08:29:50 2006 The RT System itself - Status changed from 'resolved' to 'open'

Mon Jan 30 20:20:45 2006 ingy [...] ttul.org - Correspondence added

Subject:	Re: [rt.cpan.org #17276] filter functions don't seem to work
Date:	Mon, 30 Jan 2006 17:22:16 -0800
To:	Guest via RT <bug-Test-Base [...] rt.cpan.org>
From:	ingy [...] ttul.org (Ingy dot Net)

On 30/01/06 08:29 -0500, Guest via RT wrote: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=17276 > > > Thanks for that, and thanks for Test::Base --- it is the least painful > test framework I have found yet ;)

Thanks. FYI, Check out how the latest YAML distro uses use_test_base; in Makefile.PL to autobundle Test-Base. So easy. Now Test-Base isn't an extra prerequisite! Cheers, Ingy Show quoted text

> > Regards, > > Ben > > On Fri Jan 27 13:35:46 2006, ingy@ttul.org wrote:

> > Filters in the main namespace act a little differently when you return > > a > > number. If a number or undef is returned the result is taken from $_. > > > > That way you can write s// substitutions as filters: > > > > sub filter1 { > > s/foo/bar/; > > } > > > > In your case use: > > > > sub my_len { > > $_ = scalar(@_); > > } > > > > The other solution is to put the filter in t::Test, under the > > t::Test::Filter > > namespace: > > > > package t::Test::Filter; > > > > sub my_len { > > return scalar(@_); > > } > > > > Hope that helps, Ingy > > > > On 25/01/06 11:19 -0500, Guest via RT wrote:

> > > > > > Wed Jan 25 11:19:35 2006: Request 17276 was acted upon. > > > Transaction: Ticket created by guest > > > Queue: Test-Base > > > Subject: filter functions don't seem to work > > > Owner: Nobody > > > Requestors: > > > Status: new > > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=17276 > > > > > > > > > > use t::Test; > > > plan tests => 1 * blocks; > > > run_is input => 'expected'; > > > > > > > > > > > > sub my_len { > > > return scalar(@_); > > > } > > > > > > > > > > > > __END__ > > > > > > > > > > > > === Test one > > > --- input lines my_len > > > foo > > > bar > > > baz > > > > > > > > > > > > --- expected eval > > > 3 > > > > > > > > > > > > 1..1 > > > not ok 1 - Test one > > > # Failed test 'Test one' > > > # in t/molset.t at line 3. > > > # got: 'foo > > > # bar > > > # baz > > > # ' > > > # expected: '3' > > > # Looks like you failed 1 test of 1. > > > > > > > > > > > > > > > > > > > > >

> >

Bug #17276 for Test-Base: filter functions don't seem to work

Preferred bug tracker