Advanced
Mailing List Archive

Mailing List Archive

  1. Home >
  2. ModPerl>
  3. Embperl-cvs
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
richter at apache
May 11, 2013, 6:02 AM
Post #1 of 1 (1421 views)
Permalink
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: &gt;/test/html/chdir&lt;<BR>
^Diff \$0: &gt;
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>&nbsp;</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&quot;hessen&quot;&amp;Pfalz">
a3<input type="hidden" name="feld2" value="Rhein&quot;hessen&quot;&amp;Pfalz">
a4<input type="hidden" name="feld2" value="Rhein&quot;hessen&quot;&amp;Pfalz">
a5<input type="hidden" name="feld1" value="Pfalz"><input type="hidden" name="feld2" value="Rhein&quot;hessen&quot;&amp;Pfalz">
a6<input type="hidden" name="feld2" value="Rhein&quot;hessen&quot;&amp;Pfalz">
a7<input type="hidden" name="feld2" value="Rhein&quot;hessen&quot;&amp;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&quot;hessen&quot;&amp;Pfalz">
b3<input type="hidden" name="feld2" value="Rhein&quot;hessen&quot;&amp;Pfalz">
b4<input type="hidden" name="feld2" value="Rhein&quot;hessen&quot;&amp;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&quot;hessen&quot;&amp;Pfalz">
c4<input type="hidden" name="feld2" value="Rhein&quot;hessen&quot;&amp;Pfalz">
@@ -41,7 +41,7 @@
c6<input type="hidden" name="feld2" value="Rhein&quot;hessen&quot;&amp;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

©2024 GT.net. A Gossamer Threads company.
5th Floor, 455 Granville St., Vancouver, BC V6C 1T1, Canada | Legal