lib_test/recursive_mutate.ml @@ -17,7 +17,7 @@ RESULT= run_test TESTS= simple tuple variant alltypes foreign recursive array_simple \ foreign_and_variant foreign_tuple list_foreign list_simple \ list_tuple list_list nested_tuple nested_option variant_nested \ - stress record_mutate list_mutate + stress record_mutate list_mutate recursive_mutate SOURCES= test_utils.ml $(TESTS:%=%.ml) suite.ml lib_test/Makefile @@ -4,11 +4,11 @@ TYPE_CONV_PATH "Recursive" type s = { t1: string; - t2: x option + mutable t2: x option } and x = { x1: s option; - x2: char + mutable x2: char } with orm ( debug: all; dot: "recursive.dot" ) lib_test/recursive.ml @@ -20,6 +20,7 @@ let suites = [ Nested_option.suite; Record_mutate.suite; List_mutate.suite; + Recursive_mutate.suite; ] let slow_suites = [ lib_test/suite.ml 7b6056c66994cd0e4aa646b8eea7461b35a7812c Anil Madhavapeddy anil@recoil.org http://github.com/avsm/ocaml-orm-sqlite/commit/a5282f4daa2f0e715248b4b882a39d10c28a2400 a5282f4daa2f0e715248b4b882a39d10c28a2400 2009-10-31T01:48:53-07:00 2009-10-31T01:48:53-07:00 sprinkle some more mutation around in the test suite f60a153146d5532ffc740bba15d977f61aa31758 Anil Madhavapeddy anil@recoil.org