247 lines
17 KiB
HTML
247 lines
17 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
|
|
<html>
|
|
<head>
|
|
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
|
|
<title>Mu - edit/009-sandbox-test.mu</title>
|
|
<meta name="Generator" content="Vim/7.4">
|
|
<meta name="plugin-version" content="vim7.4_v2">
|
|
<meta name="syntax" content="none">
|
|
<meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy=">
|
|
<meta name="colorscheme" content="minimal">
|
|
<style type="text/css">
|
|
<!--
|
|
pre { white-space: pre-wrap; font-family: monospace; color: #eeeeee; background-color: #080808; }
|
|
body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color: #080808; }
|
|
* { font-size: 12pt; font-size: 1em; }
|
|
.muData { color: #ffff00; }
|
|
.muControl { color: #c0a020; }
|
|
.Special { color: #c00000; }
|
|
.Delimiter { color: #800080; }
|
|
.Comment { color: #9090ff; }
|
|
.Constant { color: #00a0a0; }
|
|
.SalientComment { color: #00ffff; }
|
|
.muRecipe { color: #ff8700; }
|
|
.muScenario { color: #00af00; }
|
|
-->
|
|
</style>
|
|
|
|
<script type='text/javascript'>
|
|
<!--
|
|
|
|
-->
|
|
</script>
|
|
</head>
|
|
<body>
|
|
<pre id='vimCodeElement'>
|
|
<span class="SalientComment">## clicking on sandbox results to 'fix' them and turn sandboxes into tests</span>
|
|
|
|
<span class="muScenario">scenario</span> sandbox-click-on-result-toggles-color-to-green [
|
|
<span class="Constant">local-scope</span>
|
|
trace-until <span class="Constant">100/app</span> <span class="Comment"># trace too long</span>
|
|
assume-screen <span class="Constant">100/width</span>, <span class="Constant">10/height</span>
|
|
<span class="Comment"># basic recipe</span>
|
|
assume-resources [
|
|
<span class="Constant">[lesson/recipes.mu]</span> <span class="Special"><-</span> [
|
|
<span class="Constant">|recipe</span> foo <span class="Constant">[|</span>
|
|
<span class="Constant"> | reply 4|</span>
|
|
<span class="Constant"> |]</span>|
|
|
]
|
|
]
|
|
env:&:environment <span class="Special"><-</span> new-programming-environment resources, screen, <span class="Constant">[foo]</span>
|
|
<span class="Comment"># run it</span>
|
|
assume-console [
|
|
press F4
|
|
]
|
|
event-loop screen, console, env, resources
|
|
screen-should-contain [
|
|
<span class="Constant"> . run (F4) .</span>
|
|
<span class="Constant"> .recipe foo [ ╎ .</span>
|
|
<span class="Constant"> . reply 4 ╎─────────────────────────────────────────────────.</span>
|
|
<span class="Constant"> .] ╎0 edit copy delete .</span>
|
|
<span class="Constant"> . ╎foo .</span>
|
|
<span class="Constant"> .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎4 .</span>
|
|
<span class="Constant"> . ╎─────────────────────────────────────────────────.</span>
|
|
<span class="Constant"> . ╎ .</span>
|
|
]
|
|
<span class="Comment"># click on the '4' in the result</span>
|
|
assume-console [
|
|
left-click<span class="Constant"> 5</span>,<span class="Constant"> 51</span>
|
|
]
|
|
run [
|
|
event-loop screen, console, env, resources
|
|
]
|
|
<span class="Comment"># color toggles to green</span>
|
|
screen-should-contain-in-color <span class="Constant">2/green</span>, [
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . 4 .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
]
|
|
<span class="Comment"># cursor should remain unmoved</span>
|
|
run [
|
|
cursor:char <span class="Special"><-</span> copy <span class="Constant">9251/␣</span>
|
|
print screen, cursor
|
|
]
|
|
screen-should-contain [
|
|
<span class="Constant"> . run (F4) .</span>
|
|
<span class="Constant"> .␣ecipe foo [ ╎ .</span>
|
|
<span class="Constant"> . reply 4 ╎─────────────────────────────────────────────────.</span>
|
|
<span class="Constant"> .] ╎0 edit copy delete .</span>
|
|
<span class="Constant"> . ╎foo .</span>
|
|
<span class="Constant"> .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎4 .</span>
|
|
<span class="Constant"> . ╎─────────────────────────────────────────────────.</span>
|
|
<span class="Constant"> . ╎ .</span>
|
|
]
|
|
<span class="Comment"># now change the result</span>
|
|
<span class="Comment"># then rerun</span>
|
|
assume-console [
|
|
left-click<span class="Constant"> 2</span>,<span class="Constant"> 11</span> <span class="Comment"># cursor to end of line</span>
|
|
press backspace
|
|
type <span class="Constant">[3]</span>
|
|
press F4
|
|
]
|
|
run [
|
|
event-loop screen, console, env, resources
|
|
]
|
|
<span class="Comment"># result turns red</span>
|
|
screen-should-contain-in-color <span class="Constant">1/red</span>, [
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . 3 .</span>
|
|
<span class="Constant"> . .</span>
|
|
<span class="Constant"> . .</span>
|
|
]
|
|
]
|
|
|
|
<span class="Comment"># this requires tracking a couple more things</span>
|
|
<span class="muData">container</span> sandbox [
|
|
response-starting-row-on-screen:num
|
|
expected-response:text
|
|
]
|
|
|
|
<span class="Comment"># include expected response when saving or restoring a sandbox</span>
|
|
<span class="muRecipe">before</span> <span class="Constant"><end-save-sandbox></span> [
|
|
<span class="Delimiter">{</span>
|
|
expected-response:text <span class="Special"><-</span> get *curr, <span class="Constant">expected-response:offset</span>
|
|
<span class="muControl">break-unless</span> expected-response
|
|
filename <span class="Special"><-</span> append filename, <span class="Constant">[.out]</span>
|
|
resources <span class="Special"><-</span> dump resources, filename, expected-response
|
|
<span class="Delimiter">}</span>
|
|
]
|
|
|
|
<span class="muRecipe">before</span> <span class="Constant"><end-restore-sandbox></span> [
|
|
<span class="Delimiter">{</span>
|
|
filename <span class="Special"><-</span> append filename, <span class="Constant">[.out]</span>
|
|
contents <span class="Special"><-</span> slurp resources, filename
|
|
<span class="muControl">break-unless</span> contents
|
|
*curr <span class="Special"><-</span> put *curr, <span class="Constant">expected-response:offset</span>, contents
|
|
<span class="Delimiter">}</span>
|
|
]
|
|
|
|
<span class="Comment"># clicks on sandbox responses save it as 'expected'</span>
|
|
<span class="muRecipe">after</span> <span class="Constant"><global-touch></span> [
|
|
<span class="Comment"># check if it's inside the output of any sandbox</span>
|
|
<span class="Delimiter">{</span>
|
|
sandbox-left-margin:num <span class="Special"><-</span> get *current-sandbox, <span class="Constant">left:offset</span>
|
|
click-column:num <span class="Special"><-</span> get t, <span class="Constant">column:offset</span>
|
|
on-sandbox-side?:bool <span class="Special"><-</span> greater-or-equal click-column, sandbox-left-margin
|
|
<span class="muControl">break-unless</span> on-sandbox-side?
|
|
first-sandbox:&:sandbox <span class="Special"><-</span> get *env, <span class="Constant">sandbox:offset</span>
|
|
<span class="muControl">break-unless</span> first-sandbox
|
|
first-sandbox-begins:num <span class="Special"><-</span> get *first-sandbox, <span class="Constant">starting-row-on-screen:offset</span>
|
|
click-row:num <span class="Special"><-</span> get t, <span class="Constant">row:offset</span>
|
|
below-sandbox-editor?:bool <span class="Special"><-</span> greater-or-equal click-row, first-sandbox-begins
|
|
<span class="muControl">break-unless</span> below-sandbox-editor?
|
|
<span class="Comment"># identify the sandbox whose output is being clicked on</span>
|
|
sandbox:&:sandbox <span class="Special"><-</span> find-click-in-sandbox-output env, click-row
|
|
<span class="muControl">break-unless</span> sandbox
|
|
<span class="Comment"># toggle its expected-response, and save session</span>
|
|
sandbox <span class="Special"><-</span> toggle-expected-response sandbox
|
|
save-sandboxes env, resources
|
|
hide-screen screen
|
|
screen <span class="Special"><-</span> render-sandbox-side screen, env, render
|
|
screen <span class="Special"><-</span> update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env
|
|
<span class="Comment"># no change in cursor</span>
|
|
show-screen screen
|
|
<span class="muControl">loop</span> <span class="Constant">+next-event</span>
|
|
<span class="Delimiter">}</span>
|
|
]
|
|
|
|
<span class="muRecipe">def</span> find-click-in-sandbox-output env:&:environment, click-row:num<span class="muRecipe"> -> </span>sandbox:&:sandbox [
|
|
<span class="Constant">local-scope</span>
|
|
<span class="Constant">load-ingredients</span>
|
|
<span class="Comment"># assert click-row >= sandbox.starting-row-on-screen</span>
|
|
sandbox:&:sandbox <span class="Special"><-</span> get *env, <span class="Constant">sandbox:offset</span>
|
|
start:num <span class="Special"><-</span> get *sandbox, <span class="Constant">starting-row-on-screen:offset</span>
|
|
clicked-on-sandboxes?:bool <span class="Special"><-</span> greater-or-equal click-row, start
|
|
assert clicked-on-sandboxes?, <span class="Constant">[extract-sandbox called on click to sandbox editor]</span>
|
|
<span class="Comment"># while click-row < sandbox.next-sandbox.starting-row-on-screen</span>
|
|
<span class="Delimiter">{</span>
|
|
next-sandbox:&:sandbox <span class="Special"><-</span> get *sandbox, <span class="Constant">next-sandbox:offset</span>
|
|
<span class="muControl">break-unless</span> next-sandbox
|
|
next-start:num <span class="Special"><-</span> get *next-sandbox, <span class="Constant">starting-row-on-screen:offset</span>
|
|
found?:bool <span class="Special"><-</span> lesser-than click-row, next-start
|
|
<span class="muControl">break-if</span> found?
|
|
sandbox <span class="Special"><-</span> copy next-sandbox
|
|
<span class="muControl">loop</span>
|
|
<span class="Delimiter">}</span>
|
|
<span class="Comment"># return sandbox if click is in its output region</span>
|
|
response-starting-row:num <span class="Special"><-</span> get *sandbox, <span class="Constant">response-starting-row-on-screen:offset</span>
|
|
<span class="muControl">return-unless</span> response-starting-row, <span class="Constant">0/no-click-in-sandbox-output</span>
|
|
click-in-response?:bool <span class="Special"><-</span> greater-or-equal click-row, response-starting-row
|
|
<span class="muControl">return-unless</span> click-in-response?, <span class="Constant">0/no-click-in-sandbox-output</span>
|
|
<span class="muControl">return</span> sandbox
|
|
]
|
|
|
|
<span class="muRecipe">def</span> toggle-expected-response sandbox:&:sandbox<span class="muRecipe"> -> </span>sandbox:&:sandbox [
|
|
<span class="Constant">local-scope</span>
|
|
<span class="Constant">load-ingredients</span>
|
|
expected-response:text <span class="Special"><-</span> get *sandbox, <span class="Constant">expected-response:offset</span>
|
|
<span class="Delimiter">{</span>
|
|
<span class="Comment"># if expected-response is set, reset</span>
|
|
<span class="muControl">break-unless</span> expected-response
|
|
*sandbox <span class="Special"><-</span> put *sandbox, <span class="Constant">expected-response:offset</span>,<span class="Constant"> 0</span>
|
|
<span class="Delimiter">}</span>
|
|
<span class="Delimiter">{</span>
|
|
<span class="Comment"># if not, set expected response to the current response</span>
|
|
<span class="muControl">break-if</span> expected-response
|
|
response:text <span class="Special"><-</span> get *sandbox, <span class="Constant">response:offset</span>
|
|
*sandbox <span class="Special"><-</span> put *sandbox, <span class="Constant">expected-response:offset</span>, response
|
|
<span class="Delimiter">}</span>
|
|
]
|
|
|
|
<span class="Comment"># when rendering a sandbox, color it in red/green if expected response exists</span>
|
|
<span class="muRecipe">after</span> <span class="Constant"><render-sandbox-response></span> [
|
|
<span class="Delimiter">{</span>
|
|
<span class="muControl">break-unless</span> sandbox-response
|
|
*sandbox <span class="Special"><-</span> put *sandbox, <span class="Constant">response-starting-row-on-screen:offset</span>, row
|
|
expected-response:text <span class="Special"><-</span> get *sandbox, <span class="Constant">expected-response:offset</span>
|
|
<span class="muControl">break-unless</span> expected-response <span class="Comment"># fall-through to print in grey</span>
|
|
response-is-expected?:bool <span class="Special"><-</span> equal expected-response, sandbox-response
|
|
<span class="Delimiter">{</span>
|
|
<span class="muControl">break-if</span> response-is-expected?:bool
|
|
row, screen <span class="Special"><-</span> render-text screen, sandbox-response, left, right, <span class="Constant">1/red</span>, row
|
|
<span class="Delimiter">}</span>
|
|
<span class="Delimiter">{</span>
|
|
<span class="muControl">break-unless</span> response-is-expected?:bool
|
|
row, screen <span class="Special"><-</span> render-text screen, sandbox-response, left, right, <span class="Constant">2/green</span>, row
|
|
<span class="Delimiter">}</span>
|
|
<span class="muControl">jump</span> <span class="Constant">+render-sandbox-end</span>
|
|
<span class="Delimiter">}</span>
|
|
]
|
|
|
|
<span class="muRecipe">before</span> <span class="Constant"><end-render-sandbox-reset-hidden></span> [
|
|
*sandbox <span class="Special"><-</span> put *sandbox, <span class="Constant">response-starting-row-on-screen:offset</span>,<span class="Constant"> 0</span>
|
|
]
|
|
</pre>
|
|
</body>
|
|
</html>
|
|
<!-- vim: set foldmethod=manual : -->
|