diff options
Diffstat (limited to 'testes')
| -rw-r--r-- | testes/events.lua | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testes/events.lua b/testes/events.lua index 8d8563b9..5360ac30 100644 --- a/testes/events.lua +++ b/testes/events.lua | |||
| @@ -248,6 +248,15 @@ end | |||
| 248 | test(Op(1), Op(2), Op(3)) | 248 | test(Op(1), Op(2), Op(3)) |
| 249 | 249 | ||
| 250 | 250 | ||
| 251 | do -- test nil as false | ||
| 252 | local x = setmetatable({12}, {__eq= function (a,b) | ||
| 253 | return a[1] == b[1] or nil | ||
| 254 | end}) | ||
| 255 | assert(not (x == {20})) | ||
| 256 | assert(x == {12}) | ||
| 257 | end | ||
| 258 | |||
| 259 | |||
| 251 | -- test `partial order' | 260 | -- test `partial order' |
| 252 | 261 | ||
| 253 | local function rawSet(x) | 262 | local function rawSet(x) |
