kamerling 0.0.2 → 0.0.3

data/spec/kamerling/client_spec.rb

@@ -1,9 +1,13 @@
 require_relative '../spec_helper'
+require_relative '../../lib/kamerling/addr'
+require_relative '../../lib/kamerling/client'
 
-module Kamerling describe Client do
-  describe '#busy' do
-    it 'defaults to false' do
-      Client.new(addr: fake(:addr)).busy.must_equal false
+module Kamerling
+  describe Client do
+    describe '#busy' do
+      it 'defaults to false' do
+        refute Client.new.busy
+      end
     end
   end
-end end
+end

data/spec/kamerling/core_extensions/main_spec.rb

@@ -1,18 +1,23 @@
 require_relative '../../spec_helper'
+require_relative '../../../lib/kamerling/core_extensions/main'
 
-module Kamerling describe CoreExtensions::Main do
-  describe '#req' do
-    it 'raises a RuntimeError that a parameter is required' do
-      -> { CoreExtensions::Main.req(:foo) }.must_raise(RuntimeError)
-        .message.must_include 'param foo is required'
-    end
-  end
+module Kamerling
+  describe CoreExtensions::Main do
+    describe '#warn_off' do
+      before { @verbose = $VERBOSE }
+      after  { $VERBOSE = @verbose }
+
+      it 'when $VERBOSE is on it turns it off inside the block and back on' do
+        $VERBOSE = true
+        CoreExtensions::Main.warn_off { refute $VERBOSE }
+        assert $VERBOSE
+      end
 
-  describe '#warn_off' do
-    it 'turns $VERBOSE off inside the block' do
-      assert $VERBOSE
-      CoreExtensions::Main.warn_off { refute $VERBOSE }
-      assert $VERBOSE
+      it 'when $VERBOSE is off it keeps it off' do
+        $VERBOSE = false
+        CoreExtensions::Main.warn_off { refute $VERBOSE }
+        refute $VERBOSE
+      end
     end
   end
-end end
+end

data/spec/kamerling/dispatch_spec.rb

@@ -0,0 +1,16 @@
+require_relative '../spec_helper'
+require_relative '../../lib/kamerling/dispatch'
+
+module Kamerling
+  describe Dispatch do
+    describe '#dispatched_at' do
+      it 'defaults to the current time' do
+        assert Dispatch.new.dispatched_at.between?(Time.now - 1, Time.now + 1)
+      end
+
+      it 'defaults to the time of Dispatch’s creation' do
+        Dispatch.new.dispatched_at.wont_equal Dispatch.new.dispatched_at
+      end
+    end
+  end
+end

data/spec/kamerling/handler_spec.rb

@@ -1,41 +1,31 @@
 require_relative '../spec_helper'
+require_relative '../../lib/kamerling/addr'
+require_relative '../../lib/kamerling/handler'
+require_relative '../../lib/kamerling/message'
+require_relative '../../lib/kamerling/receiver'
+require_relative '../../lib/kamerling/registrar'
+require_relative '../../lib/kamerling/uuid'
 
-module Kamerling describe Handler do
-  describe '#handle' do
-    fakes :addr, :receiver, :registrar
-    let(:handler) { Handler.new receiver: receiver, registrar: registrar }
+module Kamerling
+  describe Handler do
+    describe '#handle' do
+      fake :receiver,  as: :class
+      fake :registrar, as: :class
 
-    it 'handles RGST inputs' do
-      input = 'RGST' + "\0" * 12 + '16B client  UUID16B project UUID'
-      client_uuid  = UUID['16B client  UUID']
-      project_uuid = UUID['16B project UUID']
-      handler.handle input, addr
-      args = {
-        addr:         addr,
-        client_uuid:  client_uuid,
-        project_uuid: project_uuid,
-      }
-      registrar.must_have_received :register, [args]
-    end
+      let(:addr)    { Addr.new                                              }
+      let(:handler) { Handler.new(receiver: receiver, registrar: registrar) }
 
