modified the version test and added an invalid argument test.

diff --git a/test/test.ml b/test/test.ml
index dff4167..fc5a86f 100644 (file)
--- a/test/test.ml
+++ b/test/test.ml
@@ -207,7 +207,13 @@ let test_suite = "ocaml-nkf" >::: [
     (fun () -> assert_equal (Nkf.nkf_version ()) "2.0.8");
 
   "version" >::
-    (fun () -> assert_equal (Nkf.version ()) "2.0.8 (2007-01-28)");
+    (fun () -> assert_equal (Nkf.version ()) "2.0.8 (2008-11-07)");
+
+  "invalid argument" >::
+    (fun () ->
+      assert_raises
+        (Invalid_argument "no output encoding given")
+        (fun () -> Nkf.nkf "-W" utf8));
 ]
 
 let _ = run_test_tt_main test_suite