mς SγΈEc@sƒdZdkZdkZdklZdklZdklZdefd„ƒYZ d„Z d„Z e d jo e ƒndS( s0Functional test to produce a dangling reference.N(s FileStorage(sDB(s PersistenttPcBstZRS(N(t__name__t __module__(((t0/data/zmath/zope/lib/python/ZODB/tests/dangle.pyRscCs|iƒiƒ}tƒ|d<}tiƒidƒti ƒtƒ|d<}tiƒidƒti ƒtƒ}|_ tiƒidƒti ƒtƒ|_ tiƒidƒti ƒt idƒ|iƒt|iƒGH||_ tiƒidƒti ƒdS(Nis create o1is create o2sset child on o1sreplace child on o1sset child on o2(tdbtopentroottrtRto1t transactiontgettnotetcommitto2tctchildttimetsleeptpacktreprt_p_oid(RRRR R((Rtcreate_dangling_refs&        cCs0tdƒ}t|ƒ}t|ƒ|iƒdS(Ns dangle.fs(t FileStoragetfstDBRRtclose(RR((Rtmain:s   t__main__( t__doc__RR tZODB.FileStorageRtZODBRt persistentt PersistentRRRR(R RRR RRRR((Rt?s