The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;

use Test::More tests => 4;

use File::Copy qw(copy);
use File::Spec;

use Test::Manifest qw(get_t_files manifest_name);

ok( -e File::Spec->catfile( "t", "include_in_manifest.txt" ),
	"Found file I'll include in test_manifest" );
ok( -e 'test_manifest_with_include',
	"Found file that I'll copy to test_manifest" );

copy( 'test_manifest_with_include', manifest_name() );

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
my @expected_tests = map { File::Spec->catfile( "t", $_ ) } qw(
	00load.t
	99pod.t
	01get_test_files.t
	);

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
my $expected = join " ", @expected_tests;

my $string = get_t_files();

is( $string, $expected, "Single string version of tests is right" );

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

my @files = get_t_files();

is_deeply( \@files, \@expected_tests, "Array version of tests is right" );