ilm...@ilmari.org (Dagfinn Ilmari =?utf-8?Q?Manns=C3=A5ker?=) writes: > Tom Lane <t...@sss.pgh.pa.us> writes: >> Anybody know an easy way to do that in Perl?
> I was going to suggest using Test::More's like() function to do the > regex check, but sadly that only escapes things that would break the TAP > stream syntax, not non-printables in general. The next obvious thing is > Data::Dumper with the 'Useqq' option enabled, which makes it use > double-quoted-string escapes (e.g. "\a" for ^G). > The attaced patch does that, and also bumps $Test::Builder::Level so the > diagnostic references the calling line, and uses diag() instad of > note(), so it shows even in non-verbose mode. LGTM, pushed (along with a fix to deal with what hopefully is the only remaining obstacle for Andres' critters). regards, tom lane