Auto 4.0.0.alpha.1-x86-mingw32

data/lib/auto/rubyext/integer.rb

@@ -0,0 +1,25 @@
+# This code exists in the public domain.
+
+# Extends Integer with some needed methods for Diffie-Hellman key exchange.
+class Integer
+  
+  # Compute self ^ e mod m
+  def mod_exp e, m
+    result = 1
+    b = self
+    while e > 0
+      result = (result * b) % m if e[0] == 1
+      e = e >> 1
+      b = (b * b) % m
+    end
+    return result
+  end
+
+  # A roundabout, slow but fun way of counting bits.
+  def bits_set
+    ("%b" % self).count('1')
+  end
+
+end
+
+# vim: set ts=4 sts=2 sw=2 et:

data/lib/auto/rubyext/string.rb

@@ -0,0 +1,10 @@
+# This changes the String class in Ruby's standard library to make life easier
+# by aliasing String#uc to String#upcase and String#dc to String#downcase
+class String
+  alias_method :uc, :upcase
+  alias_method :dc, :downcase
+  alias_method :uc!, :upcase!
+  alias_method :dc!, :downcase!
+end
+
+# vim: set ts=4 sts=2 sw=2 et:

data/lib/auto/version.rb

@@ -0,0 +1,18 @@
+# Copyright (c) 2013, Autumn Perrault, et al. All rights reserved.
+# This free software is distributed under the FreeBSD license (LICENSE.md).
+
+module Auto
+  VERSIONSPEC  = {
+    major:    4,
+    minor:    0,
+    patch:    0,
+    pre:      'alpha.1',
+    codename: 'phoenix'
+  }.freeze
+  VERSION      = "#{VERSIONSPEC[:major]}.#{VERSIONSPEC[:minor]}.#{VERSIONSPEC[:patch]}"
+  VERSION.concat '.'+VERSIONSPEC[:pre] if VERSIONSPEC.include? :pre
+  VERSION.freeze
+  FULLVERSION  = "#{VERSION}-#{VERSIONSPEC[:codename]}".freeze
+end
+
+# vim: set ts=4 sts=2 sw=2 et:

data/spec/api_events_spec.rb

@@ -0,0 +1,68 @@
+# Auto 4
+# Copyright (c) 2013, Auto Project
+# Distributed under the terms of the FreeBSD license (LICENSE.md).
+require(File.expand_path('../helper.rb', __FILE__))
+
+require 'auto/api/events'
+
+describe 'Auto::API::Events' do
+
+  before do
+    @events = Auto::API::Events.new
+  end
+
+  describe '#on' do
+    it 'should return identification data' do
+      @events.on(:foo_bar) { nil }.must_be_instance_of Array
+    end
+    it 'should return sufficient identification data' do
+      @events.on(:meow_cat) { nil }.length.must_equal 3
+    end
+  end
+
+  describe '#call' do
+    before do
+      $m.opts.expects(:verbose?)
+    end
+
+    it 'should call all hooks of given event' do
+      @ok = false
+      @events.on('bunnyEvent') { @ok = true }
+      @events.call('bunnyEvent')
+      @events.threads.each { |thr| thr.join }
+      @ok.must_equal true
+    end
+
+    it 'should call hooks in descending priority' do
+      @order = ''
+      @events.on(:kitten_event, 5) { @order << 'C' }
+      @events.on(:kitten_event, 1) { @order << 'A' }
+      @events.on(:kitten_event, 3) { @order << 'B' }
+      @events.call(:kitten_event)
+      @events.threads.each { |thr| thr.join }
+      @order.must_equal 'ABC'
+    end
+
+    it 'should suspend execution if false is received' do
+      @good = true
+      @events.on(:dragon_event, 1) { false }
+      @events.on(:dragon_event, 3) { @good = false }
+      @events.call(:dragon_event)
+      @events.threads.each { |thr| thr.join }
+      @good.must_equal true
+    end
+  end
+
+  describe '#del' do
+    it 'should delete an event' do
+      @deleted = true
+      id = @events.on(:unicorn_event) { @deleted = false }
+      @events.del(id)
+      @events.call(:unicorn_event)
+      @deleted.must_equal true
+    end
+  end
+
+end
+
+# vim: set ts=4 sts=2 sw=2 et:

