Ticket #283: runthistest.patch

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -1601 +1601 @@
 
 =pod
 
+=head3 on_run_this_test
+
+    $main->on_run_this_test;
+
+Callback method, to run the currently open test through prove.
+
+=cut
+
+sub on_run_this_test {
+    my $self     = shift;
+    my $document = $self->current->document;
+    unless ($document) {
+        return $self->error( Wx::gettext("No document open") );
+    }
+
+    # TODO probably should fetch the current project name
+    my $filename = $document->filename;
+    unless ($filename) {
+        return $self->error( Wx::gettext("Current document has no filename") );
+    }
+    unless ($filename =~ /\.t$/) {
+        return $self->error( Wx::gettext("Current document is not a .t file") );
+    }
+
+    # Find the project
+    my $project_dir = Padre::Util::get_project_dir($filename);
+    unless ($project_dir) {
+        return $self->error( Wx::gettext("Could not find project root") );
+    }
+
+    my $dir = Cwd::cwd;
+    chdir $project_dir;
+    $self->run_command("prove -bv $filename");
+    chdir $dir;
+}
+
+=pod
+
 =head3 run_command
 
     $main->run_command( $command );

trunk/Padre/lib/Padre/Wx/Menu/Run.pm

@@ -68 +68 @@
             $_[0]->on_run_tests;
         },
     );
+    
+    $self->{run_this_test} = $self->add_menu_item(
+        $self,
+        name       => 'run.run_this_test',
+        label      => Wx::gettext('Run This Test'),
+        menu_event => sub {
+            $_[0]->on_run_this_test;
+        },
+    );
+
     $self->AppendSeparator;
 
     $self->{stop} = $self->add_menu_item(
@@ -111 +121 @@
         ? $self->{run_command}->IsEnabled
         : 0
     );
+    $self->{run_this_test}->Enable(
+          $document && defined($document->filename) && $document->filename =~ /\.t$/
+        ? $self->{run_command}->IsEnabled
+        : 0
+    );
 
     return 1;
 }