Add. Test compatibility safe and unsafe objects

master
Alexey Melnichuk 2014-09-09 11:43:31 +05:00
parent 08c15d9857
commit a6511ba7d0
1 changed files with 33 additions and 0 deletions

View File

@ -242,4 +242,37 @@ end
end
local _ENV = TEST_CASE'objects_have_same_metatables' do
local scurl = require "lcurl.safe"
local curl = require "lcurl"
local e1, e2, m
function teardown()
if m then m:close() end
if e1 then e1:close() end
if e2 then e2:close() end
e1, e2, m = nil
end
function test_1()
e1 = assert(scurl.easy())
e2 = assert(curl.easy())
m = assert(scurl.multi())
assert_equal(m, m:add_handle(e1))
assert_equal(m, m:add_handle(e2))
end
function test_2()
e1 = assert(scurl.easy())
e2 = assert(curl.easy())
m = assert(curl.multi())
assert_equal(m, m:add_handle(e1))
assert_equal(m, m:add_handle(e2))
end
end
if not HAS_RUNNER then lunit.run() end