You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2013/05/11 15:02:43 UTC
svn commit: r1481319 - in /perl/embperl/trunk: MANIFEST test.pl
test/cmp/chdir2src.htm test/cmp/epform.htm test/cmp/hidden.htm
test/html/chdir/chdir2src.htm test/html/chdir/chdir2src.pm
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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org