data/spec/config_json_spec.rb

@@ -0,0 +1,116 @@
+# Auto 4
+# Copyright (c) 2013, Auto Project
+# Distributed under the terms of the FreeBSD license (LICENSE.md).
+require(File.join(File.expand_path(File.dirname(__FILE__)), 'helper.rb'))
+require 'auto/config'
+
+describe "A configuration using JSON" do
+
+  JSON_ORIGINAL_CONF = <<EOF
+{
+    // This is a comment; swarley+noxgirl=<3
+    "foo": {
+            "cat": ["meow","//purr"],
+            "cow": ["/* moo */"/* my loveybear wrote a really cool regexp that strips these comments*/],
+            "dinosaur": /* weirdly placed comments ftw */ ["rawr"]
+           }
+}
+EOF
+
+  JSON_NEW_CONF = <<EOF
+{
+    // This is a comment; swarley+noxgirl=<3
+    "foo": {
+            "cat": ["meow","purr"],
+            "cow": ["moo"/* my loveybear wrote a really cool regexp that strips these comments*/],
+            "dinosaur": /* weirdly placed comments ftw */ ["rawr"],
+            "bunny": /* OMG BUNNIES <3 */ ["unimaginable cuteness that forces you to coo"]
+           }
+}
+EOF
+
+  JSON_BAD_CONF = <<EOF
+THIS ARE RUBBISH
+
+THAT W!LL F41L
+
+...0R SHOULD
+EOF
+
+  JSON_HASH_ORIGINAL = {
+                  'foo' => {
+                            'cat'      => ['meow', '//purr'],
+                            'cow'      => ['/* moo */'],
+                            'dinosaur' => ['rawr']
+                           }
+                }
+
+  JSON_HASH_NEW      = {
+                  'foo' => {
+                            'cat'      => ['meow', 'purr'],
+                            'cow'      => ['moo'],
+                            'dinosaur' => ['rawr'],
+                            'bunny'    => ['unimaginable cuteness that forces you to coo']
+                           }
+                }
+
+  before do
+    File.open('.temp.json_config.json', 'w') do |io|
+      io.write JSON_ORIGINAL_CONF
+    end
+    
+    @conf = Auto::Config.new('.temp.json_config.json')
+  end
+
+  it 'should have a type of JSON' do
+    @conf.type.must_equal :json
+  end
+
+  it 'should have @conf, a Hash' do
+    @conf.conf.class.must_equal Hash
+  end
+
+  it 'should point [x] to @conf[x]' do
+    @conf['foo'].must_be_same_as @conf.conf['foo']
+  end
+
+  it 'should have correctly processed data' do
+    @conf.conf.must_equal JSON_HASH_ORIGINAL
+  end
+
+  it 'should rehash on rehash!()' do
+
+    File.open('.temp.json_config.json', 'w') do |io|
+      io.write JSON_NEW_CONF
+    end
+    
+    $m.events.expects(:call).with('bot:onRehash')
+    @conf.rehash!
+    @conf.conf.must_equal JSON_HASH_NEW
+  end
+
+  it 'should fail on rehash!() if data is bad' do
+    File.open('.temp.json_config.json', 'w') do |io|
+      io.write JSON_BAD_CONF
+    end
+    
+    $m.expects(:debug)
+    $m.expects(:error)
+    @conf.rehash!.must_equal 0
+  end
+
+  it 'should should revert to old data if rehash!() fails' do
+    File.open('.temp.json_config.json', 'w') do |io|
+      io.write JSON_BAD_CONF
+    end
+    $m.expects(:debug)
+    $m.expects(:error)
+    @conf.rehash!
+    @conf.conf.must_equal JSON_HASH_ORIGINAL
+  end
+
+  after do
+    File.delete '.temp.json_config.json'
+  end 
+
+end

