Mercurial > hg > chronicle
view tests/pod-check.t @ 136:1b905160e5e4
Added 'alt' text on images along with height+width.
author | Steve Kemp <steve@steve.org.uk> |
---|---|
date | Tue, 25 Dec 2007 21:12:38 +0000 |
parents | 00ed5b99ccb0 |
children |
line wrap: on
line source
#!/usr/bin/perl -w # # Test that the POD we include in our scripts is valid, via the external # podcheck command. # # Steve # -- # use strict; use Test::More qw( no_plan ); foreach my $file ( qw! ./bin/chronicle ! ) { ok( -e $file, "$file" ); ok( -x $file, " File is executable: $file" ); ok( ! -d $file, " File is not a directory: $file" ); if ( ( -x $file ) && ( ! -d $file ) ) { # # Execute the command giving STDERR to STDOUT where we # can capture it. # my $cmd = "podchecker $file"; my $output = `$cmd 2>&1`; chomp( $output ); is( $output, "$file pod syntax OK.", " File has correct POD syntax: $file" ); } }