summaryrefslogtreecommitdiff
path: root/test/dl/test_win32.rb
blob: b40e3690d8b2514e9aecb367adf39142ccbbe9ed (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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
require 'test_base'
require 'dl/import'
require 'dl/types'

module Win32API
  extend DL::Importer

  dlload "kernel32.dll"

  include DL::Win32Types

  OSVERSIONINFO = struct [
    "DWORD dwOSVersionInfoSize",
    "DWORD dwMajorVersion",
    "DWORD dwMinorVersion",
    "DWORD dwBuildNumber",
    "DWORD dwPlatformId",
    "UCHAR szCSDVersion[128]",
  ]

  typealias "POSVERSIONINFO", "OSVERSIONINFO*"

  extern "BOOL GetVersionEx(POSVERSIONINFO)", :stdcall

  def get_version_ex()
    ptr = OSVERSIONINFO.malloc()
    ptr.dwOSVersionInfoSize = OSVERSIONINFO.size
    ret = GetVersionEx(ptr)
    if( ret )
      ptr
    else
      nil
    end
  end
  module_function :get_version_ex
rescue DL::DLError
end

module DL
class TestWin32 < TestBase
  def test_version()
    platform = Win32API.get_version_ex().dwPlatformId
    case ENV['OS']
    when 'Windows_NT'
      expect = 2
    when /Windows.+/
      expect = 1
    else
      expect = 0
    end
    assert_equal(expect, platform)
  end
end
end if defined?(Win32API::OSVERSIONINFO)