2011-06-24 16:19:58 -05:00
|
|
|
// Binop corner cases
|
|
|
|
|
2011-08-11 00:25:23 -05:00
|
|
|
use std;
|
2011-12-13 18:25:51 -06:00
|
|
|
import unsafe::reinterpret_cast;
|
|
|
|
import task;
|
|
|
|
import comm;
|
2011-08-11 00:25:23 -05:00
|
|
|
|
2011-06-24 16:19:58 -05:00
|
|
|
fn test_nil() {
|
2011-07-27 07:19:39 -05:00
|
|
|
assert (() == ());
|
|
|
|
assert (!(() != ()));
|
|
|
|
assert (!(() < ()));
|
|
|
|
assert (() <= ());
|
|
|
|
assert (!(() > ()));
|
|
|
|
assert (() >= ());
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_bool() {
|
2011-07-27 07:19:39 -05:00
|
|
|
assert (!(true < false));
|
|
|
|
assert (!(true <= false));
|
|
|
|
assert (true > false);
|
|
|
|
assert (true >= false);
|
|
|
|
|
|
|
|
assert (false < true);
|
|
|
|
assert (false <= true);
|
|
|
|
assert (!(false > true));
|
|
|
|
assert (!(false >= true));
|
|
|
|
|
|
|
|
// Bools support bitwise binops
|
|
|
|
assert (false & false == false);
|
|
|
|
assert (true & false == false);
|
|
|
|
assert (true & true == true);
|
|
|
|
assert (false | false == false);
|
|
|
|
assert (true | false == true);
|
|
|
|
assert (true | true == true);
|
|
|
|
assert (false ^ false == false);
|
|
|
|
assert (true ^ false == true);
|
|
|
|
assert (true ^ true == false);
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_char() {
|
2011-07-27 07:19:39 -05:00
|
|
|
let ch10 = 10 as char;
|
|
|
|
let ch4 = 4 as char;
|
|
|
|
let ch2 = 2 as char;
|
|
|
|
assert (ch10 + ch4 == 14 as char);
|
|
|
|
assert (ch10 - ch4 == 6 as char);
|
|
|
|
assert (ch10 * ch4 == 40 as char);
|
|
|
|
assert (ch10 / ch4 == ch2);
|
|
|
|
assert (ch10 % ch4 == ch2);
|
|
|
|
assert (ch10 >> ch2 == ch2);
|
|
|
|
assert (ch10 << ch4 == 160 as char);
|
|
|
|
assert (ch10 | ch4 == 14 as char);
|
|
|
|
assert (ch10 & ch2 == ch2);
|
|
|
|
assert (ch10 ^ ch2 == 8 as char);
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_box() {
|
2011-08-12 17:14:17 -05:00
|
|
|
assert (@10 == @10);
|
|
|
|
assert (@{a: 1, b: 3} < @{a: 1, b: 4});
|
2011-07-27 07:19:39 -05:00
|
|
|
assert (@{a: 'x'} != @{a: 'y'});
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_port() {
|
2011-08-25 13:20:43 -05:00
|
|
|
let p1 = comm::port::<int>();
|
|
|
|
let p2 = comm::port::<int>();
|
2011-06-24 16:19:58 -05:00
|
|
|
|
2011-08-19 17:16:48 -05:00
|
|
|
assert (p1 == p1);
|
|
|
|
assert (p1 != p2);
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_chan() {
|
2011-08-25 13:20:43 -05:00
|
|
|
let p: comm::port<int> = comm::port();
|
|
|
|
let ch1 = comm::chan(p);
|
|
|
|
let ch2 = comm::chan(p);
|
2011-06-24 16:19:58 -05:00
|
|
|
|
2011-08-19 17:16:48 -05:00
|
|
|
assert (ch1 == ch1);
|
2011-08-15 18:54:02 -05:00
|
|
|
// Chans are equal because they are just task:port addresses.
|
2011-08-19 17:16:48 -05:00
|
|
|
assert (ch1 == ch2);
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
2012-02-05 18:50:54 -06:00
|
|
|
fn test_ptr() unsafe {
|
|
|
|
let p1: *u8 = unsafe::reinterpret_cast(0);
|
|
|
|
let p2: *u8 = unsafe::reinterpret_cast(0);
|
|
|
|
let p3: *u8 = unsafe::reinterpret_cast(1);
|
|
|
|
|
|
|
|
assert p1 == p2;
|
|
|
|
assert p1 != p3;
|
|
|
|
assert p1 < p3;
|
|
|
|
assert p1 <= p3;
|
|
|
|
assert p3 > p1;
|
|
|
|
assert p3 >= p3;
|
|
|
|
assert p1 <= p2;
|
|
|
|
assert p1 >= p2;
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_fn() {
|
2011-07-27 07:19:39 -05:00
|
|
|
fn f() { }
|
|
|
|
fn g() { }
|
2012-06-25 14:20:10 -05:00
|
|
|
fn h(_i: int) { }
|
2011-07-27 07:19:39 -05:00
|
|
|
let f1 = f;
|
|
|
|
let f2 = f;
|
|
|
|
let g1 = g;
|
|
|
|
let h1 = h;
|
|
|
|
let h2 = h;
|
|
|
|
assert (f1 == f2);
|
|
|
|
assert (f1 == f);
|
|
|
|
|
2011-08-09 18:28:10 -05:00
|
|
|
assert (f1 != g1);
|
2011-07-27 07:19:39 -05:00
|
|
|
assert (h1 == h2);
|
|
|
|
assert (!(f1 != f2));
|
|
|
|
assert (!(h1 < h2));
|
|
|
|
assert (h1 <= h2);
|
|
|
|
assert (!(h1 > h2));
|
|
|
|
assert (h1 >= h2);
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
2011-11-16 22:49:38 -06:00
|
|
|
#[abi = "cdecl"]
|
2011-12-15 14:25:29 -06:00
|
|
|
#[nolink]
|
2011-11-16 22:49:38 -06:00
|
|
|
native mod test {
|
2011-08-31 20:47:29 -05:00
|
|
|
fn unsupervise();
|
2012-02-05 18:50:54 -06:00
|
|
|
fn get_task_id();
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_native_fn() {
|
2012-02-05 18:50:54 -06:00
|
|
|
assert test::unsupervise != test::get_task_id;
|
|
|
|
assert test::unsupervise == test::unsupervise;
|
2011-06-24 16:19:58 -05:00
|
|
|
}
|
|
|
|
|
2012-06-25 14:20:10 -05:00
|
|
|
class p {
|
|
|
|
let mut x: int;
|
|
|
|
let mut y: int;
|
|
|
|
new(x: int, y: int) { self.x = x; self.y = y; }
|
|
|
|
}
|
|
|
|
|
|
|
|
fn test_class() {
|
|
|
|
let q = p(1, 2);
|
|
|
|
let r = p(1, 2);
|
|
|
|
|
|
|
|
unsafe {
|
|
|
|
#error("q = %x, r = %x",
|
|
|
|
(unsafe::reinterpret_cast::<*p, uint>(ptr::addr_of(q))),
|
|
|
|
(unsafe::reinterpret_cast::<*p, uint>(ptr::addr_of(r))));
|
|
|
|
}
|
|
|
|
assert(q == r);
|
|
|
|
r.y = 17;
|
|
|
|
assert(r.y != q.y);
|
|
|
|
assert(r.y == 17);
|
|
|
|
assert(q != r);
|
|
|
|
}
|
|
|
|
|
2011-06-24 16:19:58 -05:00
|
|
|
fn main() {
|
2011-07-27 07:19:39 -05:00
|
|
|
test_nil();
|
|
|
|
test_bool();
|
|
|
|
test_char();
|
|
|
|
test_box();
|
|
|
|
test_port();
|
|
|
|
test_chan();
|
|
|
|
test_ptr();
|
|
|
|
test_fn();
|
|
|
|
test_native_fn();
|
2012-06-25 14:20:10 -05:00
|
|
|
test_class();
|
2011-08-09 18:28:10 -05:00
|
|
|
}
|