Changeset 20996 in project for release/4/sxml-fu/trunk/tests/run.scm


Ignore:
Timestamp:
10/24/10 21:26:55 (11 years ago)
Author:
sjamaan
Message:

sxml-fu: Convert pagination rules to starred forms and add a basic test (needs a lot more testing though)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sxml-fu/trunk/tests/run.scm

    r20995 r20996  
    1 (use test sxml-transforms sxml-fu sxml-shortcuts)
     1(use test sxml-transforms sxml-fu sxml-shortcuts sxml-pagination)
    22
    33(define normal-rules
     
    6767                         shortcut-rules*)))
    6868
     69(test-group "pagination"
     70  (test "list pagination"
     71        '(ul (li "a") (li "b") (li "c") (li "d"))
     72        (pre-post-order-splice*
     73         '(paginate-list
     74           (ul (entries (li (entry))))
     75           ("a" "b" "c" "d")) pagination-rules*)))
     76
    6977(test-end "sxml-fu")
    7078
Note: See TracChangeset for help on using the changeset viewer.