From 6c69569a4c4ca3a23635d4d7a40f0fe557194619 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 28 Sep 2016 20:08:04 -0700 Subject: 3430 --- html/082scenario_screen.cc.html | 38 +++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) (limited to 'html/082scenario_screen.cc.html') diff --git a/html/082scenario_screen.cc.html b/html/082scenario_screen.cc.html index a59fe566..54d80832 100644 --- a/html/082scenario_screen.cc.html +++ b/html/082scenario_screen.cc.html @@ -47,10 +47,11 @@ recipes_taking_literal_strings.insert:(scenarios run_mu_scenario) :(scenario screen_in_scenario) scenario screen-in-scenario [ + local-scope assume-screen 5/width, 3/height run [ - 1:char <- copy 97/a - screen:&:screen <- print screen:&:screen, 1:char/a + a:char <- copy 97/a + screen:&:screen <- print screen:&:screen, a ] screen-should-contain [ # 01234 @@ -63,12 +64,13 @@ scenario screen-in-scenario [ :(scenario screen_in_scenario_unicode) scenario screen-in-scenario-unicode-color [ + local-scope assume-screen 5/width, 3/height run [ - 1:char <- copy 955/greek-small-lambda - screen:&:screen <- print screen:&:screen, 1:char/lambda, 1/red - 2:char <- copy 97/a - screen:&:screen <- print screen:&:screen, 2:char/a + lambda:char <- copy 955/greek-small-lambda + screen:&:screen <- print screen:&:screen, lambda, 1/red + a:char <- copy 97/a + screen:&:screen <- print screen:&:screen, a ] screen-should-contain [ # 01234 @@ -82,12 +84,13 @@ scenario screen-in-scenario-unicode-color [ :(scenario screen_in_scenario_color) # screen-should-contain can check unicode characters in the fake screen scenario screen-in-scenario-color [ + local-scope assume-screen 5/width, 3/height run [ - 1:char <- copy 955/greek-small-lambda - screen:&:screen <- print screen:&:screen, 1:char/lambda, 1/red - 2:char <- copy 97/a - screen:&:screen <- print screen:&:screen, 2:char/a, 7/white + lambda:char <- copy 955/greek-small-lambda + screen:&:screen <- print screen:&:screen, lambda, 1/red + a:char <- copy 97/a + screen:&:screen <- print screen:&:screen, a, 7/white ] # screen-should-contain shows everything screen-should-contain [ @@ -118,10 +121,11 @@ scenario screen-in-scenario-color [ % Scenario_testing_scenario = true; % Hide_errors = true; scenario screen-in-scenario-error [ + local-scope assume-screen 5/width, 3/height run [ - 1:char <- copy 97/a - screen:&:screen <- print screen:&:screen, 1:char/a + a:char <- copy 97/a + screen:&:screen <- print screen:&:screen, a ] screen-should-contain [ # 01234 @@ -137,10 +141,11 @@ scenario screen-in-scenario-error [ % Hide_errors = true; # screen-should-contain can check unicode characters in the fake screen scenario screen-in-scenario-color [ + local-scope assume-screen 5/width, 3/height run [ - 1:char <- copy 97/a - screen:&:screen <- print screen:&:screen, 1:char/a, 1/red + a:char <- copy 97/a + screen:&:screen <- print screen:&:screen, a, 1/red ] screen-should-contain-in-color 2/green, [ # 01234 @@ -172,11 +177,6 @@ $error: 0 int Next_predefined_global_for_scenarios = Max_variables_in_scenarios; :(before "End Setup") assert(Next_predefined_global_for_scenarios < Reserved_for_tests); -:(after "transform_all()" following "case RUN:") -// There's a restriction on the number of variables 'run' can use, so that -// it can avoid colliding with the dynamic allocator in case it doesn't -// initialize a default-space. -assert(Name[tmp_recipe.at(0)][""] < Max_variables_in_scenarios); :(before "End Globals") // Scenario Globals. -- cgit 1.4.1-2-gfad0