summaryrefslogtreecommitdiff
path: root/ext/win32ole/tests/testOLEPARAM.rb
blob: 685b548aa558b3d6e451c73bac7756e0d04789d2 (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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
# You need RubyUnit and MS Excel and MSI to run this test script 

require 'rubyunit'

require 'win32ole'
require 'oleserver'

class TestOLEPARAM < RUNIT::TestCase
  include OLESERVER
  def test_name
    classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
    sh = classes.find {|c| c.name == 'Worksheet'}
    saveas = sh.ole_methods.find {|m| m.name == 'SaveAs'}
    param_names = saveas.params.collect{|p| p.name}
    assert(param_names.size > 0)
    assert(param_names.include?('Filename'))
  end
  def test_to_s
    classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
    sh = classes.find {|c| c.name == 'Worksheet'}
    saveas = sh.ole_methods.find {|m| m.name == 'SaveAs'}
    param_names = saveas.params.collect{|p| "#{p}"}
    assert(param_names.include?('Filename'))
  end
  def test_ole_type
    classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
    methods = classes.find {|c| c.name == 'Worksheet'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert_equal('BSTR', f.params[0].ole_type)
    methods = classes.find {|c| c.name == 'Workbook'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert_equal('XlSaveAsAccessMode', f.params[6].ole_type)
  end
  def test_ole_type_detail
    classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
    methods = classes.find {|c| c.name == 'Worksheet'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert_equal(['BSTR'], f.params[0].ole_type_detail)
    methods = classes.find {|c| c.name == 'Workbook'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert_equal(['USERDEFINED', 'XlSaveAsAccessMode'], f.params[6].ole_type_detail)
  end
  def test_input
    classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
    methods = classes.find {|c| c.name == 'Worksheet'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert(f.params[0].input?)
  end
  
  def test_output
    classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
    methods = classes.find {|c| c.name == 'Worksheet'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert(!f.params[0].output?)
  end
  def test_optional
    classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
    methods = classes.find {|c| c.name == 'Worksheet'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert(!f.params[0].optional?)
    methods = classes.find {|c| c.name == 'Workbook'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert(f.params[0].optional?)
  end
  def test_ole_type_detail
    classes = WIN32OLE_TYPE.ole_classes(MS_EXCEL_TYPELIB)
    methods = classes.find {|c| c.name == 'Worksheet'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert_equal(nil, f.params[0].default)
    methods = classes.find {|c| c.name == 'Workbook'}.ole_methods
    f = methods.find {|m| m.name == 'SaveAs'}
    assert_equal(1, f.params[6].default)
  end
end