[Bps-public-commit] r15344 - in sd/trunk: . t/scripts

[spang at bestpractical.com]

Author: spang
Date: Thu Aug 21 17:27:18 2008
New Revision: 15344

Modified:
   sd/trunk/   (props changed)
   sd/trunk/t/02-create-with-editor.t
   sd/trunk/t/03-update-ticket-with-editor.t
   sd/trunk/t/04-update-ticket-comment-with-editor.t
   sd/trunk/t/scripts/ticket-comment-update-editor.pl

Log:
 r48820 at loki:  spang | 2008-08-21 22:26:59 +0100
 throw jesse a bone


Modified: sd/trunk/t/02-create-with-editor.t
==============================================================================
--- sd/trunk/t/02-create-with-editor.t	(original)
+++ sd/trunk/t/02-create-with-editor.t	Thu Aug 21 17:27:18 2008
@@ -10,8 +10,9 @@
     $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'} = File::Temp::tempdir( CLEANUP => 0 ) . '/_svb';
     diag 'export SD_REPO=' . $ENV{'PROPHET_REPO'} . "\n";
     # frob the editor to use a perl script instead of spawning vi/emacs/etc.
-    $ENV{'VISUAL'} = File::Spec->catfile(getcwd(), 't', 'scripts', 'ticket-create-editor.pl');
-    diag 'export VISUAL=' . $ENV{'VISUAL'} . "\n";
+    undef $ENV{'VISUAL'};       # Proc::InvokeEditor checks this first
+    $ENV{'EDITOR'} = File::Spec->catfile(getcwd(), 't', 'scripts', 'ticket-create-editor.pl');
+    diag 'export EDITOR=' . $ENV{'EDITOR'} . "\n";
 }
 
 my ($ticket_id, $ticket_uuid, $comment_id, $comment_uuid) = App::SD::Test::create_ticket_with_editor_ok();

Modified: sd/trunk/t/03-update-ticket-with-editor.t
==============================================================================
--- sd/trunk/t/03-update-ticket-with-editor.t	(original)
+++ sd/trunk/t/03-update-ticket-with-editor.t	Thu Aug 21 17:27:18 2008
@@ -10,8 +10,9 @@
     $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'} = File::Temp::tempdir( CLEANUP => 0 ) . '/_svb';
     diag 'export SD_REPO=' . $ENV{'PROPHET_REPO'} . "\n";
     # frob the editor to use a perl script instead of spawning vi/emacs/etc.
-    $ENV{'VISUAL'} = File::Spec->catfile(getcwd(), 't', 'scripts', 'ticket-update-editor.pl');
-    diag 'export VISUAL=' . $ENV{'VISUAL'} . "\n";
+    undef $ENV{'VISUAL'};       # Proc::InvokeEditor checks this first
+    $ENV{'EDITOR'} = File::Spec->catfile(getcwd(), 't', 'scripts', 'ticket-update-editor.pl');
+    diag 'export EDITOR=' . $ENV{'EDITOR'} . "\n";
 }
 
 # create ticket

Modified: sd/trunk/t/04-update-ticket-comment-with-editor.t
==============================================================================
--- sd/trunk/t/04-update-ticket-comment-with-editor.t	(original)
+++ sd/trunk/t/04-update-ticket-comment-with-editor.t	Thu Aug 21 17:27:18 2008
@@ -10,8 +10,9 @@
     $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'} = File::Temp::tempdir( CLEANUP => 0 ) . '/_svb';
     diag 'export SD_REPO=' . $ENV{'PROPHET_REPO'} . "\n";
     # frob the editor to use a perl script instead of spawning vi/emacs/etc.
-    $ENV{'VISUAL'} = File::Spec->catfile(getcwd(), 't', 'scripts', 'ticket-comment-update-editor.pl');
-    diag 'export VISUAL=' . $ENV{'VISUAL'} . "\n";
+    undef $ENV{'VISUAL'};       # Proc::InvokeEditor checks this first
+    $ENV{'EDITOR'} = File::Spec->catfile(getcwd(), 't', 'scripts', 'ticket-comment-update-editor.pl');
+    diag 'export EDITOR=' . $ENV{'EDITOR'} . "\n";
 }
 
 # create ticket

Modified: sd/trunk/t/scripts/ticket-comment-update-editor.pl
==============================================================================
--- sd/trunk/t/scripts/ticket-comment-update-editor.pl	(original)
+++ sd/trunk/t/scripts/ticket-comment-update-editor.pl	Thu Aug 21 17:27:18 2008
@@ -1,6 +1,7 @@
 #!/usr/bin/perl -i
 
-# perl script to trick Proc::InvokeEditor with for the ticket update command
+# perl script to trick Proc::InvokeEditor with for the ticket comment update
+# command
 
 while (<>) {
      print "huzzah!";