Added common aliases for Ogg::Vorbis::Comments#has_key?.

Aliases added are: key?, include? and member?.

diff --git a/ext/comments.c b/ext/comments.c
index 27ea5c7008dba528a6dff0de6e8fe6b7d6010269..b37f59146ea3067ff1902137cb554389f61731eb 100644 (file)
--- a/ext/comments.c
+++ b/ext/comments.c
@@ -551,6 +551,9 @@ Init_Comments (VALUE mVorbis)
 
        rb_define_alias (c, "size", "length");
        rb_define_alias (c, "each_pair", "each");
 
        rb_define_alias (c, "size", "length");
        rb_define_alias (c, "each_pair", "each");

+       rb_define_alias (c, "key?", "has_key?");
+       rb_define_alias (c, "include?", "has_key?");
+       rb_define_alias (c, "member?", "has_key?");

 
        id_casecmp = rb_intern ("casecmp");
        id_replace = rb_intern ("replace");
 
        id_casecmp = rb_intern ("casecmp");
        id_replace = rb_intern ("replace");

diff --git a/test/test_main.rb b/test/test_main.rb
index 5c6457b8c54a181fff35c680428767f5f9b3f440..ae30dedcb9d54e8c833a2986a668bb0bca469723 100644 (file)
--- a/test/test_main.rb
+++ b/test/test_main.rb
@@ -185,6 +185,10 @@ EOF
                Ogg::Vorbis::Tagger.open(@ogg_buf) do |t|
                        assert(t.comments.has_key?("artist"))
                        assert(!t.comments.has_key?("foo"))
                Ogg::Vorbis::Tagger.open(@ogg_buf) do |t|
                        assert(t.comments.has_key?("artist"))
                        assert(!t.comments.has_key?("foo"))

+
+                       assert(t.comments.key?("artist"))
+                       assert(t.comments.include?("artist"))
+                       assert(t.comments.member?("artist"))

                end
        end
 
                end
        end