diff --git a/core/warning/element_reference_spec.rb b/core/warning/element_reference_spec.rb
new file mode 100644
index 0000000000..c3bf06a95b
--- /dev/null
+++ b/core/warning/element_reference_spec.rb
@@ -0,0 +1,14 @@
+require_relative '../../spec_helper'
+
+ruby_version_is '2.7.2' do
+  describe "Warning.[]" do
+    it "returns default values for categories :deprecated and :experimental" do
+      ruby_exe('p Warning[:deprecated]').chomp.should == "false"
+      ruby_exe('p Warning[:experimental]').chomp.should == "true"
+    end
+
+    it "raises for unknown category" do
+      -> { Warning[:noop] }.should raise_error(ArgumentError, /unknown category: noop/)
+    end
+  end
+end
diff --git a/core/warning/element_set_spec.rb b/core/warning/element_set_spec.rb
new file mode 100644
index 0000000000..ee83656cb4
--- /dev/null
+++ b/core/warning/element_set_spec.rb
@@ -0,0 +1,19 @@
+require_relative '../../spec_helper'
+
+ruby_version_is '2.7' do
+  describe "Warning.[]=" do
+    it "emits and suppresses warnings for :deprecated" do
+      ruby_exe('Warning[:deprecated] = true; $; = ""', args: "2>&1").should =~ /is deprecated/
+      ruby_exe('Warning[:deprecated] = false; $; = ""', args: "2>&1").should == ""
+    end
+
+    it "emits and suppresses warnings for :experimental" do
+      ruby_exe('Warning[:experimental] = true; eval("0 in a")', args: "2>&1").should =~ /is experimental/
+      ruby_exe('Warning[:experimental] = false; eval("0 in a")', args: "2>&1").should == ""
+    end
+
+    it "raises for unknown category" do
+      -> { Warning[:noop] = false }.should raise_error(ArgumentError, /unknown category: noop/)
+    end
+  end
+end