tilia-dav 3.1.0.pre.alpha2

data/test/dav/server_props_test.rb

@@ -0,0 +1,182 @@
+require 'test_helper'
+
+module Tilia
+  module Dav
+    class ServerPropsTest < AbstractServer
+      def root_node
+        FsExt::Directory.new(@temp_dir)
+      end
+
+      def setup
+        super
+
+        ::File.open("#{@temp_dir}/test2.txt", 'w') { |f| f.write 'Test contents2' }
+        Dir.mkdir("#{@temp_dir}/col")
+        ::File.open("#{@temp_dir}/col/test.txt", 'w') { |f| f.write 'Test contents' }
+        @server.add_plugin(Locks::Plugin.new(Locks::Backend::File.new("#{@temp_dir}/.locksdb")))
+      end
+
+      def send_request(body, path = '/', headers = { 'Depth' => '0' })
+        request = Http::Request.new('PROPFIND', path, headers, body)
+
+        @server.http_request = request
+        @server.exec
+      end
+
+      def test_prop_find_empty_body
+        send_request('')
+        assert_equal(207, @response.status)
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Version::VERSION],
+            'Content-Type' => ['application/xml; charset=utf-8'],
+            'DAV' => ['1, 3, extended-mkcol, 2'],
+            'Vary' => ['Brief,Prefer']
+          },
+          @response.headers
+        )
+
+        body = @response.body.gsub(/xmlns(:[A-Za-z0-9_])?=("|')DAV:("|')/) { "xmlns#{Regexp.last_match(1)}=\"urn:DAV\"" }
+        xml = LibXML::XML::Document.string(body)
+
+        data = xml.find_first('/d:multistatus/d:response/d:href')
+        assert_equal('/', data.content, 'href element should have been /')
+
+        data = xml.find('/d:multistatus/d:response/d:propstat/d:prop/d:resourcetype')
+        assert_equal(1, data.size)
+      end
+
+      def test_prop_find_empty_body_file
+        send_request('', '/test2.txt', {})
+        assert_equal(207, @response.status)
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Version::VERSION],
+            'Content-Type' => ['application/xml; charset=utf-8'],
+            'DAV' => ['1, 3, extended-mkcol, 2'],
+            'Vary' => ['Brief,Prefer']
+          },
+          @response.headers
+        )
+
+        body = @response.body.gsub(/xmlns(:[A-Za-z0-9_])?=("|')DAV:("|')/) { "xmlns#{Regexp.last_match(1)}=\"urn:DAV\"" }
+        xml = LibXML::XML::Document.string(body)
+
+        data = xml.find_first('/d:multistatus/d:response/d:href')
+        assert_equal('/test2.txt', data.content, 'href element should have been /test2.txt')
+
+        data = xml.find('/d:multistatus/d:response/d:propstat/d:prop/d:getcontentlength')
+        assert_equal(1, data.size)
+      end
+
+      def test_supported_locks
+        xml = <<XML
+<?xml version="1.0"?>
+<d:propfind xmlns:d="DAV:">
+  <d:prop>
+    <d:supportedlock />
+  </d:prop>
+</d:propfind>
+XML
+
+        send_request(xml)
+
+        body = @response.body.gsub(/xmlns(:[A-Za-z0-9_])?=("|')DAV:("|')/) { "xmlns#{Regexp.last_match(1)}=\"urn:DAV\"" }
+        xml = LibXML::XML::Document.string(body)
+
+        data = xml.find('/d:multistatus/d:response/d:propstat/d:prop/d:supportedlock/d:lockentry')
+        assert_equal(2, data.size, 'We expected two \'d:lockentry\' tags')
+
+        data = xml.find('/d:multistatus/d:response/d:propstat/d:prop/d:supportedlock/d:lockentry/d:lockscope')
+        assert_equal(2, data.size, 'We expected two \'d:lockscope\' tags')
+
+        data = xml.find('/d:multistatus/d:response/d:propstat/d:prop/d:supportedlock/d:lockentry/d:locktype')
+        assert_equal(2, data.size, 'We expected two \'d:locktype\' tags')
+
+        data = xml.find('/d:multistatus/d:response/d:propstat/d:prop/d:supportedlock/d:lockentry/d:lockscope/d:shared')
+        assert_equal(1, data.size, 'We expected a \'d:shared\' tag')
+
+        data = xml.find('/d:multistatus/d:response/d:propstat/d:prop/d:supportedlock/d:lockentry/d:lockscope/d:exclusive')
+        assert_equal(1, data.size, 'We expected a \'d:exclusive\' tag')
+
+        data = xml.find('/d:multistatus/d:response/d:propstat/d:prop/d:supportedlock/d:lockentry/d:locktype/d:write')
+        assert_equal(2, data.size, 'We expected two \'d:write\' tags')
+      end
+
+      def test_lock_discovery
+        xml = <<XML
+<?xml version="1.0"?>
+<d:propfind xmlns:d="DAV:">
+  <d:prop>
+    <d:lockdiscovery />
+  </d:prop>
+</d:propfind>
+XML
+
+        send_request(xml)
+
+        body = @response.body.gsub(/xmlns(:[A-Za-z0-9_])?=("|')DAV:("|')/) { "xmlns#{Regexp.last_match(1)}=\"urn:DAV\"" }
+        xml = LibXML::XML::Document.string(body)
+
+        data = xml.find('/d:multistatus/d:response/d:propstat/d:prop/d:lockdiscovery')
+        assert_equal(1, data.size, 'We expected a \'d:lockdiscovery\' tag')
+      end
+
+      def test_unknown_property
+        xml = <<XML
+<?xml version="1.0"?>
+<d:propfind xmlns:d="DAV:">
+  <d:prop>
+    <d:macaroni />
+  </d:prop>
+</d:propfind>
+XML
+
+        send_request(xml)
+
+        body = @response.body.gsub(/xmlns(:[A-Za-z0-9_])?=("|')DAV:("|')/) { "xmlns#{Regexp.last_match(1)}=\"urn:DAV\"" }
+        xml = LibXML::XML::Document.string(body)
+
+        path_tests = [
+          '/d:multistatus',
+          '/d:multistatus/d:response',
+          '/d:multistatus/d:response/d:propstat',
+          '/d:multistatus/d:response/d:propstat/d:status',
+          '/d:multistatus/d:response/d:propstat/d:prop',
+          '/d:multistatus/d:response/d:propstat/d:prop/d:macaroni'
+        ]
+        path_tests.each do |test|
+          assert(xml.find(test).size > 0, "We expected the #{test} element to appear in the response, we got: #{body}")
+        end
+
+        val = xml.find('/d:multistatus/d:response/d:propstat/d:status')
+        assert_equal(1, val.size, body)
+        assert_equal('HTTP/1.1 404 Not Found', val[0].content)
+      end
+
+      def test_parse_prop_patch_request
+        body = <<XML
+<?xml version="1.0"?>
+<d:propertyupdate xmlns:d="DAV:" xmlns:s="http://sabredav.org/NS/test">
+  <d:set><d:prop><s:someprop>somevalue</s:someprop></d:prop></d:set>
+  <d:remove><d:prop><s:someprop2 /></d:prop></d:remove>
+  <d:set><d:prop><s:someprop3>removeme</s:someprop3></d:prop></d:set>
+  <d:remove><d:prop><s:someprop3 /></d:prop></d:remove>
+</d:propertyupdate>
+XML
+
+        result = @server.xml.parse(body)
+        assert_equal(
+          {
+            '{http://sabredav.org/NS/test}someprop' => 'somevalue',
+            '{http://sabredav.org/NS/test}someprop2' => nil,
+            '{http://sabredav.org/NS/test}someprop3' => nil
+          },
+          result.properties
+        )
+      end
+    end
+  end
+end

data/test/dav/server_range_test.rb

@@ -0,0 +1,262 @@
+require 'test_helper'
+
+module Tilia
+  module Dav
+    class ServerRangeTest < AbstractServer
+      def root_node
+        FsExt::Directory.new(@temp_dir)
+      end
+
+      def test_range
+        server_vars = {
+          'REQUEST_PATH'   => '/test.txt',
+          'REQUEST_METHOD' => 'GET',
+          'HTTP_RANGE'     => 'bytes=2-5'
+        }
+        filename = "#{@temp_dir}/test.txt"
+
+        request = Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        stat = ::File.stat(filename)
+        etag = '"' + Digest::SHA1.hexdigest(stat.ino.to_s + stat.size.to_s + stat.mtime.to_s) + '"'
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Version::VERSION],
+            'Content-Type'    => ['application/octet-stream'],
+            'Content-Length'  => [4],
+            'Content-Range'   => ['bytes 2-5/13'],
+            'Last-Modified'   => [Http::Util.to_http_date(::File.mtime(filename))],
+            'ETag'            => [etag]
+          },
+          @response.headers
+        )
+
+        assert_equal(206, @response.status)
+        assert_equal('st c', @response.body_as_string[0, 4])
+      end
+
+      def test_start_range
+        server_vars = {
+          'REQUEST_PATH'   => '/test.txt',
+          'REQUEST_METHOD' => 'GET',
+          'HTTP_RANGE'     => 'bytes=2-'
+        }
+        filename = "#{@temp_dir}/test.txt"
+
+        request = Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        stat = ::File.stat(filename)
+        etag = '"' + Digest::SHA1.hexdigest(stat.ino.to_s + stat.size.to_s + stat.mtime.to_s) + '"'
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Version::VERSION],
+            'Content-Type'    => ['application/octet-stream'],
+            'Content-Length'  => [11],
+            'Content-Range'   => ['bytes 2-12/13'],
+            'Last-Modified'   => [Http::Util.to_http_date(::File.mtime(filename))],
+            'ETag'            => [etag]
+          },
+          @response.headers
+        )
+
+        assert_equal(206, @response.status)
+        assert_equal('st contents', @response.body_as_string[0, 11])
+      end
+
+      def test_end_range
+        server_vars = {
+          'REQUEST_PATH'   => '/test.txt',
+          'REQUEST_METHOD' => 'GET',
+          'HTTP_RANGE'     => 'bytes=-8'
+        }
+        filename = "#{@temp_dir}/test.txt"
+
+        request = Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        stat = ::File.stat(filename)
+        etag = '"' + Digest::SHA1.hexdigest(stat.ino.to_s + stat.size.to_s + stat.mtime.to_s) + '"'
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Version::VERSION],
+            'Content-Type'    => ['application/octet-stream'],
+            'Content-Length'  => [8],
+            'Content-Range'   => ['bytes 5-12/13'],
+            'Last-Modified'   => [Http::Util.to_http_date(::File.mtime(filename))],
+            'ETag'            => [etag]
+          },
+          @response.headers
+        )
+
+        assert_equal(206, @response.status)
+        assert_equal('contents', @response.body_as_string[0, 8])
+      end
+
+      def test_too_high_range
+        server_vars = {
+          'REQUEST_PATH'   => '/test.txt',
+          'REQUEST_METHOD' => 'GET',
+          'HTTP_RANGE'     => 'bytes=100-200'
+        }
+
+        request = Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        assert_equal(416, @response.status)
+      end
+
+      def test_crazy_range
+        server_vars = {
+          'REQUEST_PATH'   => '/test.txt',
+          'REQUEST_METHOD' => 'GET',
+          'HTTP_RANGE'     => 'bytes=8-4'
+        }
+
+        request = Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        assert_equal(416, @response.status)
+      end
+
+      def test_if_range_etag
+        node = @server.tree.node_for_path('test.txt')
+
+        server_vars = {
+          'REQUEST_PATH'   => '/test.txt',
+          'REQUEST_METHOD' => 'GET',
+          'HTTP_RANGE'     => 'bytes=2-5',
+          'HTTP_IF_RANGE'  => node.etag
+        }
+        filename = "#{@temp_dir}/test.txt"
+
+        request = Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        stat = ::File.stat(filename)
+        etag = '"' + Digest::SHA1.hexdigest(stat.ino.to_s + stat.size.to_s + stat.mtime.to_s) + '"'
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Version::VERSION],
+            'Content-Type'    => ['application/octet-stream'],
+            'Content-Length'  => [4],
+            'Content-Range'   => ['bytes 2-5/13'],
+            'Last-Modified'   => [Http::Util.to_http_date(::File.mtime(filename))],
+            'ETag'            => [etag]
+          },
+          @response.headers
+        )
+
+        assert_equal(206, @response.status)
+        assert_equal('st c', @response.body_as_string[0, 4])
+      end
+
+      def test_if_range_etag_incorrect
+        node = @server.tree.node_for_path('test.txt')
+
+        server_vars = {
+          'REQUEST_PATH'   => '/test.txt',
+          'REQUEST_METHOD' => 'GET',
+          'HTTP_RANGE'     => 'bytes=2-5',
+          'HTTP_IF_RANGE'  => node.etag + 'blabla'
+        }
+        filename = "#{@temp_dir}/test.txt"
+
+        request = Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        stat = ::File.stat(filename)
+        etag = '"' + Digest::SHA1.hexdigest(stat.ino.to_s + stat.size.to_s + stat.mtime.to_s) + '"'
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Version::VERSION],
+            'Content-Type'    => ['application/octet-stream'],
+            'Content-Length'  => [13],
+            'Last-Modified'   => [Http::Util.to_http_date(::File.mtime(filename))],
+            'ETag'            => [etag]
+          },
+          @response.headers
+        )
+
+        assert_equal(200, @response.status)
+        assert_equal('Test contents', @response.body_as_string)
+      end
+
+      def test_if_range_modification_date
+        server_vars = {
+          'REQUEST_PATH'   => '/test.txt',
+          'REQUEST_METHOD' => 'GET',
+          'HTTP_RANGE'     => 'bytes=2-5',
+          'HTTP_IF_RANGE'  => 'tomorrow'
+        }
+        filename = "#{@temp_dir}/test.txt"
+
+        request = Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        stat = ::File.stat(filename)
+        etag = '"' + Digest::SHA1.hexdigest(stat.ino.to_s + stat.size.to_s + stat.mtime.to_s) + '"'
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Version::VERSION],
+            'Content-Type'    => ['application/octet-stream'],
+            'Content-Length'  => [4],
+            'Content-Range'   => ['bytes 2-5/13'],
+            'Last-Modified'   => [Http::Util.to_http_date(::File.mtime(filename))],
+            'ETag'            => [etag]
+          },
+          @response.headers
+        )
+
+        assert_equal(206, @response.status)
+        assert_equal('st c', @response.body_as_string[0, 4])
+      end
+
+      def test_if_range_modification_date_modified
+        server_vars = {
+          'REQUEST_PATH'   => '/test.txt',
+          'REQUEST_METHOD' => 'GET',
+          'HTTP_RANGE'     => 'bytes=2-5',
+          'HTTP_IF_RANGE'  => '-2 years'
+        }
+        filename = "#{@temp_dir}/test.txt"
+
+        request = Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        stat = ::File.stat(filename)
+        etag = '"' + Digest::SHA1.hexdigest(stat.ino.to_s + stat.size.to_s + stat.mtime.to_s) + '"'
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Version::VERSION],
+            'Content-Type'    => ['application/octet-stream'],
+            'Content-Length'  => [13],
+            'Last-Modified'   => [Http::Util.to_http_date(::File.mtime(filename))],
+            'ETag'            => [etag]
+          },
+          @response.headers
+        )
+
+        assert_equal(200, @response.status)
+        assert_equal('Test contents', @response.body_as_string)
+      end
+    end
+  end
+end

