1 files changed, 43 insertions, 0 deletions

diff --git a/cs-dotnet/src/tests/lists.cs b/cs-dotnet/src/tests/lists.cs
new file mode 100644
index 0000000..8d12bf9
--- /dev/null
+++ b/cs-dotnet/src/tests/lists.cs
@@ -0,0 +1,43 @@
+using System;
+using System.IO;
+using Com.Xagasoft.Gats;
+
+public class Test
+{
+    public static void Write( GatsObject o, Stream s )
+    {
+        o.Write( s );
+        Console.WriteLine("Wrote: " + o );
+    }
+
+    public static void Read( Stream s )
+    {
+        GatsObject o = GatsObject.Read( s );
+        Console.WriteLine("Read type: " + o.GetType() );
+        Console.WriteLine("Read vlaue: " + o );
+    }
+
+    public static void Main()
+    {
+        MemoryStream ms = new MemoryStream();
+        GatsList l = new GatsList();
+        l.Add( new GatsFloat( Math.PI ) );
+        l.Add( new GatsInteger( 1337 ) );
+        l.Add( new GatsString("Hello") );
+        Write( l, ms );
+        ms.Seek( 0, SeekOrigin.Begin );
+        Read( ms );
+/*
+        try
+        {
+            FileStream fs = new FileStream("float.gats", FileMode.Open,
+                    FileAccess.Read );
+            Read( fs );
+        }
+        catch( Exception e )
+        {
+            Console.WriteLine("Can't test files: " + e.Message );
+        }
+        */
+    }
+}