Implement purpose-based templates

bin/mkexec

 use strict;
 use warnings;
 
-sub usage; sub mkexec; sub guesstype; sub getcmd; sub launch_editor;
+sub usage; sub mkexec; sub guesstype; sub guesspurpose;
+sub getcmd; sub launch_editor;
 
 my $DEFAULT_TYPE = 'sh';
 my $DEFAULT_MODE = 0755;
 ## '''' ##   ' ' '  '   '    '     '      '       '        '         '
 
 my $force = $DEFAULT_FORCE;
-my $name; my $type; my $edit;
+my $name; my $type; my $purpose; my $edit;
 
 foreach (@ARGV) {
     if (m/-f|--force/) {
         $edit++;
     } elsif (m/-E|--no-edit/) {
         $edit = 0;
+    } elsif (defined $type) {
+        $purpose = $_;
     } elsif (defined $name) {
         $type = $_;
     } else {
 
 usage unless defined $name;
 $type = guesstype $name unless defined $type;
+$purpose = guesspurpose $name unless defined $purpose;
 
 my $bangs = {
     pl   => `which perl`,
 };
 
 my $templates = {
-    pl   => "use strict;\nuse warnings;\n",
-    py   => "if __name__ == '__main__':\n"
+    py => {
+        ''      => "if __name__ == '__main__':\n",
+        test    => "import unittest\n\n\n"
+                   . "class TestCase(unittest.TestCase):\n"
+                   . "    pass\n\n\n"
+                   . "if __name__=='__main__':\n"
+                   ."    unittest.main()\n",
+    },
+    pl => {
+        ''      => "use strict;\nuse warnings;\n",
+        test    => "use strict;\nuse warnings;\nuse Test::More;\n\n",
+    }
 };
 
 my $editors = [ qw/ vim editor / ];
 $cmds->{editor}->{test} = "editor --version 2>/dev/null";
 $cmds->{editor}->{run}  = "editor '%s'";
 
+unless (exists $templates->{$type}->{$purpose}) {
+    warn "undefined purpose '$purpose' for type '$type'\n";
+    $purpose = "";
+}
+
 
 ## ... ##   # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 ## RUN ## ----------------------------------------------------------------- #
     $force and -e $name
         and (defined `cp "$name" "$name~"` or die $!);
     (not -e $name or $force)
-        and mkexec $name, mkbody($type);
+        and mkexec $name, mkbody($type, $purpose);
     chmod $DEFAULT_MODE, $name;
     launch_editor $name if $edit;
 } else {
 ## '''' ##   ..............................................................-'
 
 sub usage {
-    print STDERR "usage: $0 [-f|-E] filename [type]\n";
+    print STDERR "usage: $0 [-f|-E] filename [type] [purpose]\n";
     exit 0;
 }
 
     return ( $ext ? $ext : $DEFAULT_TYPE);
 }
 
+sub guesspurpose {
+    my $name = shift;
+    my $testword = '[tT][eE][sS][tT]';
+    return 'test' if $name =~ m|^test_|i;
+    return 'test' if $name =~ m|_test.py$|i;
+    return 'test' if $name =~ m|_test.pl$|i;
+    return 'test' if $name =~ m|\btest\w*/|i;
+    return 'test' if $name =~ m|.*Test/|i;
+    return 'test' if $name =~ m|\bt/|;
+    return ''
+}
+
 sub mkbody {
     my $type = shift;
+    my $purpose = shift;
     my $tmpl = "";
-    $tmpl .= $templates->{$type} if exists $templates->{$type};
+    $tmpl .= $templates->{$type}->{$purpose} if exists $templates->{$type};
     return sprintf "#!%s\n%s\n", $bangs->{$type}, $tmpl;
 }