scolobb
/
dds
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

networks: Use a named test-case in the tests for apply-tbf-to-state.

This commit is contained in:
Sergiu Ivanov 2020-07-23 00:22:39 +02:00
parent 6eb6e21979
commit ead66a2f4e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
networks.rkt
View File

@ -939,9 +939,10 @@
(apply-tbf tbf (list->vector (hash-map st (λ (_ val) val)))))
(module+ test
(define st (make-state '((x1 . 0) (x2 . 1))))
(define f (tbf #(1 1) 1))
(check-equal? (apply-tbf-to-state f st) 0))
(test-case "apply-tbf-to-state"
(define st (make-state '((x1 . 0) (x2 . 1))))
(define f (tbf #(1 1) 1))
(check-equal? (apply-tbf-to-state f st) 0)))
;;; A state TBF is a TBF with named inputs. A state TBF can be
;;; applied to states in an unambiguous ways.