1 files changed, 26 insertions, 0 deletions
diff --git a/test/rest/urilist.rb b/test/rest/urilist.rb
new file mode 100644
index 0000000..a269312
--- /dev/null
+++ b/test/rest/urilist.rb
@@ -0,0 +1,26 @@
+require_relative "setup.rb"
+
+class UriListTest < MiniTest::Test
+
+  def test_01_urilist_duplicates
+    services = [$algorithm[:uri], $dataset[:uri], $feature[:uri], $model[:uri], $task[:uri]]
+    services.each do |service|
+      s_urilist = `curl -ik -H accept:text/uri-list #{service}`.split("\n")
+      assert_equal s_urilist.uniq.length, s_urilist.length, "Attention, duplicates found in #{service.split("/").last} uri-list!"
+    end
+  end
+
+  def test_02_urilist_mime
+    # "application/rdf+xml", "text/turtle", "application/sparql-results+xml" are currently not supported and might lead to performance problem. I guess it is not worth the efforts to implement them at the moment, text/uri-list should be sufficient for most purposes (CH)
+    #mime_types = ["application/rdf+xml", "text/turtle", "application/sparql-results+xml", "text/plain", "text/uri-list", "text/html"]
+    mime_types = [ "text/plain","text/uri-list", "text/html"]
+    mime_types.each do |mt|
+      s_urilist = `curl -ik -H accept:#{mt} #{$feature[:uri]}`
+      #puts s_urilist
+      assert_match /200 OK/, s_urilist.to_s
+      refute_match /Content-Length: 0/, s_urilist.to_s, "Attention, content length empty!"
+      refute_match /dataset/, s_urilist.to_s, "Attention, found dataset in feature uri-list!"
+    end
+  end
+
+end