diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2021-06-11 19:33:08 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2021-06-11 19:33:08 -0700 |
| commit | ef29fcdc9170dec59c1b38f01e72cb8ad8c69550 (patch) | |
| tree | ad888d1034765aa9697148a44ff0a6a45a280886 /shell/environment.mu | |
| parent | cbf3de0f0814bbca23a9702574425742895bc834 (diff) | |
| download | mu-ef29fcdc9170dec59c1b38f01e72cb8ad8c69550.tar.gz | |
cancel pending test
After all that, I'm not sure this is the desired behavior. If a function defines multiple bindings, we shouldn't rename all their keys. So how to choose? Perhaps it's not so bad to have "symlinks" in this "file system". To unlink two bindings you now need to define one of them in the sandbox. All the refactoring is still useful, though.
Diffstat (limited to 'shell/environment.mu')
| -rw-r--r-- | shell/environment.mu | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/shell/environment.mu b/shell/environment.mu index 938db9f5..01b2b4a3 100644 --- a/shell/environment.mu +++ b/shell/environment.mu @@ -808,70 +808,6 @@ fn test-create-nonexistent-global { check-background-color-in-screen-row screen, 0xf/bg=modal, 0xf/y, " ", "F - test-create-nonexistent-global/test2-15" } -fn pending-test-create-function-with-new-name { - var env-storage: environment - var env/esi: (addr environment) <- address env-storage - initialize-environment env - # setup: screen - var screen-on-stack: screen - var screen/edi: (addr screen) <- address screen-on-stack - initialize-screen screen, 0x80/width=72, 0x10/height, 0/no-pixel-graphics - # claim to create a definition for 'f' - edit-environment env, 7/ctrl-g, 0/no-disk - render-environment screen, env - type-in env, screen, "f" - edit-environment env, 0xd/ctrl-m, 0/no-disk - render-environment screen, env - # actually create definition for 'g' - type-in env, screen, "(define g 42)" - edit-environment env, 0x13/ctrl-s, 0/no-disk - render-environment screen, env - # return to sandbox - edit-environment env, 7/ctrl-g, 0/no-disk - render-environment screen, env - edit-environment env, 0xa/newline, 0/no-disk - render-environment screen, env - # try to jump to 'f' - edit-environment env, 7/ctrl-g, 0/no-disk - render-environment screen, env - type-in env, screen, "f" - edit-environment env, 0xa/newline, 0/no-disk - render-environment screen, env - # fails - # | global definitions | sandbox - check-background-color-in-screen-row screen, 0xf/bg=modal, 0/y, " ", "F - test-create-function-with-new-name/0" - check-background-color-in-screen-row screen, 0xf/bg=modal, 1/y, " ", "F - test-create-function-with-new-name/1" - check-background-color-in-screen-row screen, 0xf/bg=modal, 2/y, " ", "F - test-create-function-with-new-name/2" - check-background-color-in-screen-row screen, 0xf/bg=modal, 3/y, " ", "F - test-create-function-with-new-name/3" - check-background-color-in-screen-row screen, 0xf/bg=modal, 4/y, " ", "F - test-create-function-with-new-name/4" - check-background-color-in-screen-row screen, 0xf/bg=modal, 5/y, " ", "F - test-create-function-with-new-name/5" - check-screen-row screen, 6/y, " go to global (or leave blank to go to REPL) ", "F - test-create-function-with-new-name/6-text" - check-background-color-in-screen-row screen, 0xf/bg=modal, 6/y, " ................................................................ ", "F - test-create-function-with-new-name/6" - check-screen-row-in-color screen, 4/fg=error, 7/y, " no such global ", "F - test-create-function-with-new-name/7-text" - check-background-color-in-screen-row screen, 0xf/bg=modal, 7/y, " ................................................................ ", "F - test-create-function-with-new-name/7" - check-screen-row screen, 8/y, " f ", "F - test-create-function-with-new-name/8-text" - check-background-color-in-screen-row screen, 0/bg=cursor, 8/y, " | ", "F - test-create-function-with-new-name/8-cursor" - check-background-color-in-screen-row screen, 0xf/bg=modal, 8/y, " . .............................................................. ", "F - test-create-function-with-new-name/8" - check-background-color-in-screen-row screen, 0xf/bg=modal, 9/y, " ", "F - test-create-function-with-new-name/9" - check-background-color-in-screen-row screen, 0xf/bg=modal, 0xa/y, " ", "F - test-create-function-with-new-name/10" - check-background-color-in-screen-row screen, 0xf/bg=modal, 0xb/y, " ", "F - test-create-function-with-new-name/11" - check-background-color-in-screen-row screen, 0xf/bg=modal, 0xc/y, " ", "F - test-create-function-with-new-name/12" - check-background-color-in-screen-row screen, 0xf/bg=modal, 0xd/y, " ", "F - test-create-function-with-new-name/13" - check-background-color-in-screen-row screen, 0xf/bg=modal, 0xe/y, " ", "F - test-create-function-with-new-name/14" - # jump to 'g' - edit-environment env, 0x1b/escape, 0/no-disk - render-environment screen, env - edit-environment env, 7/ctrl-g, 0/no-disk - render-environment screen, env - type-in env, screen, "g" - edit-environment env, 0xa/newline, 0/no-disk - render-environment screen, env - # succeeds - # | global function definitions | sandbox - check-screen-row screen, 1/y, " g ", "F - test-create-function-with-new-name/test2" - check-background-color-in-screen-row screen, 7/bg=cursor, 1/y, " | ", "F - test-create-function-with-new-name/test2-cursor" -} - fn render-go-modal screen: (addr screen), _self: (addr environment) { var self/esi: (addr environment) <- copy _self var width/eax: int <- copy 0 |