Branch: Tag:

2011-03-06

2011-03-06 00:20:40 by Martin Stjernholm <mast@lysator.liu.se>

Added some tests for the Val objects.

1128:   test_true([[ zero_type(TestQueue->try_read()) ]])   test_do([[ add_constant("TestQueue"); ]])    + test_false(!Val.true) + test_true(!Val.false) + test_eq((int) Val.true, 1) + test_eq((int) Val.false, 0) + test_eq((string) Val.true, "1") + test_eq((string) Val.false, "0") + test_false(Val.true == 0) + test_false(Val.true == 1) + test_false(Val.false == 0) + test_false(Val.false == 1) + test_false(Val.true == Val.false) + test_true(Val.true == Val.true) + test_true(Val.false == Val.false) +  + test_true(!Val.null) + test_eval_error((int) Val.null) + test_eval_error((string) Val.null) + test_false(Val.null == 0) + test_false(Val.null == 1) + test_false(Val.null == Val.true) + test_false(Val.null == Val.false) + test_true(Val.null == Val.null) +    END_MARKER