Added another compiletime pragma

Author: PhilippMDoerner

src/applications/genericUtils.nim

@@ -54,7 +54,7 @@ proc getRelatedFieldNameOn*[M: Model](targetTableName: static string, sourceType
     raise newException(FieldDefect, errorMsg)
 
 
-proc getRelatedFieldNameOn*[M: Model, O:Model](targetType: typedesc[O], sourceType: typedesc[M]): string =
+proc getRelatedFieldNameOn*[M: Model, O:Model](targetType: typedesc[O], sourceType: typedesc[M]): string {.compileTime.} =
     result = getRelatedFieldNameOn(O.table(), sourceType)
 
 

tests/tgenericUtil.nim

@@ -0,0 +1,22 @@
+import ../src/applications/genericUtils
+import std/[unittest, logging, typetraits]
+import norm/[pragmas, model]
+
+suite "getRelatedFieldNameOn":
+  setup:
+    type A = ref object of Model
+      name: string
+    
+    type B = ref object of Model
+      fk1 {.fk: A.}: int64
+      fk2 {.fk: A.}: int64
+  
+    type C = ref object of Model
+      fk1 {.fk: A.}: int64
+
+  test "Given a model with 1 FK on another model, When getting relatedFieldNameOn, Then compile":
+    check compiles(A.getRelatedFieldNameOn(C)) == true
+    check A.getRelatedFieldNameOn(C) == "fk1"
+  
+  test "Given a model with 2 FK on another model, When getting relatedFieldNameOn, Then don't compile":
+    check compiles(A.getRelatedFieldNameOn(B)) == false