Test thru perltidy.

.appveyor.yml

@@ -20,7 +20,7 @@ install:
     - SET PERL_MB_OPT=--install_base C:/_P5
     - SET PERL_MM_OPT=INSTALL_BASE=C:/_P5
     - perl -v
-    - cpanm --notest File::Find::Object Task::FreecellSolver::Testing Test::TrailingSpace
+    - cpanm --notest File::Find::Object Perl::Tidy Task::FreecellSolver::Testing  Test::Code::TidyAll Test::TrailingSpace
     - echo %PATH%
 build: off
 test_script:

.gitignore

@@ -1,4 +1,5 @@
 *.pyc
+.tidyall.d/
 MANIFEST
 build/*
 data/cardsets/*

.perltidyrc

@@ -0,0 +1,3 @@
+-ci=4
+-bl
+-cti=0

.tidyallrc

@@ -0,0 +1,4 @@
+[PerlTidy]
+argv = -ci=4 -bl -cti=0
+ignore = **/{cmpdigest,valgrind,verify}--*.t
+select = **/*.{pl,pm,t}

.travis.yml

@@ -5,7 +5,7 @@ before_install:
     - sudo apt-get install -y ack-grep cpanminus libperl-dev make perl python-glade2 python-gnome2 python-gnome2-dev python-gtk2 python-setuptools python-tk python3 python3-pip python3-setuptools python3-tk
     - sudo dpkg-divert --local --divert /usr/bin/ack --rename --add /usr/bin/ack-grep
 install:
-    - sudo cpanm Test::Differences Test::TrailingSpace
+    - sudo cpanm Perl::Tidy Test::Code::TidyAll Test::Differences Test::TrailingSpace
     - "`which python3` -m pip install --upgrade --user flake8 random2 six"
     - "sudo /usr/bin/python3 -m pip install --upgrade random2 six"
     - "`which python` -m pip install --upgrade --user random2 six"

run-tests.pl

@@ -53,8 +53,7 @@ sub run_tests
     {
         require Test::Run::CmdLine::Prove;
 
-        my $p =
+        my $p = Test::Run::CmdLine::Prove->create(
-        Test::Run::CmdLine::Prove->create(
             {
                 'args'         => [@$tests],
                 'env_switches' => $ENV{'PROVE_SWITCHES'},

tests/style/perltidy.t

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+if ( $ENV{FCS_TEST_SKIP_PERLTIDY} )
+{
+    require Test::More;
+    Test::More::plan( 'skip_all' =>
+            "Skipping perltidy test because FCS_TEST_SKIP_PERLTIDY was set" );
+}
+require Test::Code::TidyAll;
+
+Test::Code::TidyAll::tidyall_ok( conf_file => ".tidyallrc", );

tests/style/style-trailing-space.t

@@ -18,12 +18,11 @@ else
 my $finder = Test::TrailingSpace->new(
     {
         root => '.',
-        filename_regex => qr/(?:(?:\.(?:t|pm|pl|PL|yml|json|arc|vim|py|tcl))|README(?:\.md)?|Changes|LICENSE|MANIFEST|AUTHORS|COPYING)\z/,
+        filename_regex =>
+qr/(?:(?:\.(?:t|pm|pl|PL|yml|json|arc|vim|py|tcl))|README(?:\.md)?|Changes|LICENSE|MANIFEST|AUTHORS|COPYING)\z/,
     },
 );
 
 # TEST
-$finder->no_trailing_space(
+$finder->no_trailing_space("No trailing space was found.");
-    "No trailing space was found."
-);