hsmyers has asked for the wisdom of the Perl Monks concerning the following question:
This is more or less a shot in the dark, but the Monastery has always been my 'goto place' (bad pun, bad, bad!) What I have is the following; if I run dmake test I get:
While the tester for PAUSE gets:C:\>perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', ' +blib/arch')" t/*.t t/01_epdcode.t ...... ok t/02_Storable.t ..... ok t/03_epdlist.t ...... ok t/04_epdstr.t ....... ok t/05_list-str.t ..... ok t/06_epdgetboard.t .. ok t/07_psquares.t ..... ok t/08_epdset.t ....... ok All tests successful. Files=8, Tests=33, 2 wallclock secs ( 0.09 usr + 0.03 sys = 0.13 CP +U) Result: PASS
His report on machine and environment shows nothing that I can see that should make a difference. That said, he is testing under MirOS BSD while I'm running Windows Vista, likewise he is testing using perl 5.12.3 while I am using perl 5.10.1. I don't mind that I'm getting fails, I do mind that I've no useful information to go on. Just staring at the ashes, all I can see is that something is preventing all of the subtests from running excepting t/02_Storable.t. I look at theOutput from '/usr/bin/make test': PERL_DL_NONLAZY=1 /home/sts/cpansmoke/perl-5.12.3/bin/perl "-MExtUtils +::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t # No tests run! t/01_epdcode.t ...... Dubious, test returned 255 (wstat 65280, 0xff00) Failed 7/7 subtests t/02_Storable.t ..... ok t/03_epdlist.t ...... No subtests run t/04_epdstr.t ....... No subtests run t/05_list-str.t ..... No subtests run t/06_epdgetboard.t .. No subtests run t/07_psquares.t ..... No subtests run t/08_epdset.t ....... No subtests run Test Summary Report ------------------- t/01_epdcode.t (Wstat: 65280 Tests: 0 Failed: 0) Non-zero exit status: 255 Parse errors: Bad plan. You planned 7 tests but ran 0. t/03_epdlist.t (Wstat: 0 Tests: 0 Failed: 0) Parse errors: No plan found in TAP output t/04_epdstr.t (Wstat: 0 Tests: 0 Failed: 0) Parse errors: No plan found in TAP output t/05_list-str.t (Wstat: 0 Tests: 0 Failed: 0) Parse errors: No plan found in TAP output t/06_epdgetboard.t (Wstat: 0 Tests: 0 Failed: 0) Parse errors: No plan found in TAP output t/07_psquares.t (Wstat: 0 Tests: 0 Failed: 0) Parse errors: No plan found in TAP output t/08_epdset.t (Wstat: 0 Tests: 0 Failed: 0) Parse errors: No plan found in TAP output Files=8, Tests=3, 3 wallclock secs ( 0.12 usr 0.04 sys + 2.32 cusr + 0.21 csys = 2.69 CPU) Result: FAIL Failed 7/8 test programs. 0/3 subtests failed. *** Error code 255 Stop in /home/sts/cpansmoke/perl-5.12.3/cpan/build/Chess-PGN-EPD-0.25- +YJnWEi (line 781 of Makefile).
Here is the offending code:t/01_epdcode.t (Wstat: 65280 Tests: 0 Failed: 0) Non-zero exit status: 255 Parse errors: Bad plan. You planned 7 tests but ran 0.
I am (as usual) probably missing something obvious here, but whatever it is, I can't see it. So would someone with out the mote in the eye problem, tell me what I'm missing? I'd particularly like to know since I need to extend the testing to cover code I've added since I made the change to .25!#!/usr/bin/perl # 01_epdcode.t -- test epdcode. use Test::More tests => 7; use Chess::PGN::EPD qw( epdlist epdcode ); ok(1); # 1. If we made it this far, we're ok. my @epd1; my @epd2; my @moves1 = qw( e4 e6 f4 d5 e5 c5 Nf3 Nc6 d3 Be7 Be2 Nh6 c3 O-O O-O f6 exf6 Bxf6 d4 cxd4 cxd4 Qb6 Nc3 Bxd4+ Kh1 Bxc3 bxc3 Ng4 Nd4 Nxd4 cxd4 Nf6 Ba3 Rf7 Rb1 Qd8 Bd3 Bd7 Qf3 Bc6 f5 Ne4 Bxe4 dxe4 Qd1 exf5 Rb2 Qd5 Rbf2 e3 Re2 Bb5 ); my @moves2 = qw( d4 Nf6 c4 e6 Nc3 Bb4 e3 b6 Ne2 Bb7 a3 Be7 f3 d5 cxd5 exd5 Ng3 O-O Bd3 +c5 O-O Re8 Nf5 Bf8 g4 g6 Ng3 Nc6 g5 cxd4 exd4 Nd7 Nge2 Bg7 Nb5 Nf8 f4 a6 +f5 axb5 f6 Bh8 Bxb5 Ba6 Bxa6 Rxa6 Bf4 Qd7 Rc1 Raa8 Rc3 Re4 Ng3 Rxd4 Qc2 N +a5 Be3 Rg4 Qd1 Nc4 Bc1 b5 Rd3 d4 Re1 h5 b3 Nb6 Re7 Qd6 Re4 Rxe4 Nxe4 Qc6 +Nd2 Ne6 Nf3 Rd8 Be3 Qe4 ); @epd1 = reverse epdlist( @moves1 ); @epd2 = reverse epdlist( @moves2 ); is(ECO(\@epd1),'C00','ECO lookup #1'); # 2. is(NIC(\@epd1),'FR 1','NIC lookup #1'); # 3. is(Opening(\@epd1),'French: Labourdonnais variation','Opening lookup # +1'); # 4. is(ECO(\@epd2),'E44','ECO lookup #2'); # 5. is(NIC(\@epd2),'NI 13','NIC lookup #2'); # 6. is(Opening(\@epd2),'Nimzo-Indian: Fischer variation, 5.Ne2'); # 7. sub ECO { my $movesref = shift; return epdcode('ECO',$movesref); } sub NIC { my $movesref = shift; return epdcode('NIC',$movesref); } sub Opening { my $movesref = shift; return epdcode('Opening',$movesref); }
--hsm
"Never try to teach a pig to sing...it wastes your time and it annoys the pig."
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: PAUSE problem
by snoopy (Curate) on May 03, 2011 at 05:56 UTC | |
by hsmyers (Canon) on May 03, 2011 at 08:54 UTC | |
Re: PAUSE problem
by Anonymous Monk on May 03, 2011 at 03:39 UTC | |
by hsmyers (Canon) on May 03, 2011 at 04:24 UTC | |
by DrHyde (Prior) on May 04, 2011 at 10:03 UTC | |
Re: PAUSE problem
by Khen1950fx (Canon) on May 03, 2011 at 10:47 UTC | |
by hsmyers (Canon) on May 03, 2011 at 11:29 UTC | |
by Anonymous Monk on May 03, 2011 at 11:29 UTC | |
Re: PAUSE problem
by Anonymous Monk on May 03, 2011 at 09:50 UTC | |
by hsmyers (Canon) on May 03, 2011 at 10:07 UTC | |
by Anonymous Monk on May 03, 2011 at 10:47 UTC | |
by hsmyers (Canon) on May 03, 2011 at 14:18 UTC | |
by Anonymous Monk on May 03, 2011 at 11:25 UTC |
Back to
Seekers of Perl Wisdom