philologic-client 0.0.11 → 0.0.13

data/test/test_philologic_client.rb

@@ -1,558 +0,0 @@
-# encoding: utf-8
-
-require 'simplecov'
-SimpleCov.start
-
-require 'philologic-client'
-require 'test/unit'
-require 'mocha'
-
-
-class TestPhilologicClient < Test::Unit::TestCase
-
-  def setup
-    @test_dir         = File.expand_path( File.dirname(__FILE__) )
-    @data_dir         = File.expand_path( File.join( @test_dir, 'data' ) )
-
-    @doc_path         = 'doc_file.html'
-    @doc_file         = File.join( @data_dir, @doc_path )
-
-    @endpoint         = @data_dir
-
-    @coll_path        = 'collocation_sartre.html'
-    @coll_file        = File.join( @data_dir, @coll_path )
-
-    @coll_links_path  = 'collocation_links.html'
-    @coll_links_file  = File.join( @data_dir, @coll_links_path )
-
-    @freq_path        = 'frequency_sartre.html'
-    @freq_file        = File.join( @data_dir, @freq_path )
-
-    @freq_links_path  = 'frequency_links.html'
-    @freq_links_file  = File.join( @data_dir, @freq_links_path )
-
-    @root_path        = 'root_file.html'
-    @root_file        = File.join( @data_dir, @root_path )
-
-    @query_path       = 'query_sartre.html'
-    @query_file       = File.join( @data_dir, @query_path )
-  end
-
-
-  # TODO Is there a point to this?
-  def test_initialization
-    blockable = false
-    client = Philologic::Client.new do |client|
-      assert_kind_of  Philologic::Client, client
-      blockable = true
-    end
-    assert         blockable,          'works as block'
-    assert_kind_of Philologic::Client, client
-    assert_kind_of Philologic::Client, Philologic::Client.new
-  end
-
-  def test_initialization_with_endpoint
-    blockable = false
-    client = Philologic::Client.new(@endpoint) do |client|
-      assert_kind_of  Philologic::Client, client
-      blockable = true
-      assert_not_nil  client.endpoint
-      assert_equal    @endpoint, client.endpoint
-    end
-    assert         blockable,          'works as block'
-    assert_kind_of Philologic::Client, client
-    assert_kind_of Philologic::Client, Philologic::Client.new
-    assert_not_nil  client.endpoint
-    assert_equal    @endpoint, client.endpoint
-  end
-
-  def test_encoding_accessor
-    Philologic::Client.new do |client|
-      assert_equal  Philologic::Client::DEFAULT_ENCODING, client.encoding
-      assert_equal  'foo',                                client.encoding = 'foo'
-      assert_equal  'foo',                                client.encoding
-    end
-  end
-
-  def test_endpoint_accessor
-    Philologic::Client.new do |client|
-      assert_nil   client.endpoint,                        'defaults to nil'
-      assert_equal @endpoint, client.endpoint = @endpoint, 'returns value on set'
-      assert_equal @endpoint, client.endpoint,             'returns value on get'
-    end
-  end
-
-  def test_get_children_without_an_endpoint
-    Philologic::Client.new do |client|
-      assert_raises(RuntimeError) { client.children }
-    end
-  end
-
-  def test_get_document_without_an_endpoint
-    Philologic::Client.new do |client|
-      assert_raises(RuntimeError) { client.document }
-    end
-  end
-
-  def test_get_children
-    Philologic::Client.new do |client|
-      h = Nokogiri::HTML( open(@root_file) )
-      children = client.send( :_parse, Nokogiri::HTML( open(@root_file) ) )
-      client.stubs(:_get).with('/').returns(children)
-      assert_equal children, client.children
-    end
-  end
-
-  def test_get_document
-    Philologic::Client.new do |client|
-      doc = client.send( :_parse, Nokogiri::HTML( open(@doc_file) ) )
-      client.expects(:_get).with(@doc_path).returns(doc)
-      assert_equal doc, client.document(@doc_path)
-    end
-  end
-
-  def test_parse_children
-    Philologic::Client.new do |client|
-      client.endpoint = @endpoint
-      children        = client.children(@root_path)  
-      assert_not_nil  children
-      assert_kind_of  Array,  children
-      assert_equal    1845,   children.size
-      children.each do |child|
-        assert_kind_of  Philologic::Link,   child
-        assert_equal    'philologic_cite',  child['class']
-        assert_not_nil  child['href']
-        assert_nil      child['some random attribute']
-        assert_not_nil  child['author']
-        assert_not_nil  child['filename']
-        assert_not_nil  child['title']
-        assert_not_nil  child.text
-      end
-
-      assert_equal  './1/0/0/0/0/0/0',                          children.first['href']
-      assert_equal  'Conon, de Béthune, ca. 1160-1219 or 20.',  children.first['author']
-      assert_equal  'Les Chansons',                             children.first['title']
-      assert_equal  'TLF.0.tei',                                children.first['filename']
-      assert_match  /^Conon, de Béthune, ca. 1160-1219 or 20./, children.first.text
-      assert_equal  './1/0/0/0/0/0/0 | Les Chansons | Conon, de Béthune, ca. 1160-1219 or 20.', children.first.to_s
-
-      assert_equal  './1845/0/0/0/0/0/0',                           children.last['href']
-      assert_equal  'Sartre J.-P.',                                 children.last['author']
-      assert_equal  'Les Mots',                                     children.last['title']
-      assert_equal  'TLF.1879.tei',                                 children.last['filename']
-      assert_equal  "Sartre J.-P., Les Mots: TLF.1879.tei",         children.last.text
-      assert_equal  './1845/0/0/0/0/0/0 | Les Mots | Sartre J.-P.', children.last.to_s
-
-    end
-  end
-
-  def test_parse_document
-    Philologic::Client.new do |client|
-      client.endpoint = @endpoint
-      doc             = client.document(@doc_path)  
-      assert_not_nil  doc
-
-      assert_kind_of  Philologic::Document,                       doc
-      assert_equal    'philologic_object',                        doc['class']
-      assert_nil      doc['some random attribute']
-      assert_kind_of  String,                                     doc.html
-      assert_match    /^<div class="context_container" id="1">/,  doc.html
-      assert_match    %r{par tans la verité."      </div>},       doc.html
-      assert_kind_of  String,                                     doc.text
-      assert_match    /^Conon, de Béthune/,                       doc.text
-      assert_match    /verité."      $/,                          doc.text
-    end
-  end
-
-  def test_get_document_from_cite_through_client
-    Philologic::Client.new do |client|
-      client.endpoint = @endpoint
-      child           = client.children(@root_path).first
-      assert_not_nil  child
-      assert_kind_of  Philologic::Link, child
-      doc = client.send( :_parse, Nokogiri::HTML( open(@doc_file) ) )
-      client.stubs(:_get).with('./1/0/0/0/0/0/0').returns(doc) # TODO Improve
-      assert_equal    doc, client.document( child['href'] )
-    end
-  end
-
-  def test_get_document_from_cite
-    Philologic::Client.new do |client|
-      client.endpoint = @endpoint
-      child           = client.children(@root_path).first
-      assert_not_nil  child
-      assert_kind_of  Philologic::Link, child
-      doc = client.send( :_parse, Nokogiri::HTML( open(@doc_file) ) )
-      client.stubs(:_get).with('./1/0/0/0/0/0/0').returns(doc) # TODO Improve
-      assert_equal    doc, child.document
-    end
-  end
-
-  def test_underscore_query
-    Philologic::Client.new(@endpoint) do |client|
-      doc = client.send( :_parse, Nokogiri::HTML( open(@query_file) ) )
-      client.stubs(:_get).with('?query=sartre').returns(doc)
-      assert_equal  doc, client.send( :_query, :query => 'sartre' )
-    end
-  end
-
-  def test_underscore_build_query_with_invalid_queries
-    Philologic::Client.new(@endpoint) do |client|
-      assert_raise(RuntimeError, 'no query specified') { client.send(:_build_query, nil)   }
-      assert_raise(RuntimeError, 'no query specified') { client.send(:_build_query, {})    }
-      assert_raise(RuntimeError, 'no query specified') { client.send(:_build_query, [])    }
-      assert_raise(RuntimeError, 'no query specified') { client.send(:_build_query, '')    }
-      assert_raise(RuntimeError, 'no query specified') { client.send(:_build_query, 'foo') }
-    end
-  end
-
-  def test_underscore_build_query
-    Philologic::Client.new(@endpoint) do |client|
-      assert_equal '?query=sartre',         client.send( :_build_query, :query => 'sartre' )
-      assert_equal '?foo=bar&query=sartre', client.send( :_build_query, :query => 'sartre', :foo => 'bar' )
-    end
-  end
-
-  def test_search_with_invalid_queries
-    Philologic::Client.new(@endpoint) do |client|
-      [ nil, [], {}, '', [ '' ], [ nil ], Object.new ].each do |q|
-        assert_raise(RuntimeError, 'invalid query') { client.search(q) }
-      end
-    end
-  end
-
-  def test_search
-    Philologic::Client.new(@endpoint) do |client|
-      doc = client.send( :_parse, Nokogiri::HTML( open(@query_file) ) )
-      client.stubs(:_get).with('?query=sartre').returns(doc)
-
-      results = client.search('sartre')
-
-      assert_not_nil  results
-      assert_kind_of  Array, results
-      assert_equal    50,    results.size
-      results.each do |result|
-        assert_kind_of  Philologic::Link,  result
-        assert_equal   'philologic_occurence', result['class']
-        assert_not_nil  result['href']
-        assert_nil      result['some random attribute']
-        assert_not_nil  result['author']
-        assert_nil      result['filename']
-        assert_not_nil  result['title']
-        assert_not_nil  result.text
-     end
-
-      assert_equal  './54/1/0/0',             results.first['href']
-      assert_equal  'Peiresc N. de',          results.first['author']
-      assert_equal  'Lettres T. 6 1602-1637', results.first['title']
-      assert_match  /^Peiresc N. de, Lettre/, results.first.text
-      assert_equal  './54/1/0/0 | Lettres T. 6 1602-1637 | Peiresc N. de', results.first.to_s
-
-      assert_equal  './1792/11/0/0',          results.last['href']
-      assert_equal  'Gide A.',                results.last['author']
-      assert_equal  'Journal 1939-1949',      results.last['title']
-      assert_nil    results.last['filename']
-      assert_match  /^Gide A., Journal 193/,  results.last.text
-      assert_equal  './1792/11/0/0 | Journal 1939-1949 | Gide A.', results.last.to_s
-
-    end
-  end
-
-  def test_search_with_key_value_pairs
-    Philologic::Client.new(@endpoint) do |client|
-      doc = client.send( :_parse, Nokogiri::HTML( open(@query_file) ) )
-      client.stubs(:_get).with('?query=sartre').returns(doc)
-
-      results = client.search( :query => 'sartre' )
-
-      assert_not_nil  results
-      assert_kind_of  Array, results
-      assert_equal    50,    results.size
-      results.each do |result|
-        assert_kind_of  Philologic::Link,  result
-        assert_equal   'philologic_occurence', result['class']
-        assert_not_nil  result['href']
-        assert_nil      result['some random attribute']
-        assert_not_nil  result['author']
-        assert_nil      result['filename']
-        assert_not_nil  result['title']
-        assert_not_nil  result.text
-      end
-
-      assert_equal  './54/1/0/0',             results.first['href']
-      assert_equal  'Peiresc N. de',          results.first['author']
-      assert_equal  'Lettres T. 6 1602-1637', results.first['title']
-      assert_nil    results.first['filename']
-      assert_match  /^Peiresc N. de/,         results.first.text
-      assert_equal  './54/1/0/0 | Lettres T. 6 1602-1637 | Peiresc N. de', results.first.to_s
-
-      assert_equal  './1792/11/0/0',          results.last['href']
-      assert_equal  'Gide A.',                results.last['author']
-      assert_equal  'Journal 1939-1949',      results.last['title']
-      assert_nil    results.last['filename']
-      assert_match  /^Gide A., Journal /,     results.last.text
-      assert_equal  './1792/11/0/0 | Journal 1939-1949 | Gide A.', results.last.to_s
-
-    end
-  end
-
-  def test_frequency_search_with_invalid_queries
-    Philologic::Client.new(@endpoint) do |client|
-      [ nil, [], {}, '', [ '' ], [ nil ], Object.new ].each do |q|
-        assert_raise(RuntimeError, 'invalid query') { client.frequency(q) }
-      end
-    end
-  end
-
-  def test_frequency_search
-    Philologic::Client.new(@endpoint) do |client|
-      doc = client.send( :_parse, Nokogiri::HTML( open(@freq_file) ) )
-      client.stubs(:_get).with('?query=sartre&report=frequency').returns(doc)
-
-      results = client.frequency('sartre')
-
-      assert_not_nil  results
-      assert_kind_of  Array, results
-      assert_equal    15,    results.size
-      results.each do |result|
-        assert_kind_of  Philologic::TableRow, result
-        assert_equal    'philologic_frequency_row', result['class']
-        assert_nil      result['href']
-        assert_nil      result['some random attribute']
-        assert_nil      result['author']
-        assert_nil      result['filename']
-        assert_nil      result['title']
-        assert_not_nil  result.count
-        assert_not_nil  result.field
-        assert_not_nil  result.href
-        assert_not_nil  result.text
-      end
-
-      assert_equal  'author',                                       results.first.field
-      assert_equal  48,                                             results.first.count
-      assert_equal  './?query=sartre&author=Beauvoir+S.+de&title=', results.first.href
-      assert_equal  'Beauvoir S. de',                               results.first.text
-      assert_equal  'author | 48 | Beauvoir S. de',                 results.first.to_s
-
-      assert_equal  'author',                                     results.last.field
-      assert_equal  1,                                            results.last.count
-      assert_equal  './?query=sartre&author=Schaeffer+P.&title=', results.last.href
-      assert_equal  'Schaeffer P.',                               results.last.text
-      assert_equal  'author | 1 | Schaeffer P.',                  results.last.to_s
-    end
-  end
-
-  def test_frequency_search_with_key_value_pairs
-    Philologic::Client.new(@endpoint) do |client|
-      doc = client.send( :_parse, Nokogiri::HTML( open(@freq_file) ) )
-      client.stubs(:_get).with('?query=sartre&report=frequency').returns(doc)
-
-      results = client.frequency( :query => 'sartre' )
-
-      assert_not_nil  results
-      assert_kind_of  Array, results
-      assert_equal    15,    results.size
-      results.each do |result|
-        assert_kind_of  Philologic::TableRow, result
-        assert_equal    'philologic_frequency_row', result['class']
-        assert_nil      result['href']
-        assert_nil      result['some random attribute']
-        assert_nil      result['author']
-        assert_nil      result['filename']
-        assert_nil      result['title']
-        assert_not_nil  result.count
-        assert_not_nil  result.field
-        assert_not_nil  result.href
-        assert_not_nil  result.text
-      end
-
-      assert_equal  'author',                                       results.first.field
-      assert_equal  48,                                             results.first.count
-      assert_equal  './?query=sartre&author=Beauvoir+S.+de&title=', results.first.href
-      assert_equal  'Beauvoir S. de',                               results.first.text
-      assert_equal  'author | 48 | Beauvoir S. de',                 results.first.to_s
-
-      assert_equal  'author',                                     results.last.field
-      assert_equal  1,                                            results.last.count
-      assert_equal  './?query=sartre&author=Schaeffer+P.&title=', results.last.href
-      assert_equal  'Schaeffer P.',                               results.last.text
-      assert_equal  'author | 1 | Schaeffer P.',                  results.last.to_s
-
-    end
-  end
-
-  def test_philologic_frequency_tablerow_links
-    Philologic::Client.new(@endpoint) do |client|
-      freq_doc       = client.send( :_parse, Nokogiri::HTML( open(@freq_file) ) )
-      freq_links_doc = client.send( :_parse, Nokogiri::HTML( open(@freq_links_file) ) )
-      client.stubs(:_get).with('?query=sartre&report=frequency').returns(freq_doc)
-      client.stubs(:_get).with('?author=Beauvoir+S.+de&query=sartre&title=').returns(freq_links_doc)
-
-      results = client.frequency( :query => 'sartre' )
-      assert_not_nil results
-
-      links = results.first.links
-
-      assert_not_nil  links
-      assert_kind_of  Array, links
-      assert_equal    48,    links.size
-
-      links.each do |link|
-        assert_kind_of  Philologic::Link, link
-        assert_equal    'philologic_occurence', link['class']
-        assert_not_nil  link['href']
-        assert_nil      link['some random attribute']
-        assert_not_nil  link['author']
-        assert_nil      link['filename']
-        assert_not_nil  link['title']
-        assert_not_nil  link.text
-      end
-
-      assert_equal  './1839/3/0/0',                 links.first['href']
-      assert_equal  'Beauvoir S. de',               links.first['author']
-      assert_equal  'Memoires Jeune Fille Rangee',  links.first['title']
-      assert_nil    links.first['filename']
-      assert_match  /^Beauvoir S. de/,              links.first.text
-      assert_equal  './1839/3/0/0 | Memoires Jeune Fille Rangee | Beauvoir S. de', links.first.to_s
-
-      assert_equal  './1839/4/0/0',                 links.last['href']
-      assert_equal  'Beauvoir S. de',               links.last['author']
-      assert_equal  'Memoires Jeune Fille Rangee',  links.last['title']
-      assert_nil    links.last['filename']
-      assert_match  /^Beauvoir S. de,/,             links.last.text
-      assert_equal  './1839/4/0/0 | Memoires Jeune Fille Rangee | Beauvoir S. de', links.last.to_s
-
-    end
-  end
-
-  def test_collocation_search_with_invalid_queries
-    Philologic::Client.new(@endpoint) do |client|
-      [ nil, [], {}, '', [ '' ], [ nil ], Object.new ].each do |q|
-        assert_raise(RuntimeError, 'invalid query') { client.collocation(q) }
-      end
-    end
-  end
-
-  def test_collocation_search
-    Philologic::Client.new(@endpoint) do |client|
-      doc = client.send( :_parse, Nokogiri::HTML( open(@coll_file) ) )
-      client.stubs(:_get).with('?field=collocates&query=sartre&report=frequency').returns(doc)
-
-      results = client.collocation('sartre')
-
-      assert_not_nil  results
-      assert_kind_of  Array, results
-      assert_equal    15,    results.size
-      results.each do |result|
-        assert_kind_of  Philologic::TableRow, result
-        assert_equal    'philologic_frequency_row', result['class']
-        assert_nil      result['href']
-        assert_nil      result['some random attribute']
-        assert_nil      result['author']
-        assert_nil      result['filename']
-        assert_nil      result['title']
-        assert_not_nil  result.count
-        assert_not_nil  result.field
-        assert_not_nil  result.href
-        assert_not_nil  result.text
-      end
-
-      assert_equal  'author',                                       results.first.field
-      assert_equal  48,                                             results.first.count
-      assert_equal  './?query=sartre&author=Beauvoir+S.+de&title=', results.first.href
-      assert_equal  'Beauvoir S. de',                               results.first.text
-      assert_equal  'author | 48 | Beauvoir S. de',                 results.first.to_s
-
-      assert_equal  'author',                                     results.last.field
-      assert_equal  1,                                            results.last.count
-      assert_equal  './?query=sartre&author=Schaeffer+P.&title=', results.last.href
-      assert_equal  'Schaeffer P.',                               results.last.text
-      assert_equal  'author | 1 | Schaeffer P.',                  results.last.to_s
-    end
-  end
-
-  def test_collocation_search_with_key_value_pairs
-    Philologic::Client.new(@endpoint) do |client|
-      doc = client.send( :_parse, Nokogiri::HTML( open(@coll_file) ) )
-      client.stubs(:_get).with('?field=collocates&query=sartre&report=frequency').returns(doc)
-
-      results = client.collocation( :query => 'sartre' )
-
-      assert_not_nil  results
-      assert_kind_of  Array, results
-      assert_equal    15,    results.size
-      results.each do |result|
-        assert_kind_of  Philologic::TableRow, result
-        assert_equal    'philologic_frequency_row', result['class']
-        assert_nil      result['href']
-        assert_nil      result['some random attribute']
-        assert_nil      result['author']
-        assert_nil      result['filename']
-        assert_nil      result['title']
-        assert_not_nil  result.count
-        assert_not_nil  result.field
-        assert_not_nil  result.href
-        assert_not_nil  result.text
-      end
-
-      assert_equal  'author',                                       results.first.field
-      assert_equal  48,                                             results.first.count
-      assert_equal  './?query=sartre&author=Beauvoir+S.+de&title=', results.first.href
-      assert_equal  'Beauvoir S. de',                               results.first.text
-      assert_equal  'author | 48 | Beauvoir S. de',                 results.first.to_s
-
-      assert_equal  'author',                                     results.last.field
-      assert_equal  1,                                            results.last.count
-      assert_equal  './?query=sartre&author=Schaeffer+P.&title=', results.last.href
-      assert_equal  'Schaeffer P.',                               results.last.text
-      assert_equal  'author | 1 | Schaeffer P.',                  results.last.to_s
-
-    end
-  end
-
-  def test_philologic_collocation_tablerow_links
-    Philologic::Client.new(@endpoint) do |client|
-      coll_doc       = client.send( :_parse, Nokogiri::HTML( open(@coll_file) ) )
-      coll_links_doc = client.send( :_parse, Nokogiri::HTML( open(@coll_links_file) ) )
-      client.stubs(:_get).with('?field=collocates&query=sartre&report=frequency').returns(coll_doc)
-      client.stubs(:_get).with('?author=Beauvoir+S.+de&query=sartre&title=').returns(coll_links_doc)
-
-      results = client.collocation( :query => 'sartre' )
-      assert_not_nil results
-
-      links = results.first.links
-
-      assert_not_nil  links
-      assert_kind_of  Array, links
-      assert_equal    48,    links.size
-
-      links.each do |link|
-        assert_kind_of  Philologic::Link, link
-        assert_equal    'philologic_occurence', link['class']
-        assert_not_nil  link['href']
-        assert_nil      link['some random attribute']
-        assert_not_nil  link['author']
-        assert_nil      link['filename']
-        assert_not_nil  link['title']
-        assert_not_nil  link.text
-      end
-
-      assert_equal  './1839/3/0/0',                 links.first['href']
-      assert_equal  'Beauvoir S. de',               links.first['author']
-      assert_equal  'Memoires Jeune Fille Rangee',  links.first['title']
-      assert_nil    links.first['filename']
-      assert_match  /^Beauvoir S. de/,              links.first.text
-      assert_equal  './1839/3/0/0 | Memoires Jeune Fille Rangee | Beauvoir S. de', links.first.to_s
-
-      assert_equal  './1839/4/0/0',                 links.last['href']
-      assert_equal  'Beauvoir S. de',               links.last['author']
-      assert_equal  'Memoires Jeune Fille Rangee',  links.last['title']
-      assert_nil    links.last['filename']
-      assert_match  /^Beauvoir S. de/,              links.last.text
-      assert_equal  './1839/4/0/0 | Memoires Jeune Fille Rangee | Beauvoir S. de', links.last.to_s
-
-    end
-  end
-
-end
-

data/test/test_philologic_link.rb

@@ -1,101 +0,0 @@
-# encoding: utf-8
-
-require 'simplecov'
-SimpleCov.start
-
-require 'philologic-client'
-require 'test/unit'
-
-
-class TestPhilologicLink < Test::Unit::TestCase
-
-  def setup
-    @endpoint = File.expand_path( File.join( File.dirname(__FILE__), 'data' ) )
-    @client   = Philologic::Client.new(@endpoint)
-    @doc      = Nokogiri::HTML("")
-  end
-
-
-  def test_initialization_with_nil_client
-    assert_raise(RuntimeError, 'nil client') {  Philologic::Link.new( nil, @doc ) }
-  end
-
-  def test_initialization_with_nil_document
-    assert_raise(RuntimeError, 'nil document') {  Philologic::Link.new( @client, nil ) }
-  end
-
-  def test_philologic_cite
-    html = <<EOHTML;
-<a class='philologic_cite' href='./1/0/0/0/0/0/0'>
-  <span class='philologic_property' title='author'>Conon, de Béthune, ca. 1160-1219 or 20.</span>,
-  <span class='philologic_property' title='title'>Les Chansons</span>:
-  <span class='philologic_property' title='filename'>TLF.0.tei</span>
-</a>
-EOHTML
-    link = Philologic::Link.new( @client, Nokogiri::XML(html).css('a.philologic_cite').first )
-
-    assert_kind_of  Philologic::Link,   link
-
-    assert_not_nil  link['class']
-    assert_equal    'philologic_cite',  link['class']
-
-    assert_not_nil  link['href']
-    assert_equal    './1/0/0/0/0/0/0',  link['href']
-
-    assert_not_nil  link['author']
-    assert_equal    'Conon, de Béthune, ca. 1160-1219 or 20.',  link['author']
-  
-    assert_not_nil  link['title']
-    assert_equal    'Les Chansons',     link['title']
-
-    assert_not_nil  link['filename']
-    assert_equal    'TLF.0.tei',        link['filename']
-
-    assert_nil      link['some random attribute']
-
-    assert_equal    "Conon, de Béthune, ca. 1160-1219 or 20.,\n  Les Chansons:\n  TLF.0.tei",   link.text
-
-    assert_equal    './1/0/0/0/0/0/0 | Les Chansons | Conon, de Béthune, ca. 1160-1219 or 20.', link.to_s
-  end
-
-  def test_philologic_occurence
-    html = <<EOHTML;
-<li class='philologic_occurence'>
-  <a class='philologic_cite' href='./54/1/0/0'>
-    <span class='philologic_property' title='author'>Peiresc N. de</span>,
-    <span class='philologic_property' title='title'>Lettres T.  6 1602-1637</span>
-    <span class='philologic_property' title='date'>(1625)</span>
-  </a>
-  ...re pas l'adresse directement à nous ny à voz lettres ny au pacquet, mais à Monsieur
-    <span class="hilite">Sartre</span>
-  respondent de Monsr Segnier qui nous les rendra gentilment. Car je...
-</li>
-EOHTML
-    link = Philologic::Link.new( @client, Nokogiri::XML(html).css('li.philologic_occurence').first )
-
-    assert_kind_of  Philologic::Link,   link
-
-    assert_not_nil  link['class']
-    assert_equal    'philologic_occurence',     link['class']
-
-    assert_not_nil  link['href']
-    assert_equal    './54/1/0/0',               link['href']
-
-    assert_not_nil  link['author']
-    assert_equal    'Peiresc N. de',            link['author']
-  
-    assert_not_nil  link['title']
-    assert_equal    'Lettres T.  6 1602-1637',  link['title']
-
-    assert_nil      link['filename']
-
-    assert_nil      link['some random attribute']
-
-    assert_match    /^Peiresc N. de,/,          link.text
-    assert_match    /ntilment. Car je\.\.\.$/,  link.text
-
-    assert_equal    './54/1/0/0 | Lettres T.  6 1602-1637 | Peiresc N. de', link.to_s
-  end
-
-end
-