nating plan to integrate this great module
with Test::Builder and/or MakeMaker into Test::Coverage or something
like that?
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
Here's a patch for Test::(Simple|More) to allow idioms like
my $obj = Foo->new;
ok($obj, 'object is defined');
Without this patch, passed $obj was referenced in Test::Builder, so
REFCNT doesn't come to 0 before global cleanup.
--
Tatsuhiko Miyagawa <[EMAIL PR
current Test::Harness sets switches to '', not '-w' as documented.
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
--- lib/Test/Harness/Straps.pm~ Thu Jun 20 06:01:04 2002
+++ lib/Test/Harness/Straps.pm Thu Aug 22 21:27:27 2002
@@ -322,7 +322,7 @@
local *TEST;
I';
my $app = WebApp->new($q);
$app->run;
It's not so irresistable to me. And doing so gives me a flexibility.
Well I believe you'll convert me with your future article (on
perl.com?) ;)
Here's a patch
* pass tests in 5.005_03
* can() should return subref instead of ju
ke, the same thing applies with your mixin.pm
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
diff -ruN Test-Simple-0.43/lib/Test/More.pm Test-Simple-0.43.new/lib/Test/More.pm
--- Test-Simple-0.43/lib/Test/More.pm Thu Apr 11 12:27:47 2002
+++ Test-Simple-0.43.new/lib/Test/More.pm Tue Apr 23 0
use HTTP::TestEngine / RoboWeb or something like that to reduce my
work. But I've not given a shot to 'em.
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
Win32 system that it's
> nonfuncitonal on; haven't debugged it yet).
I think Test::Differences is mainly for module developpers, not
for module users, thus the necessity for Test::Differences would
be better optional in distributing modules.
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
g my CPAN module
I don't like letting go Test::More for it ;)
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
t
Switching each function line by line, or adding magical C
shortcut in the top of script will do. But I wish there's a handy
way to do it.
Thanks.
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
could probably be replaced, though. However, I
> don't see much benefit.
IMHO Test::Differences' benefit is its mix-in nature. Changing
each is_deeply() to eq_or_diff_data() hand by hand "if not ok"
seems a little hassle to me.
--
Tatsuhiko Miyagawa Livin' On The EDGE, Co.,Ltd.
mailto:[EMAIL PROTECTED] http://www.edge.co.jp/
umper $self ;
+#use Data::Dumper ; print Dumper $self ;
## Line numbers are one off, gotta bump them
push @{$self->{LINES}}, [
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
by chromatic:
http://www.perl.com/pub/a/2001/12/04/testing.html
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
t::More use()s Carp, thus defines Carp::croak at
compile time before loading Bareword::Freaks. Duh.
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
On Thu, 13 Sep 2001 19:41:39 -0400
Kirrily 'Skud' Robert <[EMAIL PROTECTED]> wrote:
> Anyone know what might cause this? The same reporter also had the same
> problem with CPAN-Test-Reporter.
His Test::Harness needs upgrade?
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
;s been uploaded to CPAN.
> Not quite sure how the CPAN shell's going to deal with it.
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
520,7 @@
push @code, <{line} $file
$example->{code};
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
interfere with
> people's tests (some tests look at the contents of t/).
>
> Alternatives welcome.
ExtUtils::TBone (which is released as a separate module on CPAN
recently) by Eryq seems to have this feature.
http://search.cpan.org/search?dist=ExtUtils-TBone
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
eq 'skip_all' ) {
+if( @args > 0 && $args[0] eq 'skip_all' ) {
$Test::Simple::Skip_All = 1;
my_print *TESTOUT, "1..0\n";
exit(0);
}
else {
-Test::Simple->import($plan => @args);
+Test::Simple->import(@args);
}
__PACKAGE__->_export_to_level(1, __PACKAGE__);
--
Tatsuhiko Miyagawa
mailto:[EMAIL PROTECTED]
mp;& UNIVERSAL::isa($e2, 'HASH');
+ }
+ if( $is_array )
+ {
$ok = eq_array($e1, $e2);
}
-elsif( UNIVERSAL::isa($e1, 'HASH') and
- UNIVERSAL::isa($e2, 'HASH') )
+elsif( $is_hash )
{
$ok = eq_hash($e1, $e2);
}
--
Tatsuhiko Miyagawa
mailto:[EMAIL PROTECTED] http://bulknews.net/lib/
19 matches
Mail list logo
