view release on metacpan or  search on metacpan

t/sd-hm/group.t  view on Meta::CPAN

$as_root->load_by_cols( email => 'onlooker@example.com' );
my ( $val, $msg ) = $as_root->set_accepted_eula_version( Jifty->config->app('EULAVersion') );
ok( $val, $msg );
( $val, $msg ) = $as_root->set_pro_account(1);
ok( $val, $msg );

my $GOODUSER = BTDT::CurrentUser->new( email => 'onlooker@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',
            [ 'clone', '--from', $sd_hm_url, '--non-interactive' ] ) };
    diag($out);
    diag($err);
}

t/sd-hm/group.t  view on Meta::CPAN

my ($yatta_id, $yatta_uuid) = create_ticket_ok( '--summary', 'YATTA', '--status', 'new' );

run_output_matches_unordered(
    'sd', [ qw(ticket list --regex .) ],
    [ "$yatta_id YATTA new", "$flyman_id Crash Man open" ]
);

{
    my ( $ret, $out, $err ) = run_script( 'sd', [ 'push','--to', $sd_hm_url ] );
    ok( $task->load_by_cols( summary => 'YATTA' ), "loaded HM task #". $task->id );
    is( $task->group->id, $gid, "is in correct group" );
}

{
    my ( $ret, $out, $err ) = run_script( 'sd', [ 'pull', '--from', $sd_hm_url ] );
    run_output_matches_unordered(
        'sd', [ qw(ticket list --regex .) ],
        [ "$yatta_id YATTA new", "$flyman_id Crash Man open" ]
    );
}

t/sd-hm/group.t  view on Meta::CPAN

            [ 'clone', '--from', $sd_hm_url, '--non-interactive' ] ) };
    TODO: { local $TODO = ' Investigate changeset count. Why do we have 2 extra?';
    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" );
}