added tests for topological-sort

svn: r14813
2009-05-14 15:33:20 +00:00 · 2009-05-14 15:33:20 +00:00 · 9c99a32d29
commit 9c99a32d29
parent ccca3b3df6
1 changed files with 3 additions and 1 deletions
--- a/collects/tests/profile/main.ss
+++ b/collects/tests/profile/main.ss
@ -1,7 +1,7 @@
 #lang scheme/base

 (require tests/eli-tester profile/structs profile/analyzer
-         scheme/match scheme/list)
+         scheme/match scheme/list "topsort.ss")

 (define A '(A . #f))
 (define B '(B . #f))
@ -37,6 +37,8 @@

 (test

+ do (topological-sort-tests)
+
 (match (analyze `(10
                   [0 0 ,A]
                   [0 1 ,A]))