"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/basic.t" between
CGI-Lite-3.01.tar.gz and CGI-Lite-3.02.tar.gz

About: CGI-Lite is a Perl module to decode form and query information, including file uploads, as well as cookies in a very simple manner.

basic.t  (CGI-Lite-3.01):basic.t  (CGI-Lite-3.02)
skipping to change at line 42 skipping to change at line 42
require Test::Trap; require Test::Trap;
Test::Trap->import (qw/trap $trap :flow Test::Trap->import (qw/trap $trap :flow
:stderr(systemsafe) :stderr(systemsafe)
:stdout(systemsafe) :stdout(systemsafe)
:warn/); :warn/);
$have_test_trap = 1; $have_test_trap = 1;
}; };
use_ok ('CGI::Lite'); use_ok ('CGI::Lite');
} }
is ($CGI::Lite::VERSION, '3.01', 'Version test'); is ($CGI::Lite::VERSION, '3.02', 'Version test');
is (CGI::Lite::Version (), $CGI::Lite::VERSION, 'Version subroutine test'); is (CGI::Lite::Version (), $CGI::Lite::VERSION, 'Version subroutine test');
my $cgi = CGI::Lite->new (); my $cgi = CGI::Lite->new ();
is (ref $cgi, 'CGI::Lite', 'New'); is (ref $cgi, 'CGI::Lite', 'New');
is ($cgi->browser_escape ('<&>'), '&#60;&#38;&#62;', 'browser_escape'); is ($cgi->browser_escape ('<&>'), '&#60;&#38;&#62;', 'browser_escape');
{ {
my @from = split (/ /, q/! " # $ % ^ & * ( ) _ + - =/); my @from = split (/ /, q/! " # $ % ^ & * ( ) _ + - =/);
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)