[Rb] Implements bridge name and adds it to suites

Author: codeZeilen

rosetta-test-rb/json-rfc.rb

@@ -1,7 +1,7 @@
 require "json"
 require_relative "rosetta"
 
-suite "rosetta-test-suites/json-rfc.ros" do
+suite "stdlib json", "rosetta-test-suites/json-rfc.ros" do
   expected_failures :test_n_string_escape_x,
     :test_n_string_escaped_emoji,
     :test_n_string_incomplete_surrogate_escape_invalid,

rosetta-test-rb/rosetta.rb

@@ -96,14 +96,15 @@ def rosetta_thread_yield
 end
 
 class RosettaTestSuite
-  attr_reader :scheme_env, :suite_name, :suite_version, :sources,
-    :placeholders, :root_capability
+  attr_reader :scheme_env, :suite_name, :bridge_name, :suite_version, 
+    :sources, :placeholders, :root_capability
 
-  def initialize(file_name)
+  def initialize(bridge_name, file_name)
     @scheme_env = Scheme::Environment.new([], [], Scheme::GLOBAL_ENV)
     initialize_rosetta_primitives
     initialize_rosetta
     @suite_source = File.read(file_name)
+    @bridge_name = bridge_name
 
     @suite = nil
 
@@ -116,6 +117,7 @@ def initialize(file_name)
 
   def initialize_suite
     @suite = eval_scheme(@suite_source)
+    suite_eval("(suite-set-bridge-name! the_suite bridge_name)", :bridge_name => @bridge_name)
   end
 
   def eval_scheme(code, env = nil)
@@ -165,7 +167,8 @@ def initialize_rosetta_primitives
       "thread" => method(:rosetta_thread),
       "thread-wait-for-completion" => method(:rosetta_thread_join),
       "thread-sleep!" => method(:rosetta_thread_sleep),
-      "thread-yield" => method(:rosetta_thread_yield)
+      "thread-yield" => method(:rosetta_thread_yield),
+      "rosetta-test-host" => lambda { "ruby" }
     }
 
     primitives.each do |key, value|
@@ -252,8 +255,8 @@ def to_h
   end
 end
 
-def suite(file_name, &block)
-  obj = RosettaTestSuite.new(file_name)
+def suite(bridge_name, file_name, &block)
+  obj = RosettaTestSuite.new(bridge_name, file_name)
   obj.instance_eval(&block)
   obj.run
 end

rosetta-test-rb/smtp.rb

@@ -3,7 +3,7 @@
 require "net/smtp"
 require "openssl"
 
-suite "rosetta-test-suites/smtp.ros" do
+suite "stdlib smtp", "rosetta-test-suites/smtp.ros" do
   only_capabilities "root.connection", "root.commands"
 
   exclude_capabilities "root.commands.expn",

rosetta-test-rb/url_parsing.rb

@@ -1,7 +1,7 @@
 require "uri"
 require_relative "rosetta"
 
-suite "rosetta-test-suites/url-parsing-rfc.ros" do
+suite "stdlib uri parsing", "rosetta-test-suites/url-parsing-rfc.ros" do
   expected_failures :test_scheme_with_invalid_characters,
     :"test_non-terminated_scheme",
     :test_invalid_ipv4_host