some tests cleaned up; some bugfixes

3 files changed, 32 insertions, 0 deletions

diff --git a/tests/accept/compile/tambsym2.nim b/tests/accept/compile/tambsym2.nim
new file mode 100755
index 000000000..ecd9a4784
--- /dev/null
+++ b/tests/accept/compile/tambsym2.nim
@@ -0,0 +1,8 @@
+
+from sdl import PSurface
+
+discard SDL.CreateRGBSurface(SDL.SWSURFACE, 23, 34, 
+      32, 0x00FF0000, 0x0000FF00, 0x000000FF, 0xff000000'i32)
+
+
+
diff --git a/tests/accept/compile/tbug538751.nim b/tests/accept/compile/trectuple.nim
index c9ac45797..c9ac45797 100755
--- a/tests/accept/compile/tbug538751.nim
+++ b/tests/accept/compile/trectuple.nim
diff --git a/tests/accept/compile/tshadow_magic_type.nim b/tests/accept/compile/tshadow_magic_type.nim
new file mode 100644
index 000000000..5cd27435e
--- /dev/null
+++ b/tests/accept/compile/tshadow_magic_type.nim
@@ -0,0 +1,24 @@
+type
+  TListItemType* = enum
+    RedisNil, RedisString
+
+  TListItem* = object
+    case kind*: TListItemType
+    of RedisString:
+      str*: string
+    else: nil
+  TRedisList* = seq[TListItem]
+
+# Caused by this.
+proc seq*() =
+  nil
+
+proc lrange*(key: string): TRedisList =
+  var foo: TListItem
+  foo.kind = RedisNil
+  result = @[foo]
+
+when isMainModule:
+  var p = lrange("mylist")
+  for i in items(p):
+    echo(i.str)