|
42
|
1 #!/usr/bin/perl -w
|
|
|
2 #
|
|
|
3 # Test that the POD we include in our scripts is valid, via the external
|
|
|
4 # podcheck command.
|
|
|
5 #
|
|
|
6 # Steve
|
|
|
7 # --
|
|
|
8 #
|
|
|
9
|
|
|
10 use strict;
|
|
|
11 use Test::More qw( no_plan );
|
|
|
12
|
|
|
13 foreach my $file ( qw! ./bin/chronicle ! )
|
|
|
14 {
|
|
|
15 ok( -e $file, "$file" );
|
|
|
16 ok( -x $file, " File is executable: $file" );
|
|
|
17 ok( ! -d $file, " File is not a directory: $file" );
|
|
|
18
|
|
|
19 if ( ( -x $file ) && ( ! -d $file ) )
|
|
|
20 {
|
|
|
21 #
|
|
|
22 # Execute the command giving STDERR to STDOUT where we
|
|
|
23 # can capture it.
|
|
|
24 #
|
|
|
25 my $cmd = "podchecker $file";
|
|
|
26 my $output = `$cmd 2>&1`;
|
|
|
27 chomp( $output );
|
|
|
28
|
|
|
29 is( $output, "$file pod syntax OK.", " File has correct POD syntax: $file" );
|
|
|
30 }
|
|
|
31 }
|
|
|
32
|