data/spec/config_other_spec.rb

@@ -0,0 +1,29 @@
+# Auto 4
+# Copyright (c) 2013, Auto Project
+# Distributed under the terms of the FreeBSD license (LICENSE.md).
+require(File.join(File.expand_path(File.dirname(__FILE__)), 'helper.rb'))
+
+require 'auto/config'
+
+describe "A base configuration" do
+
+  before do
+    $m.expects(:debug)
+  end
+
+  it 'should raise ConfigError on initialize if a non-existent file was provided' do
+    -> { Auto::Config.new('.temp.file_no_exist.yml') }.must_raise ConfigError
+  end
+
+  it 'should raise ConfigError on initialize if the file\'s extension is not recognized' do
+    File.open('.temp.xml_config.xml', 'w') do |io|
+      io.write "<title>Hello world</title>"
+    end
+
+    -> { Auto::Config.new('.temp.xml_config.xml') }.must_raise ConfigError
+    File.delete '.temp.xml_config.xml'
+  end
+
+end
+
+# vim: set ts=4 sts=2 sw=2 et:

data/spec/config_yaml_spec.rb

@@ -0,0 +1,136 @@
+# Auto 4
+# Copyright (c) 2013, Auto Project
+# Distributed under the terms of the FreeBSD license (LICENSE.md).
+require(File.join(File.expand_path(File.dirname(__FILE__)), 'helper.rb'))
+
+require 'auto/config'
+
+describe "A configuration using YAML" do
+
+  YAML_ORIGINAL_CONF = <<EOF
+---
+# This is a comment; unicorns are lovely
+foo:
+
+  cat:
+  - meow
+  - purr
+
+  cow:
+  - moo
+
+  dinosaur:
+  - rawr
+
+EOF
+
+  YAML_NEW_CONF = <<EOF
+---
+# This is a comment; unicorns are lovely
+foo:
+
+  cat:
+  - meow
+  - purr
+
+  cow:
+  - moo
+
+  dinosaur:
+  - rawr
+
+  bunny:
+  - unimaginable cuteness that forces you to coo
+
+EOF
+
+  YAML_BAD_CONF = <<EOF
+THIS ARE RUBBISH
+
+THAT W!LL F41L
+
+...0R SHOULD
+EOF
+
+  YAML_HASH_ORIGINAL = {
+                  'foo' => {
+                            'cat'      => ['meow', 'purr'],
+                            'cow'      => ['moo'],
+                            'dinosaur' => ['rawr']
+                           }
+                }
+
+  YAML_HASH_NEW      = {
+                  'foo' => {
+                            'cat'      => ['meow', 'purr'],
+                            'cow'      => ['moo'],
+                            'dinosaur' => ['rawr'],
+                            'bunny'    => ['unimaginable cuteness that forces you to coo']
+                           }
+                }
+
+  before do
+    $m.expects(:debug)
+    $m.stubs(:events).returns(Mocha::Mock.new('Auto::API::Events'))
+  
+    File.open('.temp.yaml_config.yml', 'w') do |io|
+      io.write YAML_ORIGINAL_CONF
+    end
+    
+    @conf = Auto::Config.new('.temp.yaml_config.yml')
+  end
+
+  it 'should have a type of YAML' do
+    @conf.type.must_equal :yaml
+  end
+
+  it 'should have @conf, a Hash' do
+    @conf.conf.class.must_equal Hash
+  end
+
+  it 'should point [x] to @conf[x]' do
+    @conf['foo'].must_be_same_as @conf.conf['foo']
+  end
+
+  it 'should have correctly processed data' do
+    @conf.conf.must_equal YAML_HASH_ORIGINAL
+  end
+
+  it 'should rehash on rehash!()' do
+    $m.expects(:debug)
+    $m.expects(:events).times(2)
+    $m.stubs(:events).returns(Mocha::Mock.new('Auto::API::Events'))
+    $m.events.expects(:call)
+
+    File.open('.temp.yaml_config.yml', 'w') do |io|
+      io.write YAML_NEW_CONF
+    end
+    @conf.rehash!
+    @conf.conf.must_equal YAML_HASH_NEW
+  end
+
+  it 'should fail on rehash!() if data is bad' do
+    $m.expects(:debug)
+    $m.expects(:error)
+    File.open('.temp.yaml_config.yml', 'w') do |io|
+      io.write YAML_BAD_CONF
+    end
+    @conf.rehash!.must_equal 0
+  end
+
+  it 'should should revert to old data if rehash!() fails' do
+    $m.expects(:error)
+    $m.expects(:debug)
+    
+    File.open('.temp.yaml_config.yml', 'w') do |io|
+      io.write YAML_BAD_CONF
+    end
+    @conf.rehash!
+    @conf.conf.must_equal YAML_HASH_ORIGINAL
+  end
+
+  after do
+    File.delete '.temp.yaml_config.yml'
+  end
+
+end

