summaryrefslogtreecommitdiff
path: root/test/mkmf/test_convertible.rb
blob: 1baf8928424901d2fdf12abc1c5422e6cc38f493 (plain)
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
34
35
# frozen_string_literal: false
require_relative 'base'

class TestMkmf
  class TestConvertible < 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
end