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 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 71 insertions(+)
 create mode 100644 ebus-racket/tests/layer2-test.rkt

(limited to 'ebus-racket/tests/layer2-test.rkt')

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))
-- 
cgit v1.2.1