fey.naomi/fennel-ls
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change the names to be more different

Browse Source
This commit is contained in:
XeroOl 2024-02-11 23:55:05 -06:00
parent 6f9935a781
commit d3f6d95c09
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/rename-test.fnl
View File

@ -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)")