Skip Menu |

This queue is for tickets about the scriptname CPAN distribution.

Report information
The Basics
Id: 85309
Status: open
Priority: 0/
Queue: scriptname

People
Owner: Nobody in particular
Requestors: STEVENL [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.9
Fixed in: (no value)



Subject: Test directories don't exist
Tests 01.use.t and 02.use.t are failing because the directories they are trying to add to @INC do not exist. I've included suggested patches to fix these errors.
Subject: 01.use.t.patch
diff --git "a/C:\\Perl64-5.16.3\\cpan\\build\\scriptname-0.9-x6n5AI\\t\\01.use.t" "b/C:\\Perl64-5.16.3\\cpan\\build\\scriptname-0.9-x6n5AI\\t\\01.use - Copy.t" index 6670a52..54489c7 100644 --- "a/C:\\Perl64-5.16.3\\cpan\\build\\scriptname-0.9-x6n5AI\\t\\01.use.t" +++ "b/C:\\Perl64-5.16.3\\cpan\\build\\scriptname-0.9-x6n5AI\\t\\01.use - Copy.t" @@ -1,5 +1,7 @@ use Test::More tests => 2; +BEGIN { mkdir 't/lib' } + use scriptname 'lib'; use lib 'gaga'; BEGIN { ok $INC[1] eq scriptname::mydir.'/lib', 'lib in @INC' } @@ -7,4 +9,6 @@ no scriptname 'lib'; ok $INC[1] ne scriptname::mydir.'/lib', 'lib not in @INC'; -diag "Testing scriptname $scriptname::VERSION" +rmdir 't/lib'; + +diag "Testing scriptname $scriptname::VERSION";
Subject: 02.use.t.patch
diff --git "a/C:\\Perl64-5.16.3\\cpan\\build\\scriptname-0.9-x6n5AI\\t\\02.use.t" "b/C:\\Perl64-5.16.3\\cpan\\build\\scriptname-0.9-x6n5AI\\t\\02.use - Copy.t" index 014e985..fe5c67e 100644 --- "a/C:\\Perl64-5.16.3\\cpan\\build\\scriptname-0.9-x6n5AI\\t\\02.use.t" +++ "b/C:\\Perl64-5.16.3\\cpan\\build\\scriptname-0.9-x6n5AI\\t\\02.use - Copy.t" @@ -1,5 +1,7 @@ use Test::More tests => 4; +BEGIN { mkdir 'mylib' } + use scriptname lib => '../mylib'; use lib 'gaga'; BEGIN { ok $INC[1] =~ m:/mylib$:, 'mylib in @INC' } @@ -9,4 +11,6 @@ ok $INC[1] !~ m:/mylib$:, 'mylib not in @INC'; ok scriptname::mybase eq '02.use', 'mybase'; ok $0 =~ /02\.use\.t$/, "\$0 = '$0'"; -diag "Testing scriptname $scriptname::VERSION" +rmdir 'mylib'; + +diag "Testing scriptname $scriptname::VERSION";
Em Qua Maio 15 00:14:30 2013, STEVENL escreveu: Show quoted text
> Tests 01.use.t and 02.use.t are failing because the directories they > are trying to add to @INC do not exist. > > I've included suggested patches to fix these errors.
Patches applied, thanks. Will close ticket as soon as it appears in rt.