test/test_templates.nu

;; test_templates.nu
;;  tests for Nu code templates.
;;
;;  Copyright (c) 2007 Tim Burks, Radtastical Inc.

(load "template")

(class TestTemplates is NuTestCase
     
     (- (id) testCodeSubstitution is
        (set template (NuTemplate codeForString:<<-END
this is <%= (- 2 1) %> of many (at least <%= (+ -2 3) %>) tests.END))
        (set goal <<-END
this is 1 of many (at least 1) tests.END)
        (assert_equal goal (eval template)))
     
     (- (id) testCountingSubstitution is
        (set template (NuTemplate codeForString:<<-END
<% (10 times: (do (i) %><%= i %>: <%= (- 10 i) %>
<% )) %>END))
        (set goal <<-END
0: 10
1: 9
2: 8
3: 7
4: 6
5: 5
6: 4
7: 3
8: 2
9: 1
END)
        (set result (eval template))
        (assert_equal goal result)))