-    it 'handles RSLT inputs' do
-      input = 'RSLT' + "\0" * 12 +
-        '16B client  UUID16B project UUID16B task    UUIDdata'
-      client_uuid = UUID['16B client  UUID']
-      task_uuid   = UUID['16B task    UUID']
-      handler.handle input, addr
-      args = {
-        addr:        addr,
-        client_uuid: client_uuid,
-        data:        'data',
-        task_uuid:   task_uuid,
-      }
-      receiver.must_have_received :receive, [args]
-    end
+      it 'handles RGST inputs' do
+        message = Message.parse('RGST')
+        handler.handle message, addr
+        registrar.must_have_received :register, [addr: addr, message: message]
+      end
 
-    it 'raises on unknown inputs' do
-      ex = -> { handler.handle 'MESS', addr }.must_raise Handler::UnknownInput
-      ex.message.must_equal 'MESS'
+      it 'handles RSLT inputs' do
+        message = Message.parse('RSLT')
+        handler.handle message, addr
+        receiver.must_have_received :receive, [addr: addr, message: message]
+      end
     end
   end
-end end
+end

data/spec/kamerling/http_api_spec.rb

@@ -1,93 +1,114 @@
 require 'nokogiri'
-
 require_relative '../spec_helper'
+require_relative '../../lib/kamerling/client'
+require_relative '../../lib/kamerling/http_api'
+require_relative '../../lib/kamerling/project'
+require_relative '../../lib/kamerling/repos'
+require_relative '../../lib/kamerling/task'
+require_relative '../../lib/kamerling/task_dispatcher'
+require_relative '../../lib/kamerling/uuid'
 
-module Kamerling describe HTTPAPI do
-  let(:app)   { HTTPAPI.set repos: repos                        }
-  let(:doc)   { Nokogiri::HTML last_response.body               }
-  let(:ecc)   { fake :project, uuid: UUID.new                   }
-  let(:gimps) { fake :project, uuid: UUID.new                   }
-  let(:repos) { fake :repos, as: :class, projects: [gimps, ecc] }
+module Kamerling
+  describe HTTPAPI do
+    let(:app)   { HTTPAPI.set(repos: repos, task_dispatcher: task_dispatcher) }
+    let(:doc)   { Nokogiri::HTML(last_response.body)                          }
+    let(:ecc)   { Project.new                                                 }
+    let(:gimps) { Project.new                                                 }
+    let(:repos) { fake(:repos, as: :class, projects: [gimps, ecc])            }
+    let(:task_dispatcher) { fake(:task_dispatcher) }
 
-  describe 'GET /' do
-    it 'contains links to clients and projects' do
-      get '/'
-      doc.at('#clients')['href'].must_equal '/clients'
-      doc.at('#projects')['href'].must_equal '/projects'
+    describe 'GET /' do
+      it 'contains links to clients and projects' do
+        get '/'
+        doc.at('#clients')['href'].must_equal '/clients'
+        doc.at('#projects')['href'].must_equal '/projects'
+      end
     end
-  end
 
-  describe 'GET /clients' do
-    it 'contains links to and UUIDs of clients' do
-      fpga = fake :client, uuid: UUID.new
-      stub(repos).clients { [fpga] }
-      get '/clients'
-      links = doc.css '#clients a[rel=client]'
-      links.size.must_equal 1
-      links.at("[data-uuid='#{fpga.uuid}']")['href']
-        .must_equal "/clients/#{fpga.uuid}"
+    describe 'GET /clients' do
+      it 'contains information on clients' do
+        addr = Addr['127.0.0.1', 1981, :TCP]
+        fpga = Client.new(addr: addr, busy: true, type: :FPGA)
+        stub(repos).clients { [fpga] }
+        get '/clients'
+        links = doc.css('#clients a[data-class=client]')
+        links.first['data-addr'].must_equal 'tcp://127.0.0.1:1981'
+        links.first['data-busy'].must_equal 'true'
+        links.first['data-type'].must_equal 'FPGA'
+        links.first['data-uuid'].must_equal fpga.uuid
+        links.first['href'].must_equal "/clients/#{fpga.uuid}"
+      end
     end
-  end
 
