rust/src/test/run-pass/mlist-cycle.rs

// xfail-stage1
// xfail-stage2
// xfail-stage3
// -*- rust -*-
use std;

type cell = {mutable c: @list};

tag list { link(@cell); nil; }

fn main() {
    let first: @cell = @{mutable c: @nil()};
    let second: @cell = @{mutable c: @link(first)};
    first._0 = @link(second);
    std::sys.rustrt.gc();
    let third: @cell = @{mutable c: @nil()};
}
Assume xfail-stage0 implies stage1 and stage2 in tests, for now. 2011-05-03 20:13:51 -05:00			`// xfail-stage1`
			`// xfail-stage2`
Add xfail-stage3 directives to tests The new test runners run stage 3 2011-07-20 21:37:09 -05:00			`// xfail-stage3`
Populate tree. 2010-06-23 23:03:09 -05:00			`// -- rust --`
Add callable gc method exposed to user code, use it in mlist-cycle.rs test (still not quite working; some memory corruption in the recursive tag constructors, not the GC) 2010-06-26 01:57:30 -05:00			`use std;`

Reformat for new syntax 2011-07-27 07:19:39 -05:00			`type cell = {mutable c: @list};`
Reformat source tree (minus a couple tests that are still grumpy). 2011-06-15 13:19:50 -05:00
			`tag list { link(@cell); nil; }`
Populate tree. 2010-06-23 23:03:09 -05:00
			`fn main() {`
Reformat for new syntax 2011-07-27 07:19:39 -05:00			`let first: @cell = @{mutable c: @nil()};`
			`let second: @cell = @{mutable c: @link(first)};`
Reformat source tree (minus a couple tests that are still grumpy). 2011-06-15 13:19:50 -05:00			`first._0 = @link(second);`
			`std::sys.rustrt.gc();`
Reformat for new syntax 2011-07-27 07:19:39 -05:00			`let third: @cell = @{mutable c: @nil()};`
Reformat source tree (minus a couple tests that are still grumpy). 2011-06-15 13:19:50 -05:00			`}`