From 18b996199b8575fda54678e5726af1c87891af1d Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 14 May 2009 15:33:20 +0000 Subject: [PATCH] added tests for topological-sort svn: r14813 original commit: 9c99a32d29f37cf5dfb06468b3579c94a9a71089 --- collects/tests/profile/main.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/tests/profile/main.ss b/collects/tests/profile/main.ss index 00d3339..df3395d 100644 --- 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]))