summaryrefslogtreecommitdiff
path: root/cpan/CGI/t/multipart_init.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/CGI/t/multipart_init.t')
-rw-r--r--cpan/CGI/t/multipart_init.t22
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");
-}