| Revision | ba44a3758a480770425afbdb3da8f1d941f4ad48 (tree) |
|---|---|
| Time | 2008-11-26 16:33:22 |
| Author | akngw <akngw@user...> |
| Commiter | akngw |
modified the version test and added an invalid argument test.
test/test.ml (diff)| @@ -207,7 +207,13 @@ let test_suite = "ocaml-nkf" >::: [ | ||
| 207 | 207 | (fun () -> assert_equal (Nkf.nkf_version ()) "2.0.8"); |
| 208 | 208 | |
| 209 | 209 | "version" >:: |
| 210 | - (fun () -> assert_equal (Nkf.version ()) "2.0.8 (2007-01-28)"); | |
| 210 | + (fun () -> assert_equal (Nkf.version ()) "2.0.8 (2008-11-07)"); | |
| 211 | + | |
| 212 | + "invalid argument" >:: | |
| 213 | + (fun () -> | |
| 214 | + assert_raises | |
| 215 | + (Invalid_argument "no output encoding given") | |
| 216 | + (fun () -> Nkf.nkf "-W" utf8)); | |
| 211 | 217 | ] |
| 212 | 218 | |
| 213 | 219 | let _ = run_test_tt_main test_suite |
Fork