#!/usr/bin/perl

use Test::More tests => 7;

require_ok('Test::HasVersion');

# alias to have a short name
*all_pm_files = \&Test::HasVersion::all_pm_files;

# and here we test &all_pm_files

{
  my @pm_files = all_pm_files();
  is_deeply(\@pm_files, [ qw(HasVersion.pm) ]);
}

{
  ok(chdir "t/eg", "cd t/eg");
  my @pm_files = all_pm_files();
  is_deeply(\@pm_files, 
            [ qw(A.pm lib/B.pm lib/B/C.pm) ]
  ); # *.pm lib/**/*.pm
  ok(chdir "../..", "cd ../..");
}

{
  my @pm_files = all_pm_files("t/eg");
  is_deeply(\@pm_files, 
            [ qw(t/eg/A.pm t/eg/inc/Foo.pm t/eg/lib/B.pm t/eg/lib/B/C.pm ) ]
  ); # every .pm under t/eg
}

{
  my @pm_files = all_pm_files("t/eg/A.pm", "t/eg/MANIFEST");
  is_deeply(\@pm_files, [ qw(t/eg/A.pm t/eg/MANIFEST) ]);
}