角谷HTML化計画(2007-09-01)

«前の日記(2007-08-28(Tue)) 最新次の日記(2007-09-07(Fri))»

2007-09-01(Sat) [長年日記]

■1 XP祭り2007でドリームチームの一員として参加

心身ともに絶不調。咳さんとペアプロということで朝から緊張し通し。はじまってからは緊張しすぎてもはや狼狽の域に。気持ちばかり焦る。全然手が動かない。もうだめ。

「落ち着け・・・心を平静にして考えるんだ・・・こんな時どうするか・・・落ち着くんだ・・『テスト』を書いて落ち着くんだ・・・『テスト』はテストに失敗した場合にしか『プロダクトコード』を書いてはいけないプログラマの偉大な習慣・・・わたしに勇気を与えてくれる」

レッド。グリーン。リファクタ。レッド。グリーン。リファクタ。レッド。グリーン。リファクタ。

ディレクトリ構造

+ lib/
+-- chatdb.rb
+ spec/
+-- chatdb_spec.rb
+-- spec.opts
+ spec_helper.rb

chatdb_spec.rb

require File.dirname(__FILE__) + '/../spec_helper'

describe ChatDb do
  before do
    @db = ChatDb.new
  end

  it {
    @db.add("kakutani", "Hello")
    @db.add("m_seki", "druby")
    @db.head.collect do |x|
      x[1]
    end.should == ["druby", "Hello"]
  }

end

大したことのない殴り書きのテストたが、このおかげで咳さんと認識に自分の気持ちを追いつかせることができた。

chatdb.rb

class ChatLeaf
  attr_accessor :author, :text, :time
  def initialize(author, text)
    @author, @text, @time = author, text, Time.now
  end

  def to_a
    [@author, @text, @time]
  end
end

class ChatDb
  def initialize
    @strage = []
  end

  def add(author, text)
    @strage.unshift(ChatLeaf.new(author, text));nil
  end

  def head(size=10)
    @strage.first(size).collect { |e| e.to_a}
  end

end

if $0 == __FILE__
  require 'drb/drb'
  DRb.start_service('druby://:12345', ChatDb.new)
  gets
end

劣化したサンプルみたいなコードだ……。咳さんお付き合いありがとうございました。

使いかた

まずchatdbを起動させます。

$ ruby chatdb.rb

何にも表示されません。別コンソールでchatクライアントを起動させます。

$ irb --simple-prompt -rdrb/drb
>> c = DRbObject.new_with_uri('druby://localhost:12345')
=> #<DRb::DRbObject:0x10a0504 @ref=nil, @uri="druby://localhost:12345">
>> c.add('kakutani', 'Hello, ChatDb')
=> nil
>> c.head.add('kakutani', 'dRuby is awesome!"))
=> nil
>> c.head.each {|author,text,time| p "(#{time.strftime('%H:%M:%S')})[#{author}] #{text}"};nil
"(11:16:35)[kakutani] dRuby is awesome!"
"(11:16:26)[kakutani] Hello, Chatdb"
 => nil

ChatDb#headでせっかく取得したChatLeafにto_aしているのは、CGIは咳さんのMacで動かしていたので、ChatDb関連クラスを配布するのが面倒だったから。私の環境がqdbmをちゃんと動かせる状態になっておらず、永続化までやれませんでした。準備重要。