suzanne.soy/profile
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added tests for topological-sort

Browse Source 
svn: r14813

original commit: 9c99a32d29f37cf5dfb06468b3579c94a9a71089
This commit is contained in:
Eli Barzilay 2009-05-14 15:33:20 +00:00
parent 304cdc2483
commit 18b996199b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/profile/main.ss
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require tests/eli-tester profile/structs profile/analyzer (require tests/eli-tester profile/structs profile/analyzer
scheme/match scheme/list) scheme/match scheme/list "topsort.ss")
(define A '(A . #f)) (define A '(A . #f))
(define B '(B . #f)) (define B '(B . #f))
@ -37,6 +37,8 @@
(test (test
do (topological-sort-tests)
(match (analyze `(10 (match (analyze `(10
[0 0 ,A] [0 0 ,A]
[0 1 ,A])) [0 1 ,A]))