Author: richter Date: Sat May 11 13:02:42 2013 New Revision: 1481319 URL: http://svn.apache.org/r1481319 Log: Add tests for chdir Option and Query string with = in value. Fix Embperl::Form::Validate test
Added: perl/embperl/trunk/test/html/chdir/chdir2src.pm Modified: perl/embperl/trunk/MANIFEST perl/embperl/trunk/test.pl perl/embperl/trunk/test/cmp/chdir2src.htm perl/embperl/trunk/test/cmp/epform.htm perl/embperl/trunk/test/cmp/hidden.htm perl/embperl/trunk/test/html/chdir/chdir2src.htm Modified: perl/embperl/trunk/MANIFEST URL: http://svn.apache.org/viewvc/perl/embperl/trunk/MANIFEST?rev=1481319&r1=1481318&r2=1481319&view=diff ============================================================================== --- perl/embperl/trunk/MANIFEST (original) +++ perl/embperl/trunk/MANIFEST Sat May 11 13:02:42 2013 @@ -251,6 +251,7 @@ test/cmp/subouttab.htm test/cmp/changeattr.htm test/cmp/chdir.htm test/cmp/chdir2src.htm +test/cmp/chdir2src.pm test/cmp/clearsess.htm test/cmp/cookieexpire.htm test/cmp/crypto.htm Modified: perl/embperl/trunk/test.pl URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test.pl?rev=1481319&r1=1481318&r2=1481319&view=diff ============================================================================== --- perl/embperl/trunk/test.pl (original) +++ perl/embperl/trunk/test.pl Sat May 11 13:02:42 2013 @@ -304,7 +304,7 @@ 'repeat' => 2, }, 'hidden.htm' => { - 'query_info' => 'feld1=Wert1&feld2=Wert2&feld3=Wert3&feld4=Wert4', + 'query_info' => 'feld1=Wert1&feld2=Wert2&feld3=Wert3&feld4=Wert4?foo=bar', }, 'java.htm' => { }, 'inputjava.htm' => { }, Modified: perl/embperl/trunk/test/cmp/chdir2src.htm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/chdir2src.htm?rev=1481319&r1=1481318&r2=1481319&view=diff ============================================================================== --- perl/embperl/trunk/test/cmp/chdir2src.htm (original) +++ perl/embperl/trunk/test/cmp/chdir2src.htm Sat May 11 13:02:42 2013 @@ -6,11 +6,17 @@ <body> +Compile: +Run: +^Begin CWD: +^Compile CWD: ^Script CWD: ^Embperl CWD: ^\$0: +Use Test: ok ^\$0 \(absolut\): Equal: No<BR> +Compile Equal: yes Diff CWD: >/test/html/chdir<<BR> ^Diff \$0: > Test/html: yes Modified: perl/embperl/trunk/test/cmp/epform.htm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/epform.htm?rev=1481319&r1=1481318&r2=1481319&view=diff ============================================================================== --- perl/embperl/trunk/test/cmp/epform.htm (original) +++ perl/embperl/trunk/test/cmp/epform.htm Sat May 11 13:02:42 2013 @@ -11,7 +11,7 @@ Bitte (sinnvollen) Kommentar eingeben <script> -function epform_validate_foo(return_msgs, failed_class) +function epform_validate_foo(return_msgs, failed_class, formelem) { var msgs = new Array ; var ids = new Array ; @@ -19,25 +19,28 @@ function epform_validate_foo(return_msgs var i = 0 ; var obj ; + if (!formelem) + formelem = document.foo ; + do { do { do { -obj = document.foo['datum'] ; if (obj && !(obj instanceof NodeList?obj[0].value:obj.value)) { ids[i] = 'datum' ; msgs[i++]='Bitte Datum eintragen'; break;} -obj = document.foo['datum'] ; if (obj && !(obj.value.search(/\d+\.\d+\.\d+/) >= 0)) { ids[i] = 'datum' ; msgs[i++]='Datum überprüfen'; break;} +obj = formelem['datum'] ; if (obj && !(obj instanceof NodeList?obj[0].value:obj.value)) { ids[i] = 'datum' ; msgs[i++]='Bitte Datum eintragen'; break;} +obj = formelem['datum'] ; if (obj && !(obj.value.search(/\d+\.\d+\.\d+/) >= 0)) { ids[i] = 'datum' ; msgs[i++]='Datum überprüfen'; break;} } while (0) ; if (fail) break ; do { -obj = document.foo['stunden'] ; if (obj && !(obj instanceof NodeList?obj[0].value:obj.value)) { ids[i] = 'stunden' ; msgs[i++]='Bitte Stunden eintragen'; break;} -obj = document.foo['stunden'] ; if (obj && !(obj.value.search(/^\s*[0-9+-.,][0-9.,eE]*\s*$/) >= 0)) { ids[i] = 'stunden' ; msgs[i++]='Stundenzahl nicht numerisch'; break;} -obj = document.foo['stunden'] ; if (obj && !(obj.value > 0)) { ids[i] = 'stunden' ; msgs[i++]='Stundenzahl muß >0 sein'; break;} +obj = formelem['stunden'] ; if (obj && !(obj instanceof NodeList?obj[0].value:obj.value)) { ids[i] = 'stunden' ; msgs[i++]='Bitte Stunden eintragen'; break;} +obj = formelem['stunden'] ; if (obj && !(obj.value.search(/^\s*[0-9+-.,][0-9.,eE]*\s*$/) >= 0)) { ids[i] = 'stunden' ; msgs[i++]='Stundenzahl nicht numerisch'; break;} +obj = formelem['stunden'] ; if (obj && !(obj.value > 0)) { ids[i] = 'stunden' ; msgs[i++]='Stundenzahl muß >0 sein'; break;} } while (0) ; if (fail) break ; do { -obj = document.foo['kommentar'] ; if (obj && !(obj instanceof NodeList?obj[0].value:obj.value)) { ids[i] = 'kommentar' ; msgs[i++]='Bitte (sinnvollen) Kommentar eingeben'; break;} +obj = formelem['kommentar'] ; if (obj && !(obj instanceof NodeList?obj[0].value:obj.value)) { ids[i] = 'kommentar' ; msgs[i++]='Bitte (sinnvollen) Kommentar eingeben'; break;} } while (0) ; if (fail) break ; @@ -51,7 +54,7 @@ obj = document.foo['kommentar'] ; if (ob var i ; for (key in ids) { - var elems = document.foo[ids[key]] ; + var elems = formelem[ids[key]] ; if (elems) { if (!(elems instanceof NodeList)) Modified: perl/embperl/trunk/test/cmp/hidden.htm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/hidden.htm?rev=1481319&r1=1481318&r2=1481319&view=diff ============================================================================== --- perl/embperl/trunk/test/cmp/hidden.htm (original) +++ perl/embperl/trunk/test/cmp/hidden.htm Sat May 11 13:02:42 2013 @@ -8,18 +8,18 @@ <form action="inhalt.htm" method="POST"> <p> </p> - a1<input type="hidden" name="feld1" value="Wert1"><input type="hidden" name="feld2" value="Wert2"><input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld4" value="Wert4"> + a1<input type="hidden" name="feld1" value="Wert1"><input type="hidden" name="feld2" value="Wert2"><input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld4" value="Wert4?foo=bar"> a2<input type="hidden" name="feld1" value="Pfalz"><input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> a3<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> a4<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> a5<input type="hidden" name="feld1" value="Pfalz"><input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> a6<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> a7<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> - a8<input type="hidden" name="feld4" value="Wert4"><input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld2" value="Wert2"><input type="hidden" name="feld1" value="Wert1"> + a8<input type="hidden" name="feld4" value="Wert4?foo=bar"><input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld2" value="Wert2"><input type="hidden" name="feld1" value="Wert1"> <input type="text" name="feld1" value="Wert1"> - b1<input type="hidden" name="feld2" value="Wert2"><input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld4" value="Wert4"> + b1<input type="hidden" name="feld2" value="Wert2"><input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld4" value="Wert4?foo=bar"> b2<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> b3<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> b4<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> @@ -29,11 +29,11 @@ <select name="feld2"><option value="Wert1">rlp</option></select> - s1<input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld4" value="Wert4"> + s1<input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld4" value="Wert4?foo=bar"> <select name="feld2"><option value="Wert1"><option value="Wert2" selected>rlp</option></select> - c1<input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld4" value="Wert4"> + c1<input type="hidden" name="feld3" value="Wert3"><input type="hidden" name="feld4" value="Wert4?foo=bar"> c2 c3<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> c4<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> @@ -41,7 +41,7 @@ c6<input type="hidden" name="feld2" value="Rhein"hessen"&Pfalz"> <input type="text" name="feld3" value="Wert3"> - <input type="text" name="feld4" value="Wert4"> + <input type="text" name="feld4" value="Wert4?foo=bar"> d1 d2 Modified: perl/embperl/trunk/test/html/chdir/chdir2src.htm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/chdir/chdir2src.htm?rev=1481319&r1=1481318&r2=1481319&view=diff ============================================================================== --- perl/embperl/trunk/test/html/chdir/chdir2src.htm (original) +++ perl/embperl/trunk/test/html/chdir/chdir2src.htm Sat May 11 13:02:42 2013 @@ -6,18 +6,34 @@ <body> -[- use Cwd ; - -$r = shift -] - +Compile: +[! +use Cwd ; +use lib qw{.} ; + +BEGIN { $begin = getcwd } +$compile = getcwd ; + +!] + +[- +use chdir2src ; +$test = chdir2src::test () ; +-] + +Run: +Begin CWD: [+ $begin +] <BR> +Compile CWD: [+ $compile +] <BR> Script CWD: [+ $script = getcwd +] <BR> Embperl CWD: [+ $ep = $FindBin::Bin || $ENV{EMBPERL_SRC} +] <BR> $0: [+ $abs = $0 +] +Use Test: [+ $test +] [- $abs = $ep . '/' . $0 if (!($0 =~ /^\//)) ; -] $0 (absolut): [+ $abs +] Equal: [+ $script eq $ep?'Yes':'No' +]<BR> +Compile Equal: [+ $script eq $compile?'yes':'no' +] Diff CWD: [+ do { $script =~ /$ep/ ; ">$'<" } +]<BR> Diff $0: [+ do { $abs =~ /$ep/ ; ">$'<" } +]<BR> Test/html: [+ $script =~ /test(?:\/|\\)html(?:\/|\\)chdir$/?'yes':'no' +] Added: perl/embperl/trunk/test/html/chdir/chdir2src.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/chdir/chdir2src.pm?rev=1481319&view=auto ============================================================================== --- perl/embperl/trunk/test/html/chdir/chdir2src.pm (added) +++ perl/embperl/trunk/test/html/chdir/chdir2src.pm Sat May 11 13:02:42 2013 @@ -0,0 +1,7 @@ + +package chdir2src ; + +sub test { 'ok' } + +1 ; + --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org