/t/test.t - Annoter - Munin contributed plugins - Koumbit's Redmine

Télécharger au format

root / t / test.t @ a9d8c625

Historique | Voir | Annoter | Télécharger (4,87 ko)

-cb3741
+# -*- 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 {
-            beca8999
+    my ( $dev, $ino, $mode, $nlink, $uid, $gid, $interpreter, $arguments );
-cb3741
+            Stig Sandbeck Mathisen
     ( ( $dev, $ino, $mode, $nlink, $uid, $gid ) = lstat($_) )
         && -f _
-            beca8999
+        && ( ( $interpreter, $arguments ) = hashbang("$_") )
         && ($interpreter)
-cb3741
+        && ++$num_plugins
-            beca8999
+        && process_file( $_, $name, $interpreter, $arguments );
-cb3741
+            Stig Sandbeck Mathisen
 File::Find::find( { wanted => \&wanted }, 'plugins' );
 sub hashbang {
     my ($filename) = @_;
     open my $file, '<', $filename;
     my $firstline = <$file>;
     close $file;
-            beca8999
+    $firstline =~ m{ ^\#!                    # hashbang
                      \s*                     # optional space
                      (?:/usr/bin/env\s+)?    # optional /usr/bin/env
                      (?<interpreter>\S+)     # interpreter
                      (?:\s+
                          (?<arguments>[^\n]*)   # optional interpreter arguments
                      )?
                }xms;
-cb3741
+            Stig Sandbeck Mathisen
-            beca8999
+    return ($+{interpreter}, $+{arguments});
-cb3741
+            Stig Sandbeck Mathisen
 sub process_file {
-            beca8999
+    my ( $file, $filename, $interpreter, $arguments ) = @_;
-cb3741
+    use v5.10.1;
     if ( $interpreter =~ m{/bin/sh} ) {
         subtest $filename => sub {
             plan tests => 2;
-b01da77
+            run_check(
                 {   command     => [ 'sh', '-n', $file ],
                     description => 'sh syntax check'
+                }
             );
             run_check(
                 {   command     => [ 'checkbashisms', $file ],
                     description => 'checkbashisms'
+                }
             );
-cb3741
+        };
+    }
-            23336966
+    elsif ( $interpreter =~ m{/bin/ksh} ) {
-b01da77
+        run_check(
             {   command     => [ 'ksh', '-n', $file ],
                 description => 'ksh syntax check',
                 filename    => $filename
+            }
         );
-            23336966
+            Stig Sandbeck Mathisen
-e7aaf8
+    elsif ( $interpreter =~ m{bash} ) {
-b01da77
+        run_check(
             {   command     => [ 'bash', '-n', $file ],
                 description => 'bash syntax check',
                 filename    => $filename
+            }
         );
-cb3741
+            Stig Sandbeck Mathisen
     elsif ( $interpreter =~ m{perl} ) {
-            beca8999
+        my $command;
         if ($arguments =~ m{-.*T}mx) {
             $command = [ 'perl', '-cwT', $file ];
+        }
         else {
             $command = [ 'perl', '-cw', $file ];
+        }
-b01da77
+        run_check(
-            beca8999
+            {   command     => $command,
-b01da77
+                description => 'perl syntax check',
                 filename    => $filename
+            }
         );
-cb3741
+            Stig Sandbeck Mathisen
     elsif ( $interpreter =~ m{python} ) {
-b01da77
+    SKIP: {
             skip 'need better syntax check for python', 1;
             run_check(
                 {   command => [
                         'pylint',        '--rcfile=/dev/null',
                         '--errors-only', '--report=no',
                         $file
                     ],
                     description => 'python syntax check',
                     filename    => $filename
+                }
             );
+        }
-cb3741
+            Stig Sandbeck Mathisen
     elsif ( $interpreter =~ m{php} ) {
-b01da77
+        run_check(
             {   command     => [ 'php', '-l', $file ],
                 description => 'php syntax check',
                 filename    => $filename
+            }
         );
-cb3741
+            Stig Sandbeck Mathisen
     elsif ( $interpreter =~ m{j?ruby} ) {
-b01da77
+        run_check(
             {   command     => [ 'ruby', '-cw', $file ],
                 description => 'ruby syntax check',
                 filename    => $filename
+            }
         );
-cb3741
+            Stig Sandbeck Mathisen
     elsif ( $interpreter =~ m{gawk} ) {
-b01da77
+        run_check(
             {   command => [
                     'gawk', '--source', 'BEGIN { exit(0) } END { exit(0) }',
-cb3741
+                    '--file', $file
-b01da77
+                ],
                 description => 'gawk syntax check',
                 filename    => $filename
+            }
-cb3741
+        );
+    }
-f1
+    elsif ( $interpreter =~ m{expect} ) {
-b01da77
+    SKIP: {
             skip 'no idea how to check expect scripts', 1;
             pass("No pretending everything is ok");
+        }
-f1
+            Stig Sandbeck Mathisen
-cb3741
+    else {
         fail( $filename . " unknown interpreter " . $interpreter );
+    }
+}
-b01da77
+sub run_check {
     my ($args)        = @_;
     my $check_command = $args->{command};
     my $description   = $args->{description};
     my $filename      = $args->{filename};
     my $message;
     if ($filename) {
         $message = sprintf( '%s: %s', $filename, $description );
+    }
     else {
         $message = $description;
+    }
-cb3741
+    my ( $stdout, $stderr, $exit ) = capture {
         system( @{$check_command} );
     };
-b01da77
+            Stig Sandbeck Mathisen
     ok( ( $exit == 0 ), $message );
     if ($exit) {
-b5e75a0
+        diag(
             sprintf(
                 "\nCommand: %s\n\nSTDOUT:\n\n%s\n\nSTDERR:\n\n%s\n\n",
                 join( " ", @{$check_command} ),
                 $stdout, $stderr
+            )
         );
-cb3741
+            Stig Sandbeck Mathisen
+}
 done_testing($num_plugins);

Projet

Général

Profil

Munin contributed plugins

root / t / test.t @ a9d8c625