From 806a5b983460559e0272ae01d4e1a34f26c51f5c Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Tue, 18 Mar 2008 11:52:59 +0000
Subject: [PATCH] Added the tests for parsing list types in Rain

---
 frontends/ParseRainTest.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/frontends/ParseRainTest.hs b/frontends/ParseRainTest.hs
index b976565..3b9ebb8 100644
--- a/frontends/ParseRainTest.hs
+++ b/frontends/ParseRainTest.hs
@@ -507,6 +507,11 @@ testDataType =
   
   ,pass ("time",RP.dataType,assertEqual "testDataType 300" A.Time)
   ,pass ("timer",RP.dataType,assertEqual "testDataType 301" $ A.UserDataType $ typeName "timer")
+
+  ,pass ("[int]",RP.dataType, assertEqual "testDataType 400" $ A.List A.Int)
+  ,pass ("[uint8]",RP.dataType, assertEqual "testDataType 401" $ A.List A.Byte)
+  ,pass ("[foo]",RP.dataType, assertEqual "testDataType 402" $ A.List
+    $ A.UserDataType $ typeName "foo")
  ]
  
 instance Data a => Show (A.Structured a -> A.Structured a) where