contrib-munin/t/test.t

# -*- perl -*-

use strict;
use warnings;

use Test::More;
use File::Find ();
use Capture::Tiny ':all';

use vars qw/*name *dir *prune/;
*name  = *File::Find::name;
*dir   = *File::Find::dir;
*prune = *File::Find::prune;
my $num_plugins = 0;

sub wanted {
    my ( $dev, $ino, $mode, $nlink, $uid, $gid, $interpreter );

    ( ( $dev, $ino, $mode, $nlink, $uid, $gid ) = lstat($_) )
        && -f _
        && ( $interpreter = hashbang("$_") )
        && ++$num_plugins
        && process_file( $_, $name, $interpreter );
}

File::Find::find( { wanted => \&wanted }, 'plugins' );

sub hashbang {
    my ($filename) = @_;
    open my $file, '<', $filename;
    my $firstline = <$file>;
    close $file;

    $firstline =~ m{ ^\#!                 # hashbang
                     \s*                  # optional space
                     (?:/usr/bin/env\s+)? # optional /usr/bin/env
                     (?<interpreter>\S+)  # interpreter
               }xm;

    return $+{interpreter};
}

sub process_file {
    my ( $file, $filename, $interpreter ) = @_;
    use v5.10.1;

    if ( $interpreter =~ m{/bin/sh} ) {
        subtest $filename => sub {
            plan tests => 2;
            ok( check_file_with( [ 'sh', '-n', $file ] ), "sh syntax check" );
            ok( check_file_with( [ 'checkbashisms', $file ] ),
                "checkbashisms" );
        };
    }
    elsif ( $interpreter =~ m{/bin/ksh} ) {
        ok( check_file_with( [ 'ksh', '-n', $file ] ),
            $filename . " ksh syntax check" );
    }
    elsif ( $interpreter =~ m{bash} ) {
        ok( check_file_with( [ 'bash', '-n', $file ] ),
            $filename . " bash syntax check" );
    }
    elsif ( $interpreter =~ m{perl} ) {
        ok( check_file_with( [ 'perl', '-cw', $file ] ),
            $filename . " perl syntax check" );
    }
    elsif ( $interpreter =~ m{python} ) {
        ok( check_file_with(
                [   'pylint',        '--rcfile=/dev/null',
                    '--errors-only', '--report=no',
                    $file
                ]
            ),
            $filename . " python syntax check"
        );
    }
    elsif ( $interpreter =~ m{php} ) {
        ok( check_file_with( [ 'php', '-l', $file ] ),
            $filename . " php syntax check" );
    }
    elsif ( $interpreter =~ m{j?ruby} ) {
        ok( check_file_with( [ 'ruby', '-cw', $file ] ),
            $filename . " ruby syntax check" );
    }
    elsif ( $interpreter =~ m{gawk} ) {
        ok( check_file_with(
                [   'gawk', '--source', 'BEGIN { exit(0) } END { exit(0) }',
                    '--file', $file
                ]
            ),
            $filename . " gawk syntax check"
        );
    }
    else {
        fail( $filename . " unknown interpreter " . $interpreter );
    }
}

sub check_file_with {
    my ($check_command) = @_;
    my ( $stdout, $stderr, $exit ) = capture {
        system( @{$check_command} );
    };
    if ( $exit == 0 ) {
        return 1;
    }
    else {
        diag(
            sprintf(
                "\nCommand: %s\n\nSTDOUT:\n\n%s\n\nSTDERR:\n\n%s\n\n",
                join( " ", @{$check_command} ),
                $stdout, $stderr
            )
        );
        return;
    }
}

done_testing($num_plugins);