From 946eb7d95fc04d465802c8fc00e5d4130a52c8f2 Mon Sep 17 00:00:00 2001 From: Random Hacker Date: Sat, 23 Feb 2013 01:32:51 +0100 Subject: racket: aufgraeumt, data2c gefixt --- ebus-racket/layer7-test.rkt | 46 --------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 ebus-racket/layer7-test.rkt (limited to 'ebus-racket/layer7-test.rkt') diff --git a/ebus-racket/layer7-test.rkt b/ebus-racket/layer7-test.rkt deleted file mode 100644 index 2099bf8..0000000 --- a/ebus-racket/layer7-test.rkt +++ /dev/null @@ -1,46 +0,0 @@ -#lang racket/base -(require rackunit - rackunit/text-ui - "layer2.rkt" - "layer7.rkt") - -(define layer7-test - (test-suite - "Tests for Ebus Layer 7 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 - 200 ; p5 - 002 ; p6 - 000 ; p7 - 010 ; p8 - 128 ; CRC - 000 ; ACK - 170 ; SYN - 170)))] - [fields (layer7-paket-fields paket)]) - (check-true (= 5 (length fields)) "Anzahl der gelesenen Felder") - (for ([field fields]) - (display field) - (display "\n") - (cond ((= (list-ref field 2) 0) (check-equal? (list-ref field 3) 40.5 "Wert TK_soll")) - ((= (list-ref field 2) 2) (check-equal? (list-ref field 3) 2.8984375 "Wert TA_ist")) - ((= (list-ref field 2) 4) (check-equal? (list-ref field 3) 200 "Wert L_zwang")) - ((= (list-ref field 2) 5) (check-equal? (list-ref field 3) 0 "Wert Status")) - ((= (list-ref field 2) 6) (check-equal? (list-ref field 3) 10 "Wert TB_soll")))))) ;end test-case - )) - - -(exit (run-tests layer7-test)) \ No newline at end of file -- cgit v1.2.1