[p5sagit/p5-mst-13.2.git] / ext / CGI / t / query_string.t

#!perl

# Tests for the query_string() method.

use lib 't/lib';
use Test::More 'no_plan';
use CGI;

{
    my $q1 = CGI->new('b=2;a=1;a=1');
    my $q2 = CGI->new('b=2&a=1&a=1');

    is($q1->query_string
        ,$q2->query_string
        , "query string format is returned with the same delimiter regardless of input.");
}
Commit	Line	Data
68a4c8b9	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	}