Johnson, Reginald (GTI) am Sunday, 24. September 2006 04:47:
> I made the changes that you advised
> use Test::More tests => 3;
> #BEGIN { $| = 1; print "1..3\n";}
>
> My error has changed slightly
>
> PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
> "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/1....# No tests run!
> t/1....dubious
> Test returned status 255 (wstat 65280, 0xff00)
> DIED. FAILED tests 1-3
> Failed 3/3 tests, 0.00% okay
> Failed Test Stat Wstat Total Fail Failed List of Failed
> ---------------------------------------------------------------------------
>---- t/1.t 255 65280 3 3 100.00% 1-3
> Failed 1/1 test scripts, 0.00% okay. 3/3 subtests failed, 0.00% okay.
> make: 1254-004 The error code from the last command is 2.
>
>
> Stop.
Hi Reginald,
(please don't top post)
I testet your test script under
use strict;
It's a very good line, saves a lot of time, guides in finding errors, etc. :-)
I got:
1..3
... error: Undefined subroutine &main::cmp_file called
at ./script.pl line 30.
# No tests run!
Hope this helps!
Dani
[history:]
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of
> Tom Phoenix
> Sent: Saturday, September 23, 2006 4:31 PM
> To: Johnson, Reginald (GTI)
> Cc: beginners@perl.org
> Subject: Re: writing a package
>
> On 9/23/06, Johnson, Reginald (GTI) <[EMAIL PROTECTED]> wrote:
> > t/1....Test header seen more than once!
> >
> > use Test::More tests => 1;
> > BEGIN { $| = 1; print "1..3\n";}
>
> Using Test::More outputs the test header line, so you don't need to
> print "1..3\n"; but be sure to use the correct number of tests:
>
> use Test::More tests => 3;
>
> Cheers!
>
> --Tom Phoenix
> Stonehenge Perl Training
> --------------------------------------------------------
>
> If you are not an intended recipient of this e-mail, please notify the
> sender, delete it and do not read, act upon, print, disclose, copy, retain
> or redistribute it. Click here for important additional terms relating to
> this e-mail. http://www.ml.com/email_terms/
> --------------------------------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
