view release on metacpan or  search on metacpan

t/10commands.t  view on Meta::CPAN

# into Devel::MAT itself
my $output;
package Devel::MAT::Cmd {
   sub printf {
      shift;
      my ( $fmt, @args ) = @_;
      $output .= sprintf $fmt, @args;
   }
}

sub output_matches_ok(&$$)
{
   my ( $code, $want, $name ) = @_;

   $output = "";
   $code->();

   $want = quotemeta $want;
   $want =~ s/_ADDR_/0x[0-9a-f]+/g;
   $want =~ s/_NUM_/\\d+/g;