2011-01-23 08:20:58 -05:00
|
|
|
begin
|
|
|
|
require_relative 'helper'
|
|
|
|
rescue LoadError
|
|
|
|
end
|
2010-05-06 02:59:24 -04:00
|
|
|
|
|
|
|
class TestFiddle < Fiddle::TestCase
|
|
|
|
def test_constants_match
|
|
|
|
[
|
|
|
|
:TYPE_VOID,
|
|
|
|
:TYPE_VOIDP,
|
|
|
|
:TYPE_CHAR,
|
|
|
|
:TYPE_SHORT,
|
|
|
|
:TYPE_INT,
|
|
|
|
:TYPE_LONG,
|
|
|
|
:TYPE_LONG_LONG,
|
|
|
|
:TYPE_FLOAT,
|
|
|
|
:TYPE_DOUBLE,
|
2012-02-25 00:47:16 -05:00
|
|
|
:TYPE_SIZE_T,
|
|
|
|
:TYPE_SSIZE_T,
|
|
|
|
:TYPE_PTRDIFF_T,
|
|
|
|
:TYPE_INTPTR_T,
|
|
|
|
:TYPE_UINTPTR_T,
|
2010-05-06 02:59:24 -04:00
|
|
|
].each do |name|
|
2012-02-25 00:47:16 -05:00
|
|
|
assert_equal(DL.const_get(name), Fiddle.const_get(name), "Fiddle::#{name}")
|
2010-05-06 02:59:24 -04:00
|
|
|
end
|
|
|
|
end
|
2010-12-27 14:34:00 -05:00
|
|
|
|
|
|
|
def test_windows_constant
|
|
|
|
require 'rbconfig'
|
|
|
|
if RbConfig::CONFIG['host_os'] =~ /mswin|mingw/
|
|
|
|
assert Fiddle::WINDOWS, "Fiddle::WINDOWS should be 'true' on Windows platforms"
|
|
|
|
else
|
|
|
|
refute Fiddle::WINDOWS, "Fiddle::WINDOWS should be 'false' on non-Windows platforms"
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2011-01-23 08:20:58 -05:00
|
|
|
end if defined?(Fiddle)
|