rust/src/test/run-pass/rec-tup.rs
Brian Anderson 9a773da681 Remove ancient emacs mode lines from test cases
These are relics that serve no purpose.
2013-10-25 17:41:54 -07:00

37 lines
1.1 KiB
Rust

// 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.
struct Point {x: int, y: int}
type rect = (Point, Point);
fn fst(r: rect) -> Point { let (fst, _) = r; return fst; }
fn snd(r: rect) -> Point { let (_, snd) = r; return snd; }
fn f(r: rect, x1: int, y1: int, x2: int, y2: int) {
assert_eq!(fst(r).x, x1);
assert_eq!(fst(r).y, y1);
assert_eq!(snd(r).x, x2);
assert_eq!(snd(r).y, y2);
}
pub fn main() {
let r: rect = (Point {x: 10, y: 20}, Point {x: 11, y: 22});
assert_eq!(fst(r).x, 10);
assert_eq!(fst(r).y, 20);
assert_eq!(snd(r).x, 11);
assert_eq!(snd(r).y, 22);
let r2 = r;
let x: int = fst(r2).x;
assert_eq!(x, 10);
f(r, 10, 20, 11, 22);
f(r2, 10, 20, 11, 22);
}