Toby Inkster avatar Toby Inkster committed 5d7426e

D'oh! Fail!

Comments (0)

Files changed (2)

 declare Double, as Types::Standard::Num;
 
 facet qw( length minLength maxLength pattern enumeration whiteSpace ),
-declare AnyURI, as Types::Standard::Str,
+declare AnyURI, as Types::Standard::Str;
 
 facet qw( lengthQName minLengthQName maxLengthQName pattern enumeration whiteSpace ),
 declare QName, as Types::Standard::StrMatch[qr{^(?:$XML::RegExp::QName)$}sm];
 sub mk_type { "Types::XSD"->get_type($_[0])->parameterize(%{$_[1]}) }
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 11." => sub {
-	my $type = mk_type(undef, {'maxLength' => '11'});
+	my $type = mk_type('AnyURI', {'maxLength' => '11'});
 	should_pass("ftp://p.org", $type, 0);
 	should_pass("ftp://w.edu", $type, 0);
 	should_pass("ftp://h.com", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 40." => sub {
-	my $type = mk_type(undef, {'maxLength' => '40'});
+	my $type = mk_type('AnyURI', {'maxLength' => '40'});
 	should_pass("ftp://a.edu", $type, 0);
 	should_pass("ftp://ftp.beca.net", $type, 0);
 	should_pass("gopher://displayspeci.com", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 26." => sub {
-	my $type = mk_type(undef, {'maxLength' => '26'});
+	my $type = mk_type('AnyURI', {'maxLength' => '26'});
 	should_pass("ftp://u.gov", $type, 0);
 	should_pass("mailto:p\@p.com", $type, 0);
 	should_pass("gopher://more.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 31." => sub {
-	my $type = mk_type(undef, {'maxLength' => '31'});
+	my $type = mk_type('AnyURI', {'maxLength' => '31'});
 	should_pass("ftp://c.gov", $type, 0);
 	should_pass("http://topro.edu", $type, 0);
 	should_pass("http://simplestwi.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 63." => sub {
-	my $type = mk_type(undef, {'maxLength' => '63'});
+	my $type = mk_type('AnyURI', {'maxLength' => '63'});
 	should_pass("ftp://i.edu", $type, 0);
 	should_pass("ftp://ftp.andforbeco.gov", $type, 0);
 	should_pass("gopher://information.implicityf.l.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 11." => sub {
-	my $type = mk_type(undef, {'minLength' => '11'});
+	my $type = mk_type('AnyURI', {'minLength' => '11'});
 	should_pass("ftp://r.org", $type, 0);
 	should_pass("gopher://andforSubco.edu", $type, 0);
 	should_pass("gopher://transformin.datasbuilt.d.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 41." => sub {
-	my $type = mk_type(undef, {'minLength' => '41'});
+	my $type = mk_type('AnyURI', {'minLength' => '41'});
 	should_pass("ftp://ftp.earlythespe.ifications.bjec.edu", $type, 0);
 	should_pass("ftp://ftp.ECrelatedvi.tuallySuch.tErrorsne.net", $type, 0);
 	should_pass("mailto:w\@transactionsfedensureknowndesignreposi.edu", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 36." => sub {
-	my $type = mk_type(undef, {'minLength' => '36'});
+	my $type = mk_type('AnyURI', {'minLength' => '36'});
 	should_pass("mailto:filef\@andAofimplementatio.org", $type, 0);
 	should_pass("http://www.development.uildandbas.data.org", $type, 0);
 	should_pass("gopher://alanguagePr.jecttodocu.entsmanual.h.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 50." => sub {
-	my $type = mk_type(undef, {'minLength' => '50'});
+	my $type = mk_type('AnyURI', {'minLength' => '50'});
 	should_pass("gopher://businessInd.gitalapart.ersindustr.and.gov", $type, 0);
 	should_pass("telnet://formustalld.tadefineso.particular.ndaSim.org", $type, 0);
 	should_pass("ftp://ftp.implementat.onstoservi.esandconsi.tencysui.edu", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 63." => sub {
-	my $type = mk_type(undef, {'minLength' => '63'});
+	my $type = mk_type('AnyURI', {'minLength' => '63'});
 	should_pass("http://www.oftheunbias.dInternetn.wdynamicpa.tnersissar.tec.org", $type, 0);
 	should_pass("gopher://criteriaTou.estechnolo.ycorrectne.sandforbui.dInte.gov", $type, 0);
 	should_pass("mailto:isberesultbeingofuseapp\@canandeffortshelpinrelatedma.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 11." => sub {
-	my $type = mk_type(undef, {'length' => '11'});
+	my $type = mk_type('AnyURI', {'length' => '11'});
 	should_pass("ftp://o.gov", $type, 0);
 	should_pass("ftp://a.edu", $type, 0);
 	should_pass("ftp://e.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 11." => sub {
-	my $type = mk_type(undef, {'length' => '11'});
+	my $type = mk_type('AnyURI', {'length' => '11'});
 	should_pass("ftp://f.org", $type, 0);
 	should_pass("ftp://b.edu", $type, 0);
 	should_pass("ftp://p.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 34." => sub {
-	my $type = mk_type(undef, {'length' => '34'});
+	my $type = mk_type('AnyURI', {'length' => '34'});
 	should_pass("http://www.OASISofinin.ormatio.net", $type, 0);
 	should_pass("http://www.MarkupXMLso.twareen.edu", $type, 0);
 	should_pass("ftp://discoverbui.dObjectXML.n.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 12." => sub {
-	my $type = mk_type(undef, {'length' => '12'});
+	my $type = mk_type('AnyURI', {'length' => '12'});
 	should_pass("http://t.gov", $type, 0);
 	should_pass("http://t.gov", $type, 0);
 	should_pass("http://d.edu", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 63." => sub {
-	my $type = mk_type(undef, {'length' => '63'});
+	my $type = mk_type('AnyURI', {'length' => '63'});
 	should_pass("ftp://partnership.registrysu.portcontai.ingaobject.roupsmak.org", $type, 0);
 	should_pass("http://information.ndcanXMLTh.choicesath.sechairsis.illonto.net", $type, 0);
 	should_pass("http://www.filedatabet.eofarecomp.tibilityTh.ebXMLStand.rds.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,7}\\.){1,2}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,7}\.){1,2}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,7}\.){1,2}(?:$XML::RegExp::NameChar){3}$)/});
 	should_pass("gopher://Sty.reques.org", $type, 0);
 	should_pass("telnet://wirel.oldert.org", $type, 0);
 	should_pass("telnet://beth.edu", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,3}\\.){1,4}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,3}\.){1,4}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,3}\.){1,4}(?:$XML::RegExp::NameChar){3}$)/});
 	should_pass("telnet://mo.X.th.com", $type, 0);
 	should_pass("news://thu.o.pro.wid.com", $type, 0);
 	should_pass("ftp://b.Co.and.net", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,7}\\.){1,4}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,7}\.){1,4}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,7}\.){1,4}(?:$XML::RegExp::NameChar){3}$)/});
 	should_pass("ftp://XSLthat.incons.isdispl.softwa.org", $type, 0);
 	should_pass("ftp://too.edu", $type, 0);
 	should_pass("ftp://indust.Aso.dra.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,6}\\.){1,2}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,6}\.){1,2}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,6}\.){1,2}(?:$XML::RegExp::NameChar){3}$)/});
 	should_pass("ftp://techn.using.gov", $type, 0);
 	should_pass("ftp://the.com", $type, 0);
 	should_pass("telnet://these.s.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,10}\\.){1,5}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,10}\.){1,5}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,10}\.){1,5}(?:$XML::RegExp::NameChar){3}$)/});
 	should_pass("telnet://and.the.thattesti.andspeci.im.gov", $type, 0);
 	should_pass("ftp://beingamon.I.net", $type, 0);
 	should_pass("gopher://whoservi.theXSL.fact.ma.net", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['http://Theiste.com','mailto:@prov.org','ftp://h.com','mailto:devic@manipulationandabilityspecifica.gov','http://www.systemswebi.teroperabi.itybeandof.hic.edu','gopher://Conformance.up.com','telnet://f.org','http://www.asseries.gov','telnet://wit.edu','ftp://ftp.atheconstit.entOASISre.rie.net']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['http://Theiste.com','mailto:@prov.org','ftp://h.com','mailto:devic@manipulationandabilityspecifica.gov','http://www.systemswebi.teroperabi.itybeandof.hic.edu','gopher://Conformance.up.com','telnet://f.org','http://www.asseries.gov','telnet://wit.edu','ftp://ftp.atheconstit.entOASISre.rie.net']});
 	should_pass("telnet://f.org", $type, 0);
 	should_pass("mailto:devic\@manipulationandabilityspecifica.gov", $type, 0);
 	should_pass("gopher://Conformance.up.com", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['ftp://ftp.relatedtool.aandofinve.ticalofeff.rthaveEC.edu','news://th.gov','http://www.withouttheR.commendati.nsmeasureme.gov','mailto:methodsIttech@librarieswithbet.net','ftp://forInvestig.org','http://www.signaturesr.acht.org']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['ftp://ftp.relatedtool.aandofinve.ticalofeff.rthaveEC.edu','news://th.gov','http://www.withouttheR.commendati.nsmeasureme.gov','mailto:methodsIttech@librarieswithbet.net','ftp://forInvestig.org','http://www.signaturesr.acht.org']});
 	should_pass("http://www.signaturesr.acht.org", $type, 0);
 	should_pass("ftp://forInvestig.org", $type, 0);
 	should_pass("ftp://forInvestig.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['http://www.APIsinCompu.ingte.com','telnet://academi.org','gopher://thatoverJav.throught.com','http://www.ensureaddre.sasspecifi.ationsimag.sandst.org','ftp://ftp.prot.edu','ftp://ftp.computingHT.Lheterogen.ousretriev.vendorsbe.edu','ftp://newdevelopm.ntcomplexa.ongadvance.Consequent.yallow.org']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['http://www.APIsinCompu.ingte.com','telnet://academi.org','gopher://thatoverJav.throught.com','http://www.ensureaddre.sasspecifi.ationsimag.sandst.org','ftp://ftp.prot.edu','ftp://ftp.computingHT.Lheterogen.ousretriev.vendorsbe.edu','ftp://newdevelopm.ntcomplexa.ongadvance.Consequent.yallow.org']});
 	should_pass("http://www.ensureaddre.sasspecifi.ationsimag.sandst.org", $type, 0);
 	should_pass("ftp://ftp.computingHT.Lheterogen.ousretriev.vendorsbe.edu", $type, 0);
 	should_pass("http://www.ensureaddre.sasspecifi.ationsimag.sandst.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['gopher://thesedefine.escribesof.hoseindustr.edu','news://ableresultp.ovidedfo.org','telnet://correctiono.forinforma.ionbuildca.abilities.com','ftp://bysyntaxinf.rmationret.ieva.org','gopher://Groupsrela.gov','ftp://ftp.issuesquali.yensureand.histestscr.ationforc.com','news://XMLAofMarku.oninofstan.ardslackre.rieveDe.gov']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['gopher://thesedefine.escribesof.hoseindustr.edu','news://ableresultp.ovidedfo.org','telnet://correctiono.forinforma.ionbuildca.abilities.com','ftp://bysyntaxinf.rmationret.ieva.org','gopher://Groupsrela.gov','ftp://ftp.issuesquali.yensureand.histestscr.ationforc.com','news://XMLAofMarku.oninofstan.ardslackre.rieveDe.gov']});
 	should_pass("news://ableresultp.ovidedfo.org", $type, 0);
 	should_pass("gopher://thesedefine.escribesof.hoseindustr.edu", $type, 0);
 	should_pass("news://ableresultp.ovidedfo.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['mailto:ofdiscoveryst@GroupsAtoofofwhichiscrea.gov','gopher://programacce.sbynewtheI.ternetinfo.mationinte.org','mailto:computingexecutiontoac@industryprovidesandinandPer.gov','mailto:matchcreat@electronicbeenyearsdocumentsInve.gov','ftp://ftp.areandaComm.tteetransa.tthembusin.ssisfilt.edu','http://worldonenab.ingthrough.utcanprint.efi.net']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['mailto:ofdiscoveryst@GroupsAtoofofwhichiscrea.gov','gopher://programacce.sbynewtheI.ternetinfo.mationinte.org','mailto:computingexecutiontoac@industryprovidesandinandPer.gov','mailto:matchcreat@electronicbeenyearsdocumentsInve.gov','ftp://ftp.areandaComm.tteetransa.tthembusin.ssisfilt.edu','http://worldonenab.ingthrough.utcanprint.efi.net']});
 	should_pass("gopher://programacce.sbynewtheI.ternetinfo.mationinte.org", $type, 0);
 	should_pass("ftp://ftp.areandaComm.tteetransa.tthembusin.ssisfilt.edu", $type, 0);
 	should_pass("ftp://ftp.areandaComm.tteetransa.tthembusin.ssisfilt.edu", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet whiteSpace with value collapse." => sub {
-	my $type = mk_type(undef, {'whiteSpace' => 'collapse'});
+	my $type = mk_type('AnyURI', {'whiteSpace' => 'collapse'});
 	should_pass("mailto:Ch\@futureinterconnectedbusinesspartnerscommunityof.org", $type, 0);
 	should_pass("telnet://adventdatab.seensureis.awcreateor.anizations.elp.org", $type, 0);
 	should_pass("ftp://ftp.transactcon.ributerigo.oustoproto.ypesConfor.an.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 25." => sub {
-	my $type = mk_type(undef, {'minLength' => '25'});
+	my $type = mk_type('AnyURI', {'minLength' => '25'});
 	should_fail("ftp://b.org", $type, 0);
 	should_fail("gopher://i.com", $type, 0);
 	should_fail("http://ensure.com", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 32." => sub {
-	my $type = mk_type(undef, {'minLength' => '32'});
+	my $type = mk_type('AnyURI', {'minLength' => '32'});
 	should_fail("ftp://q.edu", $type, 0);
 	should_fail("gopher://ton.gov", $type, 0);
 	should_fail("http://ascommerce.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 48." => sub {
-	my $type = mk_type(undef, {'minLength' => '48'});
+	my $type = mk_type('AnyURI', {'minLength' => '48'});
 	should_fail("ftp://f.gov", $type, 0);
 	should_fail("ftp://transmitin.org", $type, 0);
 	should_fail("gopher://canbuiltbui.dtha.com", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 47." => sub {
-	my $type = mk_type(undef, {'minLength' => '47'});
+	my $type = mk_type('AnyURI', {'minLength' => '47'});
 	should_fail("ftp://g.org", $type, 0);
 	should_fail("http://www.meth.com", $type, 0);
 	should_fail("mailto:gl\@businessconso.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet minLength with value 63." => sub {
-	my $type = mk_type(undef, {'minLength' => '63'});
+	my $type = mk_type('AnyURI', {'minLength' => '63'});
 	should_fail("ftp://o.org", $type, 0);
 	should_fail("telnet://aasthrough.edu", $type, 0);
 	should_fail("news://oftheimeasu.ementsiswi.e.com", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 11." => sub {
-	my $type = mk_type(undef, {'maxLength' => '11'});
+	my $type = mk_type('AnyURI', {'maxLength' => '11'});
 	should_fail("http://c.edu", $type, 0);
 	should_fail("telnet://bedevelopme.gov", $type, 0);
 	should_fail("news://aeachthetoa.dimproveda.re.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 60." => sub {
-	my $type = mk_type(undef, {'maxLength' => '60'});
+	my $type = mk_type('AnyURI', {'maxLength' => '60'});
 	should_fail("news://ofstructure.uiteandoft.theinterna.ionalrefer.nceeb.org", $type, 0);
 	should_fail("news://usertoitsfi.dmeasurede.endability.ellareObje.tdefin.gov", $type, 0);
 	should_fail("ftp://constituent.eadershipc.mputerSoft.areSoftwar.chairsus.net", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 33." => sub {
-	my $type = mk_type(undef, {'maxLength' => '33'});
+	my $type = mk_type('AnyURI', {'maxLength' => '33'});
 	should_fail("ftp://ftp.facilitates.sedversi.org", $type, 0);
 	should_fail("telnet://becomethene.workingthe.ffaci.gov", $type, 0);
 	should_fail("http://www.implementat.oncomplian.ofsfileoff.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 37." => sub {
-	my $type = mk_type(undef, {'maxLength' => '37'});
+	my $type = mk_type('AnyURI', {'maxLength' => '37'});
 	should_fail("telnet://firstDOMfed.theandperv.si.org", $type, 0);
 	should_fail("mailto:templateslarge\@involveddevelopmen.gov", $type, 0);
 	should_fail("http://rangeincorp.ratedPCres.urcelangua.esind.edu", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet maxLength with value 17." => sub {
-	my $type = mk_type(undef, {'maxLength' => '17'});
+	my $type = mk_type('AnyURI', {'maxLength' => '17'});
 	should_fail("http://www.lan.edu", $type, 0);
 	should_fail("telnet://aresystemst.olsb.edu", $type, 0);
 	should_fail("gopher://arebuildsec.ritythesei.assu.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 11." => sub {
-	my $type = mk_type(undef, {'length' => '11'});
+	my $type = mk_type('AnyURI', {'length' => '11'});
 	should_fail("http://s.org", $type, 0);
 	should_fail("ftp://ftp.inreferenc.edu", $type, 0);
 	should_fail("telnet://draftpervas.veretrievep.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 53." => sub {
-	my $type = mk_type(undef, {'length' => '53'});
+	my $type = mk_type('AnyURI', {'length' => '53'});
 	should_fail("ftp://j.edu", $type, 0);
 	should_fail("ftp://computerele.edu", $type, 0);
 	should_fail("ftp://ftp.toolsrangeG.oupsc.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 15." => sub {
-	my $type = mk_type(undef, {'length' => '15'});
+	my $type = mk_type('AnyURI', {'length' => '15'});
 	should_fail("gopher://the.edu", $type, 0);
 	should_fail("ftp://ftp.mechanismth.A.org", $type, 0);
 	should_fail("telnet://themrevolut.onaccompli.he.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 14." => sub {
-	my $type = mk_type(undef, {'length' => '14'});
+	my $type = mk_type('AnyURI', {'length' => '14'});
 	should_fail("ftp://ftp.h.edu", $type, 0);
 	should_fail("ftp://ftp.development.n.org", $type, 0);
 	should_fail("ftp://ftp.eXtensibler.centofmana.eu.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet length with value 63." => sub {
-	my $type = mk_type(undef, {'length' => '63'});
+	my $type = mk_type('AnyURI', {'length' => '63'});
 	should_fail("ftp://p.org", $type, 0);
 	should_fail("ftp://ftp.Groupsand.org", $type, 0);
 	should_fail("gopher://definesConf.rmanceTrad.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,2}\\.){1,5}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,2}\.){1,5}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,2}\.){1,5}(?:$XML::RegExp::NameChar){3}$)/});
 	should_fail("ftp://eachbewit.otherwilleXtens.follow.lawbeaande.XMLus.repositor.com", $type, 0);
 	should_fail("http://build.theamongimag.becom.OASIScompu.thedue.XMLbusinessis.organizations.gov", $type, 0);
 	should_fail("http://regist.stimu.waysmanyth.andprofil.exchang.knownagraphi.ECprovidedCom.otherSchemape.edu", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,3}\\.){1,4}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,3}\.){1,4}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,3}\.){1,4}(?:$XML::RegExp::NameChar){3}$)/});
 	should_fail("ftp://toregist.thesecanther.NISTme.thefor.amongthosesuch.andtonetw.org", $type, 0);
 	should_fail("gopher://aInternetthela.Virtuallyso.software.communi.widelyTo.usedtheover.andeachS.com", $type, 0);
 	should_fail("ftp://andbothreposit.regis.revolutioniz.oncreatedt.resourcesI.usingandmakeNI.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,5}\\.){1,4}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,5}\.){1,4}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,5}\.){1,4}(?:$XML::RegExp::NameChar){3}$)/});
 	should_fail("news://olderperfo.totempla.forlanguageth.thesethecreate.towidetotheb.abilitySchema.useofyears.edu", $type, 0);
 	should_fail("telnet://filewithinD.thecomputera.byresidesitp.nointhemsi.arecreates.withtodocuments.accomplishsec.gov", $type, 0);
 	should_fail("ftp://Businessdepe.thebenefitswo.SOCgovernment.referencech.deployedTh.aroledistrib.andXMLarepub.com", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,10}\\.){1,3}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,10}\.){1,3}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,10}\.){1,3}(?:$XML::RegExp::NameChar){3}$)/});
 	should_fail("telnet://aboutdevelopm.referenceofreg.mustthebuildLan.ofamongAtois.andtheandmust.certainOASI.theInternetaan.thethetheseus.com", $type, 0);
 	should_fail("gopher://CPUtographics.ebXMLArchitec.furthertheofa.thecomplexadd.fourcorrection.ofrelatedvo.com", $type, 0);
 	should_fail("ftp://scomputingth.certaintheof.issueselectroni.thetechnologie.partnersofthis.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet pattern with value \\c{3,6}://(\\c{1,7}\\.){1,3}\\c{3}." => sub {
-	my $type = mk_type(undef, {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,7}\.){1,3}(?:$XML::RegExp::NameChar){3}$)/});
+	my $type = mk_type('AnyURI', {'pattern' => qr/(?^ums:^(?:$XML::RegExp::NameChar){3,6}:\/\/((?:$XML::RegExp::NameChar){1,7}\.){1,3}(?:$XML::RegExp::NameChar){3}$)/});
 	should_fail("gopher://mustNISTproc.aselectronican.systemsstan.andwireles.Informationa.definecanfo.completi.wouldofanat.gov", $type, 0);
 	should_fail("telnet://aparadigmsta.XMLstake.dataaregr.repositori.signaturesNat.andprocessdocum.gov", $type, 0);
 	should_fail("news://understandthe.including.whichamong.partnerships.andsupplytest.contribut.forofhel.net", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['http://ultimateapp.icati.gov','ftp://themNavalIn.ormati.com','telnet://specificati.nsknowinto.n.org','telnet://prototypeso.automating.rogramwebd.taofdistri.utedn.edu','http://www.mechanismao.participat.ngchaineb.edu','http://www.unbiasedsuc.essavailab.eaccessDOM.hetheXML.org']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['http://ultimateapp.icati.gov','ftp://themNavalIn.ormati.com','telnet://specificati.nsknowinto.n.org','telnet://prototypeso.automating.rogramwebd.taofdistri.utedn.edu','http://www.mechanismao.participat.ngchaineb.edu','http://www.unbiasedsuc.essavailab.eaccessDOM.hetheXML.org']});
 	should_fail("ftp://organizatio.sobjectneu.ralledtech.ol.gov", $type, 0);
 	should_fail("http://systemsis.org", $type, 0);
 	should_fail("ftp://ftp.theviaXMLme.rolo.edu", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['telnet://OnlyOASISth.groupsInfor.com','news://compliantme.hods.org','ftp://backToolloc.tiondiscov.rprofilesi.fl.gov','gopher://Standardscr.atestheand.takeho.org','ftp://ftp.andpartners.mplementat.onscomp.gov']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['telnet://OnlyOASISth.groupsInfor.com','news://compliantme.hods.org','ftp://backToolloc.tiondiscov.rprofilesi.fl.gov','gopher://Standardscr.atestheand.takeho.org','ftp://ftp.andpartners.mplementat.onscomp.gov']});
 	should_fail("ftp://preciseboth.ndicationa.dOASISthis.othethetoo.s.edu", $type, 0);
 	should_fail("gopher://theFacilita.iondomains.pecificati.nsofprovide.gov", $type, 0);
 	should_fail("mailto:partnershipsbe\@itsofsoftwarenaturethatorganiza.gov", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['ftp://ftp.Theledamong.fforandass.ci.net','mailto:maint@thosemanipulateAwithdai.edu','http://andthebeare.sofsoftwar.rev.edu','telnet://otherthedis.ussionsfor.mplementat.onchoicesa.nfor.org','gopher://andataiTheo.specif.gov','http://pa.gov','ftp://andforcontr.buteOASISD.velopavail.bilitytest.n.edu','ftp://filehightra.sactionsas.ociatedaco.pliantasel.ctronic.gov','telnet://forconforman.net']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['ftp://ftp.Theledamong.fforandass.ci.net','mailto:maint@thosemanipulateAwithdai.edu','http://andthebeare.sofsoftwar.rev.edu','telnet://otherthedis.ussionsfor.mplementat.onchoicesa.nfor.org','gopher://andataiTheo.specif.gov','http://pa.gov','ftp://andforcontr.buteOASISD.velopavail.bilitytest.n.edu','ftp://filehightra.sactionsas.ociatedaco.pliantasel.ctronic.gov','telnet://forconforman.net']});
 	should_fail("telnet://DOMwiththeh.ssensorspro.gov", $type, 0);
 	should_fail("ftp://ftp.specificati.nsthetarge.andn.gov", $type, 0);
 	should_fail("telnet://fiveXSLalso.echnologie.TothetheXS.widewil.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['ftp://specificati.nstoindust.ystandardi.ation.net','ftp://ftp.nextperform.ncemustANI.TCPUexerci.ela.com','mailto:areassimu@theminDOMeModelsignaturesspec.gov','http://forissuesmo.elstotocre.tesinengin.er.gov','telnet://setisspecif.cunb.edu','gopher://tochallen.org','http://www.theallowint.r.gov','http://t.edu','ftp://inallows.gov']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['ftp://specificati.nstoindust.ystandardi.ation.net','ftp://ftp.nextperform.ncemustANI.TCPUexerci.ela.com','mailto:areassimu@theminDOMeModelsignaturesspec.gov','http://forissuesmo.elstotocre.tesinengin.er.gov','telnet://setisspecif.cunb.edu','gopher://tochallen.org','http://www.theallowint.r.gov','http://t.edu','ftp://inallows.gov']});
 	should_fail("http://www.issuesbysta.dardssigni.icantSXMLS.yles.net", $type, 0);
 	should_fail("ftp://havingclean.hehashasFu.thermorewo.kSME.edu", $type, 0);
 	should_fail("ftp://repositorie.organizati.nsofDOMthe.OASIS.org", $type, 0);
 };
 
 subtest "Type atomic/anyURI is restricted by facet enumeration." => sub {
-	my $type = mk_type(undef, {'enumeration' => ['telnet://arereposito.yassociate.andAPIscon.orti.org','telnet://ofandtechno.ogiessens.org','telnet://specificMar.upfilerepo.itoryisfor.rovidecrea.ionT.gov','ftp://ftp.asthea.org','telnet://locationava.lablealack.gov','ftp://suiteutiliz.testab.edu','news://Co.net','gopher://aofOASIScre.tetemplate.comm.edu','http://testseameet.itssimu.edu']});
+	my $type = mk_type('AnyURI', {'enumeration' => ['telnet://arereposito.yassociate.andAPIscon.orti.org','telnet://ofandtechno.ogiessens.org','telnet://specificMar.upfilerepo.itoryisfor.rovidecrea.ionT.gov','ftp://ftp.asthea.org','telnet://locationava.lablealack.gov','ftp://suiteutiliz.testab.edu','news://Co.net','gopher://aofOASIScre.tetemplate.comm.edu','http://testseameet.itssimu.edu']});
 	should_fail("ftp://ftp.technologyk.ownHTMLtoo.sArchitect.ralch.net", $type, 0);
 	should_fail("mailto:prominentEXiSTrais\@implementationsofitwellandexecu.gov", $type, 0);
 	should_fail("http://suchItebXML.ecurityand.fw.org", $type, 0);
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.