lgs-www-delicious 0.2.1

data/test/fixtures/net_response_success.yml

@@ -0,0 +1,23 @@
+--- !ruby/object:Net::HTTPOK 
+body: |
+  <?xml version="1.0" encoding="UTF-8"?>
+  <update time="2008-07-29T19:29:39Z" inboxnew="0"/>
+  <!-- fe01.api.del.ac4.yahoo.net uncompressed/chunked Tue Jul 29 13:51:05 PDT 2008 -->
+
+body_exist: true
+code: "200"
+header: 
+  connection: 
+  - close
+  p3p: 
+  - policyref="http://p3p.yahoo.com/w3c/p3p.xml", CP="CAO DSP COR CUR ADM DEV TAI PSA PSD IVAi IVDi CONi TELo OTPi OUR DELi SAMi OTRi UNRi PUBi IND PHY ONL UNI PUR FIN COM NAV INT DEM CNT STA POL HEA PRE GOV"
+  content-type: 
+  - text/xml; charset=utf-8
+  date: 
+  - Tue, 29 Jul 2008 20:51:05 GMT
+  transfer-encoding: 
+  - chunked
+http_version: "1.1"
+message: OK
+read: true
+socket: 

data/test/online_test.rb

@@ -0,0 +1,147 @@
+# 
+# = WWW::Delicious
+#
+# Ruby client for del.icio.us API.
+# 
+#
+# Category::    WWW
+# Package::     WWW::Delicious
+# Author::      Simone Carletti <weppos@weppos.net>
+# License::     MIT License
+#
+#--
+# SVN: $Id$
+#++
+
+
+require 'test_helper'
+
+
+RUN_ONLINE_TESTS = ($0 == __FILE__) unless defined?(RUN_ONLINE_TESTS)
+
+puts "Online test #{__FILE__} skipped.\n" +
+     "Use `ONLINE=1` to run online tests.\n" unless RUN_ONLINE_TESTS
+
+
+class OnlineTest < Test::Unit::TestCase
+  
+  def setup
+    init_account
+  end
+  
+  
+  def test_update
+    response = @delicious.update
+    assert_instance_of(Time, response)
+  end
+  
+  
+  def test_bundles_all
+    response = @delicious.bundles_all
+    assert_kind_of(Array, response)
+
+    response.each do |bundle|
+      assert_instance_of(WWW::Delicious::Bundle, bundle)
+      assert_instance_of(Array, bundle.tags)
+      assert_not_nil(bundle.name)
+    end
+  end
+  
+  def test_bundles_set
+    bundle = WWW::Delicious::Bundle.new(:name => 'test_bundle', :tags => %w(ruby python).sort)
+    assert_nothing_raised() { @delicious.bundles_set(bundle) }
+  end
+  
+  def test_bundles_delete
+    bundle = WWW::Delicious::Bundle.new(:name => 'test_bundle')
+    assert_nothing_raised() { @delicious.bundles_delete(bundle) }
+  end
+  
+  
+  def test_tags_get
+    response = @delicious.tags_get
+    assert_kind_of(Array, response)
+
+    response.each do |tag|
+      assert_instance_of(WWW::Delicious::Tag, tag)
+      assert_not_nil(tag.name)
+      assert_not_nil(tag.count)
+    end
+  end
+  
+  def test_tags_rename
+    ftag = WWW::Delicious::Tag.new(:name => 'old_tag')
+    otag = WWW::Delicious::Tag.new(:name => 'new_tag')
+    assert_nothing_raised() { @delicious.tags_rename(ftag, otag) }
+  end
+  
+  
+  def test_post_add
+    # TODO
+  end
+  
+  def test_post_all
+    response = @delicious.posts_get
+    assert_kind_of(Array, response)
+
+    response.each do |post|
+      assert_kind_of(WWW::Delicious::Post, post)
+    end
+  end
+  
+  def test_post_dates
+    response = @delicious.posts_dates
+    assert_kind_of(Hash, response)
+
+    response.each do |item, value|
+      assert_match(/[\d]{4}-[\d]{2}-[\d]{2}/, item)
+      assert_match(/[\d]+/, value.to_s)
+    end
+  end
+  
+  def test_post_delete
+    # TODO
+  end
+  
+  def test_posts_get
+    response = @delicious.posts_get
+    assert_kind_of(Array, response)
+
+    response.each do |post|
+      assert_kind_of(WWW::Delicious::Post, post)
+    end
+  end
+  
+  def test_posts_recent
+    response = @delicious.posts_recent
+    assert_kind_of(Array, response)
+
+    response.each do |post|
+      assert_kind_of(WWW::Delicious::Post, post)
+    end
+  end
+  
+  
+  protected
+  
+    def init_account(options = {}, &block)
+      @delicious_username ||= ENV['DELICIOUS_USERNAME'] || self.class.prompt('Delicious Username') { |value| abort('Value cannot be blank') if value.blank?; value }
+      @delicious_password ||= ENV['DELICIOUS_PASSWORD'] || self.class.prompt('Delicious Password') { |value| abort('Value cannot be blank') if value.blank?; value }
+      @delicious = WWW::Delicious.new(@delicious_username, @delicious_password, options, &block)
+    end
+    
+    # Convenient method for collecting user input
+    def self.prompt(text, options = {}, &block)
+      default = options[:default] || ''
+      value   = nil
+      while value.blank?
+        print "#{text} [#{default}]: "
+        value = STDIN.gets.chomp!
+        value = default if value.blank?
+        value = yield value if block_given?
+        value
+      end
+      value
+    end
+
+end if RUN_ONLINE_TESTS

