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
42
43
44
45
46
47
48
49
50
51
52
|
#!perl
# Test form parsing. Taken out of 83-attachments.t as a special case,
# just to make sure that the form parsing is performed correctly.
use strict;
use warnings;
use Test::More tests => 3;
use RT::Client::REST::Forms qw(form_parse);
use File::Spec::Functions qw(catfile);
my $testfile = 'test.png';
my $testfile_path = catfile('t' => 'data' => $testfile);
open (my $fh, '<', $testfile_path) or die "Couldn't open $testfile_path $!";
my $contents = do { local $/; <$fh>; };
close $fh;
sub create_http_body {
my $binary_string = shift;
my $length = length($binary_string);
my $spaces = ' ' x length('Content: ');
$binary_string =~ s/\n/\n$spaces/sg;
$binary_string .= "\n\n";
my $body = <<"EOF";
id: 873
Subject: \nCreator: 12
Created: 2013-11-06 07:15:36
Transaction: 1457
Parent: 871
MessageId: \nFilename: prova2.png
ContentType: image/png
ContentEncoding: base64
Headers: Content-Type: image/png; name="prova2.png"
Content-Disposition: attachment; filename="prova2.png"
Content-Transfer-Encoding: base64
Content-Length: $length
Content: $binary_string
EOF
return $body;
}
my $body = create_http_body($contents);
my $form = form_parse($body);
is(ref($form), 'ARRAY', 'form is an array reference');
my ($c, $o, $k, $e) = @{$$form[0]};
is(ref($k), 'HASH', 'third element ($k) is a hash reference');
ok($k->{Content} eq $contents, 'form parsed out contents correctly');
|
