;; test_templates.nu
;;  tests for Nu code templates.
;;
;;  Copyright (c) 2007 Tim Burks, Neon Design Technology, Inc.
 
(load "template")
 
(class TestTemplates is NuTestCase
     
     (imethod (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)))
     
     (imethod (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)))