test/020-eval.ml

   1 (* Simple eval.
   2  * $Id: 020-eval.ml,v 1.1 2005-01-28 23:09:33 rich Exp $
   3  *)
   4
   5 open Perl
   6
   7 let () =
   8   let sv = eval "2+2" in
   9   assert (4 = int_of_sv sv);;
  10
  11 Gc.full_major ()