diff options
| author | Eric Blossom <eb@comsec.com> | 2010-11-23 22:26:25 -0800 |
|---|---|---|
| committer | Eric Blossom <eb@comsec.com> | 2010-11-23 22:26:25 -0800 |
| commit | 5c686d0989c961ff1c5d20c3d9de4d86759ca3af (patch) | |
| tree | 63967a11e0ffe05d3cbc57d0d40fb1b334df2ef7 /gr-trellis/src/lib | |
| parent | 17b63012f821a85924c174b7d89f1236ba4ac5d0 (diff) | |
Add disabled guile test to trellis
Diffstat (limited to 'gr-trellis/src/lib')
| -rw-r--r-- | gr-trellis/src/lib/trellis.test | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gr-trellis/src/lib/trellis.test b/gr-trellis/src/lib/trellis.test index fd650cdf1c..d370ab18c4 100644 --- a/gr-trellis/src/lib/trellis.test +++ b/gr-trellis/src/lib/trellis.test @@ -36,4 +36,18 @@ (use-modules (gnuradio trellis)) ;;; Now do some real testing, like that in ../python/qa_trellis.py +;;; FIXME later. Other problems to deal with. Looks like +;;; I don't understand the constructor to <fsm> + +(read-set! keywords 'prefix) + +'(with-test-prefix "test-001-fsm" + (let* ((I 2) + (S 4) + (O 4) + (NS #(0 2 0 2 1 3 1 3)) + (OS #(0 3 3 0 1 2 2 1)) + (f (make <fsm> :I I :S S :O O :NS NS :OS OS))) + (test-equal (list I S O NS OS) + (list (gr:I f) (gr:S f) (gr:O f) (gr:NS f) (gr:OS f))))) |