data/test/post_test.rb

@@ -0,0 +1,68 @@
+# 
+# = WWW::Delicious
+#
+# Ruby client for del.icio.us API.
+# 
+#
+# Category::    WWW
+# Package::     WWW::Delicious
+# Author::      Simone Carletti <weppos@weppos.net>
+# License::     MIT License
+#
+#--
+# SVN: $Id$
+#++
+
+
+require 'test_helper'
+require 'www/delicious/post'
+
+
+class PostTest < Test::Unit::TestCase
+  
+  def test_post
+    expected = { :title => 'JavaScript DOM reference', :url => URI.parse('http://www.howtocreate.co.uk/tutorials/texterise.php?dom=1') }
+    assert_attributes(instance(expected), expected)
+  end
+  
+  def test_post_shared_defaults_to_true
+    assert(instance(:title => 'Foo').shared)
+  end
+  
+  def test_post_shared_is_false
+    assert(!instance(:title => 'Foo', :shared => false).shared)
+  end
+  
+  def test_post_from_rexml
+    dom = REXML::Document.new(File.read(TESTCASES_PATH + '/element/post.xml'))
+    element = WWW::Delicious::Post.from_rexml(dom.root)
+
+    assert_equal(URI.parse('http://www.howtocreate.co.uk/tutorials/texterise.php?dom=1'), element.url)
+    assert_equal("JavaScript DOM reference", element.title)
+    assert_equal("dom reference", element.notes)
+    assert_equal("c0238dc0c44f07daedd9a1fd9bbdeebd", element.uid)
+    assert_equal(55, element.others)
+    assert_equal(%w(dom javascript webdev), element.tags)
+    assert_equal(Time.parse("2005-11-28T05:26:09Z"), element.time)
+  end
+  
+  def test_post_from_rexml_not_shared
+    dom = REXML::Document.new(File.read(TESTCASES_PATH + '/element/post_unshared.xml'))
+    element = WWW::Delicious::Post.from_rexml(dom.root)
+
+    assert(!element.shared)
+  end
+  
+  
+  # def test_valid
+  # end
+  
+  
+  protected
+  
+    # returns a stub instance
+    def instance(values = {}, &block)
+      WWW::Delicious::Post.new(values)
+    end
+  
+end

data/test/tag_test.rb

@@ -0,0 +1,69 @@
+# 
+# = WWW::Delicious
+#
+# Ruby client for del.icio.us API.
+# 
+#
+# Category::    WWW
+# Package::     WWW::Delicious
+# Author::      Simone Carletti <weppos@weppos.net>
+# License::     MIT License
+#
+#--
+# SVN: $Id$
+#++
+
+
+require 'test_helper'
+require 'www/delicious/tag'
+
+
+class TagTest < Test::Unit::TestCase
+  
+  def test_tag
+    expected = { :name => 'MyTag', :count => 2 }
+    assert_attributes(instance(expected), expected)
+  end
+  
+  def test_tag_from_rexml
+    dom = REXML::Document.new(File.read(TESTCASES_PATH + '/element/tag.xml'))
+    expected = { :count => 1, :name => 'activedesktop' }
+    
+    element = WWW::Delicious::Tag.from_rexml(dom.root)
+    assert_attributes(element, expected)
+  end
+  
+  
+  def test_tag_name_strips_whitespaces
+    [' foo   ', 'foo  ', ' foo ', '  foo'].each do |v|
+      assert_equal('foo', instance(:name => v).name) # => 'foo'
+    end
+  end
+  
+  def test_to_s_returns_name_as_string
+    assert_equal('foobar', instance(:name => 'foobar', :count => 4).to_s)
+  end
+  
+  def test_to_s_returns_empty_string_with_name_nil
+    assert_equal('', instance(:name => nil).to_s)
+  end
+  
+  
+  # def test_api_valid
+  #   ['foo', ' foo '].each do |v|
+  #     assert(instance(v).api_valid?)
+  #   end
+  #   ['', '  '].each do |v|
+  #     assert(!instance(v).api_valid?)
+  #   end
+  # end
+  
+  
+  protected
+  
+    # returns a stub instance
+    def instance(values = {}, &block)
+      WWW::Delicious::Tag.new(values)
+    end
+
+end

