File: test_constant.rb

package info (click to toggle)
ruby3.4 3.4.5-1~exp1
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 154,784 kB
  • sloc: ruby: 1,259,653; ansic: 829,955; yacc: 28,233; pascal: 7,359; sh: 3,864; python: 1,799; cpp: 1,158; asm: 808; makefile: 801; javascript: 414; lisp: 109; perl: 62; awk: 36; sed: 4; xml: 4
file content (44 lines) | stat: -rw-r--r-- 1,500 bytes parent folder | download | duplicates (2)
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
36
37
38
39
40
41
42
43
44
# frozen_string_literal: false
require_relative 'base'

class TestMkmfTryConstant < TestMkmf
  def setup
    if ENV.key?('APPVEYOR')
      @omitted = true
      omit 'This test fails too often on AppVeyor'
    end
    super
  end

  def test_simple
    assert_equal( 0, mkmf {try_constant("0")}, MKMFLOG)
    assert_equal( 1, mkmf {try_constant("1")}, MKMFLOG)
    assert_equal(-1, mkmf {try_constant("-1")}, MKMFLOG)
  end

  def test_sizeof
    assert_equal(config_value("SIZEOF_INT").to_i, mkmf {try_constant("sizeof(int)")}, MKMFLOG)
    assert_equal(config_value("SIZEOF_LONG").to_i, mkmf {try_constant("sizeof(long)")}, MKMFLOG)
    assert_equal(config_value("SIZEOF_VOIDP").to_i, mkmf {try_constant("sizeof(void*)")}, MKMFLOG)
    assert_equal(config_value("SIZEOF_VALUE").to_i, mkmf {try_constant("sizeof(Qnil)")}, MKMFLOG)
  end

  def test_long
    sizeof_int = config_value("SIZEOF_INT").to_i
    sizeof_long = config_value("SIZEOF_LONG").to_i
    if sizeof_long > sizeof_int
      type = 'long'
    else
      sizeof_long_long = config_value("SIZEOF_LONG_LONG").to_i
      return if !sizeof_long_long or sizeof_long_long <= sizeof_int
      type = 'LONG_LONG'
    end

    decl = "#define CONFTEST_VALUE (unsigned #{type})(((unsigned #{type})1)<<(CHAR_BIT*sizeof(int)))"
    assert_operator(mkmf {try_constant("CONFTEST_VALUE", [[decl]])}, :>, 0, MKMFLOG)
  end

  def test_large_unsigned
    assert_operator(mkmf {try_constant("1U<<(CHAR_BIT*sizeof(int)-1)")}, :>, 0, MKMFLOG)
  end
end