1use Test::More 'no_plan';
2
3BEGIN {
4	# assign
5	$MultipartBuffer::INITIAL_FILLUNIT = 'A';
6	$MultipartBuffer::TIMEOUT          = 'B';
7	$MultipartBuffer::SPIN_LOOP_MAX    = 'C';
8	$MultipartBuffer::CRLF             = 'D';
9};
10
11use CGI;
12
13is( $MultipartBuffer::INITIAL_FILLUNIT,'A','INITIAL_FILLUNIT (assigned)' );
14is( $MultipartBuffer::TIMEOUT,'B','TIMEOUT (assigned)' );
15is( $MultipartBuffer::SPIN_LOOP_MAX,'C','SPIN_LOOP_MAX (assigned)' );
16is( $MultipartBuffer::CRLF,'D','CRLF (assigned)' );
17
18is( $CGI::MultipartBuffer::INITIAL_FILLUNIT,'A','INITIAL_FILLUNIT (assigned)' );
19is( $CGI::MultipartBuffer::TIMEOUT,'B','TIMEOUT (assigned)' );
20is( $CGI::MultipartBuffer::SPIN_LOOP_MAX,'C','SPIN_LOOP_MAX (assigned)' );
21is( $CGI::MultipartBuffer::CRLF,'D','CRLF (assigned)' );
22