-  describe 'GET /projects' do
-    it 'contains links to and UUIDs of projects' do
-      get '/projects'
-      links = doc.css '#projects a[rel=project]'
-      links.size.must_equal 2
-      links.at("[data-uuid='#{gimps.uuid}']")['href']
-        .must_equal "/projects/#{gimps.uuid}"
+    describe 'GET /projects' do
+      it 'contains links to and UUIDs of projects' do
+        get '/projects'
+        links = doc.css('#projects a[data-class=project]')
+        links.size.must_equal 2
+        links.at("[data-uuid='#{gimps.uuid}']")['href']
+          .must_equal "/projects/#{gimps.uuid}"
+      end
     end
-  end
 
-  describe 'GET /projects/{uuid}' do
-    let(:cpu) { fake :client, busy: false, uuid: UUID.new }
-    let(:gpu) { fake :client, busy: true,  uuid: UUID.new }
-    let(:three) { fake :task, done: false, uuid: UUID.new }
-    let(:seven) { fake :task, done: true,  uuid: UUID.new }
+    describe 'GET /projects/{uuid}' do
+      let(:cpu) { Client.new(busy: false, type: :CPU) }
+      let(:gpu) { Client.new(busy: true,  type: :GPU) }
+      let(:three) { Task.new(done: false) }
+      let(:seven) { Task.new(done: true)  }
 
-    before do
-      stub(repos).project(gimps.uuid) { gimps          }
-      stub(repos).clients_for(gimps)  { [cpu, gpu]     }
-      stub(repos).tasks_for(gimps)    { [three, seven] }
-    end
+      before do
+        stub(repos).project(gimps.uuid) { gimps          }
+        stub(repos).clients_for(gimps)  { [cpu, gpu]     }
+        stub(repos).tasks_for(gimps)    { [three, seven] }
+      end
 
-    it 'contains links to and info on the project’s clients' do
-      get "/projects/#{gimps.uuid}"
-      links = doc.css '#clients a[rel=client]'
-      links.size.must_equal 2
-      links.at("[data-uuid='#{cpu.uuid}']")['href']
-        .must_equal "/clients/#{cpu.uuid}"
-      links.at("[data-uuid='#{cpu.uuid}']")['data-busy'].must_equal 'false'
-      links.at("[data-uuid='#{gpu.uuid}']")['data-busy'].must_equal 'true'
-    end
+      it 'contains links to and info on the project’s clients' do
+        get "/projects/#{gimps.uuid}"
+        links = doc.css('#clients a[data-class=client]')
+        links.size.must_equal 2
+        links.at("[data-uuid='#{cpu.uuid}']")['href']
+          .must_equal "/clients/#{cpu.uuid}"
+        links.at("[data-uuid='#{cpu.uuid}']")['data-busy'].must_equal 'false'
+        links.at("[data-uuid='#{gpu.uuid}']")['data-busy'].must_equal 'true'
+        links.at("[data-uuid='#{cpu.uuid}']")['data-type'].must_equal 'CPU'
+        links.at("[data-uuid='#{gpu.uuid}']")['data-type'].must_equal 'GPU'
+      end
 
-    it 'contains links to and info on the project’s tasks' do
-      get "/projects/#{gimps.uuid}"
-      links = doc.css '#tasks a[rel=task]'
-      links.size.must_equal 2
-      links.at("[data-uuid='#{three.uuid}']")['href']
-        .must_equal "/tasks/#{three.uuid}"
-      links.at("[data-uuid='#{three.uuid}']")['data-done'].must_equal 'false'
-      links.at("[data-uuid='#{seven.uuid}']")['data-done'].must_equal 'true'
+      it 'contains links to and info on the project’s tasks' do
+        get "/projects/#{gimps.uuid}"
+        links = doc.css('#tasks a[data-class=task]')
+        links.size.must_equal 2
+        links.at("[data-uuid='#{three.uuid}']")['href']
+          .must_equal "/tasks/#{three.uuid}"
+        links.at("[data-uuid='#{three.uuid}']")['data-done'].must_equal 'false'
+        links.at("[data-uuid='#{seven.uuid}']")['data-done'].must_equal 'true'
+      end
     end
-  end
 
