Add ARM files

[dh-make-perl] / dev / arm / libperl-critic-perl / libperl-critic-perl-1.088 / t / 20_policy_requiretidycode.t

diff --git a/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/20_policy_requiretidycode.t b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/20_policy_requiretidycode.t
new file mode 100644 (file)
index 0000000..c65d229
--- /dev/null
+++ b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/20_policy_requiretidycode.t
@@ -0,0 +1,143 @@
+#!perl
+
+##############################################################################
+#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/20_policy_requiretidycode.t $
+#     $Date: 2008-06-21 19:57:54 -0700 (Sat, 21 Jun 2008) $
+#   $Author: clonezone $
+# $Revision: 2464 $
+##############################################################################
+
+use 5.006001;
+use strict;
+use warnings;
+
+use Test::More tests => 6;
+
+# common P::C testing tools
+use Perl::Critic::TestUtils qw(pcritique);
+Perl::Critic::TestUtils::block_perlcriticrc();
+
+my $code;
+my $policy = 'CodeLayout::RequireTidyCode';
+my %config;
+
+#-----------------------------------------------------------------------------
+
+$code = <<'END_PERL';
+$foo= 42;
+$bar   =56;
+$baz   =   67;
+END_PERL
+
+my $has_perltidy = eval {require Perl::Tidy};
+%config = (perltidyrc => q{});
+is(
+    eval { pcritique($policy, \$code, \%config) },
+    $has_perltidy ? 1 : undef,
+    'Untidy code',
+);
+
+#-----------------------------------------------------------------------------
+
+$code = <<'END_PERL';
+#Only one trailing newline
+$foo = 42;
+$bar = 56;
+END_PERL
+
+%config = (perltidyrc => q{});
+is(
+    eval { pcritique($policy, \$code, \%config) },
+    $has_perltidy ? 0 : undef,
+    'Tidy with one trailing newline',
+);
+
+#-----------------------------------------------------------------------------
+
+$code = <<'END_PERL';
+#Two trailing newlines
+$foo = 42;
+$bar = 56;
+
+END_PERL
+
+%config = (perltidyrc => q{});
+is(
+    eval { pcritique($policy, \$code, \%config) },
+    $has_perltidy ? 0 : undef,
+    'Tidy with two trailing newlines',
+);
+
+#-----------------------------------------------------------------------------
+
+$code = <<'END_PERL';
+#Several trailing newlines
+$foo = 42;
+$bar = 56;
+
+   
+
+
+    
+  
+END_PERL
+
+
+
+%config = (perltidyrc => q{});
+is(
+    eval { pcritique($policy, \$code, \%config) },
+    $has_perltidy ? 0 : undef,
+    'Tidy with several trailing newlines',
+);
+
+#-----------------------------------------------------------------------------
+
+$code = <<'END_PERL';
+sub foo {
+    my $code = <<'TEST';
+ foo bar baz
+TEST
+    $code;
+}  
+END_PERL
+
+%config = (perltidyrc => q{});
+is(
+    eval { pcritique($policy, \$code, \%config) },
+    $has_perltidy ? 0 : undef,
+    'Tidy with heredoc',
+);
+
+#-----------------------------------------------------------------------------
+
+$code = <<'END_PERL';
+#!perl
+
+eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
+        if 0; # not running under some shell
+
+package main;
+END_PERL
+
+%config = (perltidyrc => q{});
+is(
+    eval { pcritique($policy, \$code, \%config) },
+    $has_perltidy ? 0 : undef,
+    'Tidy with shell escape',
+);
+
+#-----------------------------------------------------------------------------
+
+# ensure we run true if this test is loaded by
+# t/20_policy_requiretidycode.t_without_optional_dependencies.t
+1;
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 78
+#   indent-tabs-mode: nil
+#   c-indentation-style: bsd
+# End:
+# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :