view release on metacpan or  search on metacpan

t/sd-dispatcher.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use Prophet::Test tests => 26;
use App::SD::Test;
no warnings 'once';

BEGIN {
    require File::Temp;
    $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'} = File::Temp::tempdir( CLEANUP => 1 ) . '/_svb';
}

# tests for pseudo-commands that are only sugar in the dispatcher

run_script( 'sd', [ 'init', '--non-interactive']);

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

run_output_matches( 'sd', [ 'ticket',  
    'list', '--regex', '.' ],
    [  qr/(\d+) YATTA new/]
);

run_output_matches( 'sd', [ 'list', 'ticket',  
    '--regex', '.' ],
    [  qr/(\d+) YATTA new/]
);

# test claim
run_output_matches( 'sd', [ 'ticket', 'claim', $yatta_id ],
    [ "Ticket $yatta_id ($yatta_uuid) updated." ]
);

run_output_matches( 'sd', [ 'ticket', 'basics', '--batch', '--id', $yatta_id ],
    [
        "id: $yatta_id ($yatta_uuid)",
        'summary: YATTA',
        'status: new',
        'milestone: alpha',
        'component: core',
        'owner: ' . $ENV{PROPHET_EMAIL},
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        'reporter: ' . $ENV{PROPHET_EMAIL},
        "original_replica: " . replica_uuid,
    ]
);

# revert back the change so we can check the alias for claim, take
run_output_matches( 'sd', [ 'ticket', 'update', $yatta_id, '--', 'owner', '' ],
    [ "Ticket $yatta_id ($yatta_uuid) updated." ]
);

run_output_matches( 'sd', [ 'ticket', 'basics', '--batch', '--id', $yatta_id ],
    [
        "id: $yatta_id ($yatta_uuid)",
        'summary: YATTA',
        'status: new',
        'milestone: alpha',
        'component: core',
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        'reporter: ' . $ENV{PROPHET_EMAIL},
        "original_replica: " . replica_uuid,
    ]
);

# test take
run_output_matches( 'sd', [ 'ticket', 'take', $yatta_id ],
    [ "Ticket $yatta_id ($yatta_uuid) updated." ]
);

run_output_matches( 'sd', [ 'ticket', 'basics', '--batch', '--id', $yatta_id ],
    [
        "id: $yatta_id ($yatta_uuid)",
        'summary: YATTA',
        'status: new',
        'milestone: alpha',
        'component: core',
        'owner: ' . $ENV{PROPHET_EMAIL},
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        'reporter: ' . $ENV{PROPHET_EMAIL},
        "original_replica: " . replica_uuid,
    ]
);

# test resolve
run_output_matches( 'sd', [ 'ticket', 'resolve', $yatta_id ],
    [ "Ticket $yatta_id ($yatta_uuid) updated." ]
);

run_output_matches( 'sd', [ 'ticket', 'basics', '--batch', '--id', $yatta_id ],
    [
        "id: $yatta_id ($yatta_uuid)",
        'summary: YATTA',
        'status: closed',
        'milestone: alpha',
        'component: core',
        'owner: ' . $ENV{PROPHET_EMAIL},
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        'reporter: ' . $ENV{PROPHET_EMAIL},
        "original_replica: " . replica_uuid,
    ]
);

# revert that change so we can test resolve's alias, close
run_output_matches( 'sd', [ 'ticket', 'update', $yatta_id, '--', 'status', 'new' ],
    [ "Ticket $yatta_id ($yatta_uuid) updated." ]
);

run_output_matches( 'sd', [ 'ticket', 'basics', '--batch', '--id', $yatta_id ],
    [
        "id: $yatta_id ($yatta_uuid)",
        'summary: YATTA',
        'status: new',
        'milestone: alpha',
        'component: core',
        'owner: ' . $ENV{PROPHET_EMAIL},
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        'reporter: ' . $ENV{PROPHET_EMAIL},
        "original_replica: " . replica_uuid,
    ]
);

# test close
run_output_matches( 'sd', [ 'ticket', 'close', $yatta_id ],
    [ "Ticket $yatta_id ($yatta_uuid) updated." ]
);

run_output_matches( 'sd', [ 'ticket', 'basics', '--batch', '--id', $yatta_id ],
    [
        "id: $yatta_id ($yatta_uuid)",
        'summary: YATTA',
        'status: closed',
        'milestone: alpha',
        'component: core',
        'owner: ' . $ENV{PROPHET_EMAIL},
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        'reporter: ' . $ENV{PROPHET_EMAIL},
        "original_replica: " . replica_uuid,
    ]
);

# test give
run_output_matches( 'sd', [ 'ticket', 'give', $yatta_id, 'jesse@bestpractical.com' ],
    [ "Ticket $yatta_id ($yatta_uuid) updated." ]
);

run_output_matches( 'sd', [ 'ticket', 'basics', '--batch', '--id', $yatta_id ],
    [
        "id: $yatta_id ($yatta_uuid)",
        'summary: YATTA',
        'status: closed',
        'milestone: alpha',
        'component: core',
        'owner: jesse@bestpractical.com',
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        'reporter: ' . $ENV{PROPHET_EMAIL},
        "original_replica: " . replica_uuid,
    ]
);

run_output_matches( 'sd', [ 'ticket', 'assign', $yatta_id, 'spang@bestpractical.com' ],
    [ "Ticket $yatta_id ($yatta_uuid) updated." ]
);

run_output_matches( 'sd', [ 'ticket', 'basics', '--batch', '--id', $yatta_id ],
    [
        "id: $yatta_id ($yatta_uuid)",
        'summary: YATTA',
        'status: closed',
        'milestone: alpha',
        'component: core',
        'owner: spang@bestpractical.com',
        qr/^created: \d{4}-\d{2}-\d{2}.+$/,
        qr/^creator: /,
        'reporter: ' . $ENV{PROPHET_EMAIL},
        "original_replica: " . replica_uuid,
    ]
);

run_output_matches( 'sd', [ 'ticket', 'give' ],
    [],
    [ 'Usage: give <id> <email>' ]
);
run_output_matches( 'sd', [ 'give' , 'ticket' ],
    [],
    [ 'Usage: give <id> <email>' ]
);

run_output_matches( 'sd', [ 'ticket', 'give', $yatta_id ],
    [],
    [ 'Usage: give <id> <email>' ]
);

run_output_matches( 'sd', [ 'ticket', 'give', 'foo@bar.com', $yatta_id ],
    [],
    [ 'Usage: give <id> <email>' ]
);

run_output_matches( 'sd', [ 'ticket', 'give', 'spang@bestpractical.com' ],
    [],
    [ 'Usage: give <id> <email>' ]
);

require App::SD;
run_output_matches( 'sd', [ '-V' ],
    [ "sd $App::SD::VERSION" ], 'version short' );
run_output_matches( 'sd', [ '--version' ],
    [ "sd $App::SD::VERSION" ], 'version long' );