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]>

Reply via email to