Changeset 5723 in project


Ignore:
Timestamp:
08/25/07 14:52:45 (12 years ago)
Author:
Ivan Raikov
Message:

Test infrastructure changed to use testbase.

Location:
digraph/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • digraph/trunk/digraph-eggdoc.scm

    r5166 r5723  
    99
    1010     (history
     11      (version "1.6" "Test infrastructure changed to use testbase")
    1112      (version "1.5" "Bug fixes in set-out-edges! and set-in-edges! [thanks to Andreas Scholta]")
    1213      (version "1.4" "License upgrade to GPL v3")
  • digraph/trunk/digraph.meta

    r4272 r5723  
    1616 ; A list of eggs digraph depends on.
    1717
    18  (needs testeez eggdoc dyn-vector)
     18 (needs testbase eggdoc dyn-vector)
    1919
    2020 (eggdoc "digraph-eggdoc.scm")
  • digraph/trunk/digraph.setup

    r5166 r5723  
    1818
    1919  ; Assoc list with properties for your extension:
    20   `((version 1.5)
     20  `((version 1.6)
    2121    (documentation "digraph.html")
    2222    ,@(if has-exports? `((exports "digraph.exports")) (list)) ))
  • digraph/trunk/tests/run.scm

    r4271 r5723  
    3131
    3232(require-extension srfi-1)
    33 (require-extension testeez)
    3433(require-extension digraph)
    35 
     34(require-extension testbase)
     35(require-extension testbase-output-compact)
    3636
    3737(define used-by
     
    4747
    4848
    49 (define (digraph-test)
    50   (testeez "--> digraph test"
     49(define-test digraph-test "digraph test"
     50  (initial
     51   (define g  (make-digraph 'depgraph "dependency graph"))
    5152
    52            (test-define "dependency graph" g
    53                         (make-digraph 'depgraph "dependency graph"))
     53   (define node-list
     54     (delete-duplicates
     55      (concatenate (list (map car used-by) (map cdr used-by)))))
     56           
     57   (define node-ids
     58     (list-tabulate (length node-list) values))
    5459
    55            (test-define "nodes in the dependency graph" node-list
    56                         (delete-duplicates
    57                          (concatenate (list (map car used-by) (map cdr used-by)))))
    58            
    59            (test-define "node identifiers" node-ids
    60                         (list-tabulate (length node-list) values))
     60   (define node-map  (zip node-list node-ids)))
    6161
    62            (test-eval "add the nodes to the graph"
    63                       (for-each (lambda (i n) ((g 'add-node!) i n))
    64                                 node-ids node-list))
     62 
     63  ;; add the nodes to the graph
     64  (test-eval 'add-nodes
     65             (for-each (lambda (i n) ((g 'add-node!) i n))
     66                       node-ids node-list))
     67  ;; make sure all nodes got inserted
     68  (test/equal 'nodes-inserted?
     69   ((g 'nodes))
     70   '((14 killerapp)
     71     (13 libzigzag_a) (12 zag_o) (11 zag_cpp)
     72     (10 zig_o) (9 zig_cpp) (8 libfoobar_a) (7 bar_o)
     73     (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h) (2 boz_h)
     74     (1 yow_h) (0 dax_h)))
     75   
     76  ;; add the edges to the graph
     77  (test-eval 'add-edges
     78             (for-each (lambda (e)
     79                         (print "e = " e)
     80                         (cond ((pair? e)
     81                                (let ((ni (car e))  (nj (cdr e)))
     82                                  (let ((i (car (alist-ref ni node-map)))
     83                                        (j (car (alist-ref nj node-map))))
     84                                    ((g 'add-edge!) (list i j (format "~A->~A" ni nj))))))
     85                               (else (error "invalid edge " e))))
     86                       used-by))
     87   
     88   ;; make sure all edges got correctly created
     89   (test/equal 'edges-inserted?
     90               ((g 'edges))
     91               '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a")
     92                 (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a")
     93                 (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a")
     94                 (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o")
     95                 (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o")
     96                 (3 4 "zow_h->foo_cpp") (2 11 "boz_h->zag_cpp")
     97                 (2 9 "boz_h->zig_cpp") (2 6 "boz_h->bar_cpp")
     98                 (1 11 "yow_h->zag_cpp") (1 6 "yow_h->bar_cpp")
     99                 (0 1 "dax_h->yow_h") (0 6 "dax_h->bar_cpp") (0 4 "dax_h->foo_cpp")))
     100   
     101    ;; remove node 0 from graph
     102   (test-eval 'remove-node-0
     103              ((g 'remove-node!) 0))
     104   
     105   ;; make sure node 0 got removed
     106   (test/equal 'node-0-removed?
     107               ((g 'nodes))
     108               '((14 killerapp) (13 libzigzag_a) (12 zag_o)
     109                 (11 zag_cpp) (10 zig_o) (9 zig_cpp) (8 libfoobar_a)
     110                 (7 bar_o) (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h)
     111                 (2 boz_h) (1 yow_h)))
    65112
    66            (test/equal "make sure all nodes got inserted"
    67                        ((g 'nodes))
    68                        '((14 killerapp)
    69                          (13 libzigzag_a) (12 zag_o) (11 zag_cpp)
    70                          (10 zig_o) (9 zig_cpp) (8 libfoobar_a) (7 bar_o)
    71                          (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h) (2 boz_h)
    72                          (1 yow_h) (0 dax_h)))
     113    ;; make sure the edges of node 0 got removed
     114   (test/equal 'node-0-edges-removed?
     115               ((g 'edges))
     116               '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a")
     117                 (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a")
     118                 (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a")
     119                 (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o")
     120                 (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o")
     121                 (3 4 "zow_h->foo_cpp") (2 11 "boz_h->zag_cpp")
     122                 (2 9 "boz_h->zig_cpp") (2 6 "boz_h->bar_cpp")
     123                 (1 11 "yow_h->zag_cpp") (1 6 "yow_h->bar_cpp")))
     124   
     125    ;; remove node 2 from graph
     126   (test-eval 'remove-node-2
     127    ((g 'remove-node!) 2))
    73128
    74            (test-define "node map: name -> id" node-map
    75                         (zip node-list node-ids))
     129    ;; make sure node 2 got removed
     130   (test/equal 'node-0-removed?
     131               ((g 'nodes))
     132               '((14 killerapp) (13 libzigzag_a) (12 zag_o)
     133                 (11 zag_cpp) (10 zig_o) (9 zig_cpp) (8 libfoobar_a)
     134                 (7 bar_o) (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h) (1 yow_h)))
    76135
    77            (test-eval "add the edges to the graph"
    78                       (for-each (lambda (e)
    79                                   (match e ((ni . nj) (let ((i (car (alist-ref ni node-map)))
    80                                                             (j (car (alist-ref nj node-map))))
    81                                                         (print "edge = " (list i j (format "~A->~A" ni nj)))
    82                                                         ((g 'add-edge!) (list i j (format "~A->~A" ni nj)))))
    83                                          (else (error "invalid edge " e))))
    84                                 used-by))
     136    ;; make sure the edges of node 2 got removed
     137   (test/equal 'node-2-edges-removed?
     138               ((g 'edges))
     139               '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a")
     140                 (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a")
     141                 (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a")
     142                 (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o")
     143                 (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o")
     144                 (3 4 "zow_h->foo_cpp") (1 11 "yow_h->zag_cpp")
     145                 (1 6 "yow_h->bar_cpp"))))
    85146
    86            (test/equal "make sure all edges got correctly created"
    87                        ((g 'edges))
    88                        '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a")
    89                          (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a")
    90                          (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a")
    91                          (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o")
    92                          (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o")
    93                          (3 4 "zow_h->foo_cpp") (2 11 "boz_h->zag_cpp")
    94                          (2 9 "boz_h->zig_cpp") (2 6 "boz_h->bar_cpp")
    95                          (1 11 "yow_h->zag_cpp") (1 6 "yow_h->bar_cpp")
    96                          (0 1 "dax_h->yow_h") (0 6 "dax_h->bar_cpp") (0 4 "dax_h->foo_cpp")))
     147(test::styler-set! digraph-test test::output-style-compact)
     148(run-test "digraph test")
    97149
    98            
    99            (test-eval "remove node 0 from graph" ((g 'remove-node!) 0))
    100            (test/equal "make sure node 0 got removed"
    101                        ((g 'nodes))
    102                        '((14 killerapp) (13 libzigzag_a) (12 zag_o)
    103                          (11 zag_cpp) (10 zig_o) (9 zig_cpp) (8 libfoobar_a)
    104                          (7 bar_o) (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h)
    105                          (2 boz_h) (1 yow_h)))
    106            (test/equal "make sure the edges of node 0 got removed"
    107                        ((g 'edges))
    108                        '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a")
    109                          (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a")
    110                          (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a")
    111                          (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o")
    112                          (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o")
    113                          (3 4 "zow_h->foo_cpp") (2 11 "boz_h->zag_cpp")
    114                          (2 9 "boz_h->zig_cpp") (2 6 "boz_h->bar_cpp")
    115                          (1 11 "yow_h->zag_cpp") (1 6 "yow_h->bar_cpp")))
    116150
    117            (test-eval "remove node 2 from graph" ((g 'remove-node!) 2))
    118            (test/equal "make sure node 2 got removed"
    119                        ((g 'nodes))
    120                        '((14 killerapp) (13 libzigzag_a) (12 zag_o)
    121                          (11 zag_cpp) (10 zig_o) (9 zig_cpp) (8 libfoobar_a)
    122                          (7 bar_o) (6 bar_cpp) (5 foo_o) (4 foo_cpp) (3 zow_h) (1 yow_h)))
    123            (test/equal "make sure the edges of node 2 got removed"
    124                        ((g 'edges))
    125                        '((13 14 "libzigzag_a->killerapp") (12 13 "zag_o->libzigzag_a")
    126                          (11 12 "zag_cpp->zag_o") (10 13 "zig_o->libzigzag_a")
    127                          (9 10 "zig_cpp->zig_o") (8 13 "libfoobar_a->libzigzag_a")
    128                          (7 8 "bar_o->libfoobar_a") (6 7 "bar_cpp->bar_o")
    129                          (5 8 "foo_o->libfoobar_a") (4 5 "foo_cpp->foo_o")
    130                          (3 4 "zow_h->foo_cpp") (1 11 "yow_h->zag_cpp")
    131                          (1 6 "yow_h->bar_cpp")))))
    132151
    133 (digraph-test)
    134152
    135153
Note: See TracChangeset for help on using the changeset viewer.