tumblr4r 0.7.0

data/ChangeLog

@@ -0,0 +1,4 @@
+== 0.0.1 / 2009-09-07
+
+* initial release
+

data/README

@@ -0,0 +1,48 @@
+= tumblr4r
+
+* http://github.com/tmaeda/tumblr4r
+
+== Description
+
+Tumblr API wrapper for Ruby.
+
+== Synopsis
+
+Finding by conditions.
+  require 'rubygems'
+  require 'tumblr4r'
+
+  site_a = Tumblr4r::Site.new("site_a.tumblr.com")
+  posts = site_a.find(:all)
+  quote_posts = site_a.find(:all, :type => "quote")
+  posts_offset_and_limit = site_a.find(:all, :offset => 50, :limit => 20)
+  quote_search = site_a.find(:all, :type => "quote", :search => "foo")
+  quote_tagged = site_a.find(:all, :type => "quote", :tagged => "bar")
+
+Finding by id.
+  post = site_a.find(12345678)
+
+Posting.
+  site_b = Tumblr4r::Site.new("site_b.tumblr.com", "foo@example.com", "password")
+  site_b.save(post[0])
+
+Deleting.
+  site_b.delete(post[0].post_id)
+
+== Installation
+
+  gem install tumblr4r
+
+== Problems
+
+* Can't get private posts yet.
+* Can't upload audio and video data yet.
+* Can't handle feeds yet.
+
+
+== Copyright
+
+Author::    Tomoki MAEDA <http://twitter.com/tmaeda>
+Copyright:: Copyright (c) 2009 Tomoki MAEDA
+License::   Ruby's license
+

data/Rakefile

