[Bps-public-commit] r15651 - in sd/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Fri Aug 29 16:35:08 2008
New Revision: 15651

Added:
   sd/trunk/t/sd-rt-hm-single.t
Modified:
   sd/trunk/   (props changed)

Log:
 r70706 at onn:  sartak | 2008-08-29 16:34:45 -0400
 Re-add dropped test file


Added: sd/trunk/t/sd-rt-hm-single.t
==============================================================================
--- (empty file)
+++ sd/trunk/t/sd-rt-hm-single.t	Fri Aug 29 16:35:08 2008
@@ -0,0 +1,128 @@
+#!/usr/bin/perl -w
+
+# to run:
+#
+# RT_DBA_USER=root RT_DBA_PASSWORD= prove -lv -I/Users/clkao/work/bps/rt-3.7/lib t/sd-rt.t
+use strict;
+
+# setup for rt
+use Prophet::Test;
+use App::SD::Test;
+
+BEGIN {
+    unless (eval 'use RT::Test (); 1') {
+        diag $@;
+        plan skip_all => 'requires 3.7 to run tests.';
+    }
+}
+
+BEGIN {
+    unless ( $ENV{'JIFTY_APP_ROOT'} ) {
+        plan skip_all => "You must define a JIFTY_APP_ROOT environment variable which points to your hiveminder source tree";
+    }
+    require File::Temp;
+    eval "use Jifty;";
+    push @INC, File::Spec->catdir( Jifty::Util->app_root, "lib" );
+}
+
+plan tests => 9;
+
+RT::Test->import();
+
+no warnings 'once';
+
+RT::Handle->InsertData( $RT::EtcPath . '/initialdata' );
+
+eval 'use BTDT::Test; 1;' or die "$@";
+
+my $server = BTDT::Test->make_server;
+my $URL    = $server->started_ok;
+
+$URL =~ s|http://|http://onlooker\@example.com:something@|;
+my $sd_hm_url = "hm:$URL";
+
+ok( 1, "Loaded the test script" );
+
+my ( $url, $m ) = RT::Test->started_ok;
+diag("RT server started at $url");
+
+use RT::Client::REST;
+use RT::Client::REST::Ticket;
+my $rt = RT::Client::REST->new( server => $url );
+$rt->login( username => 'root', password => 'password' );
+
+$url =~ s|http://|http://root:password@|;
+my $sd_rt_url = "rt:$url|General|Status!='resolved'";
+
+my $ticket = RT::Client::REST::Ticket->new(
+    rt      => $rt,
+    queue   => 'General',
+    status  => 'new',
+    subject => 'Fly Man',
+)->store( text => "Ticket Comment" );
+
+# setup for hm
+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 $task = BTDT::Model::Task->new( current_user => $GOODUSER );
+$task->create(
+    summary     => "YATTA",
+    description => '',
+);
+
+my ( $yatta_id, $flyman_id, $flyman_uuid, $yatta_uuid);
+my ( $ret, $out, $err );
+
+diag("Pull from Hiveminder");
+
+as_bob {
+    local $ENV{SD_REPO} = $ENV{'PROPHET_REPO'};
+    ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_hm_url ] );
+    diag($err) if ($err);
+    run_output_matches( 'sd', [ 'ticket', 'list', '--regex', '.' ], [qr/^(.*?)(?{ $yatta_id = $1 }) YATTA .*/] );
+    $yatta_uuid = get_uuid_for_luid($yatta_id);
+
+    run_output_matches(
+        'sd',
+        [ 'ticket', 'list', '--regex', '.' ],
+        [ "$yatta_id YATTA (no status)" ]
+    );
+};
+
+diag("Pull from RT");
+
+as_bob {
+    local $ENV{SD_REPO} = $ENV{'PROPHET_REPO'};
+
+    diag("Bob pulling from RT");
+    ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+    diag($err) if ($err);
+    run_output_matches( 'sd', [ 'ticket', 'list', '--regex', 'Fly Man' ], [qr/^(.*?)(?{ $flyman_id = $1 }) Fly Man new/] );
+    $flyman_uuid = get_uuid_for_luid($flyman_id);
+
+    run_output_matches_unordered(
+        'sd',
+        [ 'ticket',                             'list', '--regex', '.' ],
+        [ reverse sort "$yatta_id YATTA (no status)", "$flyman_id Fly Man new" ]
+    );
+};
+
+diag("Push to RT");
+
+as_bob {
+    local $ENV{SD_REPO} = $ENV{'PROPHET_REPO'};
+    ( $ret, $out, $err ) = run_script( 'sd', [ 'push', '--to', $sd_rt_url ] );
+    diag($err) if ($err);
+
+    my @ids = $rt->search(
+        type => 'ticket',
+        query => "Subject LIKE 'YATTA'",
+    );
+    is(@ids, 1, "pushed YATTA ticket to RT");
+};
+