diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2016-05-11 19:28:29 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2016-05-11 19:31:37 -0700 |
| commit | ac8acc7b05774ac5777d5a03311728fb14d3f217 (patch) | |
| tree | ae5d921ede8aed3332e282a9297f84ce06f7f7e1 /sandbox | |
| parent | 1156971774b307bec29fab34a523eb39a7904174 (diff) | |
| download | mu-ac8acc7b05774ac5777d5a03311728fb14d3f217.tar.gz | |
2954 - bugfix: $system
The actual fix is in the layer rewriting literal strings.
Diffstat (limited to 'sandbox')
| -rw-r--r-- | sandbox/005-sandbox.mu | 9 | ||||
| -rw-r--r-- | sandbox/008-sandbox-test.mu | 7 |
2 files changed, 7 insertions, 9 deletions
diff --git a/sandbox/005-sandbox.mu b/sandbox/005-sandbox.mu index 01a6422c..8c7e80c6 100644 --- a/sandbox/005-sandbox.mu +++ b/sandbox/005-sandbox.mu @@ -321,14 +321,7 @@ def! restore-sandboxes env:address:programming-environment-data -> env:address:p # create new sandbox for file curr <- new sandbox-data:type *curr <- put *curr, data:offset, contents - # restore expected output for sandbox if it exists - { - filename <- append filename, [.out] - contents <- restore filename - break-unless contents - <end-restore-sandbox> - } - +continue + <end-restore-sandbox> { break-if idx *env <- put *env, sandbox:offset, curr diff --git a/sandbox/008-sandbox-test.mu b/sandbox/008-sandbox-test.mu index 61d12167..e88d7240 100644 --- a/sandbox/008-sandbox-test.mu +++ b/sandbox/008-sandbox-test.mu @@ -98,7 +98,12 @@ before <end-save-sandbox> [ ] before <end-restore-sandbox> [ - *curr <- put *curr, expected-response:offset, contents + { + filename <- append filename, [.out] + contents <- restore filename + break-unless contents + *curr <- put *curr, expected-response:offset, contents + } ] # clicks on sandbox responses save it as 'expected' |