t/test_DEBUG.t

   1 # Test that the -D (-DEBUG) flag works
   2 use strict;
   3 use Carp;
   4 use Perl::Tidy;
   5 use Test::More;
   6 my $name = 'DEBUG test';
   7
   8 BEGIN {
   9     plan tests => 2;
  10 }
  11
  12 my $source = <<'EOM';
  13 my @words = qw(
  14 alpha beta gamma
  15 );
  16 EOM
  17
  18 my $expect = <<'EOM';
  19 my @words = qw(
  20   alpha beta gamma
  21 );
  22 EOM
  23
  24 my $debug_expect = <<'EOM';
  25 Use -dump-token-types (-dtt) to get a list of token type codes
  26 1: my @words = qw(
  27 1: kkbiiiiiib=bqqq
  28 2: alpha beta gamma
  29 2: qqqqqqqqqqqqqqqq
  30 3: );
  31 3: q;
  32 EOM
  33
  34 my $output;
  35 my $stderr_string;
  36 my $errorfile_string;
  37 my $debug_string;
  38 my $perltidyrc = "";
  39 my $err    = Perl::Tidy::perltidy(
  40     argv        => '-D -npro',
  41     perltidyrc  => \$perltidyrc,  # avoid reading unwanted .perltidyrc
  42     source      => \$source,
  43     destination => \$output,
  44     stderr      => \$stderr_string,
  45     errorfile   => \$errorfile_string,    # not used when -se flag is set
  46     debugfile   => \$debug_string,
  47 );
  48
  49 if ( $err || $stderr_string || $errorfile_string ) {
  50     ok(0);
  51 }
  52 else {
  53     is( $output,       $expect,       $name );
  54     is( $debug_string, $debug_expect, $name );
  55 }