Add unit test for embedded.factor

2006-12-18 07:26:54 +00:00 · 2006-12-18 07:26:54 +00:00 · 8f931eae56
parent 7327255050
commit 8f931eae56
4 changed files with 28 additions and 0 deletions
--- a/libs/httpd/load.factor
+++ b/libs/httpd/load.factor
@ -20,6 +20,7 @@ PROVIDE: libs/httpd
    "test/html.factor"
    "test/httpd.factor"
    "test/url-encoding.factor"
+    "test/embedded.factor"
 } } ;

 USE: httpd
--- a/libs/httpd/test/embedded.factor
+++ b/libs/httpd/test/embedded.factor
@ -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
--- a/libs/httpd/test/example.fhtml
+++ b/libs/httpd/test/example.fhtml
@ -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>
--- a/libs/httpd/test/example.html
+++ b/libs/httpd/test/example.html
@ -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>