data/test/test_all.rb

@@ -0,0 +1,19 @@
+# 
+# = WWW::Delicious
+#
+# Ruby client for del.icio.us API.
+# 
+#
+# Category::    WWW
+# Package::     WWW::Delicious
+# Author::      Simone Carletti <weppos@weppos.net>
+# License::     MIT License
+#
+#--
+# SVN: $Id$
+#++
+
+
+require 'test_helper'
+
+Dir.glob(File.dirname(__FILE__) + '/**/*_test.rb').sort.each { |unit| require unit }

data/test/test_helper.rb

@@ -0,0 +1,43 @@
+# 
+# = WWW::Delicious
+#
+# Ruby client for del.icio.us API.
+# 
+#
+# Category::    WWW
+# Package::     WWW::Delicious
+# Author::      Simone Carletti <weppos@weppos.net>
+# License::     MIT License
+#
+#--
+# SVN: $Id$
+#++
+
+
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+
+require 'rubygems'
+require 'test/unit'
+require 'mocha'
+require 'www/delicious'
+
+# testcase file path
+TESTCASES_PATH   = File.dirname(__FILE__) + '/testcases' unless defined?(TESTCASES_PATH)
+FIXTURES_PATH    = File.dirname(__FILE__) + '/fixtures'  unless defined?(FIXTURES_PATH)
+
+# prevent online tests to be run automatically
+RUN_ONLINE_TESTS = (ENV['ONLINE'].to_i == 1) unless defined?(RUN_ONLINE_TESTS)
+
+
+class Test::Unit::TestCase
+  
+  # asserts all given attributes match mapped value in +instance+.
+  # +instance+ is the instance to be tested, 
+  # +expected_mapping+ is the attribute => value mapping.
+  def assert_attributes(instance, expected_mapping)
+    expected_mapping.each do |key, value|
+      assert_equal(value, instance.send(key.to_sym), "Expected `#{key}` to be `#{value}`")
+    end
+  end
+  
+end

data/test/testcases/element/bundle.xml

@@ -0,0 +1 @@
+<bundle name="music" tags="ipod mp3 music" />

data/test/testcases/element/invalid_root.xml

@@ -0,0 +1,2 @@
+<?xml version='1.0' standalone='yes'?>
+<foo />

data/test/testcases/element/post.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0"?>
+<post href="http://www.howtocreate.co.uk/tutorials/texterise.php?dom=1" description="JavaScript DOM reference" extended="dom reference" hash="c0238dc0c44f07daedd9a1fd9bbdeebd" others="55" tag="dom javascript webdev" time="2005-11-28T05:26:09Z"/>

data/test/testcases/element/post_unshared.xml

@@ -0,0 +1,2 @@
+<?xml version='1.0' standalone='yes'?>
+<post href="http://stacktrace.it/articoli/2008/03/i-7-peccati-capitali-del-recruitment-di-hacker/" description="Stacktrace.it: I 7 peccati capitali del recruitment di hacker" hash="2ebd5cea7e3ab24f967c07994703bb4b" others="1" tag="recruitment" time="2008-03-12T08:41:19Z" shared="no" />

data/test/testcases/element/tag.xml

@@ -0,0 +1 @@
+<tag count="1" tag="activedesktop" />

data/test/testcases/response/bundles_all.xml

@@ -0,0 +1,5 @@
+<?xml version='1.0' standalone='yes'?>
+<bundles>
+  <bundle name="music" tags="ipod mp3 music" />
+  <bundle name="pc" tags="computer software hardware" />
+</bundles>

