Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
README	990 B	-rw-r--r--
bbtidy.pl	487 B	-rw-r--r--
break_long_quotes.pl	6.35 KB	-rw-r--r--
ex_mp.pl	1.38 KB	-rw-r--r--
filter_example.in	346 B	-rw-r--r--
filter_example.pl	1.69 KB	-rw-r--r--
find_naughty.pl	3.08 KB	-rw-r--r--
lextest	698 B	-rw-r--r--
perlcomment.pl	6.96 KB	-rw-r--r--
perllinetype.pl	1.93 KB	-rw-r--r--
perlmask.pl	8.5 KB	-rw-r--r--
perltidy_okw.pl	1.25 KB	-rw-r--r--
perltidyrc_dump.pl	10.92 KB	-rw-r--r--
perlxmltok.pl	7.92 KB	-rw-r--r--
testfa.t	1.87 KB	-rw-r--r--
testff.t	2.07 KB	-rw-r--r--

Code Editor : testfa.t

use strict;
use Test;
use Carp;
BEGIN {plan tests => 1}
use Perl::Tidy;

#----------------------------------------------------------------------
## test file->array 
#
#   Also tests:
#     passing perltidyrc (we cannot allow local .perltidyrc flags to be used)
#     the -gnu flag
#----------------------------------------------------------------------
my $source = "lextest";
my $perltidyrc = <<'EOM';
-gnu
EOM

my @tidy_output;

Perl::Tidy::perltidy(
    source      => $source,
    destination => \@tidy_output,
    perltidyrc  => \$perltidyrc,
    argv        => '-nsyn',
);

my @expected_output=<DATA>;
my $ok=1;
if (@expected_output == @tidy_output) {
        while ( $_ = pop @tidy_output ) {
            my $expect = pop @expected_output;
            if ( $expect ne $_ ) {
                print STDERR "got:$_";
                print STDERR "---\n";
                print STDERR "expected_output:$expect";
                $ok=0;
                last;
            }
        }
}
else {
        print STDERR "Line Counts differ\n";
        $ok=0;
}
ok ($ok,1);

# This is the expected result of 'perltidy -gnu lextest':

__DATA__
# This is a simple testfile to demonstrate perltidy, from perlop(1).
# One way (of several) to run perltidy is as follows:
#
#   perl ./perltidy lextest
#
# The output will be "lextest.tdy"
$_ = <<'EOL';
   $url = new URI::URL "http://www/";   die if $url eq "xXx";
EOL
LOOP:
{
    print(" digits"),       redo LOOP if /\G\d+\b[,.;]?\s*/gc;
    print(" lowercase"),    redo LOOP if /\G[a-z]+\b[,.;]?\s*/gc;
    print(" UPPERCASE"),    redo LOOP if /\G[A-Z]+\b[,.;]?\s*/gc;
    print(" Capitalized"),  redo LOOP if /\G[A-Z][a-z]+\b[,.;]?\s*/gc;
    print(" MiXeD"),        redo LOOP if /\G[A-Za-z]+\b[,.;]?\s*/gc;
    print(" alphanumeric"), redo LOOP if /\G[A-Za-z0-9]+\b[,.;]?\s*/gc;
    print(" line-noise"),   redo LOOP if /\G[^A-Za-z0-9]+/gc;
    print ". That's all!\n";
}

${this.title}

Code Editor : testfa.t