Expand literal home paths only

Paths in environment variables should already be expanded.
The base name of the program is also not subject to expansion.

Author: nobu

lib/optparse.rb

@@ -2047,19 +2047,21 @@ def candidate(word)
   def load(filename = nil, **keywords)
     unless filename
       basename = File.basename($0, '.*')
-      return true if load(File.expand_path(basename, '~/.options'), **keywords) rescue nil
+      return true if load(File.expand_path("~/.options/#{basename}"), **keywords) rescue nil
       basename << ".options"
       return [
         # XDG
         ENV['XDG_CONFIG_HOME'],
-        '~/.config',
+        ['~/.config', true],
         *ENV['XDG_CONFIG_DIRS']&.split(File::PATH_SEPARATOR),
 
         # Haiku
-        '~/config/settings',
-      ].any? {|dir|
+        ['~/config/settings', true],
+      ].any? {|dir, expand|
         next if !dir or dir.empty?
-        load(File.expand_path(basename, dir), **keywords) rescue nil
+        filename = File.join(dir, basename)
+        filename = File.expand_path(filename) if expand
+        load(filename, **keywords) rescue nil
       }
     end
     begin

test/optparse/test_load.rb

@@ -69,6 +69,11 @@ def setup_options_home_config_settings(&block)
     setup_options({'HOME'=>@tmpdir}, "config/settings", ".options", &block)
   end
 
+  def setup_options_home_options(envs, &block)
+    envs.update({'HOME'=>@tmpdir})
+    setup_options(envs, "options", ".options", &block)
+  end
+
   def test_load_home_options
     result, = setup_options_home
     assert_load(result)
@@ -135,6 +140,37 @@ def test_load_home_config_settings
   end
 
   def test_load_nothing
+    assert_load_nothing
+  end
+
+  def test_not_expand_path_basename
+    basename = @basename
+    @basename = "~"
+    $test_optparse_basename = "/" + @basename
+    alias $test_optparse_prog $0
+    alias $0 $test_optparse_basename
+    setup_options({'HOME'=>@tmpdir+"/~options"}, "", "options") do
+      assert_load_nothing
+    end
+  ensure
+    alias $0 $test_optparse_prog
+    @basename = basename
+  end
+
+  def test_not_expand_path_xdg_config_home
+    setup_options_home_options({'XDG_CONFIG_HOME' => '~/options'}) do
+      assert_load_nothing
+    end
+  end
+
+  def test_not_expand_path_xdg_config_dirs
+    setup_options_home_options({'XDG_CONFIG_DIRS' => '~/options'}) do
+      assert_load_nothing
+    end
+  end
+
+  private
+  def assert_load_nothing
     assert !new_parser.load
     assert_nil @result
   end