Make FunctionTypeMirror and ClosureMirror handle user-defined classes that implement the call opera…

tests/lib/mirrors/fake_function_test.dart

Index: tests/lib/mirrors/fake_function_test.dart
diff --git a/tests/lib/mirrors/fake_function_test.dart b/tests/lib/mirrors/fake_function_test.dart
new file mode 100644
index 0000000000000000000000000000000000000000..075a7730f20f1b59afaaf718fbea931d94547e94
--- /dev/null
+++ b/tests/lib/mirrors/fake_function_test.dart
@@ -0,0 +1,42 @@
+// Copyright (c) 2013, 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.
+
+import "dart:mirrors";
+
+import "package:expect/expect.dart";
+
+class WannabeFunction {
+  int call(int a, int b) => a + b;
+  method();
+}
+
+main() {
+  Expect.isTrue(new WannabeFunction() is Function);
+
+  ClosureMirror cm = reflect(new WannabeFunction());
+  Expect.equals(7, cm.invoke(const Symbol("call"), [3,4]).reflectee);
+  Expect.throws(() => cm.invoke(const Symbol("call"), [3]),
+                (e) => e is NoSuchMethodError,
+                "Wrong arity");
+  Expect.equals(7, cm.apply([3,4]).reflectee);
+  Expect.throws(() => cm.apply([3]),
+                (e) => e is NoSuchMethodError,
+                "Wrong arity");
+
+  MethodMirror mm = cm.function;
+  Expect.equals(const Symbol("call"), mm.simpleName);
+  Expect.equals(reflectClass(WannabeFunction),
+                mm.owner);
+  Expect.isTrue(mm.isRegularMethod);
+
+  FunctionTypeMirror ftm = cm.type;
+  Expect.equals(reflectClass(WannabeFunction), ftm);
+  Expect.equals(const Symbol("WannabeFunction"), ftm.simpleName);
+  Expect.equals(mm, ftm.callMethod);
+  Expect.equals(const Symbol("int"), ftm.returnType.simpleName);
+  Expect.equals(const Symbol("int"), ftm.parameters[0].type.simpleName);
+  Expect.equals(const Symbol("int"), ftm.parameters[1].type.simpleName);
+  Expect.setEquals([const Symbol("call"), const Symbol("method")],
+                   ftm.members.keys);
+}