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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More qw(no_plan);
use Data::Dumper;
use CIL::Utils;
my $parsed_fields = CIL::Utils->parse_cil_file( 't/i_cafebabe.cil', 'Description' );
my $correct_fields = {
'Summary' => 'Addition of a \'attach\' command',
'Status' => 'New',
'CreatedBy' => 'A N Other <a.n.other@example.org>',
'AssignedTo' => 'A Name <aname@example.com>',
'Label' => [
'against-v0.1',
'priority-medium',
'type-enhancement',
],
'Inserted' => '2008-06-15 18:22:01',
'Updated' => '2008-06-15 23:15:27',
'Description' => '\'cil\' currently has no way of adding attachments to issues.
This should be added so that the actual data cil stores is complete.'
};
is_deeply($parsed_fields, $correct_fields, 'Check parsing of file');
CIL::Utils->write_cil_file( '/tmp/i_deadbeef.cil', $correct_fields, qw(Summary Status CreatedBy AssignedTo Label Inserted Updated Description) );
CIL::Utils->write_cil_file( '/tmp/i_decaf7ea.cil', $parsed_fields, qw(Summary Status CreatedBy AssignedTo Label Inserted Updated Description) );
# is($parsed_fields, $correct_fields, 'Check parsing of file');
|