data/spec/helper.rb

@@ -0,0 +1,19 @@
+# Auto 4
+# Copyright (c) 2013, Auto Project
+# Distributed under the terms of the FreeBSD license (LICENSE.md).
+
+# We use MiniTest, because we endorse bareMinerals.
+require 'minitest/autorun'
+require 'minitest/spec'      # for specs
+
+# ...and mocha, because liquid foundation is better anyway.
+require 'mocha/setup'
+    
+$m = Mocha::Mock.new 'Auto::Bot'
+[:debug, :foreground, :info].each do |m|
+  $m.stubs m
+end
+$m.stubs(:events).returns(Mocha::Mock.new('Auto::API::Events'))
+$m.stubs(:opts).returns(Mocha::Mock.new('Slop'))
+
+# vim: set ts=4 sts=2 sw=2 et:

data/spec/irc_object_entity_spec.rb

@@ -0,0 +1,51 @@
+# Auto 4
+# Copyright (c) 2013, Auto Project
+# Distributed under the terms of the FreeBSD license (LICENSE.md).
+require(File.expand_path('../helper.rb', __FILE__))
+
+require 'auto/irc/object/entity'
+
+describe Auto::IRC::Object::Entity do
+
+  before do
+    @ircmock  = mock('Auto::IRC::Server')
+    @ent      = Auto::IRC::Object::Entity.new(@ircmock, :channel, 'jonathantaylor')
+  end
+
+  it '#channel?' do
+    @ent.channel?.must_equal true
+  end
+
+  it '#user?' do
+    @ent.user?.must_equal false
+  end
+
+  describe '#msg' do
+    before do
+      @ircmock.stubs(:nick).returns('unicorn')
+      @ircmock.stubs(:user).returns('nyan')
+      @ircmock.stubs(:mask).returns('alyx.is.a.goose.autoproj.org')
+    end
+
+    it 'should send a message' do
+      @ircmock.expects(:snd).with('PRIVMSG jonathantaylor :le Oshawott')
+      $m.events.expects(:call).with('irc:onMsg', @ent, 'le Oshawott')
+      @ent.msg 'le Oshawott'
+    end
+
+    it 'should divide messages which are too long' do
+      @ircmock.expects(:snd).times 2
+      $m.events.expects(:call)
+      @ent.msg 'der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt  der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt der Welt'
+    end
+
+    it 'should send a notice if told to' do
+      @ircmock.expects(:snd).with('NOTICE jonathantaylor :le Oshawott')
+      $m.events.expects(:call).with('irc:onMsg', @ent, 'le Oshawott')
+      @ent.msg 'le Oshawott', true
+    end
+  end
+
+end
+
+# vim: set ts=4 sts=2 sw=2 et: