18 lines
No EOL
377 B
Rust
18 lines
No EOL
377 B
Rust
|
|
|
|
|
|
// -*- rust -*-
|
|
|
|
// Tests for alt as expressions resulting in structural types
|
|
fn test_rec() {
|
|
auto res = alt (true) { case (true) { rec(i=100) } };
|
|
assert (res == rec(i=100));
|
|
}
|
|
|
|
fn test_tag() {
|
|
tag mood { happy; sad; }
|
|
auto res = alt (true) { case (true) { happy } case (false) { sad } };
|
|
assert (res == happy);
|
|
}
|
|
|
|
fn main() { test_rec(); test_tag(); } |