/
01-create.t
42 lines (31 loc) · 963 Bytes
/
01-create.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl -w
use strict;
use Prophet::Test tests => 3;
use App::SD::Test;
use File::Temp qw/tempdir/;
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']);
# create from sd and push
my ($yatta_id, $yatta_uuid) = create_ticket_ok( '--summary', 'YATTA');
run_output_matches( 'sd', [ 'ticket',
'list', '--regex', '.' ],
[ qr/(\d+) YATTA new/]
);
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}.+$/,
'creator: '. $ENV{PROPHET_EMAIL},
'reporter: ' . $ENV{PROPHET_EMAIL},
"original_replica: " . replica_uuid,
]
);