From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DJZORT / RT-Client-REST-0.72 / t / 50-forms.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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147

              
#!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 => 9;
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 dump_file {
    open( my $out, '>', '/tmp/test.png' );
    print $out $_[0];
    close $out;
}
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;
    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\n\n
EOF
    return $body;
}
{
    my $body = qq|
id: ticket/971216
Queue: whatever
Owner: Nobody
Creator: someone\@example.com
Subject: Problems
Status: new
Priority: 10
InitialPriority: 10
FinalPriority: 50
Requestors: someone\@example.com\nCc:\nAdminCc:\nCreated: Fri Nov 04 15:38:18 2022
Starts: Not set
Started: Not set
Due: Sun Nov 06 15:38:18 2022
Resolved: Not set
Told: Not set
LastUpdated: Fri Nov 04 16:19:43 2022
TimeEstimated: 0
TimeWorked: 0
TimeLeft: 0
CF.{AdminURI}: \n
|;
    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' );
    is_deeply(
        $k,
        {
            'id'              => 'ticket/971216',
            'Queue'           => 'whatever',
            'Owner'           => 'Nobody',
            'Creator'         => 'someone@example.com',
            'Subject'         => 'Problems',
            'Status'          => 'new',
            'Priority'        => '10',
            'InitialPriority' => '10',
            'FinalPriority'   => '50',
            'Requestors'      => 'someone@example.com',
            'Cc'              => undef,
            'AdminCc'         => undef,
            'Created'         => 'Fri Nov 04 15:38:18 2022',
            'Starts'          => 'Not set',
            'Started'         => 'Not set',
            'Due'             => 'Sun Nov 06 15:38:18 2022',
            'Resolved'        => 'Not set',
            'Told'            => 'Not set',
            'LastUpdated'     => 'Fri Nov 04 16:19:43 2022',
            'TimeEstimated'   => '0',
            'TimeWorked'      => '0',
            'TimeLeft'        => '0',
            'CF.{AdminURI}'   => undef,
        },
        'Empty fields undertood'
    );
}
{
    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' );
    dump_file( $k->{Content} );
}
{
    my $body = qq|id: 17217
Subject: \nCreator: 12
Created: 2022-09-24 21:26:55
Transaction: 37112
Parent: 17215
MessageId: \nFilename: LG1kcpoxfV
ContentType: text/plain
ContentEncoding: none
Headers: Content-Transfer-Encoding: binary
         Content-Disposition: form-data; filename="LG1kcpoxfV"; name="attachment_1"
         Content-Type: text/plain; charset="utf-8"; name="LG1kcpoxfV"
         X-RT-Original-Encoding: ascii
         Content-Length: 31
Content: dude this is a text attachment
|;
    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 "dude this is a text attachment\n",
        'form parsed out contents correctly' );
}