@@ -0,0 +1,145 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+require 'rake/testtask'
+require 'rake/packagetask'
+require 'rake/gempackagetask'
+require 'rake/rdoctask'
+require 'rake/contrib/rubyforgepublisher'
+require 'rake/contrib/sshpublisher'
+require 'fileutils'
+require 'lib/tumblr4r'
+include FileUtils
+
+NAME              = "tumblr4r"
+AUTHOR            = "Tomoki MAEDA"
+EMAIL             = "tmaeda@ruby-sapporo.org"
+DESCRIPTION       = "Tumblr API Wrapper for Ruby"
+RUBYFORGE_PROJECT = "tumblr4r"
+HOMEPATH          = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+BIN_FILES         = %w(  )
+
+VERS              = Tumblr4r::VERSION
+REV = File.read(".svn/entries")[/committed-rev="(d+)"/, 1] rescue nil
+CLEAN.include ['**/.*.sw?', '*.gem', '.config']
+RDOC_OPTS = [
+	'--title', "#{NAME} documentation",
+	"--charset", "utf-8",
+	"--opname", "index.html",
+	"--line-numbers",
+	"--main", "README",
+	"--inline-source",
+]
+
+task :default => [:test]
+task :package => [:clean]
+
+Rake::TestTask.new("test") do |t|
+	t.libs   << "test"
+	t.pattern = "test/**/*_test.rb"
+	t.verbose = true
+end
+
+spec = Gem::Specification.new do |s|
+	s.name              = NAME
+	s.version           = VERS
+	s.platform          = Gem::Platform::RUBY
+	s.has_rdoc          = true
+	s.extra_rdoc_files  = ["README", "ChangeLog"]
+	s.rdoc_options     += RDOC_OPTS + ['--exclude', '^(examples|extras)/']
+	s.summary           = DESCRIPTION
+	s.description       = DESCRIPTION
+	s.author            = AUTHOR
+	s.email             = EMAIL
+	s.homepage          = HOMEPATH
+	s.executables       = BIN_FILES
+	s.rubyforge_project = RUBYFORGE_PROJECT
+	s.bindir            = "bin"
+	s.require_path      = "lib"
+	#s.autorequire       = ""
+	s.test_files        = Dir["test/*_test.rb"]
+
+	s.add_runtime_dependency('activesupport', '>=2.3.2')
+	s.add_development_dependency('pit', '>=0.0.6')
+	s.required_ruby_version = '>= 1.8.6'
+
+	s.files = %w(README ChangeLog Rakefile) +
+		Dir.glob("{bin,doc,test,lib,templates,generator,extras,website,script}/**/*") + 
+		Dir.glob("ext/**/*.{h,c,rb}") +
+		Dir.glob("examples/**/*.rb") +
+		Dir.glob("tools/*.rb") +
+		Dir.glob("rails/*.rb")
+
+	s.extensions = FileList["ext/**/extconf.rb"].to_a
+end
+
+Rake::GemPackageTask.new(spec) do |p|
+	p.need_tar = true
+	p.gem_spec = spec
+end
+
+task :install do
+	name = "#{NAME}-#{VERS}.gem"
+	sh %{rake package}
+	sh %{sudo gem install pkg/#{name}}
+end
+
+task :uninstall => [:clean] do
+	sh %{sudo gem uninstall #{NAME}}
+end
+
+
+Rake::RDocTask.new do |rdoc|
+	rdoc.rdoc_dir = 'html'
+	rdoc.options += RDOC_OPTS
+	rdoc.template = "resh"
+	#rdoc.template = "#{ENV['template']}.rb" if ENV['template']
+	if ENV['DOC_FILES']
+		rdoc.rdoc_files.include(ENV['DOC_FILES'].split(/,\s*/))
+	else
+		rdoc.rdoc_files.include('README', 'ChangeLog')
+		rdoc.rdoc_files.include('lib/**/*.rb')
+		rdoc.rdoc_files.include('ext/**/*.c')
+	end
+end
+
+desc "Publish to RubyForge"
+task :rubyforge => [:rdoc, :package] do
+	require 'rubyforge'
+	Rake::RubyForgePublisher.new(RUBYFORGE_PROJECT, 'tmaeda').upload
+end
+
+desc 'Package and upload the release to rubyforge.'
+task :release => [:clean, :package] do |t|
+	v = ENV["VERSION"] or abort "Must supply VERSION=x.y.z"
+	abort "Versions don't match #{v} vs #{VERS}" unless v == VERS
+	pkg = "pkg/#{NAME}-#{VERS}"
+
+	require 'rubyforge'
+	rf = RubyForge.new.configure
+	puts "Logging in"
+	rf.login
+
+	c = rf.userconfig
+#	c["release_notes"] = description if description
+#	c["release_changes"] = changes if changes
+	c["preformatted"] = true
+
+	files = [
+		"#{pkg}.tgz",
+		"#{pkg}.gem"
+	].compact
+
+	puts "Releasing #{NAME} v. #{VERS}"
+	rf.add_release RUBYFORGE_PROJECT, NAME, VERS, *files
+end
+
+desc 'Show information about the gem.'
+task :debug_gem do
+	puts spec.to_ruby
+end
+
+desc 'Update gem spec'
+task :gemspec do
+  open("#{NAME}.gemspec", 'w').write spec.to_ruby
+end

data/lib/tumblr4r.rb

@@ -0,0 +1,510 @@
+require 'net/http'
+require 'rubygems'
+require 'rexml/document'
+require 'active_support'
+require 'logger'
+require 'cgi'
+module Tumblr4r
+  VERSION = '0.7.0'
+  class TumblrError < StandardError
+  end
+
+  module POST_TYPE
+    REGULAR = "regular"
+    PHOTO = "photo"
+    QUOTE = "quote"
+    LINK = "link"
+    CHAT = "conversation"
+    AUDIO = "audio"
+    VIDEO = "video"
+  end
+
+  # ConnectionオブジェクトとParserオブジェクトを組み合わせて、
+  # TumblrAPIとRubyオブジェクトの相互変換を行う
+  # TODO: private な post だけを取得する API が無いのだなぁ
+  # * Webから更新したものがAPIで取得できるデータに反映されるには少しタイムラグがあるようだ
+  # * Webから更新しちゃうと、POST日時の秒が丸められてしまう
+  class Site
+    attr_accessor :hostname, :email, :password, :name, :timezone, :title, :cname,
+    :description, :feeds
+    attr_accessor :logger
+    # TODO: 変数名もうちょっと考える
+    API_READ_LIMIT = 50
+    @@default_log_level = Logger::INFO
+    cattr_accessor :default_log_level
+
+    class << self
+      # TODO: unit test
+      def find(hostname, email=nil, password=nil, http=nil, &block)
+        site = self.new(hostname, email, password, http)
+        result = site.find(:all)
+        if block_given?
+          result.each do |post|
+            yield post
+          end
+        else
+          return result
+        end
+      end
+    end
+
+    def initialize(hostname, email=nil, password=nil, http = nil, logger = nil)
+      @hostname = hostname
+      @email = email
+      @password = password
+      @logger = logger || Logger.new(STDERR)
+      @logger.level = @@default_log_level
+      @conn = XMLConnection.new(http || @hostname, email, password, @logger)
+      @parser = XMLParser.new
+      self.site_info
+    end
+
+    # TODO: ここの再帰取得ロジックはTumblrAPIとは独立してるので
+    # TumblrAPIとは独立した形に切り出したり、TumblrAPIとは切り離してテストを書きたいものだ
+    # @param [Symbol|Integer] id_or_type :all, id
+    # @return [Array<Post>|Post]
+    def find(id_or_type, options = { })
+      params = { }
+      return result if options[:offset] && options[:offset].to_i < 0
+      [:type, :filter, :tagged, :search].each do |option|
+        params[option] = options[option] if options[option]
+      end
+
+      if id_or_type == :all
+        result = []
+        # 取得開始位置の初期化
+        params[:start] = options[:offset] || 0
+        # goal の設定
+        total = self.count(options)
+        if options[:limit]
+          goal = [total - params[:start],
+                  options[:limit] - params[:start]].min
+        else
+          goal = total - params[:start]
+        end
+        # 取得件数の初期化
+        if goal < 0
+          return result
+        elsif goal < API_READ_LIMIT
+          params[:num] = goal
+        else
+          params[:num] = API_READ_LIMIT # :num を指定しないとデフォルトでは20件しかとれない
+        end
+
+        loop do
+          xml = @conn.get(params)
+          posts, start, total = @parser.posts(xml)
+          @logger.info("size: #{posts.size}")
+          @logger.info("start: #{start}")
+          @logger.info("total: #{total}")
+          result += posts
+          if result.size >= goal || posts.size == 0
+            # Tumblr API の total で得られる値は全く信用ならない。
+            # 検索条件を考慮した件数を返してくれない。
+            # (つまり、goalは信用ならない)ので、posts.sizeも終了判定に利用する。
+            # TODO: もしくは:numの値を足し合わせていって、それとgoalを比較する？
+            break
+          end
+          # 取得開始位置の調整
+          params[:start] += params[:num]
+          # 取得件数の調整
+          if (goal - result.size) >= API_READ_LIMIT
+            params[:num] = API_READ_LIMIT
+          else
+            params[:num] = goal - result.size
+          end
+        end
+        return result
+      elsif id_or_type.kind_of?(Integer)
+        xml = @conn.get({:id => id_or_type})
+        posts, start, total = @parser.posts(xml)
+        @logger.info("size: #{posts.size}")
+        @logger.info("start: #{start}")
+        @logger.info("total: #{total}")
+        return posts[0]
+      else
+        raise ArgumentError
+      end
+    end
+
+    def count(options = { })
+      params = { }
+      [:id, :type, :filter, :tagged, :search].each do |option|
+        params[option] = options[option] if options[option]
+      end
+      params[:num] = 1
+      params[:start] = 0
+      xml = @conn.get(params)
+      posts, start, total = @parser.posts(xml)
+      return total
+    end
+
+    def site_info
+      xml = @conn.get(:num => 1)
+      @parser.siteinfo(self, xml)
+    end
+
+    def save(post)
+      post_id = @conn.write(post.params)
+      new_post = self.find(post_id)
+      return new_post
+    end
+
+  end
+
+  # Postおよびその子クラスは原則として単なるData Transfer Objectとし、
+  # 何かのロジックをこの中に実装はしない。
+  class Post
+    attr_accessor :post_id, # Integer
+    :url, # String
+    :url_with_slug, # String
+    :type, # String
+    :date_gmt,
+    :date,
+    :unix_timestamp, # Integer
+    :format, # String("html"|"markdown")
+    :tags, # Array<String>
+    :bookmarklet, # true|false
+    :private, # Integer(0|1)
+    :generator # String
+
+    @@default_generator = nil
+    cattr_accessor :default_generator
+
+    def initialize
+      @generator = @@default_generator || "Tumblr4R"
+      @tags = []
+    end
+
+    def params
+      {"type" => @type,
+        "generator" => @generator,
+        "date" => @date,
+        "private" => @private,
+        "tags" => @tags.join(","),
+        "format" => @format
+      }
+    end
+  end
+
+  class Regular < Post
+    attr_accessor :regular_title, :regular_body
+
+    def params
+      super.merge!({"title" => @regular_title, "body" => @regular_body })
+    end
+  end
+
+  # TODO: Feed の扱いをどうするか
+  class Feed < Post
+    attr_accessor  :regular_body, :feed_item, :from_feed_id
+    # TODO: titleのあるfeed itemってあるのか？
+  end
+
+  class Photo < Post
+    attr_accessor :photo_caption, :photo_link_url, :photo_url
+    #TODO: photo_url の max-width って何？
+    attr_accessor :data
+
+    # TODO: data をどうやってPOSTするか考える
+    # 生のデータを持たせるんじゃなく、TumblrPostDataみたいな
+    # クラスにラップして、それを各POSTのivarに保持させる？
+    def params
+      super.merge!(
+                   {"source" => @photo_url,
+                     "caption" => @photo_caption,
+                     "click-through-url" => @photo_link_url,
+                     "data" => @data})
+    end
+  end
+
+  class Quote < Post
+    attr_accessor :quote_text, :quote_source
+
+    def params
+      super.merge!(
+                   {"quote" => @quote_text,
+                     "source" => @quote_source})
+    end
+  end
+
+  class Link < Post
+    attr_accessor :link_text, :link_url, :link_description
+    def params
+      super.merge!(
+                   {"name" => @link_text,
+                     "url" => @link_url,
+                     "description" => @link_description})
+    end
+  end
+
+  class Chat < Post
+    attr_accessor :conversation_title, :conversation_text
+    # <conversation><line name="..." label="...">text</line>のリスト</conversation>
+
+    def params
+      super.merge!(
+                   {"title" => @conversation_title,
+                     "conversation" => @conversation_text})
+    end
+  end
+
+  class Audio < Post
+    attr_accessor :audio_plays, :audio_caption, :audio_player
+    attr_accessor :data
+
+    def params
+      super.merge!(
+                   {"data" => @data,
+                     "caption" => @audio_caption})
+    end
+  end
+
+  class Video < Post
+    attr_accessor :video_caption, :video_source, :video_player
+    attr_accessor :data, :title
+    # TODO: title は vimeo へのアップロードのときのみ有効らしい
+    # TODO: embed を使うか、アップロードしたdataを使うかってのは
+    # Tumblr側で勝手に判断されるのかなぁ？
+    def params
+      super.merge!(
+                   {"embed" => @video_source,
+                     "data" => @data,
+                     "title" => @title,
+                     "caption" => @video_caption})
+    end
+  end
+
+  # Tumblr XML API への薄いラッパー。
+  # Rubyオブジェクトからの変換やRubyオブジェクトへの変換などは
+  # Parserクラスで行う。Parserクラスへの依存関係は一切持たない。
+  class XMLConnection
+    attr_accessor :logger, :group, :authenticated
+    def initialize(http_or_hostname, email=nil, password=nil, logger = nil)
+      case http_or_hostname
+      when String
+        @conn = Net::HTTP.new(http_or_hostname)
+      when Net::HTTP
+        @conn = http_or_hostname
+      else
+        raise ArgumentError.new("http_or_hostname must be String or Net::HTTP")
+      end
+      @email= email
+      @password = password
+      if @email && @password
+        begin
+          @authenticated = authenticate
+        rescue TumblrError
+          @authenticated = false
+        end
+      end
+      @group = @conn.address
+      @logger = logger || Logger.new(STDERR)
+    end
+
+    # @param [Hash] options :id, :type, :filter, :tagged, :search, :start, :num
+    def get(options = { })
+      params = options.map{|k, v|
+        "#{k}=#{v}"
+      }.join("&")
+      req = "/api/read?#{params}"
+      logger.info(req)
+      res = @conn.get(req)
+      logger.debug(res.body)
+      case res
+      when Net::HTTPOK
+        return res.body
+      when Net::HTTPNotFound
+        raise TumblrError.new("no such site(#{@hostname})")
+      else
+        raise TumblrError.new("unexpected response #{res.inspect}")
+      end
+    end
+
+    # @return true if email and password are valid
+    # @raise TumblrError if email or password is invalid
+    def authenticate
+      response = nil
+      http = Net::HTTP.new("www.tumblr.com")
+      response = http.post('/api/authenticate',
+                           "email=#{CGI.escape(@email)}&password=#{CGI.escape(@password)}")
+
+      case response
+      when Net::HTTPOK
+        return true
+      else
+        raise TumblrError.new(response.inspect + "\n" + response.body)
+      end
+    end
+
+    # @return [Integer] post_id if success
+    # @raise [TumblrError] if fail
+    def write(options)
+      raise TumblrError.new("email or password is invalid") unless authenticated
+
+      response = nil
+      http = Net::HTTP.new("www.tumblr.com")
+      params = options.merge({"email" => @email, "password" => @password, "group" => @group})
+      query_string = params.delete_if{|k,v| v == nil }.map{|k,v| "#{k}=#{CGI.escape(v.to_s)}" unless v.nil?}.join("&")
+      logger.debug("#### query_string: #{query_string}")
+      response = http.post('/api/write', query_string)
+      case response
+      when Net::HTTPSuccess
+        return response.body.to_i
+      else
+        msg = response.inspect + "\n"
+        response.each{|k,v| msg += "#{k}: #{v}\n"}
+        msg += response.body
+        raise TumblrError.new(msg)
+      end
+    end
+
+    # @params [Integer] post_id
+    def delete(post_id)
+      raise TumblrError.new("email or password is invalid") unless authenticated
+      response = nil
+      http = Net::HTTP.new("www.tumblr.com")
+      params = {"post-id" => post_id, "email" => @email, "password" => @password, "group" => @group}
+      query_string = params.delete_if{|k,v| v == nil }.map{|k,v| "#{k}=#{CGI.escape(v.to_s)}" unless v.nil?}.join("&")
+      logger.debug("#### query_string: #{query_string}")
+      response = http.post('/api/delete', query_string)
+      case response
+      when Net::HTTPSuccess
+        logger.debug("#### response: #{response.code}: #{response.body}")
+        return true
+      else
+        msg = response.inspect + "\n"
+        response.each{|k,v| msg += "#{k}: #{v}\n"}
+        msg += response.body
+        raise TumblrError.new(msg)
+      end
+    end
+  end
+
+  # Tumblr XML API
+  class XMLParser
+    # @param [Site] site xmlをパースした結果を埋める入れ物
+    # @param [String] xml TumblrAPIのレスポンスのXMLそのまま
+    def siteinfo(site, xml)
+      xml_doc = REXML::Document.new(xml)
+      tumblelog = REXML::XPath.first(xml_doc, "//tumblr/tumblelog")
+      site.name = tumblelog.attributes["name"]
+      site.timezone = tumblelog.attributes["timezone"]
+      site.title = tumblelog.attributes["title"]
+      site.cname = tumblelog.attributes["cname"]
+      site.description = tumblelog.text
+      # tumblelog.elements["/feeds"]}
+      # TODO: feeds は後回し
+      return site
+    end
+
+    # XMLをパースしてオブジェクトのArrayを作る
+    # @param [String] xml APIからのレスポンス全体
+    # @return [Array<Post>, Integer, Integer] 各種Postの子クラスのArray, start, total
+    def posts(xml)
+      rexml_doc = REXML::Document.new(xml)
+      rexml_posts = REXML::XPath.first(rexml_doc, "//tumblr/posts")
+      start = rexml_posts.attributes["start"]
+      total = rexml_posts.attributes["total"]
+      posts = []
+      rexml_posts.elements.each("//posts/post") do |rexml_post|
+        post_type = rexml_post.attributes["type"]
+        post = nil
+        case post_type
+        when POST_TYPE::REGULAR
+          post = self.regular(Regular.new, rexml_post)
+        when POST_TYPE::PHOTO
+          post = self.photo(Photo.new, rexml_post)
+        when POST_TYPE::QUOTE
+          post = self.quote(Quote.new, rexml_post)
+        when POST_TYPE::LINK
+          post = self.link(Link.new, rexml_post)
+        when POST_TYPE::CHAT
+          post = self.chat(Chat.new, rexml_post)
+        when POST_TYPE::AUDIO
+          post = self.audio(Audio.new, rexml_post)
+        when POST_TYPE::VIDEO
+          post = self.video(Video.new, rexml_post)
+        else
+          raise TumblrError.new("unknown post type #{post_type}")
+        end
+        posts << post
+      end
+      return posts, start.to_i, total.to_i
+    end
+
+    # TODO: この辺りの設計についてはもう少し考慮の余地がある？
+    # みんな同じような構造(まずはpost(post, rexml_post)呼んでその後独自処理)してるし、
+    # 引数にpostとrexml_postをもらってくるってのもなんかイケてない気がする。
+    def post(post, rexml_post)
+      post.post_id = rexml_post.attributes["id"].to_i
+      post.url = rexml_post.attributes["url"]
+      post.url_with_slug = rexml_post.attributes["url-with-slug"]
+      post.type = rexml_post.attributes["type"]
+      # TODO: time 関係の型をStringじゃなくTimeとかにする？
+      post.date_gmt = rexml_post.attributes["date-gmt"]
+      post.date = rexml_post.attributes["date"]
+      post.unix_timestamp = rexml_post.attributes["unix-timestamp"].to_i
+      post.format = rexml_post.attributes["format"]
+      post.tags = rexml_post.get_elements("tag").map(&:text)
+      post.bookmarklet = (rexml_post.attributes["bookmarklet"] == "true")
+      post
+    end
+
+    def regular(post, rexml_post)
+      post = self.post(post, rexml_post)
+      post.regular_title = rexml_post.elements["regular-title"].try(:text) || ""
+      post.regular_body = rexml_post.elements["regular-body"].try(:text) || ""
+      post
+    end
+
+    def photo(post, rexml_post)
+      post = self.post(post, rexml_post)
+      post.type
+      post.photo_caption = rexml_post.elements["photo-caption"].try(:text) || ""
+      post.photo_link_url = rexml_post.elements["photo-link-url"].try(:text) || ""
+      post.photo_url = rexml_post.elements["photo-url"].try(:text) || ""
+      post
+    end
+
+    def quote(post, rexml_post)
+      post = self.post(post, rexml_post)
+      post.quote_text = rexml_post.elements["quote-text"].try(:text) || ""
+      post.quote_source = rexml_post.elements["quote-source"].try(:text) || ""
+      post
+    end
+
+    def link(post, rexml_post)
+      post = self.post(post, rexml_post)
+      post.link_text = rexml_post.elements["link-text"].try(:text) || ""
+      post.link_url = rexml_post.elements["link-url"].try(:text) || ""
+      post.link_description = rexml_post.elements["link-description"].try(:text) || ""
+      post
+    end
+
+    def chat(post, rexml_post)
+      post = self.post(post, rexml_post)
+      post.conversation_title = rexml_post.elements["conversation-title"].try(:text) || ""
+      post.conversation_text = rexml_post.elements["conversation-text"].try(:text) || ""
+      post
+    end
+
+    def audio(post, rexml_post)
+      post = self.post(post, rexml_post)
+      post.audio_plays = (rexml_post.attributes["audio-plays"] == "1")
+      post.audio_caption = rexml_post.elements["audio-caption"].try(:text) || ""
+      post.audio_player = rexml_post.elements["audio-player"].try(:text) || ""
+      post
+    end
+
+    def video(post, rexml_post)
+      post = self.post(post, rexml_post)
+      post.video_caption = rexml_post.elements["video-caption"].try(:text) || ""
+      post.video_source = rexml_post.elements["video-source"].try(:text) || ""
+      post.video_player = rexml_post.elements["video-player"].try(:text) || ""
+      post
+    end
+
+  end
+
+end # module

data/test/test_helper.rb

@@ -0,0 +1,3 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/tumblr4r'
+

data/test/tumblr4r_test.rb

@@ -0,0 +1,379 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+require "test/unit"
+require 'pit'
+class Tumblr4rTest < Test::Unit::TestCase
+  include Tumblr4r
+  READ_TEST_HOST = "tumblr4rtest.tumblr.com"
+  WRITE_TEST_HOST = "tumblr4rwritetest.tumblr.com"
+  TOTAL_COUNT = 114
+  QUOTE_COUNT = 102
+
+  def setup
+    @site = Site.new(READ_TEST_HOST)
+    writetest_conf = Pit.get("tumblr4rwritetest",
+                             :require => {"email" => "required email",
+                             "password" => "required password"})
+    @write_site = Site.new(WRITE_TEST_HOST,
+                           writetest_conf["email"],
+                           writetest_conf["password"])
+    @large_site = Site.new("tumblr4rfindtest.tumblr.com")
+  end
+
+  def teardown
+  end
+
+
+  def test_initialize
+    assert_equal READ_TEST_HOST, @site.hostname
+    assert_nil @site.email
+    assert_nil @site.password
+
+    assert_equal "tumblr4rtest", @site.name
+    assert_equal "Asia/Tokyo", @site.timezone
+    assert_equal "tumblr4rテスト", @site.title
+    assert_nil @site.cname
+    assert_equal "tumblr4rのテスト用サイトです。\r\ntumblrサイコー", @site.description
+    # TODO: feeds は後回し
+  end
+
+  def test_count
+    total = @large_site.count
+    assert_equal TOTAL_COUNT, total
+
+    total = @large_site.count(:type => "quote")
+    assert_equal QUOTE_COUNT, total
+
+    total = @large_site.count(:filter => "text")
+    assert_equal TOTAL_COUNT, total
+
+    total = @large_site.count(:tagged => "test")
+    assert_equal TOTAL_COUNT, total
+
+    total = @large_site.count(:search => "test")
+    assert_equal TOTAL_COUNT, total
+  end
+
+  def test_find
+    posts = @site.find(:all)
+    assert_equal 8, posts.size
+    assert_equal Video, posts[0].class
+  end
+
+  def test_find_all
+    posts = @large_site.find(:all)
+    assert_equal TOTAL_COUNT, posts.size
+  end
+
+  def test_find_all_quote
+    posts = @large_site.find(:all, :type => "quote")
+    assert_equal QUOTE_COUNT, posts.size
+  end
+
+  # 実際に存在する件数より少なく指定した場合
+  def test_find_all_with_num
+    posts = @large_site.find(:all, :limit => 74)
+    assert_equal 74, posts.size
+  end
+
+  # 実際に存在する件数より多く指定した場合
+  def test_find_all_with_over_num
+    posts = @large_site.find(:all, :limit => 765)
+    assert_equal TOTAL_COUNT, posts.size
+  end
+
+  def test_find_all_with_offset
+    posts = @large_site.find(:all, :offset => 12)
+    assert_equal TOTAL_COUNT-12, posts.size
+  end
+
+  # 実際に存在するよりも多いoffsetを指定した場合
+  def test_find_all_over_offset
+    posts = @large_site.find(:all, :type => "quote", :offset => TOTAL_COUNT + 1)
+    assert_equal 0, posts.size
+  end
+
+  def test_find_with_type_regular
+    posts = @site.find(:all, :type => "regular")
+    assert_equal 2, posts.size
+
+    assert_equal Regular, posts[0].class
+    assert_equal 123459291, posts[0].post_id
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123459291", posts[0].url
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123459291/regular-test", posts[0].url_with_slug
+    assert_equal "regular", posts[0].type
+    assert_equal "2009-06-14 16:30:44 GMT", posts[0].date_gmt
+    assert_equal "Mon, 15 Jun 2009 01:30:44", posts[0].date
+    assert_equal 1244997044, posts[0].unix_timestamp
+    assert_equal "html", posts[0].format
+    assert_equal ["test", "regular"], posts[0].tags
+    assert_equal false, posts[0].bookmarklet
+
+    assert_equal "Text Postのテストです", posts[0].regular_title
+    assert_equal <<EOF.chomp, posts[0].regular_body
+<p>テキストです。</p>
+<p><b>ボールドです。</b></p>
+<p><i>イタリックです。</i></p>
+<p><strike>取り消し線です。</strike></p>
+<ul>
+<li>unordered 1</li>
+<li>unordered 2</li>
+</ul>
+<ol>
+<li>ordered 1</li>
+<li>ordered 2</li>
+</ol>
+<p>ここからインデント</p>
+<blockquote style="margin: 0 0 0 40px; border: none; padding: 0px;">インデント開始<br/>ああああ<br/>インデント終了</blockquote>
+<p>ここまでインデント</p>
+EOF
+
+    assert_equal Regular, posts[1].class
+    assert_equal 122871637, posts[1].post_id
+    assert_equal "http://tumblr4rtest.tumblr.com/post/122871637", posts[1].url
+    assert_equal "http://tumblr4rtest.tumblr.com/post/122871637/tumblr4r", posts[1].url_with_slug
+    assert_equal "regular", posts[1].type
+    assert_equal "2009-06-13 12:46:23 GMT", posts[1].date_gmt
+    assert_equal "Sat, 13 Jun 2009 21:46:23", posts[1].date
+    assert_equal 1244897183, posts[1].unix_timestamp
+    assert_equal "html", posts[1].format
+    assert_equal [], posts[1].tags
+    assert_equal false, posts[1].bookmarklet
+
+    assert_equal "", posts[1].regular_title
+    assert_equal "Tumblr4rのテストです", posts[1].regular_body
+  end
+
+  def test_find_with_type_photo
+    posts = @site.find(:all, :type => "photo")
+    assert_equal 1, posts.size
+    assert_equal Photo, posts[0].class
+    assert_equal 123461063, posts[0].post_id
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123461063", posts[0].url
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123461063/photo", posts[0].url_with_slug
+    assert_equal "photo", posts[0].type
+    assert_equal "2009-06-14 16:34:50 GMT", posts[0].date_gmt
+    assert_equal "Mon, 15 Jun 2009 01:34:50", posts[0].date
+    assert_equal 1244997290, posts[0].unix_timestamp
+    assert_equal "html", posts[0].format
+    assert_equal ["test", "photo"], posts[0].tags
+    assert_equal false, posts[0].bookmarklet
+
+    assert_equal "<p>Photoのテストです。</p>\n\n<p>ギコです。</p>", posts[0].photo_caption
+    assert_equal "http://www.google.co.jp/", posts[0].photo_link_url
+    assert_equal "http://5.media.tumblr.com/GyEYZujUYopiula4XKmXhCgmo1_250.jpg", posts[0].photo_url
+  end
+
+  def test_find_with_type_quote
+    posts = @site.find(:all, :type => "quote")
+    assert_equal 1, posts.size
+    assert_equal Quote, posts[0].class
+    assert_equal 123470309, posts[0].post_id
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123470309", posts[0].url
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123470309/wikipedia-tumblr", posts[0].url_with_slug
+    assert_equal "quote", posts[0].type
+    assert_equal "2009-06-14 16:58:00 GMT", posts[0].date_gmt
+    assert_equal "Mon, 15 Jun 2009 01:58:00", posts[0].date
+    assert_equal 1244998680, posts[0].unix_timestamp
+    assert_equal "html", posts[0].format
+    assert_equal ["quote", "test"], posts[0].tags
+    assert_equal true, posts[0].bookmarklet
+
+    assert_equal <<EOF.chomp, posts[0].quote_text
+Tumblelog/Tumblr（タンブルログ/タンブラー）は、メディアミックスウェブログサービス。米国 Davidville.incにより2007年3月1日にサービスが開始された。
+EOF
+    assert_equal "<a href=\"http://ja.wikipedia.org/wiki/Tumblr\">Tumblelog - Wikipedia</a>", posts[0].quote_source
+  end
+
+  def test_find_with_type_link
+    posts = @site.find(:all, :type => "link")
+    assert_equal 1, posts.size
+    assert_equal Link, posts[0].class
+    assert_equal 123470990, posts[0].post_id
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123470990", posts[0].url
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123470990/tumblr-link", posts[0].url_with_slug
+    assert_equal "link", posts[0].type
+    assert_equal "2009-06-14 17:00:00 GMT", posts[0].date_gmt
+    assert_equal "Mon, 15 Jun 2009 02:00:00", posts[0].date
+    assert_equal 1244998800, posts[0].unix_timestamp
+    assert_equal "html", posts[0].format
+    assert_equal ["test", "link"], posts[0].tags
+    assert_equal false, posts[0].bookmarklet
+
+    assert_equal "たんぶらー", posts[0].link_text
+    assert_equal "http://www.tumblr.com/", posts[0].link_url
+    assert_equal "ですくりぷしょん", posts[0].link_description
+  end
+
+  def test_find_with_type_conversation
+    posts = @site.find(:all, :type => "conversation")
+    assert_equal 1, posts.size
+    assert_equal Chat, posts[0].class
+    assert_equal 123471808, posts[0].post_id
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123471808", posts[0].url
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123471808/pointcard-chat", posts[0].url_with_slug
+    assert_equal "conversation", posts[0].type
+    assert_equal "2009-06-14 17:01:54 GMT", posts[0].date_gmt
+    assert_equal "Mon, 15 Jun 2009 02:01:54", posts[0].date
+    assert_equal 1244998914, posts[0].unix_timestamp
+    assert_equal "html", posts[0].format
+    assert_equal ["test", "chat"], posts[0].tags
+    assert_equal false, posts[0].bookmarklet
+
+    assert_equal "なにそれこわい", posts[0].conversation_title
+    assert_equal <<EOF.chomp, posts[0].conversation_text
+店員: 当店のポイントカードはお餅でしょうか\r
+ぼく: えっ\r
+店員: 当店のポイントカードはお餅ですか \r
+ぼく: いえしりません\r
+店員: えっ\r
+ぼく: えっ\r
+EOF
+  end
+
+  def test_find_with_type_audio
+    posts = @site.find(:all, :type => "audio")
+    assert_equal 1, posts.size
+    assert_equal Audio, posts[0].class
+    assert_equal 131705561, posts[0].post_id
+    assert_equal "http://tumblr4rtest.tumblr.com/post/131705561", posts[0].url
+    assert_equal "http://tumblr4rtest.tumblr.com/post/131705561/tumblr4r-miku", posts[0].url_with_slug
+    assert_equal "audio", posts[0].type
+    assert_equal "2009-06-28 13:58:13 GMT", posts[0].date_gmt
+    assert_equal "Sun, 28 Jun 2009 22:58:13", posts[0].date
+    assert_equal 1246197493, posts[0].unix_timestamp
+    assert_equal "html", posts[0].format
+    assert_equal [], posts[0].tags
+    assert_equal false, posts[0].bookmarklet
+
+    assert_equal true, posts[0].audio_plays
+    assert_equal "tumblr4r miku", posts[0].audio_caption
+    assert_equal "<embed type=\"application/x-shockwave-flash\" src=\"http://tumblr4rtest.tumblr.com/swf/audio_player.swf?audio_file=http://www.tumblr.com/audio_file/131705561/GyEYZujUYp9df3nv1WMefTH8&color=FFFFFF\" height=\"27\" width=\"207\" quality=\"best\"></embed>", posts[0].audio_player
+  end
+
+  def test_find_with_type_video
+    posts = @site.find(:all, :type => "video")
+    assert_equal 1, posts.size
+    assert_equal Video, posts[0].class
+    assert_equal 131714219, posts[0].post_id
+    assert_equal "http://tumblr4rtest.tumblr.com/post/131714219", posts[0].url
+    assert_equal "http://tumblr4rtest.tumblr.com/post/131714219/matrix-sappoloaded", posts[0].url_with_slug
+    assert_equal "video", posts[0].type
+    assert_equal "2009-06-28 14:22:56 GMT", posts[0].date_gmt
+    assert_equal "Sun, 28 Jun 2009 23:22:56", posts[0].date
+    assert_equal 1246198976, posts[0].unix_timestamp
+    assert_equal "html", posts[0].format
+    assert_equal [], posts[0].tags
+    assert_equal false, posts[0].bookmarklet
+
+    assert_equal "matrix sappoloaded", posts[0].video_caption
+    assert_equal "http://www.youtube.com/watch?v=FavWH5RhYpw", posts[0].video_source
+    assert_equal "<object width=\"400\" height=\"336\"><param name=\"movie\" value=\"http://www.youtube.com/v/FavWH5RhYpw&amp;rel=0&amp;egm=0&amp;showinfo=0&amp;fs=1\"></param><param name=\"wmode\" value=\"transparent\"></param><param name=\"allowFullScreen\" value=\"true\"></param><embed src=\"http://www.youtube.com/v/FavWH5RhYpw&amp;rel=0&amp;egm=0&amp;showinfo=0&amp;fs=1\" type=\"application/x-shockwave-flash\" width=\"400\" height=\"336\" allowFullScreen=\"true\" wmode=\"transparent\"></embed></object>", posts[0].video_player
+  end
+
+  def test_find_with_tagged
+    posts = @site.find(:all, :tagged => "test")
+    assert_equal 5, posts.size
+  end
+
+  def test_find_with_search
+    posts = @site.find(:all, :search => "matrix")
+    assert_equal 1, posts.size
+  end
+
+  def test_generator_default
+    post = Post.new
+    assert_equal "Tumblr4R", post.generator
+
+    Post.default_generator = "foo"
+    post2 = Post.new
+    assert_equal "foo", post2.generator
+    assert_equal "Tumblr4R", post.generator
+
+
+    Post.default_generator = nil
+    post3 = Post.new
+    assert_equal "Tumblr4R", post3.generator
+  end
+
+  def test_find_by_id
+    post = @site.find(123459291)
+
+    assert_equal Regular, post.class
+    assert_equal 123459291, post.post_id
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123459291", post.url
+    assert_equal "http://tumblr4rtest.tumblr.com/post/123459291/regular-test", post.url_with_slug
+    assert_equal "regular", post.type
+    assert_equal "2009-06-14 16:30:44 GMT", post.date_gmt
+    assert_equal "Mon, 15 Jun 2009 01:30:44", post.date
+    assert_equal 1244997044, post.unix_timestamp
+    assert_equal "html", post.format
+    assert_equal ["test", "regular"], post.tags
+    assert_equal false, post.bookmarklet
+
+    assert_equal "Text Postのテストです", post.regular_title
+    assert_equal <<EOF.chomp, post.regular_body
+<p>テキストです。</p>
+<p><b>ボールドです。</b></p>
+<p><i>イタリックです。</i></p>
+<p><strike>取り消し線です。</strike></p>
+<ul>
+<li>unordered 1</li>
+<li>unordered 2</li>
+</ul>
+<ol>
+<li>ordered 1</li>
+<li>ordered 2</li>
+</ol>
+<p>ここからインデント</p>
+<blockquote style="margin: 0 0 0 40px; border: none; padding: 0px;">インデント開始<br/>ああああ<br/>インデント終了</blockquote>
+<p>ここまでインデント</p>
+EOF
+  end
+
+  def test_quote_create
+    quotes = @site.find(:all, :type => Tumblr4r::POST_TYPE::QUOTE)
+    post = @write_site.save(quotes[0])
+    assert_not_equal quotes[0].post_id, post.post_id
+    assert_equal "http://#{WRITE_TEST_HOST}/post/#{post.post_id}", post.url
+    assert_equal "http://#{WRITE_TEST_HOST}/post/#{post.post_id}/tumblelog-tumblr", post.url_with_slug
+    assert_equal Tumblr4r::POST_TYPE::QUOTE, post.type
+    assert_equal quotes[0].date_gmt, post.date_gmt
+    assert_equal quotes[0].date, post.date
+    # TODO
+#    assert_equal 1245045480, post.unix_timestamp
+    assert_equal quotes[0].format, post.format
+    assert_equal quotes[0].tags, post.tags
+    assert_equal false, post.bookmarklet
+
+    assert_equal quotes[0].quote_text, post.quote_text
+    assert_equal quotes[0].quote_source, post.quote_source
+  end
+
+  def test_regular_create
+    regulars = @site.find(:all, :type => Tumblr4r::POST_TYPE::REGULAR)
+    post = @write_site.save(regulars[0])
+  end
+
+  def test_link_create
+    links = @site.find(:all, :type => Tumblr4r::POST_TYPE::LINK)
+    post = @write_site.save(links[0])
+  end
+
+  def test_photo_create
+    photos = @site.find(:all, :type => Tumblr4r::POST_TYPE::PHOTO)
+    post = @write_site.save(photos[0])
+  end
+
+
+#  def test_audio_create
+#    audios = @site.find(:all, :type => Tumblr4r::POST_TYPE::AUDIO)
+#    post = @write_site.save(audios[0])
+#  end
+
+  def test_video_create
+    videos = @site.find(:all, :type => Tumblr4r::POST_TYPE::VIDEO)
+    post = @write_site.save(videos[0])
+  end
+
+end
+

metadata

@@ -0,0 +1,89 @@
+--- !ruby/object:Gem::Specification 
+name: tumblr4r
+version: !ruby/object:Gem::Version 
+  version: 0.7.0
+platform: ruby
+authors: 
+- Tomoki MAEDA
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-09-09 00:00:00 +09:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: activesupport
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.3.2
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: pit
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.0.6
+    version: 
+description: Tumblr API Wrapper for Ruby
+email: tmaeda@ruby-sapporo.org
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+- ChangeLog
+files: 
+- README
+- ChangeLog
+- Rakefile
+- test/test_helper.rb
+- test/tumblr4r_test.rb
+- lib/tumblr4r.rb
+has_rdoc: true
+homepage: http://tumblr4r.rubyforge.org
+post_install_message: 
+rdoc_options: 
+- --title
+- tumblr4r documentation
+- --charset
+- utf-8
+- --opname
+- index.html
+- --line-numbers
+- --main
+- README
+- --inline-source
+- --exclude
+- ^(examples|extras)/
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.8.6
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: tumblr4r
+rubygems_version: 1.3.1
+signing_key: 
+specification_version: 2
+summary: Tumblr API Wrapper for Ruby
+test_files: 
+- test/tumblr4r_test.rb