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
|
platform_is :windows do
require_relative '../fixtures/classes'
guard -> { WIN32OLESpecs::MSXML_AVAILABLE } do
describe "WIN32OLE_EVENT.new" do
before :all do
@xml_dom = WIN32OLESpecs.new_ole('MSXML.DOMDocument')
end
after :all do
@xml_dom = nil
end
it "raises TypeError given invalid argument" do
-> { WIN32OLE_EVENT.new "A" }.should raise_error TypeError
end
it "raises RuntimeError if event does not exist" do
-> { WIN32OLE_EVENT.new(@xml_dom, 'A') }.should raise_error RuntimeError
end
it "raises RuntimeError if OLE object has no events" do
dict = WIN32OLESpecs.new_ole('Scripting.Dictionary')
-> { WIN32OLE_EVENT.new(dict) }.should raise_error RuntimeError
end
it "creates WIN32OLE_EVENT object" do
ev = WIN32OLE_EVENT.new(@xml_dom)
ev.should be_kind_of WIN32OLE_EVENT
end
end
end
end
|
