1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#!/usr/bin/perl
# Testing for the PPI::Document ->complete method
use strict;
BEGIN {
no warnings 'once';
$| = 1;
$PPI::XS_DISABLE = 1;
$PPI::Lexer::X_TOKENIZER ||= $ENV{X_TOKENIZER};
}
use Test::More;
use Test::NoWarnings;
use File::Spec::Functions ':ALL';
use PPI;
# This test uses a series of ordered files, containing test code.
# The letter after the number acts as a boolean yes/no answer to
# "Is this code complete"
my @files = find_files( catdir( 't', 'data', '27_complete' ) );
my $tests = (scalar(@files) * 2) + 2;
plan( tests => $tests );
#####################################################################
# Resource Location
ok( scalar(@files), 'Found at least one ->complete test file' );
foreach my $file ( @files ) {
# Load the document
my $document = PPI::Document->new( $file );
isa_ok( $document, 'PPI::Document' );
# Test if complete or not
my $got = !! ($document->complete);
my $expected = !! ($file =~ /\d+y\w+\.code$/);
my $isnot = ($got == $expected) ? 'is' : 'is NOT';
is( $got, $expected, "File $file $isnot complete" );
}
#####################################################################
# Support Functions
sub find_files {
my $testdir = shift;
# Does the test directory exist?
-e $testdir and -d $testdir and -r $testdir or die "Failed to find test directory $testdir";
# Find the .code test files
opendir( TESTDIR, $testdir ) or die "opendir: $!";
my @perl = map { catfile( $testdir, $_ ) } sort grep { /\.(?:code|pm|t)$/ } readdir(TESTDIR);
closedir( TESTDIR ) or die "closedir: $!";
return @perl;
}
|
