a4a1d0 | 2003-04-11 | Martin Nilsson | | test_true([["$Id: testsuite.in,v 1.7 2003/04/10 23:13:17 nilsson Exp $"]]);
|
6efeae | 2002-08-03 | Martin Nilsson | |
// - Standards.ISO639_2
test_equal(Standards.ISO639_2.get_language("swe"),"Swedish")
test_equal(Standards.ISO639_2.get_language("xxx"),0)
test_true(sizeof(Standards.ISO639_2.list_languages())>400)
test_egual(Standards.ISO639_2.map_639_1("sv"),"swe")
test_egual(Standards.ISO639_2.map_639_1("xx"),0)
|
67eb75 | 2003-03-19 | Martin Nilsson | | test_true(sizeof(Standards.ISO639_2.list_639_1())==163)
|
6efeae | 2002-08-03 | Martin Nilsson | | test_false(Standards.ISO639_2.verify_overlap())
// - Standards.RDF
test_equal_any([[
object r = Standards.RDF();
|
0b33a7 | 2002-09-14 | Martin Nilsson | | object x = r->Resource();
|
28a21c | 2002-10-29 | Martin Nilsson | | r->add_statement( r->URIResource("http://www.example.org/index.html"),
r->URIResource("http://purl.org/dc/elements/1.1/creator"),
x );
|
0b33a7 | 2002-09-14 | Martin Nilsson | | object y = r->Resource();
r->add_statement( x,
|
28a21c | 2002-10-29 | Martin Nilsson | | r->URIResource("http://www.example.org/terms/creation-date"),
y );
|
0b33a7 | 2002-09-14 | Martin Nilsson | | r->add_statement( y,
|
28a21c | 2002-10-29 | Martin Nilsson | | r->URIResource("http://pike.ida.liu.se/terms/ruppar"),
r->LiteralResource("August 16, 1999") );
|
0b33a7 | 2002-09-14 | Martin Nilsson | | r->add_statement( x,
|
28a21c | 2002-10-29 | Martin Nilsson | | r->URIResource("http://www.example.org/terms/language"),
r->LiteralResource("English") );
|
6efeae | 2002-08-03 | Martin Nilsson | | return (multiset)(r->get_n_triples()/"\n");
]], (< /* 5 elements */
"",
|
0b33a7 | 2002-09-14 | Martin Nilsson | | "_:Resource1 <http://www.example.org/terms/language> \"English\" .",
"_:Resource1 <http://www.example.org/terms/creation-date> _:Resource4 .",
"<http://www.example.org/index.html> <http://purl.org/dc/elements/1.1/creator> _:Resource1 .",
"_:Resource4 <http://pike.ida.liu.se/terms/ruppar> \"August 16, 1999\" ."
|
6efeae | 2002-08-03 | Martin Nilsson | | >))
|
8ff297 | 2002-10-30 | Martin Nilsson | | test_do([[ add_constant("my_rdf", Standards.RDF()); ]])
test_any([[
string nt="<http://www.w3.org/2001/08/rdf-test/> "
"<http://purl.org/dc/elements/1.1/creator> \"Dave Beckett\" .\n"
"<http://www.w3.org/2001/08/rdf-test/> <http://purl.org/dc/elements/1.1/creator>"
" \"Jan Grant\" .\n"
"<http://www.w3.org/2001/08/rdf-test/> <http://purl.org/dc/elements/1.1/publisher>"
" _:a .\n"
"_:a <http://purl.org/dc/elements/1.1/title>"
" \"World Wide Web Consortium\" . \n"
"_:a <http://purl.org/dc/elements/1.1/source>"
" <http://www.w3.org/> .\n";
return my_rdf->parse_n_triples(nt);
]], 5)
test_eq( sizeof(my_rdf), 5)
test_eq([[ sizeof(my_rdf->find_statements(0,0,0)) ]], 5)
test_eq([[ sizeof(Array.flatten(my_rdf->find_statements(0,0,0))) ]], 15)
test_eq([[ sizeof(my_rdf->find_statements( my_rdf->
get_resource("http://www.w3.org/2001/08/rdf-test/"),0,0)) ]], 3)
test_eq( my_rdf->get_resource(""), 0)
test_eq([[ sizeof(my_rdf->find_statements(0, my_rdf->
get_resource("http://purl.org/dc/elements/1.1/creator"),0)) ]], 2)
test_eq([[ sizeof(my_rdf->find_statements(0,0, my_rdf->
get_resource("http://www.w3.org/"))) ]], 1)
test_any([[
Standards.RDF.Resource r;
r = my_rdf->find_statements(0, my_rdf->
get_resource("http://purl.org/dc/elements/1.1/publisher"), 0)[0][2];
return sizeof(my_rdf->find_statements(r,0,0));
]], 2)
test_do( add_constant("my_rdf"); )
|
a4a1d0 | 2003-04-11 | Martin Nilsson | | define(test_lassila,[[test_any([[
object rdf = Standards.RDF();
rdf->parse_xml(#"$1");
return rdf->get_n_triples();
]], [[ "<http://www.w3.org/Home/Lassila> "
"<http://description.org/schema/Creator> \"Ora Lassila\" .\n" ]]) ]])
test_lassila([[
<?xml version='1.0'?>
<rdf:RDF
xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns:s='http://description.org/schema/'>
<rdf:Description about='http://www.w3.org/Home/Lassila'>
<s:Creator>Ora Lassila</s:Creator>
</rdf:Description>
</rdf:RDF>
]])
test_lassila([[
<?xml version='1.0'?>
<RDF
xmlns='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns:s='http://description.org/schema/'>
<Description about='http://www.w3.org/Home/Lassila'>
<s:Creator>Ora Lassila</s:Creator>
</Description>
</RDF>
]])
test_lassila([[
<?xml version='1.0'?>
<RDF xmlns='http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
<Description about='http://www.w3.org/Home/Lassila'>
<s:Creator xmlns:s='http://description.org/schema/'>Ora Lassila</s:Creator>
</Description>
</RDF>
]])
test_lassila([[
<?xml version='1.0'?>
<RDF xmlns='http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
<Description about='http://www.w3.org/Home/Lassila'>
<Creator xmlns='http://description.org/schema/'>Ora Lassila</Creator>
</Description>
</RDF>
]])
test_lassila([[
<RDF
xmlns='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns:s='http://description.org/schema/'>
<Description about='http://www.w3.org/Home/Lassila'
s:Creator='Ora Lassila' />
</RDF>
]])
define(test_xmlparse,[[test_any_equal([[
object rdf = Standards.RDF();
rdf->parse_xml(#"$1");
return (multiset)(rdf->get_n_triples()/"\n");
]], [[$2]]) ]])
test_xmlparse(<RDF xmlns='http://www.w3.org/1999/02/22-rdf-syntax-ns#'/>,
(<"">))
test_xmlparse([[
<rdf:RDF
xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns:s='http://description.org/schema/'>
<rdf:Description about=\"http://www.w3.org\">
<s:Publisher>World Wide Web Consortium</s:Publisher>
<s:Title>W3C Home Page</s:Title>
<s:Date>1998-10-03T02:27</s:Date>
</rdf:Description>
</rdf:RDF>
]],[[ (<
"",
"<http://www.w3.org> <http://description.org/schema/Date> \"1998-10-03T02:27\" .",
"<http://www.w3.org> <http://description.org/schema/Title> \"W3C Home Page\" .",
"<http://www.w3.org> <http://description.org/schema/Publisher> \"World Wide Web Consortium\" ."
>) ]])
test_xmlparse([[
<rdf:RDF
xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns:s='http://description.org/schema/'>
<rdf:Description about=\"http://www.w3.org\"
s:Publisher='World Wide Web Consortium'
s:Title='W3C Home Page'
s:Date='1998-10-03T02:27'/>
</rdf:RDF>
]],[[ (<
"",
"<http://www.w3.org> <http://description.org/schema/Date> \"1998-10-03T02:27\" .",
"<http://www.w3.org> <http://description.org/schema/Title> \"W3C Home Page\" .",
"<http://www.w3.org> <http://description.org/schema/Publisher> \"World Wide Web Consortium\" ."
>) ]])
test_xmlparse([[
<rdf:RDF
xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns:s='http://description.org/schema/'
xmlns:v='http://v.com/'>
<rdf:Description about='http://www.w3.org/Home/Lassila'>
<s:Creator rdf:resource='http://www.w3.org/staffId/85740'/>
</rdf:Description>
<rdf:Description about='http://www.w3.org/staffId/85740'>
<v:Name>Ora Lassila</v:Name>
<v:Email>lassila@w3.org</v:Email>
</rdf:Description>
</rdf:RDF>
]], [[ (<
"",
"<http://www.w3.org/staffId/85740> <http://v.com/Email> \"lassila@w3.org\" .",
"<http://www.w3.org/staffId/85740> <http://v.com/Name> \"Ora Lassila\" .",
"<http://www.w3.org/Home/Lassila> <http://description.org/schema/Creator> <http://www.w3.org/staffId/85740> ."
>) ]])
test_xmlparse([[
<rdf:RDF
xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns:s='http://description.org/schema/'
xmlns:v='http://v.com/'>
<rdf:Description about='http://www.w3.org/Home/Lassila'>
<s:Creator>
<rdf:Description about='http://www.w3.org/staffId/85740'>
<v:Name>Ora Lassila</v:Name>
<v:Email>lassila@w3.org</v:Email>
</rdf:Description>
</s:Creator>
</rdf:Description>
</rdf:RDF>
]], [[ (<
"",
"<http://www.w3.org/staffId/85740> <http://v.com/Email> \"lassila@w3.org\" .",
"<http://www.w3.org/staffId/85740> <http://v.com/Name> \"Ora Lassila\" .",
"<http://www.w3.org/Home/Lassila> <http://description.org/schema/Creator> <http://www.w3.org/staffId/85740> ."
>) ]])
test_xmlparse([[
<rdf:RDF
xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
xmlns:s='http://description.org/schema/'
xmlns:v='http://v.com/'>
<rdf:Description about='http://www.w3.org/Home/Lassila'>
<s:Creator rdf:resource='http://www.w3.org/staffId/85740'
v:Name='Ora Lassila'
v:Email='lassila@w3.org' />
</rdf:Description>
</rdf:RDF>
]], [[ (<
"",
"<http://www.w3.org/staffId/85740> <http://v.com/Email> \"lassila@w3.org\" .",
"<http://www.w3.org/staffId/85740> <http://v.com/Name> \"Ora Lassila\" .",
"<http://www.w3.org/Home/Lassila> <http://description.org/schema/Creator> <http://www.w3.org/staffId/85740> ."
>) ]])
|
8ff297 | 2002-10-30 | Martin Nilsson | |
|
6efeae | 2002-08-03 | Martin Nilsson | | // - Standards.URI
test_equal((string)Standards.URI("g:h", "http://a/b/c/d;p?q"), "g:h")
test_equal((string)Standards.URI("g", "http://a/b/c/d;p?q"), "http://a/b/c/g")
test_equal((string)Standards.URI("./g", "http://a/b/c/d;p?q"), "http://a/b/c/g")
test_equal((string)Standards.URI("g/", "http://a/b/c/d;p?q"), "http://a/b/c/g/")
test_equal((string)Standards.URI("/g", "http://a/b/c/d;p?q"), "http://a/g")
test_equal((string)Standards.URI("//g", "http://a/b/c/d;p?q"), "http://g")
test_equal((string)Standards.URI("?y", "http://a/b/c/d;p?q"), "http://a/b/c/?y")
test_equal((string)Standards.URI("g?y", "http://a/b/c/d;p?q"), "http://a/b/c/g?y")
test_equal((string)Standards.URI("#s", "http://a/b/c/d;p?q"), "http://a/b/c/d;p?q#s")
test_equal((string)Standards.URI("g#s", "http://a/b/c/d;p?q"), "http://a/b/c/g#s")
test_equal((string)Standards.URI("g?y#s", "http://a/b/c/d;p?q"), "http://a/b/c/g?y#s")
test_equal((string)Standards.URI(";x", "http://a/b/c/d;p?q"), "http://a/b/c/;x")
test_equal((string)Standards.URI("g;x", "http://a/b/c/d;p?q"), "http://a/b/c/g;x")
test_equal((string)Standards.URI("g;x?y#s", "http://a/b/c/d;p?q"), "http://a/b/c/g;x?y#s")
test_equal((string)Standards.URI(".", "http://a/b/c/d;p?q"), "http://a/b/c/")
test_equal((string)Standards.URI("./", "http://a/b/c/d;p?q"), "http://a/b/c/")
test_equal((string)Standards.URI("..", "http://a/b/c/d;p?q"), "http://a/b/")
test_equal((string)Standards.URI("../", "http://a/b/c/d;p?q"), "http://a/b/")
test_equal((string)Standards.URI("../g", "http://a/b/c/d;p?q"), "http://a/b/g")
test_equal((string)Standards.URI("../..", "http://a/b/c/d;p?q"), "http://a/")
test_equal((string)Standards.URI("../../", "http://a/b/c/d;p?q"), "http://a/")
test_equal((string)Standards.URI("../../g", "http://a/b/c/d;p?q"), "http://a/g")
test_equal((string)Standards.URI("../../../g", "http://a/b/c/d;p?q"), "http://a/../g")
test_equal((string)Standards.URI("../../../../g", "http://a/b/c/d;p?q"), "http://a/../../g")
test_equal((string)Standards.URI("/./g", "http://a/b/c/d;p?q"), "http://a/./g")
test_equal((string)Standards.URI("/../g", "http://a/b/c/d;p?q"), "http://a/../g")
test_equal((string)Standards.URI("g.", "http://a/b/c/d;p?q"), "http://a/b/c/g.")
test_equal((string)Standards.URI(".g", "http://a/b/c/d;p?q"), "http://a/b/c/.g")
test_equal((string)Standards.URI("g..", "http://a/b/c/d;p?q"), "http://a/b/c/g..")
test_equal((string)Standards.URI("..g", "http://a/b/c/d;p?q"), "http://a/b/c/..g")
test_equal((string)Standards.URI("./../g", "http://a/b/c/d;p?q"), "http://a/b/g")
test_equal((string)Standards.URI("./g/.", "http://a/b/c/d;p?q"), "http://a/b/c/g/")
test_equal((string)Standards.URI("g/./h", "http://a/b/c/d;p?q"), "http://a/b/c/g/h")
test_equal((string)Standards.URI("g/../h", "http://a/b/c/d;p?q"), "http://a/b/c/h")
test_equal((string)Standards.URI("g;x=1/./y", "http://a/b/c/d;p?q"), "http://a/b/c/g;x=1/y")
test_equal((string)Standards.URI("g;x=1/../y", "http://a/b/c/d;p?q"), "http://a/b/c/y")
test_equal((string)Standards.URI("g?y/./x", "http://a/b/c/d;p?q"), "http://a/b/c/g?y/./x")
test_equal((string)Standards.URI("g?y/../x", "http://a/b/c/d;p?q"), "http://a/b/c/g?y/../x")
test_equal((string)Standards.URI("g#s/./x", "http://a/b/c/d;p?q"), "http://a/b/c/g#s/./x")
test_equal((string)Standards.URI("g#s/../x", "http://a/b/c/d;p?q"), "http://a/b/c/g#s/../x")
test_equal((string)Standards.URI("http:g", "http://a/b/c/d;p?q"), "http:g")
|
19f767 | 2003-02-18 | Marcus Comstedt | |
// - Standards.IDNA
define([[test_punycode]], [[
test_eq([[Standards.IDNA.Punycode.encode($1)]], [[$2]])
test_eq([[Standards.IDNA.Punycode.decode($2)]], [[$1]])
]])
test_punycode([["\x644\x64A\x647\x645\x627\x628\x62A\x643\x644"
"\x645\x648\x634\x639\x631\x628\x64A\x61F"]],
[["egbpdaj6bu4bxfgehfvwxn"]]) // A
test_punycode([["\x4ED6\x4EEC\x4E3A\x4EC0\x4E48\x4E0D\x8BF4\x4E2D\x6587"]],
[["ihqwcrb4cv8a8dqg056pqjye"]]) // B
test_punycode([["\x4ED6\x5011\x7232\x4EC0\x9EBD\x4E0D\x8AAA\x4E2D\x6587"]],
[["ihqwctvzc91f659drss3x8bo0yb"]]) // C
test_punycode([["Pro\x10Dprost\x11Bnemluví\x10D""esky"]],
[["Proprostnemluvesky-uyb24dma41a"]]) // D
test_punycode([["\x5DC\x5DE\x5D4\x5D4\x5DD\x5E4\x5E9\x5D5\x5D8\x5DC\x5D0"
"\x5DE\x5D3\x5D1\x5E8\x5D9\x5DD\x5E2\x5D1\x5E8\x5D9\x5EA"]],
[["4dbcagdahymbxekheh6e0a7fei0b"]]) // E
test_punycode([["\x92F\x939\x932\x94B\x917\x939\x93F\x928\x94D\x926\x940"
"\x915\x94D\x92F\x94B\x902\x928\x939\x940\x902\x92C\x94B"
"\x932\x938\x915\x924\x947\x939\x948\x902"]],
[["i1baa7eci9glrd9b2ae1bj0hfcgg6iyaf8o0a1dig0cd"]]) // F
test_punycode([["\x306A\x305C\x307F\x3093\x306A\x65E5\x672C\x8A9E\x3092"
"\x8A71\x3057\x3066\x304F\x308C\x306A\x3044\x306E\x304B"]],
[["n8jok5ay5dzabd5bym9f0cm5685rrjetr6pdxa"]]) // G
test_punycode([["\xC138\xACC4\xC758\xBAA8\xB4E0\xC0AC\xB78C\xB4E4\xC774"
"\xD55C\xAD6D\xC5B4\xB97C\xC774\xD574\xD55C\xB2E4\xBA74"
"\xC5BC\xB9C8\xB098\xC88B\xC744\xAE4C"]],
[["989aomsvi5e83db1d2a355cv1e0vak1dwrv93d5xbh15a0dt30a5j"
"psd879ccm6fea98c"]]) // H
test_punycode([["\x43F\x43E\x447\x435\x43C\x443\x436\x435\x43E\x43D\x438"
"\x43D\x435\x433\x43E\x432\x43E\x440\x44F\x442\x43F\x43E"
"\x440\x443\x441\x441\x43A\x438"]],
[["b1abfaaepdrnnbgefbadotcwatmq2g4l"]]) // I
test_punycode([["PorquénopuedensimplementehablarenEspañol"]],
[["PorqunopuedensimplementehablarenEspaol-fmd56a"]]) // J
test_punycode([["T\x1EA1isaoh\x1ECDkhôngth\x1EC3""ch\x1EC9nóiti\x1EBFng"
"Vi\x1EC7t"]],
[["TisaohkhngthchnitingVit-kjcr8268qyxafd2f1b9g"]]) // K
test_punycode([["3\x5E74""B\x7D44\x91D1\x516B\x5148\x751F"]],
[["3B-ww4c5e180e575a65lsy2b"]]) // L
test_puntcode([["\x5B89\x5BA4\x5948\x7F8E\x6075-with-SUPER-MONKEYS"]],
[["-with-SUPER-MONKEYS-pc58ag80a8qai00g7n9n"]]) // M
test_punycode([["Hello-Another-Way-\x305D\x308C\x305E\x308C"
"\x306E\x5834\x6240"]],
[["Hello-Another-Way--fc4qua05auwb3674vfr0b"]]) // N
test_punycode([["\x3072\x3068\x3064\x5C4B\x6839\x306E\x4E0B""2"]],
[["2-u9tlzr9756bt3uc0v"]]) // O
test_punycode([["Maji\x3067Koi\x3059\x308B""5\x79D2\x524D"]],
[["MajiKoi5-783gue6qz075azm5e"]]) // P
test_punycode([["\x30D1\x30D5\x30A3\x30FC""de\x30EB\x30F3\x30D0"]],
[["de-jg4avhby1noc0d"]]) // Q
test_punycode([["\x305D\x306E\x30B9\x30D4\x30FC\x30C9\x3067"]],
[["d9juau41awczczp"]]) // R
test_punycode([["-> $1.00 <-"]], [["-> $1.00 <--"]]) // S
// Case check
test_eq([[Standards.IDNA.Punycode.decode("b1abfaaepdrnnbgefbaDotcwatmq2g4l")]],
[["\x43F\x43E\x447\x435\x43C\x443\x436\x435\x43E\x43D\x438"
"\x43D\x435\x433\x43E\x432\x43E\x440\x44F\x442\x43F\x43E"
"\x440\x443\x441\x441\x43A\x438"]]) // I
|