-  describe 'POST /projects' do
-    it 'creates a new project with the given name and UUID' do
-      post '/projects', name: 'ECC', uuid: uuid = UUID.new
-      repos.must_have_received :<<, [Project.new(name: 'ECC', uuid: uuid)]
-    end
+    describe 'POST /projects' do
+      it 'creates a new project with the given name and UUID' do
+        post '/projects', name: 'ECC', uuid: uuid = UUID.new
+        repos.must_have_received :<<, [Project.new(name: 'ECC', uuid: uuid)]
+      end
 
-    it 'creates a new project with a random UUID if missing' do
-      post '/projects', name: 'ECC'
-      project = Project.new name: 'ECC', uuid: any(String)
-      repos.must_have_received :<<, [project]
+      it 'redirects to /projects' do
+        post '/projects', name: 'ECC', uuid: UUID.new
+        follow_redirect!
+        URI(last_request.url).path.must_equal '/projects'
+      end
     end
 
-    it 'redirects to /projects' do
-      post '/projects', name: 'ECC'
-      follow_redirect!
-      URI(last_request.url).path.must_equal '/projects'
+    describe 'POST /projects/dispatch' do
+      it 'dispatches tasks to all free clients' do
+        post '/projects/dispatch'
+        task_dispatcher.must_have_received :dispatch_all, []
+      end
+
+      it 'redirects to /projects' do
+        post '/projects/dispatch'
+        follow_redirect!
+        URI(last_request.url).path.must_equal '/projects'
+      end
     end
   end
-end end
+end

data/spec/kamerling/logging_spec.rb

@@ -1,80 +1,111 @@
+require 'logger'
+require 'socket'
+require 'stringio'
 require_relative '../spec_helper'
+require_relative '../../lib/kamerling/addr'
+require_relative '../../lib/kamerling/logging'
+require_relative '../../lib/kamerling/message'
+require_relative '../../lib/kamerling/net_dispatcher'
+require_relative '../../lib/kamerling/server/tcp'
+require_relative '../../lib/kamerling/server/udp'
 
-module Kamerling describe Logging do
-  let(:logged)     { stream.tap(&:rewind).read                           }
-  let(:logger)     { Logger.new stream                                   }
-  let(:stream)     { StringIO.new                                        }
-  let(:tcp_server) { Server::TCP.new addr: Addr['localhost', 1981, :TCP] }
-  let(:udp_server) { Server::UDP.new addr: Addr['localhost', 1979, :UDP] }
+module Kamerling
+  describe Logging do
+    let(:logged)     { stream.tap(&:rewind).read                            }
+    let(:logger)     { Logger.new(stream)                                   }
+    let(:stream)     { StringIO.new                                         }
+    let(:tcp_server) { Server::TCP.new(addr: Addr['localhost', 1981, :TCP]) }
+    let(:udp_server) { Server::UDP.new(addr: Addr['localhost', 1979, :UDP]) }
 
-  before do
-    Logging.log_to logger
-    tcp_server.start
-    udp_server.start
-  end
-
-  after do
-    tcp_server.stop
-    udp_server.stop
-  end
-
-  describe '.log_to' do
-    it 'logs TCP server starts' do
-      logged.must_include 'start localhost:1981 (TCP)'
+    before do
+      Logging.log_to logger
+      tcp_server.start
+      udp_server.start
     end
 
-    it 'logs TCP server stops' do
+    after do
       tcp_server.stop
-      logged.must_include 'stop localhost:1981 (TCP)'
+      udp_server.stop
     end
 
-    it 'logs TCP server connects' do
-      tcp_addr = TCPSocket.open(*tcp_server.addr) do |socket|
-        Addr[*socket.local_address.ip_unpack, :TCP]
+    describe '.log_to' do
+      it 'logs TCP server starts' do
+        logged.must_include 'start tcp://localhost:1981'
       end
-      run_all_threads
-      logged.must_include "connect #{tcp_addr}"
-    end
 
-    it 'logs TCP server receives' do
-      tcp_addr = TCPSocket.open(*tcp_server.addr) do |socket|
-        socket << 'PING'
-        Addr[*socket.local_address.ip_unpack, :TCP]
+      it 'logs TCP server stops' do
+        tcp_server.stop
+        logged.must_include 'stop tcp://localhost:1981'
       end
