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

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

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