From caae83f445935c06cd6aef36f283a4688675278a Mon Sep 17 00:00:00 2001
From: Yves Fischer <yvesf-git@xapek.org>
Date: Sun, 14 Aug 2016 19:25:26 +0200
Subject: refactored ebus code

---
 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..6be2ba8
--- /dev/null
+++ b/ebus-racket/tests/layer2-test.rkt
@@ -0,0 +1,71 @@
+#lang racket/base
+(require rackunit
+         rackunit/text-ui
+         (prefix-in layer2- "../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