#!perl

use warnings;
use strict;

use Test::More tests => 7;

BEGIN{ use_ok('Ruby', ':DEFAULT', 'rb_c') }

ok rb_require('digest/md5.so'), q{rb_require 'digest/md5.so'};

use Digest::MD5;

is Digest::MD5::md5_hex('foo'), rb_c(Digest::MD5)->hexdigest('foo'), "do call so's method";

is Digest::MD5::md5_hex('foo'), rb_c(Digest::MD5)->hexdigest('foo'), "redo call so's method";

ok rb_require("dbm.so"), "rb_require 'dbm.so'";

ok !eval{ rb_require("nolibrary.so") }, "failed to require";

ok($rb_errinfo->kind_of("LoadError"));