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