pike.git
/
lib
/
modules
/
Standards.pmod
/
testsuite.in
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/lib/modules/Standards.pmod/testsuite.in:1:
-
test_true([["$Id: testsuite.in,v 1.
3
2002/10/
29
03
:
25:
07 nilsson Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
4
2002/10/
30
01
:
07
:
23
nilsson Exp $"]]);
// - 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) test_true(sizeof(Standards.ISO639_2.list_639_1())==161) test_false(Standards.ISO639_2.verify_overlap())
pike.git/lib/modules/Standards.pmod/testsuite.in:28:
r->LiteralResource("English") ); return (multiset)(r->get_n_triples()/"\n"); ]], (< /* 5 elements */ "", "_: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\" ." >))
+
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"); )
+
+
// - 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")