On Thu, 13 Dec 2001 15:56:52 -0500
Barrie Slaymaker <[EMAIL PROTECTED]> wrote:
> Please feel free to test and suggest :).
It rocks.
Well, why not globally overrides Test::More's is, is_deeply etc?
use Test::More;
use Test::Differences qw(:overrides_test_more);
is $got, $excepted, 'is() becomes eq_or_diff()';
BTW, here's a patch for backward compat with 5.5.3, and removes
dump for your debug :)
--- Differences.pm~ Fri Dec 14 05:39:30 2001
+++ Differences.pm Fri Dec 14 14:09:02 2001
@@ -146,7 +146,7 @@
$_ =~ s/\r/\\r/g ;
$_ =~ s/\t/\\t/g ;
$_ =~ s{
- ([^[:print:]])
+ ([^[\040-\377\r\n]])
}{
my $codepoint = ord $1 ;
$codepoint <= 0xFF
@@ -355,7 +355,7 @@
pop ; # Ignore options
my $ops = pop ; ## Leave sequences in @_[0,1]
-use Data::Dumper ; print Dumper $self ;
+#use Data::Dumper ; print Dumper $self ;
## Line numbers are one off, gotta bump them
push @{$self->{LINES}}, [
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
