From 73af20b7a6690bdbd7bac7410befcc44554e9ce4 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Mon, 11 Mar 2024 11:59:25 +0100
Subject: [PATCH] failing test case for redefineWithObjectArgs

---
 src/test/cases/BasicTestCase.hx   |  4 ++++
 src/test/cases/BasicTestCase.kiss | 16 +++++++++++++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/src/test/cases/BasicTestCase.hx b/src/test/cases/BasicTestCase.hx
index c30c1e9..c94960b 100644
--- a/src/test/cases/BasicTestCase.hx
+++ b/src/test/cases/BasicTestCase.hx
@@ -457,6 +457,10 @@ class BasicTestCase extends Test {
         _testObjectWith();
     }
 
+    function testRedefineWithObjectArgs() {
+        _testRedefineWithObjectArgs();
+    }
+
     var aNullToPrint = null;
 }
 
diff --git a/src/test/cases/BasicTestCase.kiss b/src/test/cases/BasicTestCase.kiss
index ebe855a..ee38569 100644
--- a/src/test/cases/BasicTestCase.kiss
+++ b/src/test/cases/BasicTestCase.kiss
@@ -990,4 +990,18 @@ From:[(assert false (+ \"false \" \"should \" \"have \" \"been \" \"true\"))]" m
     (let [stream (Stream.fromString " , , , ,abababababcab.ccab.")]
         (Assert.equals " , , , ," (stream.expect "" ->(stream.takeWhileOneOf (.split ", " ""))))
         (Assert.equals "ababababab" (stream.expect "" ->(stream.takeWhileOneOf (.split "ab" ""))))
-        (Assert.equals "cab.ccab" (stream.expect "" ->(stream.takeWhileOneOf ["cab" ".c"])))))
\ No newline at end of file
+        (Assert.equals "cab.ccab" (stream.expect "" ->(stream.takeWhileOneOf ["cab" ".c"])))))
+
+(function funcWithMultipleArgs [:Int num :String str :Float num2]
+    (+ str (+ num num2)))
+
+(function :Void voidFuncWithMultipleArgs [:Int num :String str :Float num2]
+    (+ str (+ num num2)))
+
+(redefineWithObjectArgs funcWithMultipleArgs funcWithObjectArgs [str])
+(redefineWithObjectArgs voidFuncWithMultipleArgs voidFuncWithObjectArgs [str])
+
+(function _testRedefineWithObjectArgs []
+    (voidFuncWithObjectArgs "hey" (object num 5 num2 0.5))
+    (Assert.equals "hey5.5" (funcWithObjectArgs "hey" (object num 5 num2 0.5)))
+    (Assert.equals "hey5.5" (funcWithObjectArgs "hey" (object num2 4.5 num 1))))
\ No newline at end of file