Mercurial > hg > chronicle
view tests/pod-check.t @ 307:fe474f3ed3e5 default tip
Making archive pages have the same layout as the index
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Mon, 22 Dec 2008 12:08:20 +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" ); } }