diff options
Diffstat (limited to 'ext/-test-')
-rw-r--r-- | ext/-test-/symbol/init.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ext/-test-/symbol/init.c b/ext/-test-/symbol/init.c index 3b7cf15899..9e42e1a38b 100644 --- a/ext/-test-/symbol/init.c +++ b/ext/-test-/symbol/init.c @@ -8,11 +8,18 @@ sym_find(VALUE dummy, VALUE sym) return rb_check_symbol(&sym); } +static VALUE +sym_pinneddown_p(VALUE dummy, VALUE sym) +{ + return rb_check_id(&sym) ? Qtrue : Qfalse; +} + void Init_symbol(void) { VALUE mBug = rb_define_module("Bug"); VALUE klass = rb_define_class_under(mBug, "Symbol", rb_cSymbol); rb_define_singleton_method(klass, "find", sym_find, 1); + rb_define_singleton_method(klass, "pinneddown?", sym_pinneddown_p, 1); TEST_INIT_FUNCS(init); } |