1 # Test that the -D (-DEBUG) flag works
6 my $name = 'DEBUG test';
24 my $debug_expect = <<'EOM';
25 Use -dump-token-types (-dtt) to get a list of token type codes
39 my $err = Perl::Tidy::perltidy(
41 perltidyrc => \$perltidyrc, # avoid reading unwanted .perltidyrc
43 destination => \$output,
44 stderr => \$stderr_string,
45 errorfile => \$errorfile_string, # not used when -se flag is set
46 debugfile => \$debug_string,
49 if ( $err || $stderr_string || $errorfile_string ) {
53 is( $output, $expect, $name );
54 is( $debug_string, $debug_expect, $name );