diff options
| author | Random Hacker <random_hacker@xapek.org> | 2013-02-23 01:32:51 +0100 |
|---|---|---|
| committer | Random Hacker <random_hacker@xapek.org> | 2013-02-23 01:33:43 +0100 |
| commit | 946eb7d95fc04d465802c8fc00e5d4130a52c8f2 (patch) | |
| tree | 3f2ca0a604a6f2ea4e572b9f8664cb29725e2712 /ebus-racket/layer2-test.rkt | |
| parent | 3b286fc39032d3a6249a61b6ec6f9c95672c5d8b (diff) | |
| download | ebus-alt-946eb7d95fc04d465802c8fc00e5d4130a52c8f2.tar.gz ebus-alt-946eb7d95fc04d465802c8fc00e5d4130a52c8f2.zip | |
racket: aufgraeumt, data2c gefixt
Diffstat (limited to 'ebus-racket/layer2-test.rkt')
| -rw-r--r-- | ebus-racket/layer2-test.rkt | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/ebus-racket/layer2-test.rkt b/ebus-racket/layer2-test.rkt deleted file mode 100644 index 326725d..0000000 --- a/ebus-racket/layer2-test.rkt +++ /dev/null @@ -1,71 +0,0 @@ -#lang racket/base -(require rackunit - rackunit/text-ui - "layer2.rkt") - -(define layer2-test - (test-suite - "Tests for Ebus Parser" - (test-case - "Test sample Master-Master Paket" - (let - ([paket (layer2-read-ebus - (open-input-bytes - (bytes - 170 ; SYN - 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? (layer2-ebus-paket-source paket) 003) - (check-eq? (layer2-ebus-paket-destination paket) 241) - (check-eq? (layer2-ebus-paket-primaryCommand paket) 008) - (check-eq? (layer2-ebus-paket-secondaryCommand paket) 000) - (check-eq? (layer2-ebus-paket-payloadLength paket) 008) - (check-eq? (layer2-ebus-paket-payloadLength paket) - (length (layer2-ebus-paket-payload paket))) - )) - (test-case - "test invalid paket" - (let - ([paket (layer2-read-ebus - (open-input-bytes - (bytes - 170 ;SYN - 170 ;SYN - 016 ;SRC - 003 ;DEST - 008 ;PRIM => sollwertuebertragungRegler - 000 ;SEC => sollwertuebertragungRegler - 008 ;PAY - 051 ;P1 - 042 ;P2 - 000 ;P3 - 009 ;P4 - 128 ;P5 - 019 ;P6 - 000 ;P7 | ACK - 045 ;P8 | ??? - 170 ;SYN - 170 ;SYN - )))]) - (check-eq? paket eof) - )) - )) - - -(exit (run-tests layer2-test))
\ No newline at end of file |