about summary refs log tree commit diff
path: root/src/fuzzer/ast_match.rs
blob: 46d9613fbc7f3d375a7831854b4cd38769f1df16 (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
use std;
import vec;

fn vec_equal<T>(v: [T], u: [T], element_equality_test: fn(T, T) -> bool) ->
   bool {
    let Lv = vec::len(v);
    if Lv != vec::len(u) { ret false; }
    let i = 0u;
    while i < Lv {
        if !element_equality_test(v[i], u[i]) { ret false; }
        i += 1u;
    }
    ret true;
}

fn builtin_equal<T>(a: T, b: T) -> bool { ret a == b; }

fn main() {
    assert (builtin_equal(5, 5));
    assert (!builtin_equal(5, 4));
    assert (!vec_equal([5, 5], [5], builtin_equal));
    assert (!vec_equal([5, 5], [5, 4], builtin_equal));
    assert (!vec_equal([5, 5], [4, 5], builtin_equal));
    assert (vec_equal([5, 5], [5, 5], builtin_equal));

    log_err "Pass";
}