anchor.diff:      [<Test>]
       let ``the generator for a complex type can be customized``() = 
   
  -        let xsd = XsdFactoryTest.makeXsd """
  -	            <xs:complexType name="ct">
  -		            <xs:attribute name="a1" type="xs:int"/>
  -	            </xs:complexType>
  -	            <xs:element name="e" type="ct"/>
  +        let xsd = XmlGeneratorTest.makeSchema """
  +	        <xs:complexType name="ct">
  +		        <xs:attribute name="a1" type="xs:int"/>
  +	        </xs:complexType>
  +	        <xs:element name="e" type="ct"/>
               """
           let ct = { Namespace= ""; Name="ct" }
           let a1 = XAttribute(XName.Get("a1"), "42")
           let ctGen = XElement(XName.Get("ct"), a1) |> Gen.constant
           let cust = { CustomGenerators.empty with ComplexGenerators = dict [ct, ctGen] }
  -        (fromText xsd).Elements.Head
  +        (xsdSchema xsd).Elements.Head
           |> genElementCustom cust
           |> Gen.sample 10 10
           |> Seq.map(fun xml -> printfn "%A" xml; xml)
  
positive.code: 				    <xs:element name="bar" type="xs:string"/>
  			    </xs:sequence>
  		    </xs:complexType>
              <xs:element name="foo" type="barType">
  	        </xs:element>"""
          let foo = (xsdSchema xsd).Elements |> List.head
          genElementCustom cust foo
          |> Gen.sample 5 5
          |> Seq.map (fun xml -> printfn "%A" xml; xml.Element(XName.Get("bar")))
          |> Seq.forall(fun xml -> xml.Value = xml.Value.ToUpper())
          |> Assert.IsTrue
  
  
  
      [<Test>]
      let ``the generator for a global element can be customized``() = 
  
negative.code: 	    </xs:complexType>
          """
          let ct = { Namespace= ""; Name="ct" }
          let a1Name = XName.Get("a1")
          let ctGen = XElement(XName.Get("ct"), XAttribute(a1Name, "42")) |> Gen.constant
          let cust = { CustomGenerators.empty with ComplexGenerators = dict [ct, ctGen] }
          (fromText xsd).Elements.Head
          |> genElementCustom cust
          |> Gen.sample 10 10
          |> List.map(fun xml -> printfn "%A" xml; xml)
          |> List.exists(fun xml -> xml.Attribute(a1Name).Value <> "42")
          |> Assert.IsTrue
  
  module CombinedConstraintsTest = 
      
  