App-SD

 view release on metacpan or  search on metacpan

t/03-update-ticket-with-editor.t  view on Meta::CPAN

    [
        'Trying to change common_ticket_props from ["id","summary","status","milestone","component","owner","created","due","creator","reporter","original_replica"] to ["id","summary","status","milestone","owner","created","due","creator","reporter",...
        ' -> Changed.',
    ]
);

# create ticket
my ($ticket_id, $ticket_uuid) = create_ticket_ok( '--summary', 'zomg!',
    '--owner', 'foo@bar.com');

# verify that it's correct
run_output_matches( 'sd', [ 'ticket', 'basics', '--batch', '--id', $ticket_id ],
    [
        "id: $ticket_id ($ticket_uuid)",
        'summary: zomg!',
        'status: new',
        'milestone: alpha',
        'owner: foo@bar.com',
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        'reporter: ' . $ENV{PROPHET_EMAIL},

t/04-update-ticket-comment-with-editor.t  view on Meta::CPAN

my $replica_uuid = replica_uuid;

# create ticket
my ($ticket_id, $ticket_uuid) = create_ticket_ok( '--summary', 'zomg!' );

# create comment
my ($comment_id, $comment_uuid) = create_ticket_comment_ok(
    '--content' => 'a new comment', '--id' => $ticket_id
);

# verify that it's correct (test prop won't be shown)
run_output_matches( 'sd',
    [ 'ticket', 'comment', 'show', '--batch', '--id', $comment_id ],
    [
        "id: $comment_id ($comment_uuid)",
        qr/a new comment/,
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        "original_replica: $replica_uuid",
        "ticket: $ticket_uuid",
    ]

t/scripts/ticket-create-editor.pl  view on Meta::CPAN

                $args{ticket_uuid}, $errors);
            if ($template_ok) {
                print "template ok!\n";
            } else {
                print "template not ok! errors were:\n";
                map { print $_ . "\n" } @$errors;
            }
        }

      },
    verify_callback => sub {},
  );

t/scripts/ticket-update-editor.pl  view on Meta::CPAN

                $args{valid_template}, $args{replica_uuid},
                $args{ticket_uuid}, $errors);
            if ($template_ok) {
                print "template ok!\n";
            } else {
                print "template not ok! errors were:\n";
                map { print $_ . "\n" } @$errors;
            }
        }
    },
    verify_callback => sub {},
);

t/sd-redmine/basic.t  view on Meta::CPAN

my $r = new_redmine();

plan tests => 2;

note "create 5 new tickets in redmine.";
my @tickets = new_tickets($r, 5);

note "- created tickets: " . join(",", map { $_->id } @tickets);

note "sd clone them, verify their summary text.";
my $sd_redmine_url = "redmine:" . $r->connection->url;
my $user = $r->connection->user;
my $pass = $r->connection->password;
$sd_redmine_url =~ s|http://|http://${user}:${pass}@|;

diag "sd clone --from ${sd_redmine_url} --non-interactive";

my ( $ret, $out, $err )
    = run_script( 'sd',
        [ 'clone', '--from', $sd_redmine_url, '--non-interactive' ] );

t/sd-redmine/basic.t  view on Meta::CPAN

note "close one of them, push it to server.";
( $ret, $out, $err ) = run_script( 'sd', [ "ticket", "update", $tickets[0]->id, "--", "status=Closed" ] );
like( $out, qr/^Ticket(.*)updated/ );
diag($out);
diag($err);

( $ret, $out, $err ) = run_script( 'sd', [ 'push', '--to', $sd_redmine_url ] );
diag($out);
diag($err);

note "verify the update with Net::Redmine";
my $ticket = $r->lookup(ticket => { id => $tickets[0]->id });

is($ticket->status, "Closed");

##
sub count_tickets_in_sd {
    my $self = shift;

    my ( $ret, $out, $err ) = run_script(
        'sd' => [ 'ticket', 'list', '--regex', '.' ]