diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-13 16:11:25 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-13 16:11:25 -0400 |
| commit | 97cc749872a8baf53bb34ef1b536b82f6aa7f1c7 (patch) | |
| tree | c297f92dea86916471d18bb3c987834935bfcce2 /tests | |
| parent | f0b8905c1239b9b801c01cff28302cbd8d362f6e (diff) | |
Proper handling of non-function-call links
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/links.lac | 24 | ||||
| -rw-r--r-- | tests/linksF.lac | 24 |
2 files changed, 48 insertions, 0 deletions
diff --git a/tests/links.lac b/tests/links.lac new file mode 100644 index 00000000..7a7b1e98 --- /dev/null +++ b/tests/links.lac @@ -0,0 +1,24 @@ +val pC : xhtml = <html><body> + <h1>Page C</h1> +</body></html> + +val pB : xhtml = <html><body> + <h1>Page B</h1> + + <li> <a link={pC}>C</a></li> +</body></html> + +val pA : xhtml = <html><body> + <h1>Page A</h1> + + <li> <a link={pB}>B</a></li> + <li> <a link={pC}>C</a></li> +</body></html> + +val main : unit -> xhtml = fn () => <html><body> + <h1>Main</h1> + + <li> <a link={pA}>A</a></li> + <li> <a link={pB}>B</a></li> + <li> <a link={pC}>C</a></li> +</body></html> diff --git a/tests/linksF.lac b/tests/linksF.lac new file mode 100644 index 00000000..0bcfe1d1 --- /dev/null +++ b/tests/linksF.lac @@ -0,0 +1,24 @@ +val pC : unit -> xhtml = fn () => <html><body> + <h1>Page C</h1> +</body></html> + +val pB : unit -> xhtml = fn () => <html><body> + <h1>Page B</h1> + + <li> <a link={pC ()}>C</a></li> +</body></html> + +val pA : unit -> xhtml = fn () => <html><body> + <h1>Page A</h1> + + <li> <a link={pB ()}>B</a></li> + <li> <a link={pC ()}>C</a></li> +</body></html> + +val main : unit -> xhtml = fn () => <html><body> + <h1>Main</h1> + + <li> <a link={pA ()}>A</a></li> + <li> <a link={pB ()}>B</a></li> + <li> <a link={pC ()}>C</a></li> +</body></html> |