Skip Menu |
 

This queue is for tickets about the Method-Signatures CPAN distribution.

Report information
The Basics
Id: 119912
Status: new
Priority: 0/
Queue: Method-Signatures

People
Owner: Nobody in particular
Requestors: tomas.zemres [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 20160315
Fixed in: (no value)

Attachments
test-Method-Signatures-wrong-line-numbers.t
test-Method-Signatures-wrong-line-numbers.txt



Subject: Wrongly reported line numbers when if a new line is before keyword "func".
Download (untitled) / with headers
text/plain 184b
When I use: my $code_ref = func () { }; Then following lines in file are "shifted", i.e. they reports wrong line number. See attached test file (*.t) and test output (*.txt).
Subject: test-Method-Signatures-wrong-line-numbers.t
use Test::Spec; use Method::Signatures; print STDERR "perl version: $^V\n"; print STDERR "package version: $Method::Signatures::VERSION\n"; describe 'test Method::Signatures bug' => sub { it "correctly reports line numbers after assign anonymous function" => sub { my $before_line = __LINE__; my $get_line = func () { __LINE__ }; my $after_line = __LINE__; is( $get_line->(), $before_line + 2 ); is( $after_line, $before_line + 3 ); is( "this is line ".__LINE__, "this is line 14"); }; }; runtests();
Subject: test-Method-Signatures-wrong-line-numbers.txt
Test Summary Report ------------------- perllib/Method/Signatures/t/Netsafe.t (Wstat: 768 Tests: 3 Failed: 3) Failed tests: 1-3 Non-zero exit status: 3 Files=1, Tests=3, 0 wallclock secs ( 0.04 usr 0.00 sys + 0.16 cusr 0.00 csys = 0.20 CPU) Result: FAIL perl version: v5.20.3 package version: 20160315 # Failed test 'test Method::Signatures bug correctly reports line numbers after assign anonymous function' # at perllib/Method/Signatures/t/Netsafe.t line 14. # got: '11' # expected: '12' # Failed test 'test Method::Signatures bug correctly reports line numbers after assign anonymous function' # at perllib/Method/Signatures/t/Netsafe.t line 15. # got: '12' # expected: '13' # Failed test 'test Method::Signatures bug correctly reports line numbers after assign anonymous function' # at perllib/Method/Signatures/t/Netsafe.t line 16. # got: 'this is line 16' # expected: 'this is line 14' # Looks like you failed 3 tests of 3.
Download (untitled) / with headers
text/plain 135b
Note that "this is line 14" is on line 17, so that there should be "this is line 17", but tested code says wrongly "this is line 16".


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.