Imported Upstream version 20120701

[perltidy.git] / t / testsa.t

diff --git a/t/testsa.t b/t/testsa.t
new file mode 100644 (file)
index 0000000..6c78756
--- /dev/null
+++ b/t/testsa.t
@@ -0,0 +1,70 @@
+use strict;
+use Test;
+use Carp;
+BEGIN {plan tests => 1}
+use Perl::Tidy; 
+
+#----------------------------------------------------------------------
+## test string->array 
+#     Also tests flags -ce and -l=60
+#     Note that we have to use -npro to avoid using local .perltidyrc
+#----------------------------------------------------------------------
+my $source = <<'EOM';
+$seqno = $type_sequence[$i];
+if ($seqno) {
+  if (tok =~/[\(\[\{]/) {
+      $indentation{$seqno} = indentation
+  }
+}
+elsif (tok =~/[\)\]\}]/) {
+  $min_indentation = $indentation{$seqno}
+  delete $indentation{$seqno}
+  if ($indentation < $min_indentation) {$indentation = $min_indentation}
+}
+EOM
+
+my @tidy_output;
+
+Perl::Tidy::perltidy(
+    source      => \$source,
+    destination => \@tidy_output,
+    perltidyrc  => undef,
+    argv        => '-nsyn -ce -npro -l=60',
+);
+
+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 -ce -l=60' on the above string:
+
+__DATA__
+$seqno = $type_sequence[$i];
+if ($seqno) {
+    if ( tok =~ /[\(\[\{]/ ) {
+        $indentation{$seqno} = indentation;
+    }
+} elsif ( tok =~ /[\)\]\}]/ ) {
+    $min_indentation =
+      $indentation{$seqno} delete $indentation{$seqno}
+      if ( $indentation < $min_indentation )
+    {
+        $indentation = $min_indentation;
+    }
+}