Add basic test for YARP

Author: eregon

spec/truffle/yarp_spec.rb

@@ -0,0 +1,29 @@
+# truffleruby_primitives: true
+
+# Copyright (c) 2023 Oracle and/or its affiliates. All rights reserved. This
+# code is released under a tri EPL/GPL/LGPL license. You can use it,
+# redistribute it and/or modify it under the terms of the:
+#
+# Eclipse Public License version 2.0, or
+# GNU General Public License version 2, or
+# GNU Lesser General Public License version 2.1.
+
+require_relative '../ruby/spec_helper'
+
+# Similar tests as in https://github.com/ruby/yarp/blob/main/.github/workflows/truffleruby.yml
+describe "YARP" do
+  it "can parse core files" do
+    root = File.expand_path("../..", __dir__)
+    Dir.glob("#{root}/src/main/ruby/truffleruby/**/*.rb") do |file|
+      Truffle::Debug.yarp_parse(File.read(file)).should.include?("Node")
+    end
+  end
+
+  it "can execute simple code" do
+    -> {
+      -> {
+        Truffle::Debug.yarp_execute("p 1+2").should == 3
+      }.should output_to_fd(/^YARP AST:.+Truffle AST:/m, STDERR)
+    }.should output("3\n")
+  end
+end

src/main/java/org/truffleruby/debug/TruffleDebugNodes.java

@@ -298,15 +298,19 @@ protected Object parse(Object code,
 
     @CoreMethod(names = "yarp_execute", onSingleton = true, required = 1)
     public abstract static class YARPExecuteNode extends CoreMethodArrayArgumentsNode {
-        @TruffleBoundary
         @Specialization(guards = "strings.isRubyString(code)", limit = "1")
-        protected Object yarpExecute(Object code,
+        protected Object yarpExecute(VirtualFrame frame, Object code,
                 @Cached RubyStringLibrary strings,
                 @Cached TruffleString.CopyToByteArrayNode copyToByteArrayNode) {
             var tstring = strings.getTString(code);
             var tencoding = strings.getTEncoding(code);
             var source = copyToByteArrayNode.execute(tstring, tencoding);
 
+            return doExecute(source, RubyArguments.getMethod(frame));
+        }
+
+        @TruffleBoundary
+        private Object doExecute(byte[] source, InternalMethod method) {
             byte[] serialized = yarpSerialize(getLanguage(), source);
 
             var ast = Loader.load(source, serialized);
@@ -320,7 +324,7 @@ protected Object yarpExecute(Object code,
             return truffleAST.getCallTarget().call(RubyArguments.pack(
                     null,
                     null,
-                    null,
+                    method,
                     DeclarationContext.topLevel(getContext()),
                     null,
                     coreLibrary().mainObject,