<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="pa_monad.html"> <link title="Index of types" rel=Appendix href="pa_monad_types.html"> <link title="Index of exceptions" rel=Appendix href="pa_monad_exceptions.html"> <link title="Index of values" rel=Appendix href="pa_monad_values.html"> <link title="Index of modules" rel=Appendix href="pa_monad_modules.html"> <link title="Pa_monad" rel="Chapter" href="Pa_monad.html"> <link title="Cc" rel="Chapter" href="Cc.html"> <link title="Exception" rel="Chapter" href="Exception.html"> <link title="Io" rel="Chapter" href="Io.html"> <link title="Utest" rel="Chapter" href="Utest.html"><title>Utest</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> expected_test_outcome =<br> <span class="constructor">ExpectPass</span><br> <span class="keywordsign">|</span> <span class="constructor">ExpectFail</span><br> <span class="keywordsign">|</span> <span class="constructor">ExpectException</span> <span class="keyword">of</span> exn<br> <span class="keyword">type</span> test_outcome = <span class="constructor">Pass</span> <span class="keywordsign">|</span> <span class="constructor">Fail</span> <span class="keywordsign">|</span> <span class="constructor">UPass</span> <span class="keywordsign">|</span> <span class="constructor">XFail</span> <span class="keywordsign">|</span> <span class="constructor">Unresolved</span> <span class="keyword">of</span> string<br> <span class="keyword">type</span> test =<br> <span class="constructor">TestCase</span> <span class="keyword">of</span> string * <span class="constructor">Utest</span>.expected_test_outcome * (unit <span class="keywordsign">-></span> bool)<br> <span class="keyword">type</span> test_results = {<br> total : int;<br> passed : int;<br> failed : int;<br> upassed : int;<br> xfailed : int;<br> unresolved : int;<br> }<br> <span class="keyword">val</span> testcase :<br> string <span class="keywordsign">-></span> <span class="constructor">Utest</span>.expected_test_outcome <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test<br> <span class="keyword">val</span> expect_pass : string <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test<br> <span class="keyword">val</span> expect_fail : string <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test<br> <span class="keyword">val</span> expect_exception : string <span class="keywordsign">-></span> exn <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> bool) <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test<br> <span class="keyword">exception</span> <span class="constructor">InconsistentFixture</span><br> <span class="keyword">val</span> eval_with_imperative_fixture :<br> (unit <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test) <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test<br> <span class="keyword">val</span> eval_with_functional_fixture :<br> (unit <span class="keywordsign">-></span> <span class="keywordsign">'</span>a) <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test) <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test<br> <span class="keyword">type</span> verbosity =<br> <span class="constructor">PrintNothing</span><br> <span class="keywordsign">|</span> <span class="constructor">PrintFailedTests</span><br> <span class="keywordsign">|</span> <span class="constructor">PrintTestTotals</span><br> <span class="keywordsign">|</span> <span class="constructor">PrintAllTests</span><br> <span class="keyword">val</span> run_tests :<br> <span class="constructor">Utest</span>.verbosity <span class="keywordsign">-></span> (unit <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test) list <span class="keywordsign">-></span> <span class="constructor">Utest</span>.test_results<br> <span class="keyword">end</span></code></body></html>