-      run_all_threads
-      logged.must_include "received #{tcp_addr} PING"
-    end
 
-    it 'logs UDP server starts' do
-      logged.must_include 'start localhost:1979 (UDP)'
-    end
+      it 'logs TCP server connects' do
+        tcp_addr = TCPSocket.open(*tcp_server.addr) do |socket|
+          Addr[*socket.local_address.ip_unpack, :TCP]
+        end
+        run_all_threads
+        logged.must_include "connect #{tcp_addr}"
+      end
 
-    it 'logs UDP server stops' do
-      udp_server.stop
-      logged.must_include 'stop localhost:1979 (UDP)'
-    end
+      it 'logs TCP server receives' do
+        tcp_addr = TCPSocket.open(*tcp_server.addr) do |socket|
+          socket << 'PING'
+          Addr[*socket.local_address.ip_unpack, :TCP]
+        end
+        run_all_threads
+        logged.must_include "received #{tcp_addr} 50 49 4e 47"
+      end
 
-    it 'logs UDP server connects' do
-      udp_client = UDPSocket.new
-      udp_client.send 'PING', 0, *udp_server.addr
-      udp_addr = Addr['127.0.0.1', udp_client.addr[1], :UDP]
-      run_all_threads
-      logged.must_include "connect #{udp_addr}"
-    end
+      it 'logs TCP unknown message types' do
+        tcp_addr = TCPSocket.open(*tcp_server.addr) do |socket|
+          socket << 'foo'
+          Addr[*socket.local_address.ip_unpack, :TCP]
+        end
+        run_all_threads
+        logged.must_include "received #{tcp_addr} unknown message type"
+      end
 
-    it 'logs TCP server receives' do
-      udp_client = UDPSocket.new
-      udp_client.send 'PING', 0, *udp_server.addr
-      udp_addr = Addr['127.0.0.1', udp_client.addr[1], :UDP]
-      run_all_threads
-      logged.must_include "received #{udp_addr} PING"
-    end
+      it 'logs UDP server starts' do
+        logged.must_include 'start udp://localhost:1979'
+      end
+
+      it 'logs UDP server stops' do
+        udp_server.stop
+        logged.must_include 'stop udp://localhost:1979'
+      end
+
+      it 'logs UDP server connects' do
+        udp_client = UDPSocket.new
+        udp_client.send 'PING', 0, *udp_server.addr
+        udp_addr = Addr['127.0.0.1', udp_client.addr[1], :UDP]
+        run_all_threads
+        logged.must_include "connect #{udp_addr}"
+      end
+
+      it 'logs UDP server receives' do
+        udp_client = UDPSocket.new
+        udp_client.send 'PING', 0, *udp_server.addr
+        udp_addr = Addr['127.0.0.1', udp_client.addr[1], :UDP]
+        run_all_threads
+        logged.must_include "received #{udp_addr} 50 49 4e 47"
+      end
 
-    it 'logs packet dispatches' do
-      server = UDPSocket.new.tap { |s| s.bind '127.0.0.1', 0 }
-      addr   = Addr[server.addr[3], server.addr[1], :UDP]
-      NetDispatcher.dispatch addr, 'PING'
-      logged.must_include "sent #{addr} PING"
+      it 'logs UDP unknown message types' do
+        udp_client = UDPSocket.new
+        addrs = Array.new(3) do
+          udp_client.send 'foo', 0, *udp_server.addr
+          Addr['127.0.0.1', udp_client.addr[1], :UDP]
+        end
+        run_all_threads
+        log_lines = addrs.map { |addr| "received #{addr} unknown message type" }
+        assert log_lines.any? { |line| logged.include?(line) }
+      end
+
+      it 'logs packet dispatches' do
+        server = UDPSocket.new.tap { |s| s.bind '127.0.0.1', 0 }
+        addr   = Addr[server.addr[3], server.addr[1], :UDP]
+        NetDispatcher.dispatch addr, Message.parse('PING')
+        logged.must_include "sent #{addr} 50 49 4e 47"
+      end
     end
   end
-end end
+end