Skip Menu |

This queue is for tickets about the File-Find-Rule CPAN distribution.

Report information
The Basics
Id: 3047
Status: resolved
Priority: 0/
Queue: File-Find-Rule

People
Owner: Nobody in particular
Requestors: demerphq [...] hotmail.com
muenalan [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in:
  • 0.10
  • 0.20_02
Fixed in: (no value)



Subject: win32 test failures
=head1 File-Find-Rule-0.10 CPAN.pm: Going to build R/RC/RCLAMP/File-Find-Rule-0.10.tar.gz Checking if your kit is complete... Looks good Writing Makefile for File::Find::Rule Microsoft (R) Program Maintenance Utility Version 7.00.9466 Copyright (C) Microsoft Corporation. All rights reserved. cp Rule.pm blib\lib\File\Find/Rule.pm cp Extending.pod blib\lib\File\Find/Rule/Extending.pod C:\Programme\Perl\bin\perl.exe -MExtUtils::Command -e cp findrule blib\script\findrule pl2bat.bat blib\script\findrule "C:\Programme\Microsoft Visual Studio .NET\Vc7\bin\nmake.EXE" -- OK Running make test Microsoft (R) Program Maintenance Utility Version 7.00.9466 Copyright (C) Microsoft Corporation. All rights reserved. C:\Programme\Perl\bin\perl.exe -MExtUtils::Command -e cp findrule blib\script\findrule pl2bat.bat blib\script\findrule C:\Programme\Perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib\lib', 'blib\arch')" t\File-Find-Rule.t t\File-Find-Rule....ok 36/40# Failed test (t\File-Find-Rule.t at line 281) t\File-Find-Rule....NOK 37# Structures begin differing at: # $got->[0] = 'unknown option 'foobar'' # $expected->[0] = 't/File-Find-Rule.t' # Failed test (t\File-Find-Rule.t at line 284) # Structures begin differing at: # $got->[0] = 'unknown option 'foo'' # $expected->[0] = 't/foobar' t\File-Find-Rule....ok 39/40# Looks like you failed 2 tests of 40. t\File-Find-Rule....dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 37-38 Failed 2/40 tests, 95.00% okay Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t\File-Find-Rule.t 2 512 40 2 5.00% 37-38 Failed 1/1 test scripts, 0.00% okay. 2/40 subtests failed, 95.00% okay. NMAKE : fatal error U1077: 'C:\Programme\Perl\bin\perl.exe' : return code '0x2' Stop. "C:\Programme\Microsoft Visual Studio .NET\Vc7\bin\nmake.EXE" test -- NOT OK Running make install make test had returned bad status, won't install without force =head1 File-Find-Rule-0.20_2 Installing perl extension Warning: Guessing NAME [File-Find-Rule-0.20] from current directory name. Writing Makefile for File-Find-Rule-0.20 Microsoft (R) Program Maintenance Utility Version 7.00.9466 Copyright (C) Microsoft Corporation. All rights reserved. cp lib/File/Find/Rule.pm blib\lib\File/Find/Rule.pm cp lib/File/Find/Rule/Extending.pod blib\lib\File/Find/Rule/Extending.pod cp lib/File/Find/Rule/Procedural.pod blib\lib\File/Find/Rule/Procedural.pod C:\Programme\Perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib\lib', 'blib\arch')" t\File-Find-Rule.t t\findrule.t t\File-Find-Rule....ok 3/36# Failed test (t\File-Find-Rule.t at line 25) t\File-Find-Rule....NOK 4# Structures begin differing at: # $got->[0] = Does not exist # $expected->[0] = 't/foobar' t\File-Find-Rule....ok 5/36# Failed test (t\File-Find-Rule.t at line 35) t\File-Find-Rule....NOK 6# Structures begin differing at: # $got->[2] = Does not exist # $expected->[2] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 40) t\File-Find-Rule....NOK 7# Structures begin differing at: # $got->[2] = Does not exist # $expected->[2] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 48) t\File-Find-Rule....NOK 8# Structures begin differing at: # $got->[0] = Does not exist # $expected->[0] = 't/foobar' t\File-Find-Rule....ok 9/36# Failed test (t\File-Find-Rule.t at line 57) t\File-Find-Rule....NOK 10# Structures begin differing at: # $got->[0] = Does not exist # $expected->[0] = 't/foobar' t\File-Find-Rule....ok 13/36# Failed test (t\File-Find-Rule.t at line 97) t\File-Find-Rule....NOK 14# Structures begin differing at: # $got->[1] = Does not exist # $expected->[1] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 106) t\File-Find-Rule....NOK 15# Structures begin differing at: # $got->[1] = Does not exist # $expected->[1] = 't/foobar' t\File-Find-Rule....ok 17/36# Failed test (t\File-Find-Rule.t at line 140) t\File-Find-Rule....NOK 18# Structures begin differing at: # $got->[2] = 't/lib/File/Find/Rule/Test/ATeam.pm' # $expected->[2] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 153) t\File-Find-Rule....NOK 19# Structures begin differing at: # $got->[2] = 't/lib/File/Find/Rule/Test/ATeam.pm' # $expected->[2] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 159) t\File-Find-Rule....NOK 20# Structures begin differing at: # $got->[0] = Does not exist # $expected->[0] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 163) t\File-Find-Rule....NOK 21# Structures begin differing at: # $got->[0] = Does not exist # $expected->[0] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 167) t\File-Find-Rule....NOK 22# Structures begin differing at: # $got->[0] = Does not exist # $expected->[0] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 173) t\File-Find-Rule....NOK 23# Structures begin differing at: # $got->[0] = Does not exist # $expected->[0] = 't/foobar' t\File-Find-Rule....ok 27/36# Failed test (t\File-Find-Rule.t at line 199) t\File-Find-Rule....NOK 28# Structures begin differing at: # $got->[3] = 't/lib' # $expected->[3] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 216) t\File-Find-Rule....NOK 29# Structures begin differing at: # $got->[2] = 't/lib' # $expected->[2] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 227) t\File-Find-Rule....NOK 30# Structures begin differing at: # $got->[2] = 't/lib' # $expected->[2] = 't/foobar' # Failed test (t\File-Find-Rule.t at line 248) t\File-Find-Rule....NOK 31# Structures begin differing at: # $got->[3] = 't/lib' # $expected->[3] = 't/foobar' t\File-Find-Rule....ok 32/36# Failed test (t\File-Find-Rule.t at line 259) t\File-Find-Rule....NOK 33# Structures begin differing at: # $got->[0] = Does not exist # $expected->[0] = 't/foobar' t\File-Find-Rule....ok 34/36# Looks like you failed 18 tests of 36. t\File-Find-Rule....dubious Test returned status 18 (wstat 4608, 0x1200) DIED. FAILED tests 4, 6-8, 10, 14-15, 18-23, 28-31, 33 Failed 18/36 tests, 50.00% okay t\findrule..........# Failed test (t\findrule.t at line 12) # Structures begin differing at: # $got->[0] = 'Can't open perl script "findrule": No such file or directory' # $expected->[0] = 't/foobar' t\findrule..........NOK 1# Failed test (t\findrule.t at line 15) t\findrule..........NOK 2# Structures begin differing at: # $got->[0] = 'Can't open perl script "findrule": No such file or directory' # $expected->[0] = 't' # Failed test (t\findrule.t at line 23) # Structures begin differing at: # $got->[0] = 'Can't open perl script "findrule": No such file or directory' # $expected->[0] = 't/File-Find-Rule.t' t\findrule..........NOK 3# Failed test (t\findrule.t at line 27) t\findrule..........NOK 4# Structures begin differing at: # $got->[0] = 'Can't open perl script "findrule": No such file or directory' # $expected->[0] = 't/foobar' # Failed test (t\findrule.t at line 31) # Structures begin differing at: # $got->[0] = 'Can't open perl script "findrule": No such file or directory' # $expected->[0] = 'unknown option 'baz'' t\findrule..........NOK 5# Failed test (t\findrule.t at line 34) t\findrule..........NOK 6# Structures begin differing at: # $got->[0] = 'Can't open perl script "findrule": No such file or directory' # $expected->[0] = Does not exist # Looks like you failed 6 tests of 6. t\findrule..........dubious Test returned status 6 (wstat 1536, 0x600) DIED. FAILED tests 1-6 Failed 6/6 tests, 0.00% okay Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t\File-Find-Rule.t 18 4608 36 18 50.00% 4 6-8 10 14-15 18-23 28-31 33 t\findrule.t 6 1536 6 6 100.00% 1-6 Failed 2/2 test scripts, 0.00% okay. 24/42 subtests failed, 42.86% okay. NMAKE : fatal error U1077: 'C:\Programme\Perl\bin\perl.exe' : return code '0x2' Stop.
Subject: win32 test failures (RESOLUTION)
From: demerphq
[guest - Sun Jul 27 05:44:42 2003] wrote: Show quoted text
> t\File-Find-Rule....ok 36/40# Failed test (t\File-Find-Rule.t at > line 281) > t\File-Find-Rule....NOK 37# Structures begin differing at: > # $got->[0] = 'unknown option 'foobar'' > # $expected->[0] = 't/File-Find-Rule.t' > # Failed test (t\File-Find-Rule.t at line 284) > # Structures begin differing at: > # $got->[0] = 'unknown option 'foo'' > # $expected->[0] = 't/foobar' > t\File-Find-Rule....ok 39/40# Looks like you failed 2 tests of 40. > t\File-Find-Rule....dubious > Test returned status 2 (wstat 512, 0x200) > DIED. FAILED tests 37-38
Ive encountered this as well. Its due to a bogus $^O test: In File-Find-Rule-0.10\t\File-Find-Rule.t there is subroutine run() on line 266, in it there is the line: $expr =~ s~\\~~g if ($^O eq 'Win32' || $^O eq 'dos'); Which is wrong. Personally I dont know why you are testing for 'dos' at all and using eq is not the way i would procede, but since you already have gone down that route I think you mean: $expr =~ s~\\~~g if ($^O eq 'MSWin32' || $^O eq 'dos'); instead. After this change all tests pass. This is discussed at: http://perlmonks.org/index.pl?node_id=278554 Regards, demerphq
Subject: Win32 Test Failure resolution
In File-Find-Rule-0.10\t\File-Find-Rule.t there is subroutine run() on line 266, in it there is the line: $expr =~ s~\\~~g if ($^O eq 'Win32' || $^O eq 'dos'); Which is wrong. Personally I dont know why you are testing for 'dos' at all and using eq is not the way i would proceed, but since you already have gone down that route I think you mean: $expr =~ s~\\~~g if ($^O eq 'MSWin32' || $^O eq 'dos'); instead. After this change all tests pass. Otherwise two fail. This is discussed at: http://perlmonks.org/index.pl?node_id=278554 Regards, demerphq
thanks, applied and released as 0.11
From: muenalan [...] cpan.org
[RCLAMP - Tue Jul 29 15:27:27 2003]: Show quoted text
> thanks, applied and released as 0.11
Great, now tests pass successfully ! Murat