[Bps-public-commit] r16272 - sd/trunk/t

[ruz at bestpractical.com]

Author: ruz
Date: Fri Oct 10 20:37:20 2008
New Revision: 16272

Added:
   sd/trunk/t/sd-hm-group.t

Log:
* tests for syncing with fixed group

Added: sd/trunk/t/sd-hm-group.t
==============================================================================
--- (empty file)
+++ sd/trunk/t/sd-hm-group.t	Fri Oct 10 20:37:20 2008
@@ -0,0 +1,138 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+use Prophet::Test;
+use App::SD::Test;
+use File::Path qw(rmtree);
+
+BEGIN {
+    if ( $ENV{'JIFTY_APP_ROOT'} ) {
+        plan tests => 18;
+        require File::Temp;
+        $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'} = File::Temp::tempdir( CLEANUP => 0 ) . '/_svb';
+        diag $ENV{'PROPHET_REPO'};
+        eval "use Jifty";
+        push @INC, File::Spec->catdir( Jifty::Util->app_root, "lib" );
+    } else {
+        plan skip_all => "You must define a JIFTY_APP_ROOT environment variable which points to your hiveminder source tree";
+    }
+}
+
+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@|;
+
+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 ( $val, $msg ) = $as_root->set_pro_account(1);
+ok( $val, $msg );
+
+my $GOODUSER = BTDT::CurrentUser->new( email => 'onlooker at example.com' );
+$GOODUSER->user_object->set_accepted_eula_version( Jifty->config->app('EULAVersion') );
+
+# create a group
+my ($gname, $gid) = ('mygroup', 0);
+{
+    my $group = BTDT::Model::Group->new( current_user => $GOODUSER );
+    $group->create( name => $gname );
+    $gid = $group->id;
+    ok( $gid, "created group #". $gid );
+}
+
+my $task = BTDT::Model::Task->new( current_user => $GOODUSER );
+$task->create(
+    summary     => "Fly Man",
+    group       => $gid,
+);
+
+{
+    my $task = BTDT::Model::Task->new( current_user => $GOODUSER );
+    $task->create(
+        summary     => "without the group",
+    );
+    diag $task->id;
+}
+
+my ( $ret, $out, $err );
+
+my $sd_hm_url = "hm:$URL|group=$gid";
+
+# pull
+{
+    eval { ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_hm_url ] ) };
+    like($out, qr/one changeset/, "only one change");
+}
+
+my ($flyman_uuid, $flyman_id );
+{
+    run_output_matches( 'sd', [ 'ticket', 'list', '--regex', '.' ], [qr/(.*?)(?{ $flyman_uuid = $1 }) Fly Man (.*)/] );
+    ( $ret, $out, $err ) = run_script( 'sd', [ 'ticket', 'show', '--batch', '--id', $flyman_uuid ] );
+    $flyman_id = $1 if $out =~ /^id: (\d+) /m;
+}
+
+{
+    $task->set_summary('Crash Man');
+    ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_hm_url ] );
+    run_output_matches_unordered( 'sd', [ 'ticket', 'list', '--regex', '.' ], ["$flyman_uuid Crash Man (no status)"] );
+}
+
+
+my ($yatta_id, $yatta_uuid) = create_ticket_ok( '--summary', 'YATTA', '--status', 'new' );
+diag $yatta_uuid;
+
+run_output_matches_unordered(
+    'sd',
+    [ 'ticket', 'list', '--regex', '.' ],
+    [ "$yatta_id YATTA new", "$flyman_id Crash Man (no status)" ]
+);
+
+{
+    ( $ret, $out, $err ) = run_script( 'sd', [ 'push','--to', $sd_hm_url ] );
+    diag $err;
+    ok( $task->load_by_cols( summary => 'YATTA' ), "loaded HM task" );
+    is( $task->group->id, $gid, "is in correct group" );
+}
+
+{
+    ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_hm_url ] );
+    run_output_matches_unordered(
+        'sd',
+        [ 'ticket',                     'list', '--regex', '.' ],
+        [ "$yatta_id YATTA new", "$flyman_id Crash Man (no status)" ]
+    );
+}
+
+{
+    $task->set_summary('KILL');
+    ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_hm_url ] );
+    run_output_matches_unordered(
+        'sd',
+        [ 'ticket',                    'list', '--regex', '.' ],
+        [ "$yatta_id KILL new", "$flyman_id Crash Man (no status)" ]
+    );
+}
+
+rmtree( $ENV{'SD_REPO'}, {keep_root => 1} );
+
+
+my $sd_hm_url = "hm:$URL|group=$gname";
+# pull
+{
+    eval { ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_hm_url ] ) };
+    like($out, qr/2 changesets/, "merged changes");
+}
+
+{
+    my ($yatta_id, $yatta_uuid) = create_ticket_ok( '--summary', 'BLABLA', '--status', 'new' );
+    ( $ret, $out, $err ) = run_script( 'sd', [ 'push','--to', $sd_hm_url ] );
+    ok( $task->load_by_cols( summary => 'BLABLA' ), "loaded HM task" );
+    is( $task->group->id, $gid, "is in correct group" );
+}
+