lib/CGI/t/query_string.t

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