Test-Differences-45 is now out with the below patch.
Also: I released a new Text::Diff, 0.35 (which Test-Differences-0.45
requires) that fixes and improves the escaping logic so that "\t" and
"\\t" are escaped properly ("\\t" was not being escaped properly) when
escaping.
Escaping (still) is only done in Table style diffs, which is used by
Test::Differences, and is done to highlight differences in whitespace.
Escaping harms readability, so it is normally only done when whitespace
differs:
+--+--------------------------+--------------------------+
| |demo_ws_A.txt |demo_ws_B.txt |
| |Fri Dec 21 08:36:32 2001 |Fri Dec 21 08:36:50 2001 |
+--+--------------------------+--------------------------+
| 1|identical |identical |
* 2| spaced in | also spaced in *
* 3|embedded space |embedded tab *
| 4|identical |identical |
* 5| spaced in |\ttabbed in *
* 6|trailing spaces\s\s\n |trailing tabs\t\t\n *
| 7|identical |identical |
* 8|lf line\n |crlf line\r\n *
* 9|embedded ws |embedded\tws *
+--+--------------------------+--------------------------+
I plan to add an AUTOESCAPE => 1 option for unified, context, and
oldstyle diffs to allow this behavior to be enabled there, but that
takes more tuits than I have at the moment.
- Barrie
On Sat, Jul 13, 2002 at 08:37:29PM +0400, Ilya Martynov wrote:
>
> Barrie,
>
> I've noticed that you use wrong Data::Dumper variables. See patch for
> fix.
>
> diff -u -r Test-Differences-0.43-orig/Differences.pm
>Test-Differences-0.43/Differences.pm
> --- Test-Differences-0.43-orig/Differences.pm Sat Jul 13 20:34:11 2002
> +++ Test-Differences-0.43/Differences.pm Sat Jul 13 20:34:31 2002
> @@ -322,11 +322,11 @@
> if ( $dump_it ) {
> require Data::Dumper;
> local $Data::Dumper::Indent = 1;
> - local $Data::Dumper::SortKeys = 1;
> + local $Data::Dumper::Sortkeys = 1;
> local $Data::Dumper::Purity = 0;
> local $Data::Dumper::Terse = 1;
> - local $Data::Dumper::DeepCopy = 1;
> - local $Data::Dumper::QuoteKeys = 0;
> + local $Data::Dumper::Deepcopy = 1;
> + local $Data::Dumper::Quotekeys = 0;
> @vals = map
> [ split /^/, Data::Dumper::Dumper( $_ ) ],
> @vals;
>
>
> --
> Ilya Martynov (http://martynov.org/)
>
