Ticket #685: menu_item.diff

lib/Padre/Action/Run.pm

@@ -71 +71 @@
             $_[0]->on_run_command;
         },
     );
+    Padre::Action->new(
+        name       => 'run.run_TDD_tests',
+        label      => Wx::gettext('TDD all Tests'),
+        comment    => Wx::gettext('Builds the current project, then run all tests.'),
+        shortcut   => 'Ctrl-Shift-F5',
+        menu_event => sub {
+            $_[0]->on_run_tdd_tests;
+        },
+    );
 
     Padre::Action->new(
         name        => 'run.run_tests',

lib/Padre/Wx/Menu/Run.pm

@@ -49 +49 @@
         $self,
         'run.run_tests',
     );
+    
+    $self->{run_TDD_tests} = $self->add_menu_action(
+        $self,
+        'run.run_TDD_tests',
+    );
 
     $self->{run_this_test} = $self->add_menu_action(
         $self,
@@ -94 +99 @@
         ? $self->{run_command}->IsEnabled
         : 0
     );
+    $self->{run_TDD_tests}->Enable(
+          $document && defined( $document->filename ) && $document->filename =~ /\.t$/
+        ? $self->{run_command}->IsEnabled
+        : 0
+    );
 
     return 1;
 }