1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
# frozen_string_literal: false
require_relative 'base'
class TestMkmfConvertible < TestMkmf
def test_typeof_builtin
["", ["signed ", ""], "unsigned "].each do |signed, prefix|
%w[short int long].each do |type|
assert_equal((prefix || signed)+type,
mkmf {convertible_int(signed+type)}, MKMFLOG)
end
end
end
def test_typeof_typedef
["", ["signed ", ""], "unsigned "].each do |signed, prefix|
%w[short int long].each do |type|
open("confdefs.h", "w") {|f|
f.puts "typedef #{signed}#{type} test1_t;"
}
$defs.clear
assert_equal((prefix || signed)+type,
mkmf {convertible_int("test1_t", "confdefs.h")}, MKMFLOG)
(u = signed[/^u/]) and u.upcase!
assert_include($defs, "-DTYPEOF_TEST1_T="+"#{prefix||signed}#{type}".quote)
assert_include($defs, "-DPRI_TEST1T_PREFIX=PRI_#{type.upcase}_PREFIX")
assert_include($defs, "-DTEST1T2NUM=#{u}#{type.upcase}2NUM")
assert_include($defs, "-DNUM2TEST1T=NUM2#{u}#{type.upcase}")
end
end
ensure
File.unlink("confdefs.h")
end
end
|
