about summary refs log tree commit diff
path: root/src/test/run-pass/xc_conditions_client_4.rs
blob: 9a4a868374235fa3768f9bee4f8c27a3ba90c08b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
// Copyright 2012 The Rust Project Developers. See the COPYRIGHT
// file at the top-level directory of this distribution and at
// http://rust-lang.org/COPYRIGHT.
//
// Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
// http://www.apache.org/licenses/LICENSE-2.0> or the MIT license
// <LICENSE-MIT or http://opensource.org/licenses/MIT>, at your
// option. This file may not be copied, modified, or distributed
// except according to those terms.

// xfail-fast
// aux-build:xc_conditions_4.rs

extern mod xc_conditions_4;
use xcc = xc_conditions_4;

struct SThunk {
    x: int
}

impl xcc::Thunk<xcc::Color> for SThunk {
    fn call(self) -> xcc::Color {
        xcc::oops::cond.raise((self.x, 1.23, ~"oh no"))
    }
}

pub fn main() {
    do xcc::oops::cond.trap(|_| xcc::Red).inside {
        let t = SThunk { x : 10 };
        assert_eq!(xcc::callback(t), xcc::Red)
    }
}