richter 2002/12/23 02:08:55
Modified: . MANIFEST epinit.c test.pl
Added: test/cmp epform.htm
test/html epform.htm
Log:
Add test for epform
Revision Changes Path
1.77 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -r1.76 -r1.77
--- MANIFEST 26 Nov 2002 10:03:40 -0000 1.76
+++ MANIFEST 23 Dec 2002 10:08:54 -0000 1.77
@@ -205,6 +205,7 @@
test/cmp/discard.htm
test/cmp/div.asc
test/cmp/div.htm
+test/cmp/epform.htm
test/cmp/epobase.htm
test/cmp/epobaselib.htm
test/cmp/epobless.htm
@@ -421,6 +422,7 @@
test/html/delwrsess.htm
test/html/discard.htm
test/html/div.htm
+test/html/epform.htm
test/html/errdoc/epl/errdoc2.htm
test/html/errdoc/errdoc.htm
test/html/errmsg.htm
1.6 +2 -2 embperl/epinit.c
Index: epinit.c
===================================================================
RCS file: /home/cvs/embperl/epinit.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- epinit.c 20 Dec 2002 12:00:16 -0000 1.5
+++ epinit.c 23 Dec 2002 10:08:54 -0000 1.6
@@ -1021,7 +1021,7 @@
char * p = strchr(pVal, ':') ;
if (p && *p)
{
- char * p2 = strchr(p, ':') ;
+ char * p2 = strchr(p+1, ':') ;
if (p2)
*p2 = '\0' ;
r -> sSessionUserID = ep_pstrdup (r -> pPool, p +
1) ;
1.121 +5 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -r1.120 -r1.121
--- test.pl 26 Nov 2002 10:03:42 -0000 1.120
+++ test.pl 23 Dec 2002 10:08:54 -0000 1.121
@@ -975,6 +975,10 @@
'xhtml.htm' => {
'version' => 2,
},
+ 'epform.htm' => {
+ 'version' => 2,
+ 'query_info' => 'datum=23.12.2002&stunden=x',
+ },
) ;
for ($i = 0 ; $i < @testdata; $i += 2)
1.1 embperl/test/cmp/epform.htm
Index: epform.htm
===================================================================
<html>
<head>
<title>Embperl Tests - Embperl::Form::Validate</title>
</head>
<body>
Fehler:
Stundenzahl nicht numerisch
Bitte (sinnvollen) Kommentar eingeben
<script>
function epform_validate_foo()
{
var msgs = new Array ;
var fail = 0 ;
var i = 0 ;
var obj ;
do {
do {
do {
obj = document.foo['datum'] ; if (!(obj.value)) { msgs[i++]='Bitte Datum eintragen';
break;}
} while (0) ; if (fail) break ;
do {
obj = document.foo['stunden'] ; if (!(obj.value)) { msgs[i++]='Bitte Stunden
eintragen'; break;}
obj = document.foo['stunden'] ; if (!(obj.value > 0)) { msgs[i++]='Stundenzahl nicht
numerisch'; break;}
} while (0) ; if (fail) break ;
do {
obj = document.foo['kommentar'] ; if (!(obj.value)) { msgs[i++]='Bitte (sinnvollen)
Kommentar eingeben'; break;}
} while (0) ; if (fail) break ;
} while (0) ; if (fail) break ;
;
}
while (0) ;
if (i)
alert (msgs.join('\n')) ;
return !i ;
}
</script>
<form name="foo" action="POST" onSubmit="return epform_validate_foo()">
stunden <input type="text" name="stunden" value="x"><br>
datum <input type="text" name="datum" value="23.12.2002"><br>
kommentar <input type="text" name="kommentar" value=""><br>
<input type="submit"><br>
</form>
</body>
</html>
1.1 embperl/test/html/epform.htm
Index: epform.htm
===================================================================
<html>
<head>
<title>Embperl Tests - Embperl::Form::Validate</title>
</head>
<body>
[-
use Embperl::Form::Validate;
$epf = Embperl::Form::Validate -> new ([
[
-key => 'datum',
-msg => 'Bitte Datum eintragen',
required => 1,
-msg => 'Datum überprüfen',
matches_regex => '\d+\.\d+\.\d+',
],
[
-key => 'stunden',
-msg => 'Bitte Stunden eintragen',
required => 1,
-msg => 'Stundenzahl nicht numerisch', # fail-msg for next test
-type => 'Number', # only Number and Default
available
-msg => 'Stundenzahl muß >0 sein', # fail-msg for next test
gt => 0,
],
[
-key => 'kommentar',
-msg => 'Bitte (sinnvollen) Kommentar eingeben',
required => 1,
],
], 'foo');
$failures = $epf -> validate_messages ;
if (@$failures)
{
print OUT "<font size="+2">Fehler:</font>\n";
foreach $msg (@$failures) {
print OUT "$msg<br>\n";
}
}
-]
<script>
[+ do { local $escmode = 0 ; $epf -> get_script_code } +]
</script>
<form name="foo" action="POST" onSubmit="return epform_validate_foo()">
stunden <input type=text name="stunden"><br>
datum <input type=text name="datum"><br>
kommentar <input type=text name="kommentar"><br>
<input type=submit><br>
</form>
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
