/tags/rel-1.3.35/Examples/test-suite/lua/li_std_pair_runme.lua
# · Lua · 34 lines · 23 code · 8 blank · 3 comment · 21 complexity · ac1a2d1370ae59d7bb327229c609c64d MD5 · raw file
- require("import") -- the import fn
- import("li_std_pair") -- import code
- for k,v in pairs(li_std_pair) do _G[k]=v end -- move to global
- intPair = makeIntPair(7, 6)
- assert(intPair.first==7 and intPair.second==6)
- intPairPtr = makeIntPairPtr(7, 6)
- assert(intPairPtr.first==7 and intPairPtr.second==6)
- intPairRef = makeIntPairRef(7, 6)
- assert(intPairRef.first == 7 and intPairRef.second == 6)
- intPairConstRef = makeIntPairConstRef(7, 6)
- assert(intPairConstRef.first == 7 and intPairConstRef.second == 6)
- -- call fns
- assert(product1(intPair) == 42)
- assert(product2(intPair) == 42)
- assert(product3(intPair) == 42)
- -- also use the pointer version
- assert(product1(intPairPtr) == 42)
- assert(product2(intPairPtr) == 42)
- assert(product3(intPairPtr) == 42)
- -- or the other types
- assert(product1(intPairRef) == 42)
- assert(product2(intPairRef) == 42)
- assert(product3(intPairRef) == 42)
- assert(product1(intPairConstRef) == 42)
- assert(product2(intPairConstRef) == 42)
- assert(product3(intPairConstRef) == 42)