all.T 1.54 KB
Newer Older
1 2 3 4 5 6 7

include ($confdir ++ "/../vanilla-test.T")

-- Args to vt are: extra compile flags
--                 extra run flags
--                 expected process return value, if not zero

8
def myvtr ( $args_c, $args_r, $ret_res )
9
{
10 11
   vtr ( " -package concurrent -fglasgow-exts " ++ $args_c,
         $args_r, $ret_res )
12 13
}

14 15 16 17 18 19 20 21
test "conc001" { myvtr("", "", "") }
test "conc002" { myvtr("", "", "") }
test "conc003" { myvtr("", "", "") }
test "conc004" { myvtr("", "", "") }
test "conc005" { myvtr("", "", "") }
test "conc006" { myvtr("", "", "") }
test "conc007" { myvtr("", "+RTS -H128M -RTS", "") }
test "conc008" { myvtr("", "", "") }
22
test "conc009" { myvtr("", "", "1") }
23 24 25 26 27 28 29 30 31
test "conc010" { myvtr("", "", "") }
test "conc012" { myvtr("", "", "") }
test "conc013" { myvtr("", "", "") }
test "conc014" { myvtr("", "", "") }
test "conc015" { myvtr("", "", "") }
test "conc016" { myvtr("", "", "") }
test "conc017" { myvtr("", "", "") }
test "conc018" { myvtr("", "", "") }
test "conc019" { myvtr("", "", "") }
32 33

--# conc020 *should* work on mingw32
34
test "conc020" { skip when $os == "mingw32"
35
                 myvtr("", "", "") }
36

37 38
test "conc021" { skip when $os == "mingw32"
                 myvtr("", "", "250") }
39 40 41 42 43 44 45 46 47 48 49

test "conc022" { myvtr("", "", "") }
test "conc023" { myvtr("", "", "") }
test "conc024" { myvtr("", "", "") }
test "conc025" { myvtr("", "", "") }
test "conc026" { myvtr("", "", "") }
test "conc027" { myvtr("", "", "") }
test "conc028" { myvtr("", "", "") }
test "conc029" { myvtr("", "", "") }
test "conc030" { myvtr("", "", "") }
test "conc031" { myvtr("", "", "") }