File: 00pods.t

package info (click to toggle)
libtm-perl 1.56-7
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 3,692 kB
  • ctags: 1,084
  • sloc: perl: 35,266; makefile: 48
file content (75 lines) | stat: -rw-r--r-- 1,687 bytes parent folder | download | duplicates (3)
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
use strict;
use warnings;

use Data::Dumper;

#== TESTS =====================================================================

use strict;

use Test::More;
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;

my @PODs = qw(
	      lib/TM.pm
	      lib/TM/Analysis.pm
	      lib/TM/Axes.pm
	      lib/TM/Bulk.pm
	      lib/TM/Literal.pm
	      lib/TM/Overview.pm
	      lib/TM/FAQ.pm
	      lib/TM/DM.pm
              lib/TM/Graph.pm
	      lib/TM/Tree.pm
	      lib/TM/PSI.pm
	      lib/TM/ResourceAble.pm
	      lib/TM/ResourceAble/MLDBM.pm
	      lib/TM/Synchronizable.pm
	      lib/TM/Synchronizable/MLDBM.pm
	      lib/TM/Serializable.pm
	      lib/TM/Serializable/AsTMa.pm
	      lib/TM/Serializable/LTM.pm
	      lib/TM/Serializable/CTM.pm
	      lib/TM/Serializable/XTM.pm
	      lib/TM/MapSphere.pm
	      lib/TM/Materialized/Stream.pm
	      lib/TM/Materialized/AsTMa.pm
	      lib/TM/Materialized/CTM.pm
	      lib/TM/Materialized/LTM.pm
	      lib/TM/Materialized/MLDBM.pm
	      lib/TM/Materialized/MLDBM2.pm
	      lib/TM/Materialized/XTM.pm
	      lib/TM/Tau.pm
	      lib/TM/Tau/Filter.pm
	      lib/TM/Tau/Filter/Analyze.pm
	      lib/TM/Index.pm
	      lib/TM/Index/Characteristics.pm
	      lib/TM/Index/Match.pm
	      );
plan tests => scalar @PODs;

# lib/TM/Tau/Federated.pm
#	      lib/TM/QL.pm
#	      lib/TM/Tau/Filter/Analyze.pm

map {
    pod_file_ok ( $_, "$_ pod ok" )
    } @PODs;

__END__

use Test::Pod;


__END__


use Test::More;
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
my @poddirs = qw( blib script );
all_pod_files_ok( all_pod_files( @poddirs ) );

__END__