From e01f36c90c19ddf52c4c3b2f9d14f1fb52349c4a Mon Sep 17 00:00:00 2001
From: Yves Fischer <yvesf-git@xapek.org>
Date: Sun, 26 Feb 2012 18:34:22 +0100
Subject: ebus-racket: simple unittest

---
 ebus-racket/parser-test.rkt | 56 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 ebus-racket/parser-test.rkt

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

diff --git a/ebus-racket/parser-test.rkt b/ebus-racket/parser-test.rkt
new file mode 100644
index 0000000..672dff2
--- /dev/null
+++ b/ebus-racket/parser-test.rkt
@@ -0,0 +1,56 @@
+#lang racket
+(require rackunit
+         rackunit/text-ui
+         (prefix-in parser: "parser.rkt"))
+
+(define parser-test
+  (test-suite
+   "Tests for Ebus Parser"
+   (test-case
+    "Test sample Master-Master Paket"
+    (let
+        ([paket (parser:read-ebus (open-input-bytes (bytes
+                                                     170 ; SYN
+                                                     170
+                                                     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? (parser:ebus-header-source (parser:ebus-paket-header paket)) 003)
+      (check-eq? (parser:ebus-header-destination (parser:ebus-paket-header paket)) 241)
+      (check-eq? (parser:ebus-header-primaryCommand (parser:ebus-paket-header paket)) 008)
+      (check-eq? (parser:ebus-header-secondaryCommand (parser:ebus-paket-header paket)) 000)
+      (check-eq? (parser:ebus-header-payloadLength (parser:ebus-paket-header paket)) 008)
+      (check-eq? (parser:ebus-header-payloadLength (parser:ebus-paket-header paket))
+                 (length (parser:ebus-paket-payload paket)))
+      ))))
+      
+;(check-equal? (my-+ 1 1) 2 "Simple addition")
+
+   ;(check-equal? (my-* 1 2) 2 "Simple multiplication")
+; 
+;   (test-case
+;    "List has length 4 and all elements even"
+;    (let ([lst (list 2 4 6 9)])
+;      (check = (length lst) 4)
+;      (for-each
+;        (lambda (elt)
+;          (check-pred even? elt))
+;      lst)))))
+
+
+(run-tests parser-test)
\ No newline at end of file
-- 
cgit v1.2.1