#!perl
use warnings;
use strict;
use Test::More tests => 7;
BEGIN{ use_ok('Ruby', ':DEFAULT', 'rb_c') }
oTODO:{
local $TODO = 'rb_require(Ruby XS) not yet solved';
ok eval{ rb_require('digest/md5.so') }, q{rb_require 'digest/md5.so'};
use Digest::MD5;
is Digest::MD5::md5_hex('foo'), eval{ rb_c(Digest::MD5)->hexdigest('foo') }, "do call so's method";
is Digest::MD5::md5_hex('foo'), eval{ rb_c(Digest::MD5)->hexdigest('foo') }, "redo call so's method";
ok eval{ rb_require("dbm.so") }, "rb_require 'dbm.so'";
}
ok !eval{ rb_require("nolibrary.so") }, "failed to require";
ok($rb_errinfo->kind_of("LoadError"));