diff options
Diffstat (limited to 'cpan/CGI/t/multipart_init.t')
-rw-r--r-- | cpan/CGI/t/multipart_init.t | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/cpan/CGI/t/multipart_init.t b/cpan/CGI/t/multipart_init.t deleted file mode 100644 index 68ae05cb7d..0000000000 --- a/cpan/CGI/t/multipart_init.t +++ /dev/null @@ -1,22 +0,0 @@ -use Test::More 'no_plan'; - -use CGI; - -my $q = CGI->new; - -my $sv = $q->multipart_init; -like( $sv, qr|Content-Type: multipart/x-mixed-replace;boundary="------- =|, 'multipart_init(), basic'); - -like( $sv, qr/$CGI::CRLF$/, 'multipart_init(), ends in CRLF' ); - -$sv = $q->multipart_init( 'this_is_the_boundary' ); -like( $sv, qr/boundary="this_is_the_boundary"/, 'multipart_init("simple_boundary")' ); -$sv = $q->multipart_init( -boundary => 'this_is_another_boundary' ); -like($sv, - qr/boundary="this_is_another_boundary"/, "multipart_init( -boundary => 'this_is_another_boundary')"); - -{ - my $sv = $q->multipart_init; - my $sv2 = $q->multipart_init; - isnt($sv,$sv2,"due to random boundaries, multiple calls produce different results"); -} |