[Bps-public-commit] r16948 - sd/trunk/t/sd-rt

[ruz at bestpractical.com]

Author: ruz
Date: Thu Nov 20 11:38:16 2008
New Revision: 16948

Added:
   sd/trunk/t/sd-rt/pull-watchers.t

Log:
* test pulling watchers from RT into SD

Added: sd/trunk/t/sd-rt/pull-watchers.t
==============================================================================
--- (empty file)
+++ sd/trunk/t/sd-rt/pull-watchers.t	Thu Nov 20 11:38:16 2008
@@ -0,0 +1,292 @@
+#!/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;
+use warnings;
+
+use Test::More;
+use Path::Class;
+use File::Path qw(rmtree);
+
+BEGIN {
+    unless ( eval 'use RT::Test; 1' ) {
+        diag $@ if $ENV{'TEST_VERBOSE'};
+        plan skip_all => 'requires RT 3.8 or newer to run tests.';
+    }
+}
+
+use Prophet::Test tests => 47;
+use App::SD::Test;
+
+no warnings 'once';
+
+RT::Handle->InsertData( $RT::EtcPath . '/initialdata' );
+use Test::More;
+
+BEGIN {
+    require File::Temp;
+    $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'}
+        = File::Temp::tempdir( CLEANUP => 0 ) . '/_svb';
+    diag "export SD_REPO=" . $ENV{'PROPHET_REPO'} . "\n";
+}
+
+my $IMAGE_FILE = qw|t/data/bplogo.gif|;
+
+my ( $url, $m ) = RT::Test->started_ok;
+
+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'";
+
+{
+    flush_sd();
+
+    my $ticket = RT::Ticket->new( $RT::SystemUser );
+    my ($tid) = $ticket->Create(
+        Queue => 'General', Status => 'new', Subject => 'Fly Man',
+    );
+    ok $tid, "created ticket #$tid in RT";
+
+    my ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    my $flyman_id;
+    run_output_matches(
+        'sd', [qw(ticket list --regex .)],
+        [qr/(.*?)(?{ $flyman_id = $1 }) Fly Man new/]
+    );
+    ok $flyman_id, 'pulled ticket';
+
+    my ($res) = $ticket->SetStatus('deleted');
+    ok $res, 'deleted ticket in RT';
+}
+
+{
+    flush_sd();
+
+    my $ticket = RT::Ticket->new( $RT::SystemUser );
+    my ($rt_tid) = $ticket->Create(
+        Queue => 'General', Status => 'new', Subject => 'Fly Man',
+        Requestor => 'test at localhost',
+    );
+    ok $rt_tid, "created ticket #$rt_tid in RT";
+
+    my ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    my $sd_tid;
+    run_output_matches(
+        'sd', [qw(ticket list --regex .)],
+        [qr/(.*?)(?{ $sd_tid = $1 }) Fly Man new/]
+    );
+    ok $sd_tid, 'pulled ticket';
+
+    my $info = get_ticket_info($sd_tid);
+    is $info->{'metadata'}{'reported_by'}, 'test at localhost',
+        'correct requestor';
+
+    my ($res) = $ticket->SetStatus('deleted');
+    ok $res, 'deleted ticket in RT';
+}
+
+{
+    flush_sd();
+
+    my $ticket = RT::Ticket->new( $RT::SystemUser );
+    my ($rt_tid) = $ticket->Create(
+        Queue => 'General', Status => 'new', Subject => 'Fly Man',
+        Requestor => ['test at localhost', 'another at localhost'],
+    );
+    ok $rt_tid, "created ticket #$rt_tid in RT";
+
+    my ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    my $sd_tid;
+    run_output_matches(
+        'sd', [qw(ticket list --regex .)],
+        [qr/(.*?)(?{ $sd_tid = $1 }) Fly Man new/]
+    );
+    ok $sd_tid, 'pulled ticket';
+
+    my $info = get_ticket_info($sd_tid);
+    is $info->{'metadata'}{'reported_by'}, 'another at localhost, test at localhost',
+        'correct requestors';
+
+    my ($res) = $ticket->SetStatus('deleted');
+    ok $res, 'deleted ticket in RT';
+}
+
+# create, add requestor, pull
+{
+    my $ticket = RT::Ticket->new( $RT::SystemUser );
+    my ($rt_tid) = $ticket->Create(
+        Queue => 'General', Status => 'new', Subject => 'Fly Man',
+        Requestor => 'test at localhost',
+    );
+    ok $rt_tid, "created ticket #$rt_tid in RT";
+
+    my ($res) = $ticket->AddWatcher( Type => 'Requestor', Email => 'another at localhost' );
+    ok $res, "added requestor";
+
+    flush_sd();
+    my ($ret, $out, $err) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    my $sd_tid;
+    run_output_matches(
+        'sd', [qw(ticket list --regex .)],
+        [qr/(.*?)(?{ $sd_tid = $1 }) Fly Man new/]
+    );
+    ok $sd_tid, 'pulled ticket';
+
+    my $info = get_ticket_info($sd_tid);
+    is $info->{'metadata'}{'reported_by'}, 'another at localhost, test at localhost',
+        'correct requestor';
+
+    ($res) = $ticket->SetStatus('deleted');
+    ok $res, 'deleted ticket in RT';
+}
+
+# create, pull, add requestor, pull
+{
+    flush_sd();
+
+    my $ticket = RT::Ticket->new( $RT::SystemUser );
+    my ($rt_tid) = $ticket->Create(
+        Queue => 'General', Status => 'new', Subject => 'Fly Man',
+        Requestor => 'test at localhost',
+    );
+    ok $rt_tid, "created ticket #$rt_tid in RT";
+
+    my ($ret, $out, $err) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    my $sd_tid;
+    run_output_matches(
+        'sd', [qw(ticket list --regex .)],
+        [qr/(.*?)(?{ $sd_tid = $1 }) Fly Man new/]
+    );
+    ok $sd_tid, 'pulled ticket';
+
+    my $info = get_ticket_info($sd_tid);
+    is $info->{'metadata'}{'reported_by'}, 'test at localhost',
+        'correct requestor';
+
+    my ($res) = $ticket->AddWatcher( Type => 'Requestor', Email => 'another at localhost' );
+    ok $res, "added requestor";
+
+    ($ret, $out, $err) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    $info = get_ticket_info($sd_tid);
+    is $info->{'metadata'}{'reported_by'}, 'another at localhost, test at localhost',
+        'correct requestor';
+
+    ($res) = $ticket->SetStatus('deleted');
+    ok $res, 'deleted ticket in RT';
+}
+
+# create without requestor, pull, add requestor, pull
+{
+    flush_sd();
+
+    my $ticket = RT::Ticket->new( $RT::SystemUser );
+    my ($rt_tid) = $ticket->Create(
+        Queue => 'General', Status => 'new', Subject => 'Fly Man',
+    );
+    ok $rt_tid, "created ticket #$rt_tid in RT";
+
+    my ($ret, $out, $err) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    my $sd_tid;
+    run_output_matches(
+        'sd', [qw(ticket list --regex .)],
+        [qr/(.*?)(?{ $sd_tid = $1 }) Fly Man new/]
+    );
+    ok $sd_tid, 'pulled ticket';
+
+    my $info = get_ticket_info($sd_tid);
+    ok !$info->{'metadata'}{'reported_by'}, 'correct requestor';
+
+    my ($res) = $ticket->AddWatcher( Type => 'Requestor', Email => 'another at localhost' );
+    ok $res, "added requestor";
+
+    ($ret, $out, $err) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    $info = get_ticket_info($sd_tid);
+    is $info->{'metadata'}{'reported_by'}, 'another at localhost',
+        'correct requestor';
+
+    ($res) = $ticket->SetStatus('deleted');
+    ok $res, 'deleted ticket in RT';
+}
+
+# create without requestor, add requestor, pull
+{
+    flush_sd();
+
+    my $ticket = RT::Ticket->new( $RT::SystemUser );
+    my ($rt_tid) = $ticket->Create(
+        Queue => 'General', Status => 'new', Subject => 'Fly Man',
+    );
+    ok $rt_tid, "created ticket #$rt_tid in RT";
+
+    my ($res) = $ticket->AddWatcher( Type => 'Requestor', Email => 'another at localhost' );
+    ok $res, "added requestor";
+
+    my ($ret, $out, $err) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    my $sd_tid;
+    run_output_matches(
+        'sd', [qw(ticket list --regex .)],
+        [qr/(.*?)(?{ $sd_tid = $1 }) Fly Man new/]
+    );
+    ok $sd_tid, 'pulled ticket';
+
+    my $info = get_ticket_info($sd_tid);
+    is $info->{'metadata'}{'reported_by'}, 'another at localhost',
+        'correct requestor';
+
+    ($res) = $ticket->SetStatus('deleted');
+    ok $res, 'deleted ticket in RT';
+}
+
+# create, pull, del requestor, pull
+{
+    flush_sd();
+
+    my $ticket = RT::Ticket->new( $RT::SystemUser );
+    my ($rt_tid) = $ticket->Create(
+        Queue => 'General', Status => 'new', Subject => 'Fly Man',
+        Requestor => 'test at localhost',
+    );
+    ok $rt_tid, "created ticket #$rt_tid in RT";
+
+    my ($ret, $out, $err) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    my $sd_tid;
+    run_output_matches(
+        'sd', [qw(ticket list --regex .)],
+        [qr/(.*?)(?{ $sd_tid = $1 }) Fly Man new/]
+    );
+    ok $sd_tid, 'pulled ticket';
+
+    my $info = get_ticket_info($sd_tid);
+    is $info->{'metadata'}{'reported_by'}, 'test at localhost',
+        'correct requestor';
+
+    my ($res) = $ticket->DeleteWatcher( Type => 'Requestor', Email => 'test at localhost' );
+    ok $res, "deleted requestor";
+
+    ($ret, $out, $err) = run_script( 'sd', [ 'pull', '--from', $sd_rt_url ] );
+
+    $info = get_ticket_info($sd_tid);
+    ok !$info->{'metadata'}{'reported_by'}, 'correct requestor';
+}
+
+sub flush_sd {
+    rmtree( $ENV{'SD_REPO'} );
+    run_script( 'sd', ['init'] );
+}
+