From d3f6d95c09c6dbc26aaa457b823cde744f9f42a5 Mon Sep 17 00:00:00 2001 From: XeroOl Date: Sun, 11 Feb 2024 23:55:05 -0600 Subject: [PATCH] change the names to be more different --- test/rename-test.fnl | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/test/rename-test.fnl b/test/rename-test.fnl index 045d4d7..c078b95 100644 --- a/test/rename-test.fnl +++ b/test/rename-test.fnl @@ -28,12 +28,14 @@ "(let [new-name!! 100] (print new-name!!) (print new-name!!))")) (it "renames a multisym" - (check-rename "(let [old-name {:field 10}] old-name.field)" 0 9 :new-name - "(let [new-name {:field 10}] new-name.field)") - (check-rename "(let [old-name {:field 10}] old-name.field)" 0 30 :new-name - "(let [new-name {:field 10}] new-name.field)") - (check-rename "(let [[old-name] [{:field 10}]] (old-name:field 10))" 0 7 :new-name - "(let [[new-name] [{:field 10}]] (new-name:field 10))")) + (check-rename "(let [old-name {:field 10}] old-name.field)" 0 9 :new + "(let [new {:field 10}] new.field)") + (check-rename "(let [old-name {:field 10}] old-name.field)" 0 30 :new + "(let [new {:field 10}] new.field)") + (check-rename "(let [[old-name] [{:field 10}]] (old-name:field 10))" 0 7 :new + "(let [[new] [{:field 10}]] (new:field 10))") + (check-rename "(let [[old-name] [{:field 10}]] (case 1 (where 1 (old-name:field 10)) 1)" 0 7 :new + "(let [[new] [{:field 10}]] (case 1 (where 1 (new:field 10)) 1)")) (it "renames from destructure/args" (check-rename "(fn [{: x}] x)" 0 8 :foo "(fn [{: foo}] foo)")