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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
use 5.006;
use strict;
use warnings;
use Test::More tests => 21;
use Data::Dumper;
BEGIN { use_ok('Parse::ExuberantCTags') };
chdir('t') if -d 't';
use File::Spec;
SCOPE: {
my $notptags = Parse::ExuberantCTags->new( 'perltagsdoesntexist' );
ok(!defined($notptags), 'bad file returns undef');
}
SCOPE: {
my $ptags = Parse::ExuberantCTags->new( File::Spec->catfile("data", "testtags") );
isa_ok($ptags, 'Parse::ExuberantCTags');
my $entry = $ptags->firstTag();
is_deeply($entry, {
file => '/usr/local/share/perl/5.10.0/Padre/Util.pm',
name => 'WXWIN32',
fileScope => 0,
kind => 'c',
addressPattern => '/use constant WXWIN32 => WIN32;/',
addressLineNumber => 58,
extension => {'class' => 'Padre::Util'},
}, "first tag as expected");
my $entry2 = $ptags->nextTag();
is_deeply($entry2, {
file => '/usr/lib/perl/5.10/IO/File.pm',
name => 'IO::File',
fileScope => 0,
kind => 'p',
addressPattern => '/package IO::File;/',
addressLineNumber => 3,
extension => {'class' => 'IO::File'},
}, "second tag as expected");
my $entry3 = $ptags->firstTag();
is_deeply($entry, $entry3);
$entry = $ptags->nextTag();
is_deeply($entry, $entry2);
$entry = $ptags->nextTag();
is_deeply($entry, {
file => '/usr/local/share/perl/5.10.0/File/Which.pm',
name => 'Is_DOSish',
fileScope => 1,
kind => 'v',
addressPattern => '/my $Is_DOSish = (($^O eq \'MSWin32\') or/',
addressLineNumber => 18,
extension => {'class' => 'File::Which'},
}, "third tag as expected");
ok(!defined($ptags->nextTag()), "returns undef at end of file");
my $found = $ptags->findTag("foo");
ok(!defined($found), "non-existant tag returns undef");
$found = $ptags->findTag("is_dosish");
ok(!defined($found), "wrong caps in tag returns undef");
$found = $ptags->findTag("is_dosish", ignore_case => 1);
is_deeply($found, $entry, "ignoring case finds the right tag");
$found = $ptags->findTag("Is_DOSish");
is_deeply($found, $entry, "right case finds right tag");
$found = $ptags->findTag("Is_DOSish", ignore_case => 1);
is_deeply($found, $entry, "right case finds right tag -- also with ignore_case");
$found = $ptags->findTag("Is_DOS");
ok(!defined($found), "partial without partial is undef");
$found = $ptags->findTag("Is_DOS", partial => 1);
is_deeply($found, $entry, "partial option works");
$found = $ptags->findTag("Is_dos", partial => 1, ignore_case => 1);
is_deeply($found, $entry, "partial option works with ignore_case");
$found = $ptags->findNextTag();
ok(!defined($found), "only one tag matches in sample");
$found = $ptags->findTag("i", partial => 1, ignore_case => 1);
is_deeply($found, $entry2, "searching for 'i' yields second entry");
$found = $ptags->findNextTag();
is_deeply($found, $entry, "continuing search yields third");
}
pass("DESTROY of the ctags parser doesn't SEGV");
|
