From 946eb7d95fc04d465802c8fc00e5d4130a52c8f2 Mon Sep 17 00:00:00 2001
From: Random Hacker <random_hacker@xapek.org>
Date: Sat, 23 Feb 2013 01:32:51 +0100
Subject: racket: aufgraeumt, data2c gefixt

---
 ebus-racket/tests/layer2-test.rkt | 71 +++++++++++++++++++++++++++++++++++++++
 ebus-racket/tests/layer7-test.rkt | 46 +++++++++++++++++++++++++
 2 files changed, 117 insertions(+)
 create mode 100644 ebus-racket/tests/layer2-test.rkt
 create mode 100644 ebus-racket/tests/layer7-test.rkt

(limited to 'ebus-racket/tests')

diff --git a/ebus-racket/tests/layer2-test.rkt b/ebus-racket/tests/layer2-test.rkt
new file mode 100644
index 0000000..c329de1
--- /dev/null
+++ b/ebus-racket/tests/layer2-test.rkt
@@ -0,0 +1,71 @@
+#lang racket/base
+(require rackunit
+         rackunit/text-ui
+         "../ebus/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))
diff --git a/ebus-racket/tests/layer7-test.rkt b/ebus-racket/tests/layer7-test.rkt
new file mode 100644
index 0000000..68442d9
--- /dev/null
+++ b/ebus-racket/tests/layer7-test.rkt
@@ -0,0 +1,46 @@
+#lang racket/base
+(require rackunit
+         rackunit/text-ui
+         "../ebus/layer2.rkt"
+         "../ebus/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))
-- 
cgit v1.2.1