Add Dart_GetClosureInfo

runtime/vm/debugger_api_impl_test.cc

 // Copyright (c) 2012, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "include/dart_debugger_api.h"
 #include "include/dart_mirrors_api.h"
 #include "platform/assert.h"
 #include "vm/dart_api_impl.h"
 #include "vm/thread.h"
 #include "vm/unit_test.h"
@@ skipping 1857 matching lines @@
   EXPECT_VALID(len);
   EXPECT(Dart_IsNumber(len));
   EXPECT_EQ(6, ToInt64(len));
 
   Dart_Handle error =
       Dart_EvaluateExpr(script_lib, NewString("new NonexistingType()"));
   EXPECT(Dart_IsError(error));
 }
 
 
+TEST_CASE(Debug_GetClosureInfo) {
+  const char* kScriptChars =
+      "void foo() { return 43; } \n"
+      "                          \n"
+      "main() {                  \n"
+      "  return foo;             \n"
+      "}                         \n";
+
+  LoadScript(kScriptChars);
+  Dart_Handle clo = Invoke("main");
+  EXPECT_VALID(clo);
+  EXPECT(Dart_IsClosure(clo));
+  Dart_Handle name;
+  Dart_CodeLocation loc;
+  loc.script_url = Dart_Null();
+  loc.library_id = -1;
+  loc.token_pos = -1;
+  Dart_Handle res = Dart_GetClosureInfo(clo, &name, &loc);
+  EXPECT_VALID(res);
+  EXPECT_TRUE(res);
+  EXPECT_VALID(name);
+  EXPECT(Dart_IsString(name));
+  EXPECT_STREQ("foo", ToCString(name));
+  EXPECT(Dart_IsString(loc.script_url));
+  EXPECT_STREQ("dart:test-lib", ToCString(loc.script_url));
+  EXPECT_EQ(0, loc.token_pos);
+  EXPECT(loc.library_id > 0);
+}
+
+
 TEST_CASE(Debug_GetSupertype) {
   const char* kScriptChars =
       "class Test {\n"
       "}\n"
       "class Test1 extends Test {\n"
       "}\n"
       "class Test2<T> {\n"
       "}\n"
       "class Test3 extends Test2<int> {\n"
       "}\n"
@@ skipping 126 matching lines @@
 
   Dart_Handle list_type = Dart_InstanceGetType(list_access_test_obj);
   Dart_Handle super_type = Dart_GetSupertype(list_type);
   EXPECT(!Dart_IsError(super_type));
   super_type = Dart_GetSupertype(super_type);
   EXPECT(!Dart_IsError(super_type));
   EXPECT(super_type == Dart_Null());
 }
 
 }  // namespace dart