From e3e621a05cb6bdab36ae0ee86a88b4b7aaec7f1f Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 14 Aug 2018 13:50:20 +0000
Subject: [PATCH] * Fix bug #34131, missing Msg in checkIS

git-svn-id: trunk@39613 -
---
 packages/fcl-fpcunit/src/DUnitCompatibleInterface.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-fpcunit/src/DUnitCompatibleInterface.inc b/packages/fcl-fpcunit/src/DUnitCompatibleInterface.inc
index f78d1826d6..7733046e26 100644
--- a/packages/fcl-fpcunit/src/DUnitCompatibleInterface.inc
+++ b/packages/fcl-fpcunit/src/DUnitCompatibleInterface.inc
@@ -186,9 +186,9 @@ class procedure TAssert.CheckIs(obj: TObject; pClass: TClass; msg: string);
 begin
   Assert(pClass <> nil);
   if obj = nil then
-    Fail(ComparisonMsg(pClass.ClassName, 'nil'))
+    Fail(ComparisonMsg(msg, pClass.ClassName, 'nil'))
   else if not obj.ClassType.InheritsFrom(pClass) then
-    Fail(ComparisonMsg(pClass.ClassName, obj.ClassName));
+    Fail(ComparisonMsg(msg, pClass.ClassName, obj.ClassName));
 end;
 
 class procedure TAssert.CheckSame(expected, actual: TObject; msg: string);