Some actual tests for the bot response logic

This commit is contained in:
Jaiden Mispy 2014-11-15 03:55:32 +11:00
parent 746d218896
commit 5bfaac99de
4 changed files with 276 additions and 135 deletions

View file

@ -21,9 +21,9 @@ module Ebooks
@config[:consumer_key] = STDIN.gets.chomp
print "Consumer secret: "
@config[:consumer_secret] = STDIN.gets.chomp
print "Oauth token: "
print "Access token: "
@config[:oauth_token] = STDIN.gets.chomp
print "Oauth secret: "
print "Access secret: "
@config[:oauth_token_secret] = STDIN.gets.chomp
File.open(CONFIG_PATH, 'w') do |f|
@ -34,8 +34,8 @@ module Ebooks
Twitter::REST::Client.new do |config|
config.consumer_key = @config[:consumer_key]
config.consumer_secret = @config[:consumer_secret]
config.oauth_token = @config[:oauth_token]
config.oauth_token_secret = @config[:oauth_token_secret]
config.access_token = @config[:oauth_token]
config.access_token_secret = @config[:oauth_token_secret]
end
end

View file

@ -4,56 +4,70 @@ require 'twitter'
require 'rufus/scheduler'
require 'eventmachine'
# Wrap SSLSocket so that readpartial yields the fiber instead of
# blocking when there is no data
#
# We hand this to the twitter library so we can select on the sockets
# and thus run multiple streams without them blocking
class FiberSSLSocket
def initialize(*args)
@socket = OpenSSL::SSL::SSLSocket.new(*args)
end
def readpartial(maxlen)
data = ""
loop do
begin
data = @socket.read_nonblock(maxlen)
rescue IO::WaitReadable
end
break if data.length > 0
Fiber.yield(@socket)
module Ebooks
# Wrap SSLSocket so that readpartial yields the fiber instead of
# blocking when there is no data
#
# We hand this to the twitter library so we can select on the sockets
# and thus run multiple streams without them blocking
class FiberSSLSocket
def initialize(*args)
@socket = OpenSSL::SSL::SSLSocket.new(*args)
end
data
def readpartial(maxlen)
data = ""
loop do
begin
data = @socket.read_nonblock(maxlen)
rescue IO::WaitReadable
end
break if data.length > 0
Fiber.yield(@socket)
end
data
end
def method_missing(m, *args)
@socket.send(m, *args)
end
end
def method_missing(m, *args)
@socket.send(m, *args)
end
end
# An EventMachine handler which resumes a fiber on incoming data
class FiberSocketHandler < EventMachine::Connection
def initialize(fiber)
@fiber = fiber
end
# An EventMachine handler which resumes a fiber on incoming data
class FiberSocketHandler < EventMachine::Connection
def initialize(fiber)
@fiber = fiber
def notify_readable
@fiber.resume
end
end
def notify_readable
@fiber.resume
class ConfigurationError < Exception
end
# UserInfo tracks some meta information for how much
# we've interacted with a user, and how much they've responded
class UserInfo
attr_accessor :times_bugged, :times_responded
def initialize
self.times_bugged = 0
self.times_responded = 0
end
end
end
module Ebooks
class Bot
attr_accessor :consumer_key, :consumer_secret,
:oauth_token, :oauth_token_secret
attr_accessor :username
:access_token, :access_token_secret
attr_reader :twitter, :stream
# Configuration
attr_accessor :username, :delay_range, :blacklist
@@all = [] # List of all defined bots
def self.all; @@all; end
@ -61,114 +75,128 @@ module Ebooks
all.find { |bot| bot.username == name }
end
def initialize(username, &b)
# Set defaults
@username = username
# Override with callback
b.call(self)
Bot.all.push(self)
end
def log(*args)
STDOUT.puts "@#{@username}: " + args.map(&:to_s).join(' ')
STDOUT.flush
end
def configure
def initialize
@username ||= nil
@blacklist ||= []
@delay_range ||= 0
@users ||= {}
configure
end
def make_client
@twitter = Twitter::REST::Client.new do |config|
config.consumer_key = @consumer_key
config.consumer_secret = @consumer_secret
config.access_token = @oauth_token
config.access_token_secret = @oauth_token_secret
config.access_token = @access_token
config.access_token_secret = @access_token_secret
end
needs_stream = [@on_follow, @on_message, @on_mention, @on_timeline].any? {|e| !e.nil?}
@stream = Twitter::Streaming::Client.new(
ssl_socket_class: FiberSSLSocket
) do |config|
config.consumer_key = @consumer_key
config.consumer_secret = @consumer_secret
config.access_token = @access_token
config.access_token_secret = @access_token_secret
end
end
if needs_stream
@stream = Twitter::Streaming::Client.new(
ssl_socket_class: FiberSSLSocket
) do |config|
config.consumer_key = @consumer_key
config.consumer_secret = @consumer_secret
config.access_token = @oauth_token
config.access_token_secret = @oauth_token_secret
# Calculate some meta information about a tweet relevant for replying
def calc_meta(ev)
meta = {}
meta[:mentions] = ev.attrs[:entities][:user_mentions].map { |x| x[:screen_name] }
reply_mentions = meta[:mentions].reject { |m| m.downcase == @username.downcase }
reply_mentions = [ev.user.screen_name] + reply_mentions
# Don't reply to more than three users at a time
if reply_mentions.length > 3
log "Truncating reply_mentions to the first three users"
reply_mentions = reply_mentions[0..2]
end
meta[:reply_prefix] = reply_mentions.uniq.map { |m| '@'+m }.join(' ') + ' '
meta[:limit] = 140 - meta[:reply_prefix].length
meta
end
# Receive an event from the twitter stream
def receive_event(ev)
if ev.is_a? Array # Initial array sent on first connection
log "Online!"
return
end
if ev.is_a? Twitter::DirectMessage
return if ev.sender.screen_name == @username # Don't reply to self
log "DM from @#{ev.sender.screen_name}: #{ev.text}"
fire(:direct_message, ev)
elsif ev.respond_to?(:name) && ev.name == :follow
return if ev.source.screen_name == @username
log "Followed by #{ev.source.screen_name}"
fire(:follow, ev.source)
elsif ev.is_a? Twitter::Tweet
return unless ev.text # If it's not a text-containing tweet, ignore it
return if ev.user.screen_name == @username # Ignore our own tweets
meta = calc_meta(ev)
mless = ev.text
begin
ev.attrs[:entities][:user_mentions].reverse.each do |entity|
last = mless[entity[:indices][1]..-1]||''
mless = mless[0...entity[:indices][0]] + last.strip
end
rescue Exception
p ev.attrs[:entities][:user_mentions]
p ev.text
raise
end
meta[:mentionless] = mless
# To check if this is a mention, ensure:
# - The tweet mentions list contains our username
# - The tweet is not being retweeted by somebody else
# - Or soft-retweeted by somebody else
if meta[:mentions].map(&:downcase).include?(@username.downcase) && !ev.retweeted_status? && !ev.text.start_with?('RT ')
log "Mention from @#{ev.user.screen_name}: #{ev.text}"
fire(:mention, ev, meta)
else
fire(:timeline, ev, meta)
end
elsif ev.is_a? Twitter::Streaming::DeletedTweet
# pass
else
log ev
end
end
def start_stream
log "starting stream for #@username"
@stream.before_request do
log "Online!"
end
@stream.user do |ev|
p ev
if ev.is_a? Twitter::DirectMessage
next if ev.sender.screen_name == @username # Don't reply to self
log "DM from @#{ev.sender.screen_name}: #{ev.text}"
@on_message.call(ev) if @on_message
elsif ev.respond_to?(:name) && ev.name == :follow
next if ev.source.screen_name == @username
log "Followed by #{ev.source.screen_name}"
@on_follow.call(ev.source) if @on_follow
elsif ev.is_a? Twitter::Tweet
next unless ev.text # If it's not a text-containing tweet, ignore it
next if ev.user.screen_name == @username # Ignore our own tweets
meta = {}
mentions = ev.attrs[:entities][:user_mentions].map { |x| x[:screen_name] }
reply_mentions = mentions.reject { |m| m.downcase == @username.downcase }
reply_mentions = [ev.user.screen_name] + reply_mentions
meta[:reply_prefix] = reply_mentions.uniq.map { |m| '@'+m }.join(' ') + ' '
meta[:limit] = 140 - meta[:reply_prefix].length
mless = ev.text
begin
ev.attrs[:entities][:user_mentions].reverse.each do |entity|
last = mless[entity[:indices][1]..-1]||''
mless = mless[0...entity[:indices][0]] + last.strip
end
rescue Exception
p ev.attrs[:entities][:user_mentions]
p ev.text
raise
end
meta[:mentionless] = mless
# To check if this is a mention, ensure:
# - The tweet mentions list contains our username
# - The tweet is not being retweeted by somebody else
# - Or soft-retweeted by somebody else
if mentions.map(&:downcase).include?(@username.downcase) && !ev.retweeted_status? && !ev.text.start_with?('RT ')
log "Mention from @#{ev.user.screen_name}: #{ev.text}"
@on_mention.call(ev, meta) if @on_mention
else
@on_timeline.call(ev, meta) if @on_timeline
end
else
log "Unsure how to handle event: ", ev
end
receive_event ev
end
end
# Connects to tweetstream and opens event handlers for this bot
def start
configure
@on_startup.call if @on_startup
if not @stream
log "not bothering with stream for #@username"
return
# Sanity check
if @username.nil?
raise ConfigurationError, "bot.username cannot be nil"
end
make_client
fire(:startup)
fiber = Fiber.new do
start_stream
end
@ -179,35 +207,74 @@ module Ebooks
conn.notify_readable = true
end
# Fire an event
def fire(event, *args)
handler = "on_#{event}".to_sym
if respond_to? handler
self.send(handler, *args)
end
end
# Wrapper for EM.add_timer
# Delays add a greater sense of humanity to bot behaviour
def delay(time, &b)
time = time.to_a.sample unless time.is_a? Integer
def delay(&b)
time = @delay.to_a.sample unless @delay.is_a? Integer
EM.add_timer(time, &b)
end
def blacklisted?(username)
if @blacklist.include?(username)
log "Saw scary blacklisted user @#{username}"
true
else
false
end
end
# Reply to a tweet or a DM.
# Applies configurable @reply_delay range
def reply(ev, text, opts={})
opts = opts.clone
if ev.is_a? Twitter::DirectMessage
return if blacklisted?(ev.sender.screen_name)
log "Sending DM to @#{ev.sender.screen_name}: #{text}"
@twitter.create_direct_message(ev.sender.screen_name, text, opts)
elsif ev.is_a? Twitter::Tweet
meta = calc_meta(ev)
return if blacklisted?(ev.user.screen_name)
log "Replying to @#{ev.user.screen_name} with: #{text}"
@twitter.update(text, in_reply_to_status_id: ev.id)
@twitter.update(meta[:reply_prefix] + text, in_reply_to_status_id: ev.id)
else
raise Exception("Don't know how to reply to a #{ev.class}")
end
end
def scheduler
@scheduler ||= Rufus::Scheduler.new
def favorite(tweet)
return if blacklisted?(tweet.user.screen_name)
log "Favoriting @#{tweet.user.screen_name}: #{tweet.text}"
begin
@twitter.favorite(tweet.id)
rescue Twitter::Error::Forbidden
log "Already favorited: #{tweet.user.screen_name}: #{tweet.text}"
end
end
def retweet(tweet)
return if blacklisted?(tweet.user.screen_name)
log "Retweeting @#{tweet.user.screen_name}: #{tweet.text}"
begin
@twitter.retweet(tweet.id)
rescue Twitter::Error::Forbidden
log "Already retweeted: #{tweet.user.screen_name}: #{tweet.text}"
end
end
def follow(*args)
log "Following #{args}"
@twitter.follow(*args)
end
@ -216,16 +283,14 @@ module Ebooks
@twitter.update(*args)
end
def scheduler
@scheduler ||= Rufus::Scheduler.new
end
# could easily just be *args however the separation keeps it clean.
def pictweet(txt, pic, *args)
log "Tweeting #{txt.inspect} - #{pic} #{args}"
@twitter.update_with_media(txt, File.new(pic), *args)
end
def on_startup(&b); @on_startup = b; end
def on_follow(&b); @on_follow = b; end
def on_mention(&b); @on_mention = b; end
def on_timeline(&b); @on_timeline = b; end
def on_message(&b); @on_message = b; end
end
end

