view release on metacpan or  search on metacpan

t/upload_cgi_simple.t  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;

# subroutine to upload any file (and prepare the multi-part version of it on the fly).
# For some reason you cannot run this function twice !?? What bug is this ?
# using local/plain.txt

use lib qw(lib t/lib);
use CGI::Upload;
use CGI::Upload::Test;
use Test::More tests => 7;

SKIP: {
	skip "CGI::Simple needed for these tests", 7 unless is_installed("CGI::Simple");
	
	$ENV{HTTP_USER_AGENT} = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.3) Gecko/20030312";
	eval {
		upload_file(
			"plain.txt", 
			{
				long_filename_on_client => '/tmp/plain.txt',
				short_filename_on_client => 'plain.txt',
				module    => "CGI::Simple",
				instance  => 0,
			},
		);
	};
	if ($@ and $@ =~ /^CGI::Simple must be at least version 0.075$/) {
		skip "CGI::Simple need to be at least version 0.075", 7;
	}


	ok(not(defined $INC{"CGI.pm"}), "CGI.pm was not loaded");
	ok($INC{"CGI/Simple.pm"}, "CGI::Simple was loaded");
}