harmony-scoping: Implement debugger support for script scope.

test/cctest/test-debug.cc

Index: test/cctest/test-debug.cc
diff --git a/test/cctest/test-debug.cc b/test/cctest/test-debug.cc
index 7aad65360cc1684f610575f5dc8e0bda1cf89a6f..91373402ba049ad2867e94c0b9e9f28feea4f391 100644
--- a/test/cctest/test-debug.cc
+++ b/test/cctest/test-debug.cc
@@ -7631,8 +7631,32 @@ static void DebugHarmonyScopingListener(
   i::Vector<char> script_vector(script, sizeof(script));
   SNPrintF(script_vector, "%%GetFrameCount(%d)", break_id);
   v8::Local<v8::Value> result = CompileRun(script);
+  CHECK_EQ(1, result->Int32Value());
+
+  SNPrintF(script_vector, "var frame = new FrameMirror(%d, 0);", break_id);
+  CompileRun(script);
+  result = CompileRun("frame.evaluate('x').value_");
+  CHECK_EQ(1, result->Int32Value());
+  result = CompileRun("frame.evaluate('y').value_");
+  CHECK_EQ(2, result->Int32Value());
+
+  CompileRun("var allScopes = frame.allScopes()");
+  result = CompileRun("allScopes.length");
+  CHECK_EQ(2, result->Int32Value());
 
+  result = CompileRun("allScopes[0].scopeType() === ScopeType.Script");
+  CHECK(result->IsTrue());
+
+  result = CompileRun("allScopes[0].scopeObject().value_.x");
   CHECK_EQ(1, result->Int32Value());
+
+  result = CompileRun("allScopes[0].scopeObject().value_.y");
+  CHECK_EQ(2, result->Int32Value());
+
+  CompileRun("allScopes[0].setVariableValue('x', 5);");
+  CompileRun("allScopes[0].setVariableValue('y', 6);");
+  result = CompileRun("frame.evaluate('x + y').value_");
+  CHECK_EQ(11, result->Int32Value());
 }
 
 
@@ -7648,8 +7672,16 @@ TEST(DebugBreakInLexicalScopes) {
   CompileRun(
       "'use strict';            \n"
       "let x = 1;               \n");
-  CompileRun(
+  v8::Local<v8::Value> result = CompileRun(
       "'use strict';            \n"
-      "let y = 1;               \n"
-      "debugger                 \n");
+      "let y = 2;               \n"
+      "debugger;                \n"
+      "x * y");
+  CHECK_EQ(30, result->Int32Value());
+
+  result = CompileRun(
+      "x = 1; y = 2; \n"
+      "debugger;"
+      "x * y");
+  CHECK_EQ(30, result->Int32Value());
 }