75
spec/bot_spec.rb Normal file
View file

@ -0,0 +1,75 @@
require 'spec_helper'
require 'memory_profiler'
require 'tempfile'
def Process.rss; `ps -o rss= -p #{Process.pid}`.chomp.to_i; end
class TestBot < Ebooks::Bot
attr_accessor :twitter
def configure
self.username = "test_ebooks"
end
def on_direct_message(dm)
reply dm, "echo: #{dm.text}"
end
def on_mention(tweet, meta)
reply tweet, "echo: #{meta[:mentionless]}"
end
def on_timeline(tweet, meta)
reply tweet, "fine tweet good sir"
end
end
def twitter_id
533295311591337984
end
def mock_dm(username, text)
Twitter::DirectMessage.new(id: twitter_id,
sender: { id: twitter_id, screen_name: username},
text: text)
end
def mock_tweet(username, text)
mentions = text.split.find_all { |x| x.start_with?('@') }
Twitter::Tweet.new(
id: twitter_id,
user: { id: twitter_id, screen_name: username },
text: text,
entities: {
user_mentions: mentions.map { |m|
{ screen_name: m.split('@')[1],
indices: [text.index(m), text.index(m)+m.length] }
}
}
)
end
describe Ebooks::Bot do
let(:bot) { TestBot.new }
it "responds to dms" do
bot.twitter = double("twitter")
expect(bot.twitter).to receive(:create_direct_message).with("m1sp", "echo: this is a dm", {})
bot.receive_event(mock_dm("m1sp", "this is a dm"))
end
it "responds to mentions" do
bot.twitter = double("twitter")
expect(bot.twitter).to receive(:update).with("@m1sp echo: this is a mention",
in_reply_to_status_id: twitter_id)
bot.receive_event(mock_tweet("m1sp", "@test_ebooks this is a mention"))
end
it "responds to timeline tweets" do
bot.twitter = double("twitter")
expect(bot.twitter).to receive(:update).with("@m1sp fine tweet good sir",
in_reply_to_status_id: twitter_id)
bot.receive_event(mock_tweet("m1sp", "some excellent tweet"))
end
end

View file

@ -16,12 +16,13 @@ Gem::Specification.new do |gem|
gem.version = Ebooks::VERSION
gem.add_development_dependency 'rspec'
gem.add_development_dependency 'rspec-mocks'
gem.add_development_dependency 'memory_profiler'
gem.add_development_dependency 'pry-byebug'
gem.add_runtime_dependency 'twitter', '~> 5.0'
gem.add_runtime_dependency 'simple_oauth', '~> 0.2.0'
gem.add_runtime_dependency 'tweetstream'
gem.add_runtime_dependency 'eventmachine', '~> 1.0.3'
gem.add_runtime_dependency 'rufus-scheduler'
gem.add_runtime_dependency 'gingerice'
gem.add_runtime_dependency 'htmlentities'