Upgrade to CGI.pm-3.48
[perl.git] / cpan / CGI / t / save_read_roundtrip.t
1
2 use strict;
3 use warnings;
4
5 # Reference: RT#13158: Needs test: empty name/value, when saved, prevents proper restore from filehandle.
6 #                      https://rt.cpan.org/Ticket/Display.html?id=13158
7
8 use Test::More tests => 3;
9
10 use IO::File;
11 use CGI;
12
13 my $cgi = CGI->new('a=1;=;b=2;=3');
14 ok eq_set (['a', '', 'b'], [$cgi->param]);
15
16 # not File::Temp, since that wasn't in core at 5.6.0
17 my $tmp = IO::File->new_tmpfile;
18 $cgi->save($tmp);
19 $tmp->seek(0,0);
20
21 $cgi = CGI->new($tmp);
22 ok eq_set (['a', '', 'b'], [$cgi->param]);
23 is $cgi->param(''), 3; # '=' is lost, '=3' is retained
24