File: multipart_globals.t

package info (click to toggle)
libcgi-pm-perl 4.68-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,028 kB
  • sloc: perl: 6,082; makefile: 9
file content (21 lines) | stat: -rw-r--r-- 764 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use Test::More 'no_plan';

BEGIN {
	# assign
	$MultipartBuffer::INITIAL_FILLUNIT = 'A';
	$MultipartBuffer::TIMEOUT          = 'B';
	$MultipartBuffer::SPIN_LOOP_MAX    = 'C';
	$MultipartBuffer::CRLF             = 'D';
};

use CGI;

is( $MultipartBuffer::INITIAL_FILLUNIT,'A','INITIAL_FILLUNIT (assigned)' );
is( $MultipartBuffer::TIMEOUT,'B','TIMEOUT (assigned)' );
is( $MultipartBuffer::SPIN_LOOP_MAX,'C','SPIN_LOOP_MAX (assigned)' );
is( $MultipartBuffer::CRLF,'D','CRLF (assigned)' );

is( $CGI::MultipartBuffer::INITIAL_FILLUNIT,'A','INITIAL_FILLUNIT (assigned)' );
is( $CGI::MultipartBuffer::TIMEOUT,'B','TIMEOUT (assigned)' );
is( $CGI::MultipartBuffer::SPIN_LOOP_MAX,'C','SPIN_LOOP_MAX (assigned)' );
is( $CGI::MultipartBuffer::CRLF,'D','CRLF (assigned)' );