From bf8595580227ece7cd8a28365d2147229acff4b9 Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Tue, 2 Oct 2018 23:45:27 +0200
Subject: fixes #7092

---
 tests/concepts/tusertypeclasses.nim | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/concepts/tusertypeclasses.nim b/tests/concepts/tusertypeclasses.nim
index 533bd528d..3ea10569f 100644
--- a/tests/concepts/tusertypeclasses.nim
+++ b/tests/concepts/tusertypeclasses.nim
@@ -4,6 +4,7 @@ Sortable
 Container
 TObj
 int
+111 111
 '''
 """
 
@@ -25,7 +26,7 @@ type
     C.len is Ordinal
     for v in items(C):
       v.type is tuple|object
-   
+
 proc foo(c: ObjectContainer) =
   echo "Container"
 
@@ -94,6 +95,15 @@ proc to(x: TObj, t: type JSonValue) = discard
 proc testFoo(x: TFoo) =
   echo x.TypeName
   echo x.MappedType.name
-  
+
 testFoo(TObj(x: 10))
 
+# bug #7092
+
+type stringTest = concept x
+  x is string
+
+let usedToFail: stringTest = "111"
+let working: string = "111"
+
+echo usedToFail, " ", working
-- 
cgit 1.4.1-2-gfad0