steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add unit test for embedded.factor

darcs
slava 2006-12-18 07:26:54 +00:00
parent 7327255050
commit 8f931eae56
4 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
libs/httpd/load.factor
View File

@ -20,6 +20,7 @@ PROVIDE: libs/httpd
"test/html.factor" "test/html.factor"
"test/httpd.factor" "test/httpd.factor"
"test/url-encoding.factor" "test/url-encoding.factor"
"test/embedded.factor"
} } ; } } ;
USE: httpd USE: httpd

11
libs/httpd/test/embedded.factor Normal file
View File

@ -0,0 +1,11 @@
IN: temporary
USING: io embedded kernel test ;
[ t ] [
"libs/httpd/test/example.fhtml" resource-path
[ run-embedded-file ] string-out
"libs/httpd/test/example.html"
resource-path <file-reader> contents
=
] unit-test

8
libs/httpd/test/example.fhtml Normal file
View File

@ -0,0 +1,8 @@
<% USING: math ; %>
<html>
<head><title>Simple Embedded Factor Example</title></head>
<body>
<% 5 [ %><p>I like repetition</p><% ] times %>
</body>
</html>

8
libs/httpd/test/example.html Normal file
View File

@ -0,0 +1,8 @@
<html>
<head><title>Simple Embedded Factor Example</title></head>
<body>
<p>I like repetition</p><p>I like repetition</p><p>I like repetition</p><p>I like repetition</p><p>I like repetition</p>
</body>
</html>