mò $á¸Ec@sãdZdklZdkZeiƒdkZdkZdeifd„ƒYZd„Z xXe e ƒƒD]G\Z \Z Z ZZZe e eeed„Zeede eƒqjWd„Zed joeid d ƒndS( s$Virtual Host Monster regression tests. These tests mainly verify that OFS.Traversable.absolute_url() works correctly in a VHM environment. Also see http://zope.org/Collectors/Zope/809 Note: Tests require Zope >= 2.7 $Id: testVirtualHostMonster.py 66150 2006-03-24 12:53:54Z andreasjung $ (s makerequestNtVHMRegressionscBsGtZd„Zd„Zd„Zd„Zd„Zd„Zd„ZRS(NcCsÃtiƒttiƒƒ|_yŒt|idƒp!dkl}||idƒn|ii dƒ|ii i ddƒ|ii i d|igƒ|ii i|_Wn|iƒnXdS(Ntvirtual_hosting(smanage_addVirtualHostMonstertfoldertdocttPARENTS(t transactiontbegint makerequesttZope2tapptselfthasattrt&Products.SiteAccess.VirtualHostMonstertmanage_addVirtualHostMonstertmanage_addFolderRtmanage_addDTMLMethodtREQUESTtsetttraversettearDown(R R((tO/data/zmath/zope/lib/python/Products/SiteAccess/tests/testVirtualHostMonster.pytsetUps  cCstiƒ|iiiƒdS(N(RtabortR R t_p_jartclose(R ((RR(s cCs)|iiii}|i|ƒdƒdS(Nshttp://foo/folder/doc(R R RRt absolute_urltmt assertEqual(R R((RttestAbsoluteUrl,scCs)|iiii}|i|ƒdƒdS(Ns /folder/doc(R R RRtabsolute_url_pathRR(R R((RttestAbsoluteUrlPath0scCsT|iiii}|i|ddƒdƒ|iiii}|i|ƒdƒdS(Ntrelativeis folder/doc(R R RRRRRtvirtual_url_path(R R((RttestVirtualUrlPath4scCs)|iiii}|i|ƒdƒdS(NRRR(Rsfoldersdoc(R R RRtgetPhysicalPathRR(R R((RttestPhysicalPath:scCs¾|iiiddƒ|idƒ}|i|iiddƒ|idƒ}|i|iiddƒ|idƒ}|i|iidd ƒ|id ƒ}|i|iidd ƒdS( Nt index_htmlRsC/VirtualHostBase/http/www.mysite.com:80/folder/VirtualHostRoot/doc/t ACTUAL_URLshttp://www.mysite.com/doc/sB/VirtualHostBase/http/www.mysite.com:80/folder/VirtualHostRoot/docshttp://www.mysite.com/docs?/VirtualHostBase/http/www.mysite.com:80/folder/VirtualHostRoot/shttp://www.mysite.com/s>/VirtualHostBase/http/www.mysite.com:80/folder/VirtualHostRoot(R R RRRtobRR(R R'((Rttest_actual_url>s( t__name__t __module__RRRRR"R$R((((RRs      ccs°x©d dfD]›\}}|ddd|fVxydddfD]h\}}}||d g}|p |d =n|o|id |ƒnd i|ƒ||||fVq<Wq WdS(NRs http://foos$/VirtualHostBase/http/example.com:80shttp://example.coms folder/docRRtfootVirtualHostRootit_vh_t/(Rs http://foo(s$/VirtualHostBase/http/example.com:80shttp://example.com(sfolderRsdoc(sfolderR+sdoc(RR+s folder/doc(tvbasetubasetvrt_vhtptvpartstappendtjoin(R4R2R/R3R1R0((Rt gen_casesIs  c CsO|id||fƒ}|od|}||od|}|i|i ƒ|ƒ|i|i i dd||ƒ|i|i ƒ||ƒ|i|i ddƒ|ƒ|i|iƒ|ƒ|i|iƒd ƒ|ii} |i| i ƒ||ƒ|i| i ƒd|ƒ|i| i ddƒdƒ|i| iƒdƒdS( Ns%s/%s/R.t BASEPATH1R iRRR(Rsfoldersdoc(R RtvaddrR3R'R2tsl_vhtaupRRR RRR0R!R#t aq_parent( R R9R1R2R3R0R;R'R:R ((Rttest\s" stestTraverse%scCs&tiƒ}|ititƒƒ|S(N(tunittestt TestSuitetsuitetaddTestt makeSuiteR(R@((Rt test_suiters t__main__t defaultTestRC(t__doc__tTesting.makerequestRR tstartupRR>tTestCaseRR7t enumeratetiR9R1R2R3R0R=tsetattrRCR)tmain(RR RRKR7R>R3R1RR0R=RCR2R9((Rt? s     2