test/win32ole/test_win32ole_variant_m.rb

   1 # frozen_string_literal: false
   2 begin
   3   require 'win32ole'
   4 rescue LoadError
   5 end
   6 require "test/unit"
   7
   8 if defined?(WIN32OLE::VARIANT)
   9   class TestWin32OLE_VARIANT_MODULE < Test::Unit::TestCase
  10     include WIN32OLE::VARIANT
  11
  12     def test_toplevel_constants_backward_compatibility
  13       assert_equal(WIN32OLE::VariantType, WIN32OLE::VARIANT)
  14     end
  15
  16     def test_variant
  17       assert_equal(0, VT_EMPTY)
  18       assert_equal(1, VT_NULL)
  19       assert_equal(2, VT_I2)
  20       assert_equal(3, VT_I4)
  21       assert_equal(4, VT_R4)
  22       assert_equal(5, VT_R8)
  23       assert_equal(6, VT_CY)
  24       assert_equal(7, VT_DATE)
  25       assert_equal(8, VT_BSTR)
  26       assert_equal(9, VT_DISPATCH)
  27       assert_equal(10, VT_ERROR)
  28       assert_equal(11, VT_BOOL)
  29       assert_equal(12, VT_VARIANT)
  30       assert_equal(13, VT_UNKNOWN)
  31       assert_equal(16, VT_I1)
  32       assert_equal(17, VT_UI1)
  33       assert_equal(18, VT_UI2)
  34       assert_equal(19, VT_UI4)
  35       assert_equal(22, VT_INT)
  36       assert_equal(23, VT_UINT)
  37       assert_equal(0x2000, VT_ARRAY)
  38       assert_equal(0x4000, VT_BYREF)
  39     end
  40   end
  41 end