diff options
Diffstat (limited to 'ebus-racket/parser-test.rkt')
| -rw-r--r-- | ebus-racket/parser-test.rkt | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/ebus-racket/parser-test.rkt b/ebus-racket/parser-test.rkt new file mode 100644 index 0000000..672dff2 --- /dev/null +++ b/ebus-racket/parser-test.rkt @@ -0,0 +1,56 @@ +#lang racket +(require rackunit + rackunit/text-ui + (prefix-in parser: "parser.rkt")) + +(define parser-test + (test-suite + "Tests for Ebus Parser" + (test-case + "Test sample Master-Master Paket" + (let + ([paket (parser:read-ebus (open-input-bytes (bytes + 170 ; SYN + 170 + 170 + 003 ; Source + 241 ; Destination + 008 ; primaryCommand + 000 ; secondaryCommand + 008 ; payloadLength + 128 ; p1 + 040 ; p2 + 230 ; p3 + 002 ; p4 + 000 ; p5 + 002 ; p6 + 000 ; p7 + 010 ; p8 + 128 ; CRC + 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)) + (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 |