Ticket #685: TDD_tests.diff

lib/Padre/Action/Run.pm

@@ -71 +71 @@
             $_[0]->on_run_command;
         },
     );
+    Padre::Action->new(
+        name        => 'run.run_tdd_tests',
+        need_file   => 1,
+        need_editor => 1,
+        label       => Wx::gettext('Build + run 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/Main.pm

@@ -1553 +1553 @@
     return;
 }
 
-=pod
+=pod 
 
+=head3 on_run_tdd_tests
+
+   $main->on_run_tdd_tests;
+   
+Callback method, to build and then call on_run_tests
+
+=cut 
+
+sub on_run_tdd_tests {
+    my $self = shift;
+    my $document = $self->current->document;
+    unless ($document) {
+        return $self->error( Wx::gettext("No document open") );
+    }
+    
+    # Find the project
+    my $project_dir = $document->project_dir;
+    unless ($project_dir) {
+        return $self->error( Wx::gettext("Could not find project root") );
+    
+    
+    }
+    
+    my $dir = Cwd::cwd;
+    chdir $project_dir;
+    $self->run_command('perl Build test') if( -e 'Build');
+    
+    $self->run_command('make test') if( -e 'Makefile'); # this should do dmake, nmake so on
+    chdir $dir;
+}
+
+=pod 
+
 =head3 on_run_tests
 
     $main->on_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 ) 
+        ? $self->{run_command}->IsEnabled
+        : 0
+    );
 
     return 1;
 }