104 lines
3.1 KiB
Rust
104 lines
3.1 KiB
Rust
// Copyright 2013 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.
|
|
|
|
// Tests that a heterogeneous list of existential types can be put inside an ARC
|
|
// and shared between tasks as long as all types fulfill Const+Owned.
|
|
|
|
// xfail-fast
|
|
|
|
extern mod extra;
|
|
use extra::arc;
|
|
use std::comm;
|
|
use std::task;
|
|
use std::cell;
|
|
|
|
trait Pet {
|
|
fn name(&self, blk: &fn(&str));
|
|
fn num_legs(&self) -> uint;
|
|
fn of_good_pedigree(&self) -> bool;
|
|
}
|
|
|
|
struct Catte {
|
|
num_whiskers: uint,
|
|
name: ~str,
|
|
}
|
|
|
|
struct Dogge {
|
|
bark_decibels: uint,
|
|
tricks_known: uint,
|
|
name: ~str,
|
|
}
|
|
|
|
struct Goldfyshe {
|
|
swim_speed: uint,
|
|
name: ~str,
|
|
}
|
|
|
|
impl Pet for Catte {
|
|
fn name(&self, blk: &fn(&str)) { blk(self.name) }
|
|
fn num_legs(&self) -> uint { 4 }
|
|
fn of_good_pedigree(&self) -> bool { self.num_whiskers >= 4 }
|
|
}
|
|
impl Pet for Dogge {
|
|
fn name(&self, blk: &fn(&str)) { blk(self.name) }
|
|
fn num_legs(&self) -> uint { 4 }
|
|
fn of_good_pedigree(&self) -> bool {
|
|
self.bark_decibels < 70 || self.tricks_known > 20
|
|
}
|
|
}
|
|
impl Pet for Goldfyshe {
|
|
fn name(&self, blk: &fn(&str)) { blk(self.name) }
|
|
fn num_legs(&self) -> uint { 0 }
|
|
fn of_good_pedigree(&self) -> bool { self.swim_speed >= 500 }
|
|
}
|
|
|
|
fn main() {
|
|
let catte = Catte { num_whiskers: 7, name: ~"alonzo_church" };
|
|
let dogge1 = Dogge { bark_decibels: 100, tricks_known: 42, name: ~"alan_turing" };
|
|
let dogge2 = Dogge { bark_decibels: 55, tricks_known: 11, name: ~"albert_einstein" };
|
|
let fishe = Goldfyshe { swim_speed: 998, name: ~"alec_guinness" };
|
|
let arc = arc::ARC(~[~catte as ~Pet:Const+Owned,
|
|
~dogge1 as ~Pet:Const+Owned,
|
|
~fishe as ~Pet:Const+Owned,
|
|
~dogge2 as ~Pet:Const+Owned]);
|
|
let (p1,c1) = comm::stream();
|
|
let arc1 = cell::Cell::new(arc.clone());
|
|
do task::spawn { check_legs(arc1.take()); c1.send(()); }
|
|
let (p2,c2) = comm::stream();
|
|
let arc2 = cell::Cell::new(arc.clone());
|
|
do task::spawn { check_names(arc2.take()); c2.send(()); }
|
|
let (p3,c3) = comm::stream();
|
|
let arc3 = cell::Cell::new(arc.clone());
|
|
do task::spawn { check_pedigree(arc3.take()); c3.send(()); }
|
|
p1.recv();
|
|
p2.recv();
|
|
p3.recv();
|
|
}
|
|
|
|
fn check_legs(arc: arc::ARC<~[~Pet:Const+Owned]>) {
|
|
let mut legs = 0;
|
|
for arc.get().iter().advance |pet| {
|
|
legs += pet.num_legs();
|
|
}
|
|
assert!(legs == 12);
|
|
}
|
|
fn check_names(arc: arc::ARC<~[~Pet:Const+Owned]>) {
|
|
for arc.get().iter().advance |pet| {
|
|
do pet.name |name| {
|
|
assert!(name[0] == 'a' as u8 && name[1] == 'l' as u8);
|
|
}
|
|
}
|
|
}
|
|
fn check_pedigree(arc: arc::ARC<~[~Pet:Const+Owned]>) {
|
|
for arc.get().iter().advance |pet| {
|
|
assert!(pet.of_good_pedigree());
|
|
}
|
|
}
|