http-webtest-commits Mailing List for HTTP-WebTest (Page 21)
Brought to you by:
m_ilya,
richardanderson
You can subscribe to this list here.
2002 |
Jan
(38) |
Feb
(83) |
Mar
(10) |
Apr
(28) |
May
(42) |
Jun
(61) |
Jul
(43) |
Aug
(42) |
Sep
(14) |
Oct
(27) |
Nov
(16) |
Dec
(81) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2003 |
Jan
(81) |
Feb
(29) |
Mar
(32) |
Apr
(42) |
May
(3) |
Jun
|
Jul
(11) |
Aug
|
Sep
(33) |
Oct
(6) |
Nov
(4) |
Dec
|
2004 |
Jan
|
Feb
|
Mar
(10) |
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: Ilya M. <m_...@us...> - 2002-06-15 23:09:30
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory usw-pr-cvs1:/tmp/cvs-serv1209/lib/HTTP/WebTest Modified Files: Parser.pm Log Message: Perl 5.005 compatibility fixes Index: Parser.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Parser.pm 15 Jun 2002 20:19:57 -0000 1.13 --- Parser.pm 15 Jun 2002 23:09:22 -0000 1.14 *************** *** 60,64 **** # find reminder of string near error (without surrounding # whitespace) ! $data =~ /\G $reHS* (.*?) $reHS* $/mx; my $near = $1; if($near eq '') { --- 60,64 ---- # find reminder of string near error (without surrounding # whitespace) ! $data =~ /\G $reHS* (.*?) $reHS* $/gmx; my $near = $1; if($near eq '') { *************** *** 70,74 **** # count lines my $line_num = () = substr($data, 0, $parse_pos) =~ m|$|gmx; ! $line_num-- if $data =~ /\G \z/x; die <<MSG; --- 70,75 ---- # count lines my $line_num = () = substr($data, 0, $parse_pos) =~ m|$|gmx; ! pos($data) = $parse_pos; ! $line_num-- if $data =~ /\G \z/gx; die <<MSG; *************** *** 224,230 **** sub _parse_scalar { ! if($_[0] =~ /\G (['"])/x) { my $delim = $1; my($extracted) = extract_delimited($_[0]); die "Can't find string terminator \"$delim\"\n" --- 225,234 ---- sub _parse_scalar { ! my $parse_pos = pos $_[0]; ! ! if($_[0] =~ /\G (['"])/gcx) { my $delim = $1; + pos($_[0]) = $parse_pos; my($extracted) = extract_delimited($_[0]); die "Can't find string terminator \"$delim\"\n" *************** *** 250,254 **** return $ret; } ! } elsif($_[0] =~ /\G {/x) { my($extracted) = extract_codeblock($_[0]); die "Missing right curly bracket\n" --- 254,259 ---- return $ret; } ! } elsif($_[0] =~ /\G \{/gcx) { ! pos($_[0]) = $parse_pos; my($extracted) = extract_codeblock($_[0]); die "Missing right curly bracket\n" *************** *** 262,266 **** return $ret; } else { ! $_[0] =~ /\G ((?: $reWORD+ $reHS+ )* $reWORD+ )/gcxo; my $extracted = $1; --- 267,271 ---- return $ret; } else { ! $_[0] =~ /\G ((?: $reWORD $reHS+ )* $reWORD )/gcxo; my $extracted = $1; |
From: Ilya M. <m_...@us...> - 2002-06-15 23:09:29
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory usw-pr-cvs1:/tmp/cvs-serv1209/t Modified Files: 06-parser.t Log Message: Perl 5.005 compatibility fixes Index: 06-parser.t =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/06-parser.t,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** 06-parser.t 6 Jun 2002 18:27:44 -0000 1.13 --- 06-parser.t 15 Jun 2002 23:09:22 -0000 1.14 *************** *** 42,50 **** ok($tests->[0]{regex_require}[4] eq 'test $a'); ok($tests->[0]{regex_require}[5] eq 'test @a'); ! ok($tests->[0]{regex_require}[6]() eq 'test $a'); ! ok($tests->[0]{regex_require}[7]() eq 'test @a'); ! ok($tests->[0]{regex_require}[8]() eq '$a'); ! ok($tests->[0]{regex_require}[9]() eq '\\$a'); ! ok($tests->[0]{regex_require}[10]() eq 'AAA'); ok($tests->[0]{url} eq 'www.dot.com'); ok(@{$tests->[0]{regex_forbid}} == 7); --- 42,50 ---- ok($tests->[0]{regex_require}[4] eq 'test $a'); ok($tests->[0]{regex_require}[5] eq 'test @a'); ! ok($tests->[0]{regex_require}[6]->() eq 'test $a'); ! ok($tests->[0]{regex_require}[7]->() eq 'test @a'); ! ok($tests->[0]{regex_require}[8]->() eq '$a'); ! ok($tests->[0]{regex_require}[9]->() eq '\\$a'); ! ok($tests->[0]{regex_require}[10]->() eq 'AAA'); ok($tests->[0]{url} eq 'www.dot.com'); ok(@{$tests->[0]{regex_forbid}} == 7); *************** *** 55,59 **** ok($tests->[0]{regex_forbid}[4] eq 'abcdef 1234'); ok($tests->[0]{regex_forbid}[5] eq ' a b c d \' e f '); ! ok($tests->[0]{regex_forbid}[6]() eq ''); ok($tests->[0]{ignore_case} eq 'yes'); ok($tests->[0]{show_cookies} eq 'yes'); --- 55,59 ---- ok($tests->[0]{regex_forbid}[4] eq 'abcdef 1234'); ok($tests->[0]{regex_forbid}[5] eq ' a b c d \' e f '); ! ok($tests->[0]{regex_forbid}[6]->() eq ''); ok($tests->[0]{ignore_case} eq 'yes'); ok($tests->[0]{show_cookies} eq 'yes'); *************** *** 68,76 **** ok($tests->[1]{cookie}[0][2] eq 'This is the cookie value'); ok($tests->[1]{cookie}[1][1] eq 'webtest1'); ! ok($tests->[2]{test_name}() eq 'Some evals are here'); ! ok($tests->[2]{file}() eq '6.ext'); ! ok($tests->[2]{params}[0]() eq 'name'); ! ok($tests->[2]{params}[3]() eq 'bla'); ! my $aref = $tests->[2]{auth}(); ok(@$aref == 2); ok($aref->[0] eq 'http'); --- 68,76 ---- ok($tests->[1]{cookie}[0][2] eq 'This is the cookie value'); ok($tests->[1]{cookie}[1][1] eq 'webtest1'); ! ok($tests->[2]{test_name}->() eq 'Some evals are here'); ! ok($tests->[2]{file}->() eq '6.ext'); ! ok($tests->[2]{params}[0]->() eq 'name'); ! ok($tests->[2]{params}[3]->() eq 'bla'); ! my $aref = $tests->[2]{auth}->(); ok(@$aref == 2); ok($aref->[0] eq 'http'); |
From: Ilya M. <m_...@us...> - 2002-06-15 21:51:08
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP In directory usw-pr-cvs1:/tmp/cvs-serv20218/lib/HTTP Modified Files: WebTest.pm Log Message: Regenerated Index: WebTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** WebTest.pm 26 May 2002 20:04:52 -0000 1.17 --- WebTest.pm 15 Jun 2002 21:51:06 -0000 1.18 *************** *** 26,30 **** package HTTP::WebTest; ! $VERSION = '1.99_06'; # workaround for warning caused by underscore char in $VERSION $VERSION = eval $VERSION; --- 26,30 ---- package HTTP::WebTest; ! $VERSION = '1.99_07'; # workaround for warning caused by underscore char in $VERSION $VERSION = eval $VERSION; |
From: Ilya M. <m_...@us...> - 2002-06-15 21:49:54
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv19939 Modified Files: .cvsignore Log Message: Ignore .tar.gz files Index: .cvsignore =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/.cvsignore,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** .cvsignore 24 Jan 2002 14:02:16 -0000 1.2 --- .cvsignore 15 Jun 2002 21:49:51 -0000 1.3 *************** *** 5,6 **** --- 5,7 ---- pod_merge Makefile + *.tar.gz |
From: Ilya M. <m_...@us...> - 2002-06-15 21:48:43
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv19718 Modified Files: MANIFEST.SKIP Log Message: Ignore .tar.gz files Index: MANIFEST.SKIP =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/MANIFEST.SKIP,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** MANIFEST.SKIP 12 May 2002 14:40:37 -0000 1.3 --- MANIFEST.SKIP 15 Jun 2002 21:48:40 -0000 1.4 *************** *** 16,17 **** --- 16,18 ---- t/good.wt$ t/test2.html$ + tar\.gz$ |
From: Ilya M. <m_...@us...> - 2002-06-15 21:47:59
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/Bundle/HTTP In directory usw-pr-cvs1:/tmp/cvs-serv19489/lib/Bundle/HTTP Modified Files: WebTest.pm Log Message: Removed HTTP::Daemon Index: WebTest.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/Bundle/HTTP/WebTest.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WebTest.pm 7 Jun 2002 08:57:09 -0000 1.1 --- WebTest.pm 15 Jun 2002 21:47:56 -0000 1.2 *************** *** 21,26 **** File::Temp - HTTP::Daemon - LWP --- 21,24 ---- |
From: Ilya M. <m_...@us...> - 2002-06-15 21:47:08
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv19392 Modified Files: MANIFEST Log Message: Updated Index: MANIFEST =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/MANIFEST,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** MANIFEST 26 May 2002 20:05:09 -0000 1.13 --- MANIFEST 15 Jun 2002 21:47:05 -0000 1.14 *************** *** 9,12 **** --- 9,13 ---- http-webtest/htdocs/webtest/is_apache_responding.html http-webtest/logs/.placeholder + lib/Bundle/HTTP/WebTest.pm lib/HTTP/WebTest.pm lib/HTTP/WebTest.pm.in *************** *** 36,39 **** --- 37,41 ---- scripts/make_readme.PL scripts/pod_merge.PL + scripts/test_config.PL t/01-api.t t/02-generic.t |
From: Ilya M. <m_...@us...> - 2002-06-15 21:44:08
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv18842 Modified Files: INSTALL Log Message: Minor fixes Index: INSTALL =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/INSTALL,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** INSTALL 15 Jun 2002 21:41:57 -0000 1.4 --- INSTALL 15 Jun 2002 21:44:06 -0000 1.5 *************** *** 26,30 **** On Win32 systems you should use 'nmake' instead of make'. 'nmake' is ! Windows version of Unix 'make' utility which can be downloaded from ftp.microsoft.com for free. --- 26,30 ---- On Win32 systems you should use 'nmake' instead of make'. 'nmake' is ! Windows version of Unix 'make' utility which may be downloaded from ftp.microsoft.com for free. |
From: Ilya M. <m_...@us...> - 2002-06-15 21:43:36
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv18707 Modified Files: Makefile.PL Log Message: Remove dependancy on Algorithm::Diff. Added new test target test_config which runs test_config.PL. Index: Makefile.PL =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Makefile.PL,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Makefile.PL 6 Jun 2002 18:27:17 -0000 1.7 --- Makefile.PL 15 Jun 2002 21:43:33 -0000 1.8 *************** *** 6,16 **** use ExtUtils::MakeMaker; - use Data::Dumper; use File::Spec; - my %CONFIG = (); - - # what do we need to delete on realclean? - my $REALCLEAN = '.config'; # list of authors my $AUTHOR = 'Richard Anderson <ri...@ri...>, ' . --- 6,11 ---- *************** *** 18,26 **** WriteMakefile( NAME => 'HTTP::WebTest', ! VERSION_FROM => 'lib/HTTP/WebTest.pm', ! PREREQ_PM => { 'Algorithm::Diff' => 0, ! 'CGI::Cookie' => 0, 'File::Temp' => 0, - 'HTTP::Daemon' => 0, 'LWP' => 5.60, 'MIME::Base64' => 0, --- 13,19 ---- WriteMakefile( NAME => 'HTTP::WebTest', ! VERSION_FROM => 'lib/HTTP/WebTest.pm.in', ! PREREQ_PM => { 'CGI::Cookie' => 0, 'File::Temp' => 0, 'LWP' => 5.60, 'MIME::Base64' => 0, *************** *** 31,40 **** 'Time::HiRes' => 0, 'URI' => 0 }, ! realclean => { FILES => $REALCLEAN }, EXE_FILES => [ File::Spec->catfile(qw(bin wt)) ], AUTHOR => $AUTHOR, ABSTRACT => 'Run tests on remote URLs or local web files'); ! sub MY::libscan { my $self = shift; my $path = shift; --- 24,35 ---- 'Time::HiRes' => 0, 'URI' => 0 }, ! realclean => { FILES => '.config' }, EXE_FILES => [ File::Spec->catfile(qw(bin wt)) ], AUTHOR => $AUTHOR, ABSTRACT => 'Run tests on remote URLs or local web files'); ! package MY; ! ! sub libscan { my $self = shift; my $path = shift; *************** *** 43,53 **** return undef if $path =~ /~/; ! return $self->MY::SUPER::libscan($path); } ! sub MY::dist_core { my $self = shift; ! my $make = $self->MY::SUPER::dist_core(); # add our hook for dist target --- 38,59 ---- return undef if $path =~ /~/; ! return $self->SUPER::libscan($path); } ! sub test { my $self = shift; ! my $make = $self->SUPER::test(@_); ! ! # add dependencies for test targets ! $make =~ s/(test(?:db)? :: )(.*)/$1test_config $2/g; ! ! return $make; ! } ! ! sub dist_core { ! my $self = shift; ! ! my $make = $self->SUPER::dist_core(); # add our hook for dist target *************** *** 57,61 **** } ! sub MY::postamble { my $make = ''; --- 63,67 ---- } ! sub postamble { my $make = ''; *************** *** 63,73 **** if(-t STDIN and -t STDOUT) { $make .= apache_dir_setup(); - $CONFIG{APACHE_EXEC} = apache_exec_setup(); print STDOUT "\n"; } - write_config(); - # add pod merge target my $webtest_pm = File::Spec->catfile(qw(lib HTTP WebTest.pm)); --- 69,76 ---- *************** *** 92,99 **** distprepare :: README ! \t\$(NOOP) distprepare :: $webtest_pm ! \t\$(NOOP) MAKE --- 95,110 ---- distprepare :: README ! \t\@\$(NOOP) distprepare :: $webtest_pm ! \t\@\$(NOOP) ! MAKE ! ! # add test_config target (test and testdb targets depend on it) ! my $test_config_pl = File::Spec->catfile(qw(scripts test_config.PL)); ! $make .= <<MAKE; ! ! test_config: ! \t\$(PERL) $test_config_pl .config MAKE *************** *** 154,223 **** return $make; - } - - # finds where apache binary is located - sub apache_exec_setup { - my $apache_exec = undef; - - # verify that we don't run on Win32 system. Local web files - # test mode is not supported on that platform - if($^O ne 'MSWin32') { - while(1) { - print_prompt(<<TEXT); - - HTTP-WebTest automated test suite contains tests for local web files - test mode. Running these tests requires Apache web server. If you do - not have Apache you can skip these tests. - - Run local web files test mode tests during 'make test'? [Y/n]: - TEXT - - my $response = <STDIN>; - chomp($response); - if($response =~ /^(?:y(?:es)?|)$/i) { - # user asked to run tests - $apache_exec = $ENV{'APACHE'} || which('apache') || - which('httpd') || '/usr/lib/httpd/httpd'; - - print_prompt(<<TEXT); - - Please enter filename of Apache executable file. - - Filename? [$apache_exec]: - TEXT - - my $response = <STDIN>; - chomp($response); - $apache_exec = $response if $response; - last if -x $apache_exec; - print STDOUT <<TEXT; - - ERROR: $apache_exec is not a valid executable file - TEXT - } else { - last; - } - } - } - - return $apache_exec; - } - - # finds executable in PATH (code is stolen from Apache::test) - sub which { - foreach (map { "$_/$_[0]" } split /:/, $ENV{PATH}) { - next unless m,^/,; - return $_ if -x; - } - } - - # dumps config params hash - sub write_config { - local *FILE; - open FILE, '> .config' or die "Can't write to file '.config': $!"; - - print FILE Data::Dumper->Dump([\%CONFIG], [qw(*CONFIG)]); - - close FILE; } --- 165,168 ---- |
From: Ilya M. <m_...@us...> - 2002-06-15 21:42:00
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv18420 Modified Files: INSTALL Log Message: Updated Index: INSTALL =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/INSTALL,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** INSTALL 6 Jun 2002 18:27:17 -0000 1.3 --- INSTALL 15 Jun 2002 21:41:57 -0000 1.4 *************** *** 4,8 **** * Perl 5.005 or later - * Algorithm::Diff * File::Temp (is included in Perl 5.6.1 and later) * libwww 5.60 or later --- 4,7 ---- *************** *** 13,16 **** --- 12,19 ---- * Time::HiRes + If you want to run test suite ('make test') you need also + + * Algorithm::Diff + INSTALLATION *************** *** 18,24 **** perl Makefile.PL - (answer the questions you're asked) make ! make test make install --- 21,26 ---- perl Makefile.PL make ! make test # optional - runs test suite for this module make install |
From: Ilya M. <m_...@us...> - 2002-06-15 21:35:25
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP In directory usw-pr-cvs1:/tmp/cvs-serv17221 Modified Files: WebTest.pm.in Log Message: Bump version Index: WebTest.pm.in =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest.pm.in,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** WebTest.pm.in 17 May 2002 20:48:57 -0000 1.13 --- WebTest.pm.in 15 Jun 2002 21:35:22 -0000 1.14 *************** *** 5,9 **** package HTTP::WebTest; ! $VERSION = '1.99_06'; # workaround for warning caused by underscore char in $VERSION $VERSION = eval $VERSION; --- 5,9 ---- package HTTP::WebTest; ! $VERSION = '1.99_07'; # workaround for warning caused by underscore char in $VERSION $VERSION = eval $VERSION; |
From: Ilya M. <m_...@us...> - 2002-06-15 21:34:12
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv17052 Modified Files: TODO Log Message: Updated Index: TODO =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/TODO,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** TODO 15 Jun 2002 20:35:23 -0000 1.12 --- TODO 15 Jun 2002 21:34:09 -0000 1.13 *************** *** 3,6 **** --- 3,8 ---- My current TODO: + * support hidden fields in Click plugin + * polish local mode tests - they are *very* non portable now |
From: Ilya M. <m_...@us...> - 2002-06-15 21:33:44
|
Update of /cvsroot/http-webtest/HTTP-WebTest/scripts In directory usw-pr-cvs1:/tmp/cvs-serv16937/scripts Added Files: test_config.PL Log Message: Added --- NEW FILE: test_config.PL --- #!/usr/bin/perl -w # $Id: test_config.PL,v 1.1 2002/06/15 21:33:38 m_ilya Exp $ use strict; use Data::Dumper; my %CONFIG; eval { require Algorithm::Diff }; if($@) { print <<MSG; Algorithm::Diff module is required to run 'make test'. MSG exit 1; } unless(check_config()) { # verify standard input and output are attached to a terminal if(-t STDIN and -t STDOUT) { $CONFIG{APACHE_EXEC} = apache_exec_setup(); } print "\n"; write_config(); } # checks if config file exists sub check_config { return(-f '.config'); } # dumps config params hash sub write_config { local *FILE; open FILE, '> .config' or die "Can't write to file '.config': $!"; print FILE Data::Dumper->Dump([\%CONFIG], [qw(*CONFIG)]); close FILE; } # finds where apache binary is located sub apache_exec_setup { my $apache_exec = undef; # verify that we don't run on Win32 system. Local web files # test mode is not supported on that platform if($^O ne 'MSWin32') { while(1) { print_prompt(<<TEXT); HTTP-WebTest automated test suite contains tests for local web files test mode. Running these tests requires Apache web server. If you do not have Apache you can skip these tests. Run local web files test mode tests during 'make test'? [Y/n]: TEXT my $response = <STDIN>; chomp($response); if($response =~ /^(?:y(?:es)?|)$/i) { # user asked to run tests $apache_exec = $ENV{'APACHE'} || which('apache') || which('httpd') || '/usr/lib/httpd/httpd'; print_prompt(<<TEXT); Please enter filename of Apache executable file. Filename? [$apache_exec]: TEXT my $response = <STDIN>; chomp($response); $apache_exec = $response if $response; last if -x $apache_exec; print STDOUT <<TEXT; ERROR: $apache_exec is not a valid executable file TEXT } else { last; } } } return $apache_exec; } # finds executable in PATH (code is stolen from Apache::test) sub which { foreach (map { "$_/$_[0]" } split /:/, $ENV{PATH}) { next unless m,^/,; return $_ if -x; } } sub print_prompt { my $text = shift; chomp $text; print STDOUT $text, ' '; } |
From: Ilya M. <m_...@us...> - 2002-06-15 20:35:28
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv5853 Modified Files: TODO Log Message: Updated Index: TODO =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/TODO,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** TODO 12 May 2002 14:17:39 -0000 1.11 --- TODO 15 Jun 2002 20:35:23 -0000 1.12 *************** *** 3,17 **** My current TODO: - * test broken tests diagnostics - - * resurrect all parameter checks from old HTTP::WebTest - - * generate index of test parameters in a reference - * polish local mode tests - they are *very* non portable now - - * add support for interactive queries for auth and pauth params - - * save_output option for backward compatibility API * extended syntax of wtscript files which allows nested structures --- 3,7 ---- |
From: Ilya M. <m_...@us...> - 2002-06-15 20:25:12
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv4096 Modified Files: Changes Log Message: Minor fixes Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** Changes 15 Jun 2002 20:24:05 -0000 1.28 --- Changes 15 Jun 2002 20:25:10 -0000 1.29 *************** *** 11,15 **** ENHANCEMENTS: ! * Non-core test parameters are included in POD documentation of HTTP::WebTest. --- 11,15 ---- ENHANCEMENTS: ! * Non-core test parameters are included in POD documentation in HTTP::WebTest. |
From: Ilya M. <m_...@us...> - 2002-06-15 20:24:07
|
Update of /cvsroot/http-webtest/HTTP-WebTest In directory usw-pr-cvs1:/tmp/cvs-serv3897 Modified Files: Changes Log Message: Updated Index: Changes =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/Changes,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** Changes 7 Jun 2002 08:58:28 -0000 1.27 --- Changes 15 Jun 2002 20:24:05 -0000 1.28 *************** *** 19,22 **** --- 19,26 ---- * $webtest->run_wtscript accepts wtscript passed as string. + * Parser for wtscript files is rewritten. It doesn't use + Parse::RecDescent anymore. New parser is faster and provides better + error diagnostics for parse errors. + INCOMPATIBILITIES: |
From: Ilya M. <m_...@us...> - 2002-06-15 20:20:00
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory usw-pr-cvs1:/tmp/cvs-serv2980/lib/HTTP/WebTest Modified Files: Parser.pm Log Message: Fix checks for unclosed strings and code blocks Index: Parser.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Parser.pm 15 Jun 2002 20:09:16 -0000 1.12 --- Parser.pm 15 Jun 2002 20:19:57 -0000 1.13 *************** *** 229,233 **** my($extracted) = extract_delimited($_[0]); die "Can't find string terminator \"$delim\"\n" ! unless defined $extracted; if($delim eq "'" or $extracted !~ /[\$\@\%]/) { --- 229,233 ---- my($extracted) = extract_delimited($_[0]); die "Can't find string terminator \"$delim\"\n" ! if $extracted eq ''; if($delim eq "'" or $extracted !~ /[\$\@\%]/) { *************** *** 253,257 **** my($extracted) = extract_codeblock($_[0]); die "Missing right curly bracket\n" ! unless defined $extracted; my $ret = make_sub_in_playground($extracted); --- 253,257 ---- my($extracted) = extract_codeblock($_[0]); die "Missing right curly bracket\n" ! if $extracted eq ''; my $ret = make_sub_in_playground($extracted); |
From: Ilya M. <m_...@us...> - 2002-06-15 20:19:05
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory usw-pr-cvs1:/tmp/cvs-serv2798/t/test.out Modified Files: borked8.err borked6.err borked5.err borked4.err Log Message: Updated Index: borked8.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked8.err,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** borked8.err 15 Jun 2002 19:41:39 -0000 1.2 --- borked8.err 15 Jun 2002 20:19:01 -0000 1.3 *************** *** 1,2 **** HTTP::WebTest: wtscript parsing error ! Line 4 at the end of line: Missing right bracket --- 1,2 ---- HTTP::WebTest: wtscript parsing error ! Line 3 at the end of line: Missing right bracket Index: borked6.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked6.err,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** borked6.err 29 Jan 2002 03:52:39 -0000 1.1 --- borked6.err 15 Jun 2002 20:19:01 -0000 1.2 *************** *** 1,2 **** HTTP::WebTest: wtscript parsing error ! Line 3: Missing right curly --- 1,2 ---- HTTP::WebTest: wtscript parsing error ! Line 3 at the end of line: Missing right curly bracket Index: borked5.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked5.err,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** borked5.err 29 Jan 2002 03:52:39 -0000 1.1 --- borked5.err 15 Jun 2002 20:19:01 -0000 1.2 *************** *** 1,2 **** HTTP::WebTest: wtscript parsing error ! Line 3: Can't find string terminator "'" anywhere before EOF --- 1,2 ---- HTTP::WebTest: wtscript parsing error ! Line 3 near ''unfinished': Can't find string terminator "'" Index: borked4.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked4.err,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** borked4.err 29 Jan 2002 03:52:39 -0000 1.1 --- borked4.err 15 Jun 2002 20:19:01 -0000 1.2 *************** *** 1,2 **** HTTP::WebTest: wtscript parsing error ! Line 3: Can't find string terminator """ anywhere before EOF --- 1,2 ---- HTTP::WebTest: wtscript parsing error ! Line 3 near '"unfinished': Can't find string terminator """ |
From: Ilya M. <m_...@us...> - 2002-06-15 20:09:19
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory usw-pr-cvs1:/tmp/cvs-serv751/lib/HTTP/WebTest Modified Files: Parser.pm Log Message: Fix line numbering in error messages Index: Parser.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Parser.pm 15 Jun 2002 19:42:36 -0000 1.11 --- Parser.pm 15 Jun 2002 20:09:16 -0000 1.12 *************** *** 58,62 **** my $parse_pos = pos $data; ! # find rem\inder of string near error (without surrounding # whitespace) $data =~ /\G $reHS* (.*?) $reHS* $/mx; --- 58,62 ---- my $parse_pos = pos $data; ! # find reminder of string near error (without surrounding # whitespace) $data =~ /\G $reHS* (.*?) $reHS* $/mx; *************** *** 69,77 **** # count lines ! my $line_num = 1; ! pos($data) = 0; ! while($data =~ m|\G .* \Q$/\E|gcx and pos($data) <= $parse_pos) { ! $line_num ++; ! } die <<MSG; --- 69,74 ---- # count lines ! my $line_num = () = substr($data, 0, $parse_pos) =~ m|$|gmx; ! $line_num-- if $data =~ /\G \z/x; die <<MSG; *************** *** 102,106 **** if($state == ST_FILE) { ! if($_[0] =~ /\G \Z/gcx) { # end of file last PARSER; --- 99,103 ---- if($state == ST_FILE) { ! if($_[0] =~ /\G \z/gcx) { # end of file last PARSER; *************** *** 138,142 **** _set_test_param($test, $name, $value); } else { ! die "Test parameter or test block is expected\n"; } } --- 135,139 ---- _set_test_param($test, $name, $value); } else { ! die "Test parameter or end_test is expected\n"; } } |
From: Ilya M. <m_...@us...> - 2002-06-15 20:09:04
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory usw-pr-cvs1:/tmp/cvs-serv654/t/test.out Modified Files: borked3.err borked2.err Log Message: Updated Index: borked3.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked3.err,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** borked3.err 24 Jan 2002 12:26:18 -0000 1.1.1.1 --- borked3.err 15 Jun 2002 20:08:59 -0000 1.2 *************** *** 1,2 **** HTTP::WebTest: wtscript parsing error ! Line 15: Test parameter or end of test block is expected near --- 1,2 ---- HTTP::WebTest: wtscript parsing error ! Line 15 at the end of line: Test parameter or end_test is expected Index: borked2.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked2.err,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** borked2.err 15 Jun 2002 19:41:39 -0000 1.2 --- borked2.err 15 Jun 2002 20:08:59 -0000 1.3 *************** *** 1,2 **** HTTP::WebTest: wtscript parsing error ! Line 9 near 'let's break test here': Test parameter or test block is expected --- 1,2 ---- HTTP::WebTest: wtscript parsing error ! Line 9 near 'let's break test here': Test parameter or end_test is expected |
From: Ilya M. <m_...@us...> - 2002-06-15 19:42:38
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory usw-pr-cvs1:/tmp/cvs-serv28083/lib/HTTP/WebTest Modified Files: Parser.pm Log Message: Fix error diagnostics Index: Parser.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Parser.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Parser.pm 6 Jun 2002 18:30:01 -0000 1.10 --- Parser.pm 15 Jun 2002 19:42:36 -0000 1.11 *************** *** 54,63 **** if($@) { my $exc = $@; my $parse_pos = pos $data; ! # find reminder of string near error (without surrounding # whitespace) ! $data =~ /\G $reHS* (.*?) $reHS*/gcx; my $near = $1; if($near eq '') { --- 54,64 ---- if($@) { my $exc = $@; + chomp $exc; my $parse_pos = pos $data; ! # find rem\inder of string near error (without surrounding # whitespace) ! $data =~ /\G $reHS* (.*?) $reHS* $/mx; my $near = $1; if($near eq '') { *************** *** 238,241 **** --- 239,243 ---- my $ret = eval_in_playground($extracted); + chomp $@; die "Eval error\n$@\n" if $@; *************** *** 245,248 **** --- 247,252 ---- # which will be used as callback my $ret = make_sub_in_playground($extracted); + + chomp $@; die "Eval error\n$@\n" if $@; *************** *** 256,259 **** --- 260,264 ---- my $ret = make_sub_in_playground($extracted); + chomp $@; die "Eval error\n$@\n" if $@; |
From: Ilya M. <m_...@us...> - 2002-06-15 19:41:42
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t/test.out In directory usw-pr-cvs1:/tmp/cvs-serv27871/t/test.out Modified Files: borked8.err borked7.err borked2.err borked1.err Log Message: New error messages from new parser Index: borked8.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked8.err,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** borked8.err 29 Jan 2002 03:52:39 -0000 1.1 --- borked8.err 15 Jun 2002 19:41:39 -0000 1.2 *************** *** 1,2 **** HTTP::WebTest: wtscript parsing error ! Line 4: Missing right bracket --- 1,2 ---- HTTP::WebTest: wtscript parsing error ! Line 4 at the end of line: Missing right bracket Index: borked7.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked7.err,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** borked7.err 15 May 2002 19:26:43 -0000 1.3 --- borked7.err 15 Jun 2002 19:41:39 -0000 1.4 *************** *** 1,5 **** HTTP::WebTest: wtscript parsing error ! Line 3: Eval error Bareword "code" not allowed while "strict subs" in use at (eval NN) line N. - - near --- 1,3 ---- HTTP::WebTest: wtscript parsing error ! Line 3 at the end of line: Eval error Bareword "code" not allowed while "strict subs" in use at (eval NN) line N. Index: borked2.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked2.err,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** borked2.err 24 Jan 2002 12:26:18 -0000 1.1.1.1 --- borked2.err 15 Jun 2002 19:41:39 -0000 1.2 *************** *** 1,2 **** HTTP::WebTest: wtscript parsing error ! Line 9: Test parameter or end of test block is expected near 's broke test here --- 1,2 ---- HTTP::WebTest: wtscript parsing error ! Line 9 near 'let's break test here': Test parameter or test block is expected Index: borked1.err =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/test.out/borked1.err,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** borked1.err 24 Jan 2002 12:26:18 -0000 1.1.1.1 --- borked1.err 15 Jun 2002 19:41:39 -0000 1.2 *************** *** 1,2 **** HTTP::WebTest: wtscript parsing error ! Line 6: Test parameter or test block is expected near ( borked test ) --- 1,2 ---- HTTP::WebTest: wtscript parsing error ! Line 6 near '( borked test )': Global test parameter or test block is expected |
From: Ilya M. <m_...@us...> - 2002-06-15 19:41:21
|
Update of /cvsroot/http-webtest/HTTP-WebTest/t In directory usw-pr-cvs1:/tmp/cvs-serv27774/t Modified Files: borked3.wt borked2.wt Log Message: Minor fixes Index: borked3.wt =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/borked3.wt,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** borked3.wt 24 Jan 2002 12:26:11 -0000 1.1.1.1 --- borked3.wt 15 Jun 2002 19:41:11 -0000 1.2 *************** *** 13,14 **** --- 13,15 ---- ) auth = ( name => value ) + # no closing bracket here Index: borked2.wt =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/borked2.wt,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** borked2.wt 24 Jan 2002 12:26:11 -0000 1.1.1.1 --- borked2.wt 15 Jun 2002 19:41:11 -0000 1.2 *************** *** 7,11 **** 'Quoted text " test' "We can => quote '" ) ! let's broke test here regex_forbid = ( More = tests Some @#$%^&* chars --- 7,11 ---- 'Quoted text " test' "We can => quote '" ) ! let's break test here regex_forbid = ( More = tests Some @#$%^&* chars |
From: Ilya M. <m_...@us...> - 2002-06-13 09:22:17
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory usw-pr-cvs1:/tmp/cvs-serv12339 Modified Files: API.pm Log Message: Minor fixes Index: API.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/API.pm,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** API.pm 13 Jun 2002 09:20:35 -0000 1.14 --- API.pm 13 Jun 2002 09:22:14 -0000 1.15 *************** *** 617,621 **** supported. ! It is not recommended to use it in new applications. =cut --- 617,622 ---- supported. ! It is not recommended to use it in new applications as it may be ! removed eventually in new versions of C<HTTP::WebTest>. =cut |
From: Ilya M. <m_...@us...> - 2002-06-13 09:20:38
|
Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest In directory usw-pr-cvs1:/tmp/cvs-serv11796 Modified Files: API.pm Log Message: Minor POD fixes Index: API.pm =================================================================== RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/API.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** API.pm 7 Jun 2002 08:57:50 -0000 1.13 --- API.pm 13 Jun 2002 09:20:35 -0000 1.14 *************** *** 459,463 **** =head3 Returns ! A <HTTP::WebTest::Test|HTTP::WebTest::Test> object which corresponds to last test being or been run. --- 459,463 ---- =head3 Returns ! A L<HTTP::WebTest::Test|HTTP::WebTest::Test> object which corresponds to last test being or been run. *************** *** 470,474 **** =head3 Returns ! A <HTTP::Request|HTTP::Request> object used in last test. =cut --- 470,474 ---- =head3 Returns ! A L<HTTP::Request|HTTP::Request> object used in last test. =cut *************** *** 480,484 **** =head3 Returns ! A <HTTP::Response|HTTP::Response> object used in last test. =cut --- 480,484 ---- =head3 Returns ! A L<HTTP::Response|HTTP::Response> object used in last test. =cut |