view release on metacpan or  search on metacpan

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

#!/usr/bin/perl -w

use strict;

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

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

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


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

run_output_matches( 'sd', [ 'ticket',  
    'list', '--regex', '.' ],
    [ qr/$yatta_id YATTA new/]
);

my $attachment_id;
my $attachment_uuid;
run_output_matches('sd', [qw/ticket attachment create --uuid/, $yatta_uuid, '--content', 'stub', '--', '--name', "paper_order.doc"], [qr/Created attachment (\d+)(?{ $attachment_id = $1}) \((.*)(?{ $attachment_uuid = $2})\)/], [], "Added a attachment"...
ok($attachment_id, " $attachment_id = $attachment_uuid");

run_output_matches('sd', [qw/ticket attachment list --uuid/, $yatta_uuid], [qr/\d+ paper_order.doc text\/plain/,], [], "Found the attachment");
run_output_matches(
    'sd',
    [ qw/ticket attachment show --batch --id/, $attachment_id ],
    [ 
        qr/id: $attachment_id \($attachment_uuid\)/, 
        "content: stub",
        "content_type: text/plain",
        qr/created: \d{4}-\d{2}-\d{2}.+/,
        qr/creator: /,
        qr/paper_order.doc/,
        "original_replica: $replica_uuid",
        "ticket: $yatta_uuid",
    ],
    [],
    "Found the attachment"
);
run_output_matches(
    'sd',
    [   qw/ticket attachment update --uuid/, $attachment_uuid,
        '--',
        qw/--name/,                          "plague_recipe.doc"
    ],
    [qr/Attachment \d+ \($attachment_uuid\) updated/],
    [],
    "updated the attachment"
);
run_output_matches(
    'sd',
    [ qw/ticket attachment show --batch --uuid/, $attachment_uuid ],
    [  
        qr/id: (\d+) \($attachment_uuid\)/, 
        "content: stub",
        "content_type: text/plain",
        qr/created: \d{4}-\d{2}-\d{2}.+/,
        qr/creator: /,
        qr/plague_recipe.doc/,
        "original_replica: " . replica_uuid,
        "ticket: $yatta_uuid"
    ],
    [],
    "Found the attachment new version"
);

run_output_matches(
    'sd',
    [ qw/ticket attachment list --uuid/, $yatta_uuid ],
    [qr/plague_recipe/],
    [],
    "Found the attachment when we tried to search for all attachments on a ticket by the ticket's uuid"
);