diff options
| author | Yves Fischer <yvesf-git@xapek.org> | 2012-02-26 18:40:06 +0100 |
|---|---|---|
| committer | Yves Fischer <yvesf-git@xapek.org> | 2012-02-26 18:40:06 +0100 |
| commit | 79614c6c284585d4fb1fa728e3965beeab7752d3 (patch) | |
| tree | 47e1a3153179aa18327840eda8fe3859c0991c67 /ebus-racket/parser-test.rkt | |
| parent | e01f36c90c19ddf52c4c3b2f9d14f1fb52349c4a (diff) | |
| download | ebus-alt-79614c6c284585d4fb1fa728e3965beeab7752d3.tar.gz ebus-alt-79614c6c284585d4fb1fa728e3965beeab7752d3.zip | |
ebus-racket: remove seperate ebus-header struct
Diffstat (limited to 'ebus-racket/parser-test.rkt')
| -rw-r--r-- | ebus-racket/parser-test.rkt | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/ebus-racket/parser-test.rkt b/ebus-racket/parser-test.rkt index 672dff2..1b4bc71 100644 --- a/ebus-racket/parser-test.rkt +++ b/ebus-racket/parser-test.rkt @@ -11,7 +11,6 @@ (let ([paket (parser:read-ebus (open-input-bytes (bytes 170 ; SYN - 170 170 003 ; Source 241 ; Destination @@ -30,27 +29,13 @@ 000 ; ACK 170 ; SYN 170)))]) - (check-eq? (parser:ebus-header-source (parser:ebus-paket-header paket)) 003) - (check-eq? (parser:ebus-header-destination (parser:ebus-paket-header paket)) 241) - (check-eq? (parser:ebus-header-primaryCommand (parser:ebus-paket-header paket)) 008) - (check-eq? (parser:ebus-header-secondaryCommand (parser:ebus-paket-header paket)) 000) - (check-eq? (parser:ebus-header-payloadLength (parser:ebus-paket-header paket)) 008) - (check-eq? (parser:ebus-header-payloadLength (parser:ebus-paket-header paket)) + (check-eq? (parser:ebus-paket-source paket) 003) + (check-eq? (parser:ebus-paket-destination paket) 241) + (check-eq? (parser:ebus-paket-primaryCommand paket) 008) + (check-eq? (parser:ebus-paket-secondaryCommand paket) 000) + (check-eq? (parser:ebus-paket-payloadLength paket) 008) + (check-eq? (parser:ebus-paket-payloadLength paket) (length (parser:ebus-paket-payload paket))) )))) - -;(check-equal? (my-+ 1 1) 2 "Simple addition") - - ;(check-equal? (my-* 1 2) 2 "Simple multiplication") -; -; (test-case -; "List has length 4 and all elements even" -; (let ([lst (list 2 4 6 9)]) -; (check = (length lst) 4) -; (for-each -; (lambda (elt) -; (check-pred even? elt)) -; lst))))) - (run-tests parser-test)
\ No newline at end of file |