data/test/dav/server_simple_test.rb

@@ -0,0 +1,388 @@
+require 'test_helper'
+
+module Tilia
+  module Dav
+    class ServerSimpleTest < AbstractServer
+      def test_construct_array
+        nodes = [Tilia::Dav::SimpleCollection.new('hello')]
+
+        server = Tilia::Dav::ServerMock.new(nodes)
+        assert_equal(nodes[0], server.tree.node_for_path('hello'))
+      end
+
+      def test_construct_incorrect_obj
+        nodes = [
+          Tilia::Dav::SimpleCollection.new('hello'),
+          Class.new
+        ]
+
+        assert_raises(Tilia::Dav::Exception) { Tilia::Dav::ServerMock.new(nodes) }
+      end
+
+      def test_construct_invalid_arg
+        assert_raises(Tilia::Dav::Exception) { Tilia::Dav::ServerMock.new(1) }
+      end
+
+      def test_options
+        request = Tilia::Http::Request.new('OPTIONS', '/')
+        @server.http_request = request
+        @server.exec
+
+        assert_equal(
+          {
+            'DAV'             => ['1, 3, extended-mkcol'],
+            'MS-Author-Via'   => ['DAV'],
+            'Allow'           => ['OPTIONS, GET, HEAD, DELETE, PROPFIND, PUT, PROPPATCH, COPY, MOVE, REPORT'],
+            'Accept-Ranges'   => ['bytes'],
+            'Content-Length'  => ['0'],
+            'X-Sabre-Version' => [Tilia::Dav::Version::VERSION]
+          },
+          @response.headers
+        )
+
+        assert_equal(200, @response.status)
+        assert_equal(nil, @response.body)
+      end
+
+      def test_options_unmapped
+        request = Tilia::Http::Request.new('OPTIONS', '/unmapped')
+        @server.http_request = request
+        @server.exec
+
+        assert_equal(
+          {
+            'DAV'             => ['1, 3, extended-mkcol'],
+            'MS-Author-Via'   => ['DAV'],
+            'Allow'           => ['OPTIONS, GET, HEAD, DELETE, PROPFIND, PUT, PROPPATCH, COPY, MOVE, REPORT, MKCOL'],
+            'Accept-Ranges'   => ['bytes'],
+            'Content-Length'  => ['0'],
+            'X-Sabre-Version' => [Tilia::Dav::Version::VERSION]
+          },
+          @response.headers
+        )
+
+        assert_equal(200, @response.status)
+        assert_equal(nil, @response.body)
+      end
+
+      def test_non_existant_method
+        server_vars = {
+          'REQUEST_PATH'   => '/',
+          'REQUEST_METHOD' => 'BLABLA'
+        }
+
+        request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.exec
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Tilia::Dav::Version::VERSION],
+            'Content-Type'    => ['application/xml; charset=utf-8']
+          },
+          @response.headers
+        )
+
+        assert_equal(501, @response.status)
+      end
+
+      def test_base_uri
+        server_vars = {
+          'REQUEST_PATH'   => '/blabla/test.txt',
+          'REQUEST_METHOD' => 'GET'
+        }
+        filename = ::File.join(@temp_dir, 'test.txt')
+
+        request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        @server.base_uri = '/blabla/'
+        assert_equal('/blabla/', @server.base_uri)
+
+        @server.http_request = request
+        @server.exec
+
+        stat = ::File.stat(filename)
+        etag = '"' + Digest::SHA1.hexdigest(stat.ino.to_s + stat.size.to_s + stat.mtime.to_s) + '"'
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Tilia::Dav::Version::VERSION],
+            'Content-Type'    => ['application/octet-stream'],
+            'Content-Length'  => [13],
+            'Last-Modified'   => [Tilia::Http::Util.to_http_date(::File.mtime(filename))],
+            'ETag'            => [etag]
+          },
+          @response.headers
+        )
+
+        assert_equal(200, @response.status)
+        assert_equal('Test contents', @response.body_as_string)
+      end
+
+      def test_base_uri_add_slash
+        tests = {
+          '/'         => '/',
+          '/foo'      => '/foo/',
+          '/foo/'     => '/foo/',
+          '/foo/bar'  => '/foo/bar/',
+          '/foo/bar/' => '/foo/bar/'
+        }
+
+        tests.each do |test, result|
+          @server.base_uri = test
+          assert_equal(result, @server.base_uri)
+        end
+      end
+
+      def test_calculate_uri
+        uris = [
+          'http://www.example.org/root/somepath',
+          '/root/somepath',
+          '/root/somepath/'
+        ]
+
+        @server.base_uri = '/root/'
+
+        uris.each do |uri|
+          assert_equal('somepath', @server.calculate_uri(uri))
+        end
+
+        @server.base_uri = '/root'
+
+        uris.each do |uri|
+          assert_equal('somepath', @server.calculate_uri(uri))
+        end
+
+        assert_equal('', @server.calculate_uri('/root'))
+      end
+
+      def test_calculate_uri_special_chars
+        uris = [
+          'http://www.example.org/root/%C3%A0fo%C3%B3',
+          '/root/%C3%A0fo%C3%B3',
+          '/root/%C3%A0fo%C3%B3/'
+        ]
+
+        @server.base_uri = '/root/'
+        uris.each do |uri|
+          assert_equal("\xc3\xa0fo\xc3\xb3", @server.calculate_uri(uri))
+        end
+
+        @server.base_uri = '/root'
+        uris.each do |uri|
+          assert_equal("\xc3\xa0fo\xc3\xb3", @server.calculate_uri(uri))
+        end
+
+        @server.base_uri = '/'
+        uris.each do |uri|
+          assert_equal("root/\xc3\xa0fo\xc3\xb3", @server.calculate_uri(uri))
+        end
+      end
+
+      def test_calculate_uri_breakout
+        uri = '/path1/'
+
+        @server.base_uri = '/path2/'
+        assert_raises(Exception::Forbidden) { @server.calculate_uri(uri) }
+      end
+
+      def test_guess_base_uri
+        server_vars = {
+          'REQUEST_PATH' => '/index.php/root',
+          'PATH_INFO'    => '/root'
+        }
+
+        http_request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        server = Tilia::Dav::ServerMock.new
+        server.http_request = http_request
+
+        assert_equal('/index.php/', server.guess_base_uri)
+      end
+
+      def test_guess_base_uri_percent_encoding
+        server_vars = {
+          'REQUEST_PATH' => '/index.php/dir/path2/path%20with%20spaces',
+          'PATH_INFO'    => '/dir/path2/path with spaces'
+        }
+
+        http_request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        server = Tilia::Dav::ServerMock.new
+        server.http_request = http_request
+
+        assert_equal('/index.php/', server.guess_base_uri)
+      end
+
+      # def test_guess_base_uri_percent_encoding2
+      #   skip('This behaviour is not yet implemented')
+      #   server_vars = {
+      #     'REQUEST_PATH' => '/some%20directory+mixed/index.php/dir/path2/path%20with%20spaces',
+      #     'PATH_INFO'    => '/dir/path2/path with spaces',
+      #   }
+      #
+      #   http_request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+      #   server = Tilia::Dav::ServerMock.new
+      #   server.http_request = http_request
+      #
+      #   assert_equal('/some%20directory+mixed/index.php/', server.guess_base_uri)
+      # end
+
+      def test_guess_base_uri2
+        server_vars = {
+          'REQUEST_PATH' => '/index.php/root/',
+          'PATH_INFO'    => '/root/'
+        }
+
+        http_request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        server = Tilia::Dav::ServerMock.new
+        server.http_request = http_request
+
+        assert_equal('/index.php/', server.guess_base_uri)
+      end
+
+      def test_guess_base_uri_no_path_info
+        server_vars = {
+          'REQUEST_PATH' => '/index.php/root'
+        }
+
+        http_request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        server = Tilia::Dav::ServerMock.new
+        server.http_request = http_request
+
+        assert_equal('/', server.guess_base_uri)
+      end
+
+      def test_guess_base_uri_no_path_info2
+        server_vars = {
+          'REQUEST_PATH' => '/a/b/c/test.php'
+        }
+
+        http_request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        server = Tilia::Dav::ServerMock.new
+        server.http_request = http_request
+
+        assert_equal('/', server.guess_base_uri)
+      end
+
+      def test_guess_base_uri_query_string
+        server_vars = {
+          'REQUEST_PATH' => '/index.php/root?query_string=blabla',
+          'PATH_INFO'    => '/root'
+        }
+
+        http_request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        server = Tilia::Dav::ServerMock.new
+        server.http_request = http_request
+
+        assert_equal('/index.php/', server.guess_base_uri)
+      end
+
+      def test_guess_base_uri_bad_config
+        server_vars = {
+          'REQUEST_PATH' => '/index.php/root/heyyy',
+          'PATH_INFO'    => '/root'
+        }
+
+        http_request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        server = Tilia::Dav::ServerMock.new
+        server.http_request = http_request
+
+        assert_raises(Exception) { server.guess_base_uri }
+      end
+
+      def test_trigger_exception
+        server_vars = {
+          'REQUEST_PATH'   => '/',
+          'REQUEST_METHOD' => 'FOO'
+        }
+
+        http_request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = http_request
+        @server.on('beforeMethod', method(:exception_trigger))
+        @server.exec
+
+        assert_equal(
+          {
+            'Content-Type' => ['application/xml; charset=utf-8']
+          },
+          @response.headers
+        )
+
+        assert_equal(500, @response.status)
+      end
+
+      def exception_trigger(_request, _response)
+        fail Exception, 'Hola'
+      end
+
+      def test_report_not_found
+        server_vars = {
+          'REQUEST_PATH'   => '/',
+          'REQUEST_METHOD' => 'REPORT'
+        }
+
+        request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.http_request.body = '<?xml version="1.0"?><bla:myreport xmlns:bla="http://www.rooftopsolutions.nl/NS"></bla:myreport>'
+        @server.exec
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Tilia::Dav::Version::VERSION],
+            'Content-Type'    => ['application/xml; charset=utf-8']
+          },
+          @response.headers
+        )
+
+        assert_equal(415, @response.status, "We got an incorrect status back. Full response body follows: #{@response.body}")
+      end
+
+      def test_report_intercepted
+        server_vars = {
+          'REQUEST_PATH'   => '/',
+          'REQUEST_METHOD' => 'REPORT'
+        }
+
+        request = Tilia::Http::Sapi.create_from_server_array(server_vars)
+        @server.http_request = request
+        @server.http_request.body = '<?xml version="1.0"?><bla:myreport xmlns:bla="http://www.rooftopsolutions.nl/NS"></bla:myreport>'
+        @server.on('report', method(:report_handler))
+        @server.exec
+
+        assert_equal(
+          {
+            'X-Sabre-Version' => [Tilia::Dav::Version::VERSION],
+            'testheader'      => ['testvalue']
+          },
+          @response.headers
+        )
+
+        assert_equal(418, @response.status, "We got an incorrect status back. Full response body follows: #{@response.body}")
+      end
+
+      def report_handler(report_name, _result, _path)
+        if report_name == '{http://www.rooftopsolutions.nl/NS}myreport'
+          @server.http_response.status = 418
+          @server.http_response.update_header('testheader', 'testvalue')
+          false
+        else
+          true
+        end
+      end
+
+      def test_get_properties_for_children
+        result = @server.properties_for_children(
+          '',
+          [
+            '{DAV:}getcontentlength'
+          ]
+        )
+
+        expected = {
+          'test.txt' => { '{DAV:}getcontentlength' => 13 },
+          'dir/'     => {}
+        }
+
+        assert_equal(expected, result)
+      end
+    end
+  end
+end