data/test/testcases/response/bundles_all_empty.xml

@@ -0,0 +1,2 @@
+<?xml version='1.0' standalone='yes'?>
+<bundles></bundles>

data/test/testcases/response/bundles_delete.xml

@@ -0,0 +1,2 @@
+<?xml version='1.0' standalone='yes'?>
+<result>done</result>

data/test/testcases/response/bundles_set.xml

@@ -0,0 +1,2 @@
+<?xml version='1.0' standalone='yes'?>
+<result>ok</result>

data/test/testcases/response/bundles_set_error.xml

@@ -0,0 +1,2 @@
+<?xml version='1.0' standalone='yes'?>
+<result>you must supply a bundle name and at least one tag</result>

data/test/testcases/response/posts_add.xml

@@ -0,0 +1,2 @@
+<?xml version='1.0' standalone='yes'?>
+<result code="done" />

data/test/testcases/response/posts_all.xml

@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<posts user="weppos" update="2008-08-02T11:55:35Z" tag="" total="1702">
+  <post href="http://github.com/blog/120-new-to-git" hash="eca1f8a028417349f71077adf64faee8" description="New to Git? - GitHub" tag="scm git" time="2008-07-31T15:44:54Z" others="-1" extended=""/>
+  <post href="http://arthurkoziel.com/2008/05/02/git-configuration/" hash="fd68cebf1efc8267755fffdf83d34a65" description="Git Configuration - Arthur Koziel’s Blog" tag="scm git" time="2008-07-31T15:44:19Z" others="-1" extended="Here are some useful configuration options for Git."/>
+  <post href="http://whytheluckystiff.net/articles/theFullyUpturnedBin.html" hash="02ae7e6473e6ad87d6d5a8fc254dd274" description=".c( whytheluckystiff )o. -- The Fully Upturned Bin" tag="programming ruby garbagecollection" time="2008-07-31T13:09:26Z" others="-1" extended="About memory management and Garbage Collection in Ruby."/>
+  <post href="http://www.learnasp.com/learn/subgetrows.asp" hash="14f798447ad0e8b3f98d6c89773ce345" description="dbtable" tag="programming asp vbscript database" time="2008-07-29T19:29:38Z" others="-1" extended=""/>
+  <post href="http://www.xmlfiles.com/articles/seth/xmldatatransfer/default.asp" hash="e3dfcc0f5cf9ce519783b7a9b1904998" description="XML Files - An ASP Class for XML Data Transfer" tag="programming asp vbscript classes xml" time="2008-07-29T19:29:17Z" others="-1" extended=""/>
+  <post href="http://aspalliance.com/113" hash="0919ac3a92f0ded1df657459b5e899d7" description="Database Class in Classic ASP: ASP Alliance" tag="programming asp vbscript classes database" time="2008-07-29T19:28:46Z" others="-1" extended=""/>
+  <post href="http://www.devguru.com/technologies/vbscript/quickref/classstatement.html" hash="f03f96952bc57d0bb928a174dd47b60c" description="DevGuru VBScript Statement: Class" tag="programming asp vbscript classes" time="2008-07-29T19:28:30Z" others="-1" extended=""/>
+  <post href="http://www.asp101.com/articles/richard/ooasp/default.asp" hash="27e4d04e916fa6128c8e75dbf0ee8ab4" description="ASP 101 - Object Oriented ASP: Using Classes in Classic ASP" tag="programming asp vbscript classes" time="2008-07-29T19:28:11Z" others="-1" extended=""/>
+</posts>
+<!-- fe04.api.del.ac4.yahoo.net uncompressed/chunked Sat Aug  2 13:59:59 PDT 2008 -->

data/test/testcases/response/posts_dates.xml

@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<dates tag="" user="weppos">
+  <date count="3" date="2008-07-31"/>
+  <date count="6" date="2008-07-29"/>
+  <date count="5" date="2008-07-27"/>
+  <date count="1" date="2008-07-25"/>
+  <date count="1" date="2008-07-22"/>
+  <date count="2" date="2008-07-20"/>
+  <date count="3" date="2008-07-19"/>
+  <date count="1" date="2008-07-16"/>
+  <date count="1" date="2008-07-15"/>
+  <date count="2" date="2008-07-14"/>
+</dates>
+<!-- fe02.api.del.ac4.yahoo.net uncompressed/chunked Sat Aug  2 13:39:33 PDT 2008 -->