Upgrade to CGI.pm-3.48
[perl.git] / cpan / CGI / t / query_string.t
1 #!perl
2
3 # Tests for the query_string() method.
4
5 use Test::More 'no_plan';
6 use CGI;
7
8 {
9     my $q1 = CGI->new('b=2;a=1;a=1');
10     my $q2 = CGI->new('b=2&a=1&a=1');
11
12     is($q1->query_string
13         ,$q2->query_string
14         , "query string format is returned with the same delimiter regardless of input.");
15 }