[Bps-public-commit] r17124 - sd/trunk/t/sd-hm

ruz at bestpractical.com ruz at bestpractical.com
Sat Dec 6 07:34:19 EST 2008


Author: ruz
Date: Sat Dec  6 07:34:15 2008
New Revision: 17124

Modified:
   sd/trunk/t/sd-hm/attachments.t
   sd/trunk/t/sd-hm/basics.t
   sd/trunk/t/sd-hm/comments.t
   sd/trunk/t/sd-hm/comments1.t
   sd/trunk/t/sd-hm/group.t
   sd/trunk/t/sd-hm/tag.t
   sd/trunk/t/sd-hm/update.t

Log:
* fix tests

Modified: sd/trunk/t/sd-hm/attachments.t
==============================================================================
--- sd/trunk/t/sd-hm/attachments.t	(original)
+++ sd/trunk/t/sd-hm/attachments.t	Sat Dec  6 07:34:15 2008
@@ -3,6 +3,7 @@
 use strict;
 use Prophet::Test;
 use App::SD::Test;
+$ENV{'EMAIL'} = 'onlooker at example.com';
 
 BEGIN {
     if ( $ENV{'JIFTY_APP_ROOT'} ) {

Modified: sd/trunk/t/sd-hm/basics.t
==============================================================================
--- sd/trunk/t/sd-hm/basics.t	(original)
+++ sd/trunk/t/sd-hm/basics.t	Sat Dec  6 07:34:15 2008
@@ -3,10 +3,11 @@
 use strict;
 use Prophet::Test;
 use App::SD::Test;
+$ENV{'EMAIL'} = 'onlooker at example.com';
 
 BEGIN {
     if ( $ENV{'JIFTY_APP_ROOT'} ) {
-        plan tests => 10;
+        plan tests => 9;
         require File::Temp;
         $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'} = File::Temp::tempdir( CLEANUP => 0 ) . '/_svb';
         diag $ENV{'PROPHET_REPO'};
@@ -21,17 +22,19 @@
 
 my $server = BTDT::Test->make_server;
 my $URL    = $server->started_ok;
-
 $URL =~ s|http://|http://onlooker\@example.com:something@|;
 
-ok( 1, "Loaded the test script" );
-my $root = BTDT::CurrentUser->superuser;
-my $as_root = BTDT::Model::User->new( current_user => $root );
-$as_root->load_by_cols( email => 'onlooker at example.com' );
-my ( $val, $msg ) = $as_root->set_accepted_eula_version( Jifty->config->app('EULAVersion') );
-ok( $val, $msg );
-my $GOODUSER = BTDT::CurrentUser->new( email => 'onlooker at example.com' );
-$GOODUSER->user_object->set_accepted_eula_version( Jifty->config->app('EULAVersion') );
+my $GOODUSER;
+{
+    my $root = BTDT::CurrentUser->superuser;
+    my $as_root = BTDT::Model::User->new( current_user => $root );
+    $as_root->load_by_cols( email => 'onlooker at example.com' );
+    my ( $val, $msg ) = $as_root->set_accepted_eula_version( Jifty->config->app('EULAVersion') );
+    ok( $val, $msg );
+    $GOODUSER = BTDT::CurrentUser->new( email => 'onlooker at example.com' );
+    $GOODUSER->user_object->set_accepted_eula_version( Jifty->config->app('EULAVersion') );
+}
+
 my $task = BTDT::Model::Task->new( current_user => $GOODUSER );
 $task->create(
     summary     => "Fly Man",
@@ -43,7 +46,6 @@
 
 my $sd_hm_url = "hm:$URL";
 eval { ( $ret, $out, $err ) = run_script( 'sd', [ 'clone', '--from', $sd_hm_url ] ) };
-diag $err;
 
 my ($flyman_uuid, $flyman_id );
 run_output_matches( 'sd', [ 'ticket', 'list', '--regex', '.' ], [qr/(.*?)(?{ $flyman_uuid = $1 }) Fly Man (.*)/] );
@@ -62,9 +64,6 @@
 
 my ($yatta_id, $yatta_uuid) = create_ticket_ok( '--summary', 'YATTA', '--status', 'new' );
 
-diag $yatta_uuid;
-
-
 run_output_matches_unordered(
     'sd',
     [ 'ticket', 'list', '--regex', '.' ],

Modified: sd/trunk/t/sd-hm/comments.t
==============================================================================
--- sd/trunk/t/sd-hm/comments.t	(original)
+++ sd/trunk/t/sd-hm/comments.t	Sat Dec  6 07:34:15 2008
@@ -3,6 +3,7 @@
 use strict;
 use Prophet::Test;
 use App::SD::Test;
+$ENV{'EMAIL'} = 'onlooker at example.com';
 
 BEGIN {
     if ( $ENV{'JIFTY_APP_ROOT'} ) {

Modified: sd/trunk/t/sd-hm/comments1.t
==============================================================================
--- sd/trunk/t/sd-hm/comments1.t	(original)
+++ sd/trunk/t/sd-hm/comments1.t	Sat Dec  6 07:34:15 2008
@@ -3,6 +3,7 @@
 use strict;
 use Prophet::Test;
 use App::SD::Test;
+$ENV{'EMAIL'} = 'onlooker at example.com';
 
 BEGIN {
     if ( $ENV{'JIFTY_APP_ROOT'} ) {

Modified: sd/trunk/t/sd-hm/group.t
==============================================================================
--- sd/trunk/t/sd-hm/group.t	(original)
+++ sd/trunk/t/sd-hm/group.t	Sat Dec  6 07:34:15 2008
@@ -4,6 +4,7 @@
 use Prophet::Test;
 use App::SD::Test;
 use File::Path qw(rmtree);
+$ENV{'EMAIL'} = 'onlooker at example.com';
 
 BEGIN {
     if ( $ENV{'JIFTY_APP_ROOT'} ) {

Modified: sd/trunk/t/sd-hm/tag.t
==============================================================================
--- sd/trunk/t/sd-hm/tag.t	(original)
+++ sd/trunk/t/sd-hm/tag.t	Sat Dec  6 07:34:15 2008
@@ -3,6 +3,7 @@
 use strict;
 use Prophet::Test;
 use App::SD::Test;
+$ENV{'EMAIL'} = 'onlooker at example.com';
 
 BEGIN {
     if ( $ENV{'JIFTY_APP_ROOT'} ) {

Modified: sd/trunk/t/sd-hm/update.t
==============================================================================
--- sd/trunk/t/sd-hm/update.t	(original)
+++ sd/trunk/t/sd-hm/update.t	Sat Dec  6 07:34:15 2008
@@ -3,6 +3,7 @@
 use strict;
 use Prophet::Test;
 use App::SD::Test;
+$ENV{'EMAIL'} = 'onlooker at example.com';
 
 BEGIN {
     if ( $ENV{'JIFTY_APP_ROOT'} ) {



More information about the Bps-public-commit mailing list