lis 0.0.0

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,23 @@
+## MAC OS
+.DS_Store
+
+## TEXTMATE
+*.tmproj
+tmtags
+
+## EMACS
+*~
+\#*
+.\#*
+
+## VIM
+*.swp
+
+## PROJECT::GENERAL
+coverage
+rdoc
+pkg
+.yardoc
+doc
+
+## PROJECT::SPECIFIC

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Levin Alexander
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,7 @@
+= LIS
+
+Description goes here.
+
+== Copyright
+
+Copyright (c) 2010 Levin Alexander. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,64 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "lis"
+    gem.summary = %Q{LIS interface to Siemens Immulite 2000XPi or other similar analyzers}
+    gem.description = %Q{}
+    gem.email = "mail@levinalex.net"
+    gem.homepage = "http://github.com/levinalex/lis"
+    gem.authors = ["Levin Alexander"]
+    gem.add_development_dependency "thoughtbot-shoulda", ">= 0"
+    gem.add_development_dependency "yard", ">= 0"
+    gem.add_development_dependency "cucumber", ">= 0"
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/test_*.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+task :test => :check_dependencies
+
+begin
+  require 'cucumber/rake/task'
+  Cucumber::Rake::Task.new(:features)
+
+  task :features => :check_dependencies
+rescue LoadError
+  task :features do
+    abort "Cucumber is not available. In order to run features, you must: sudo gem install cucumber"
+  end
+end
+
+task :default => :test
+
+begin
+  require 'yard'
+  YARD::Rake::YardocTask.new
+rescue LoadError
+  task :yardoc do
+    abort "YARD is not available. In order to run yardoc, you must: sudo gem install yard"
+  end
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.0

data/bin/lis

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby -w
+require 'lib/lis.rb'
+
+# protocol = LIS::Transfer::PacketizedProtocol.new
+# server = LIS::Transfer::Server.new(protocol, socket)
+
+socket = File.open("/dev/cu.usbserial-FTC95RQI", "w+")
+server = LIS::Transfer::IOListener.new(socket)
+packet_protocol = LIS::Transfer::PacketizedProtocol.new(server)
+app_protocol = LIS::Transfer::ApplicationProtocol.new(packet_protocol)
+
+interface = WorklistManagerInterface.new("http://localhost:3000")
+
+app_protocol.on_request do |*args|
+  p "ON REQUEST"
+  p args
+
+  nil
+#  interface.load_reqests(*args)
+end
+
+app_protocol.on_result do |*args|
+  p "SEND RESULT"
+  p args
+  interface.send_result(*args)
+end
+
+app_protocol.on_data do |data|
+  p data
+end
+
+server.run!

data/features/communication basics.feature

@@ -0,0 +1,6 @@
+Feature: Initializing the connection
+  In order to 
+  As a role
+  I want feature
+
+  

data/features/lis.feature

@@ -0,0 +1,9 @@
+Feature: something something
+  In order to something something
+  A user something something
+  something something something
+
+  Scenario: something something
+    Given inspiration
+    When I create a sweet new gem
+    Then everyone should see how awesome I am

data/features/support/env.rb

@@ -0,0 +1,6 @@
+$LOAD_PATH.unshift(File.dirname(__FILE__) + '/../../lib')
+require 'lis'
+
+require 'test/unit/assertions'
+
+World(Test::Unit::Assertions)

data/lib/lis.rb

@@ -0,0 +1,10 @@
+$:.unshift File.dirname(__FILE__)
+
+module LIS
+end
+
+require 'lis/io_listener.rb'
+require 'lis/messages.rb'
+require 'lis/packetized_protocol.rb'
+require 'lis/application_protocol.rb'
+require 'lis/worklist_manager_interface.rb'

data/lib/lis/application_protocol.rb

@@ -0,0 +1,69 @@
+
+module LIS::Transfer
+  class ApplicationProtocol < Base
+
+    def on_result(&block)
+      @on_result_callback = block
+    end
+
+    def on_request(&block)
+      @on_request_callback = block
+    end
+
+
+    def received_header(message)
+      @patient_information ||= {} # delete the list of patients
+    end
+
+    def result_for(patient, order, result)
+      @on_result_callback.call(patient, order, result)
+    end
+
+    def received_patient_information(message)
+      @last_order = nil
+      @last_patient = message
+    end
+
+    def received_order_record(message)
+      @last_order = message
+    end
+
+    def received_result(message)
+      result_for(@last_patient, @last_order, message)
+    end
+
+    def received_request_for_information(message)
+      @patient_information ||= {}
+      requests = @on_request_callback.call(p.starting_range)
+      @patient_information[p.sequence_number] = requests if requests
+    end
+
+    def initialize(*args)
+      super
+
+      @last_patient = nil
+      @last_order = nil
+      @handlers = {
+        LIS::Message::Header => :received_header,
+        LIS::Message::Patient => :received_patient_information,
+        LIS::Message::Order => :received_order_record,
+        LIS::Message::Result => :received_result,
+        LIS::Message::Query => :received_request_for_information
+      }
+    end
+
+    def receive(type, message = nil)
+      case type
+        when :begin
+          @last_patient = nil
+          @last_order = nil
+        when :idle
+        when :message
+          @message = LIS::Message::Base.from_string(message)
+          handler = @handlers[@message.class]
+          send(handler, @message) if handler
+      end
+    end
+  end
+
+end

data/lib/lis/io_listener.rb

@@ -0,0 +1,76 @@
+require 'strscan'
+
+module LIS::Transfer
+
+  # a chainable IO-Listener that provides to methods:
+  #
+  # +on_data+ :: a callback that is called whenever a message is received
+  # +write+   :: can be called so send messages to the underlying IO
+  #
+  # when overriding this class, you need to implement two methods:
+  #
+  # +receive+ :: is called from an underlying IO whenever a message is received
+  #              the message can be handled, if messages should be propagated, you
+  #              need to call `forward`
+  #
+  # +write+ :: when data needs to be encoded, formatted before it can be send
+  #            send it with `super`
+  #
+  #
+  class Base
+    def initialize(read, write = read)
+      @reader, @writer = read, write
+      @on_data = nil
+      @reader.on_data { |*data| receive(*data) } if @reader.respond_to?(:on_data)
+    end
+
+    def on_data(&block)
+      @on_data = block
+    end
+
+    def write(message)
+      @writer << message if @writer
+    end
+    def <<(*args)
+      write(*args)
+    end
+
+    private
+
+    def receive(data)
+      forward(data)
+    end
+
+    def forward(*data)
+      @on_data.call(*data) if @on_data
+    end
+  end
+
+
+  class LineBasedProtocol < Base
+    def receive(data)
+      @memo ||= ""
+      scanner = StringScanner.new(@memo + data)
+      while s = scanner.scan(/.*?\n/)
+        forward(s.strip)
+      end
+      @memo = scanner.rest
+      nil
+    end
+
+    def write(data)
+      super(data + "\n")
+    end
+  end
+
+  class IOListener < Base
+    def run!
+      while not @reader.eof?
+        str = @reader.readpartial(4096)
+        forward(str)
+      end
+    end
+  end
+end
+
+

data/lib/lis/messages.rb

@@ -0,0 +1,125 @@
+
+module LIS::Message
+  module ClassMethods
+    FIELD_TYPES = {
+      :string => lambda { |s| s },
+      :int => lambda { |s| s.to_i }
+    }
+
+    def from_string(message)
+      frame_number, type, data = parse(message)
+      klass = (@@messages_by_type || {})[type]
+      raise "unknown message type #{type.inspect}" unless klass
+
+      obj = klass.allocate
+      obj.frame_number = frame_number
+      obj.type_id = type
+
+      # populate named fields
+      data.each_with_index do |val, index|
+        klass.get_named_field_attributes(index + 2)
+        if field = klass.get_named_field_attributes(index+2)
+          obj.send(:"#{field[:name]}=", FIELD_TYPES[field[:type]].call(val))
+        end
+      end
+
+      obj
+    end
+
+    def initialize_from_message(*list_of_fields)
+    end
+
+    protected
+
+    def parse(string)
+      frame_number, type, data = string.scan(/^(.)(.)\|(.*)$/)[0]
+      data = data.split(/\|/)
+
+      return [frame_number.to_i, type, data]
+    end
+
+    def type_id(char)
+      @@messages_by_type ||= {}
+      @@messages_by_type[char] = self
+    end
+
+    def named_field(idx, name, type = :string)
+      set_named_field_attributes(idx, :name => name, :type => type)
+      attr_accessor name
+    end
+
+    def get_named_field_attributes(key)
+      @field_names ||= {}
+      val = (@field_names || {})[key]
+      val ||= superclass.get_named_field_attributes(key) if superclass.respond_to?(:get_named_field_attributes)
+      val
+    end
+
+    private
+
+    def set_named_field_attributes(key, *val)
+      @field_names ||= {}
+      @field_names[key] = *val
+    end
+  end
+
+  class Base
+    extend ClassMethods
+    attr_accessor :frame_number
+    attr_accessor :type_id
+
+    named_field 2, :sequence_number, :int
+  end
+
+
+  class Header < Base
+    type_id "H"
+    named_field  2, :delimiter_definition
+    named_field  4, :access_password
+    named_field  5, :sender_name
+    named_field 10, :receiver_id
+  end
+
+  class Order < Base
+    type_id "O"
+    named_field 3, :specimen_id
+    named_field 5, :universal_test_id
+    named_field 6, :priority
+    named_field 7, :requested_at
+    named_field 8, :collected_at
+  end
+
+  class Result < Base
+    type_id "R"
+    named_field 3, :universal_test_id
+    named_field 4, :result_value
+    named_field 5, :unit
+    named_field 6, :reference_ranges
+    named_field 7, :abnormal_flags
+  end
+
+  class Patient < Base
+    type_id "P"
+  end
+
+  class Query < Base
+    type_id "Q"
+  end
+
+
+  class TerminatorRecord < Base
+    TERMINATION_CODES = {
+      "N" => "Normal termination",
+      "T" => "Sender Aborted",
+      "R" => "Receiver Abort",
+      "E" => "Unknown system error",
+      "Q" => "Error in last request for information",
+      "I" => "No information available from last query",
+      "F" => "Last request for information Processed"
+    }
+
+    type_id "L"
+    named_field 3, :termination_code
+  end
+
+end

data/lib/lis/packetized_protocol.rb

@@ -0,0 +1,83 @@
+
+module LIS::Transfer
+
+  # splits a stream into lis packets and only lets packets through
+  # that are inside a session delimited by ENQ .. EOT
+  #
+  # check the checksum and do acknowledgement of messages
+  #
+  # forwards the following events:
+  #
+  # - :message, String :: when a message is received
+  # - :idle            :: when a transmission is finished (after EOT is received)
+  #
+  class PacketizedProtocol < Base
+    ACK = "\006"
+    NAK = "\025"
+    ENQ = "\005"
+    EOT = "\004"
+
+    RX = /(?:
+          \005 | # ENQ - start a transaction
+          \004 | # EOT - ends a transaction
+          (?:\002 (.*?) \015 \003 (.+?) \015 \012)) # a message with a checksum
+        /xm
+
+    def initialize(*args)
+      super(*args)
+      @memo = ""
+      @inside_transmission = false
+    end
+
+    def receive(data)
+      scanner = StringScanner.new(@memo + data)
+      while match = scanner.scan(RX)
+        case match
+          when ENQ then transmission_start
+          when EOT then transmission_end
+        else
+          received_message(match)
+          write ACK
+        end
+      end
+      @memo = scanner.rest
+      nil
+    end
+
+
+    private
+
+    def self.message_from_string(string)
+      match = string.match(RX)
+      data = match[1]
+      checksum = match[2]
+
+      expected_checksum = data.to_enum(:each_byte).inject(16) { |a,b| (a+b) % 0x100 }
+      actual_checksum   = checksum.to_i(16)
+
+      raise "checksum mismatch" unless expected_checksum == actual_checksum
+      return data
+    end
+
+    def received_message(message)
+      return false unless @inside_transmission
+      forward(:message, self.class.message_from_string(message))
+    end
+
+    def transmission_start
+      return false if @inside_transmission
+      write ACK
+      forward :begin
+      @inside_transmission = true
+      true
+    end
+
+    def transmission_end
+      return false unless @inside_transmission
+      forward :idle
+      @inside_transmission = false
+      true
+    end
+  end
+
+end

data/lib/lis/worklist_manager_interface.rb

@@ -0,0 +1,47 @@
+class WorklistManagerInterface
+  def initialize(endpoint)
+    @endpoint = endpoint
+  end
+
+  def load_requests(barcode)
+    begin
+      uri = URI.join(@endpoint,"find_requests/#{barcode}")
+      result = fetch_with_redirect(uri.to_s)
+      data = YAML.load(result.body)
+      data["id"] = barcode
+    rescue Exception => e
+      puts e
+      puts e.backtrace
+      data = nil
+    end
+  end
+
+  def send_result(patient, order, result)
+    barcode = order.specimen_id
+    data = {
+      "test_name" => order.test_id,
+      "value" => result.value,
+      "unit" => result.unit,
+      "status" => result.result_status,
+      "flags" => result.abnormal_flags,
+      "result_timestamp" => result.timestamp
+    }
+
+    Net::HTTP.post_form(URI.join(@endpoint, "result/#{URI.encode(barcode)}"), data.to_hash)
+  end
+
+
+  private
+
+  def fetch_with_redirect(uri_str, limit = 10)
+    raise ArgumentError, 'HTTP redirect too deep' if limit == 0
+
+    response = Net::HTTP.get_response(URI.parse(uri_str))
+    case response
+      when Net::HTTPSuccess     then response
+      when Net::HTTPRedirection then fetch_with_redirect(response['location'], limit - 1)
+    else
+      response.error!
+    end
+  end
+end

data/lis.gemspec

@@ -0,0 +1,78 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{lis}
+  s.version = "0.0.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Levin Alexander"]
+  s.date = %q{2010-02-07}
+  s.default_executable = %q{lis}
+  s.description = %q{}
+  s.email = %q{mail@levinalex.net}
+  s.executables = ["lis"]
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+     ".gitignore",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "VERSION",
+     "bin/lis",
+     "features/communication basics.feature",
+     "features/lis.feature",
+     "features/step_definitions/lis_steps.rb",
+     "features/support/env.rb",
+     "lib/lis.rb",
+     "lib/lis/application_protocol.rb",
+     "lib/lis/io_listener.rb",
+     "lib/lis/messages.rb",
+     "lib/lis/packetized_protocol.rb",
+     "lib/lis/worklist_manager_interface.rb",
+     "lis.gemspec",
+     "test/helper.rb",
+     "test/lib/mock_server.rb",
+     "test/test_io_listener.rb",
+     "test/test_messages.rb",
+     "test/test_packetized_protocol.rb"
+  ]
+  s.homepage = %q{http://github.com/levinalex/lis}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{LIS interface to Siemens Immulite 2000XPi or other similar analyzers}
+  s.test_files = [
+    "test/helper.rb",
+     "test/lib/mock_server.rb",
+     "test/test_io_listener.rb",
+     "test/test_messages.rb",
+     "test/test_packetized_protocol.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<thoughtbot-shoulda>, [">= 0"])
+      s.add_development_dependency(%q<yard>, [">= 0"])
+      s.add_development_dependency(%q<cucumber>, [">= 0"])
+    else
+      s.add_dependency(%q<thoughtbot-shoulda>, [">= 0"])
+      s.add_dependency(%q<yard>, [">= 0"])
+      s.add_dependency(%q<cucumber>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<thoughtbot-shoulda>, [">= 0"])
+    s.add_dependency(%q<yard>, [">= 0"])
+    s.add_dependency(%q<cucumber>, [">= 0"])
+  end
+end
+

data/test/helper.rb

@@ -0,0 +1,12 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+require 'lib/mock_server'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'lis'
+
+class Test::Unit::TestCase
+end
+

data/test/lib/mock_server.rb

@@ -0,0 +1,50 @@
+module Mock
+end
+
+class Mock::Server
+  def initialize(read, write)
+    @read, @write = read, write
+    @queue = Queue.new
+    @thread = Thread.new do
+      parse_commands
+    end
+  end
+
+  def write(string)
+    @queue.push [:write, string]
+    self
+  end
+
+  def read_all
+    @read.readpartial(4096)
+  end
+
+  def wait(seconds = 0.02)
+    @queue.push [:wait, seconds]
+    self
+  end
+
+  def eof
+    @queue.push [:close]
+  end
+
+
+  private
+
+  def parse_commands
+    loop do
+      action, data = @queue.pop
+
+      case action
+        when :close
+          @write.close
+          break
+        when :write
+          @write.write(data)
+          @write.flush
+        when :wait
+          sleep data
+      end
+    end
+  end
+end

data/test/test_io_listener.rb

@@ -0,0 +1,34 @@
+require 'helper'
+
+class TestIOListener < Test::Unit::TestCase
+  context "a server" do
+    setup do
+      r1, w1 = IO.pipe # Immulite -> LIS
+      r2, w2 = IO.pipe # LIS -> Immulite
+
+      @server = LIS::Transfer::IOListener.new(r1, w2)
+      @protocol = LIS::Transfer::LineBasedProtocol.new(@server)
+      @device = Mock::Server.new(r2, w1)
+    end
+
+    should "exist" do
+      assert_not_nil @server
+    end
+
+    should "yield packets written to it" do
+      @packets = []
+      @protocol.on_data { |packet| @packets << packet }
+
+      @device.write("fo").wait.write("o\n").wait.write("bar\n").eof
+      @server.run!
+
+      assert_equal ["foo", "bar"], @packets
+    end
+
+    should "send data" do
+      @protocol << "hello world"
+      data = @device.read_all
+      assert_equal "hello world\n", data
+    end
+  end
+end

data/test/test_messages.rb

@@ -0,0 +1,48 @@
+require 'helper'
+
+class TestPacketizedProtocol < Test::Unit::TestCase
+
+  context "message parsing" do
+    setup do
+      @message = LIS::Message::Base.from_string("3L|1|N")
+    end
+
+    should "have correct frame number" do
+      assert_equal 3, @message.frame_number
+    end
+
+    should "have correct type" do
+      assert_equal LIS::Message::TerminatorRecord, @message.class
+      assert_equal "L", @message.type_id
+    end
+
+    should "have correct sequence number" do
+      assert_equal 1, @message.sequence_number
+    end
+  end
+
+  context "parsing a result message" do
+    setup do
+      @str = "7R|1|^^^TSH|0.902|mIU/L|0.400\\0.004^4.00\\75.0|N|N|R|||20100115105636|20100115120641|B0135"
+      @message = LIS::Message::Base.from_string(@str)
+    end
+
+    should "have correct type" do
+      assert_equal LIS::Message::Result, @message.type
+      assert_equal "R", @message.type_id
+    end
+
+    should "have correct test id" do
+      assert_equal "TSH", @message.universal_test_id
+    end
+
+    should "have correct value" do
+      assert_equal "0.902", @message.result_value
+    end
+
+    should "have currect value and unit" do
+      assert_equal "mIU/L", @message.unit
+    end
+  end
+
+end

data/test/test_packetized_protocol.rb

@@ -0,0 +1,81 @@
+require 'helper'
+
+class TestPacketizedProtocol < Test::Unit::TestCase
+
+  def self.gsub_nonprintable(str)
+    str.gsub(/<[A-Z]+?>/) do |match|
+      { "<ETX>" => "\003",
+        "<STX>" => "\002",
+        "<CR>" => "\015",
+        "<LF>" => "\012",
+        "<ENQ>" => "\004",
+        "<EOT>" => "\005" }[match] or raise ArgumentError, "match #{match.inspect} not found"
+    end
+  end
+
+  def assert_packet_matches(expected, str)
+    str = self.class.gsub_nonprintable(str)
+    expected = self.class.gsub_nonprintable(expected)
+
+    match = LIS::Transfer::PacketizedProtocol::RX.match(str)
+    assert_not_nil match, expected
+    assert_equal expected, match[0]
+  end
+
+  def self.packet_should_match(expected, str)
+    should "match \"#{str}\" as \"#{expected}\"" do
+      assert_packet_matches(expected, str)
+      assert_packet_matches(expected, "garbage" + str)
+      assert_packet_matches(expected, str + "garbage")
+    end
+  end
+
+  packet_should_match "<ENQ>", "<ENQ>"
+  packet_should_match "<EOT>", "<EOT>"
+  packet_should_match "<STX>packet_data<CR><ETX>checksum<CR><LF>",
+                      "<STX>packet_data<CR><ETX>checksum<CR><LF><STX>packet_data<CR><ETX>checksum<CR><LF>rest"
+
+  context "packetized protocol" do
+    setup do
+      @sent = []
+      @data = []
+      @protocol = LIS::Transfer::PacketizedProtocol.new(nil, @sent)
+      @protocol.on_data do |*d|
+        @data << d
+      end
+    end
+    should "fire start_of_transmission event when receiving ENQ" do
+      @protocol.receive("\005")
+      assert_equal [[:begin]], @data
+    end
+
+    should "fire end_of_transmission event after EOT is received" do
+      @protocol.receive("\005\004")
+      assert_equal [[:begin], [:idle]], @data
+    end
+
+    should "not fire end_of_transmission event after EOT is received" do
+      @protocol.receive("\004")
+      assert_equal [], @data
+    end
+
+    should "fire trasmission events the correct number of times" do
+      @protocol.receive("\005\005")
+      @protocol.receive("\004")
+      assert_equal [[:begin], [:idle]], @data
+      @protocol.receive("\004\005")
+      @protocol.receive("\004")
+      assert_equal [[:begin], [:idle], [:begin], [:idle]], @data
+    end
+
+    should "propagate only packet data" do
+      @str = "\0023L|1\r\0033C\r\n"
+      @protocol.receive("\005")
+      @protocol.receive(@str)
+      @protocol.receive("\004")
+
+      assert_equal [[:begin], [:message, "3L|1"], [:idle]], @data
+    end
+  end
+
+end

metadata

@@ -0,0 +1,111 @@
+--- !ruby/object:Gem::Specification 
+name: lis
+version: !ruby/object:Gem::Version 
+  version: 0.0.0
+platform: ruby
+authors: 
+- Levin Alexander
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-02-07 00:00:00 +01:00
+default_executable: lis
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: thoughtbot-shoulda
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: yard
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: cucumber
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: ""
+email: mail@levinalex.net
+executables: 
+- lis
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- .document
+- .gitignore
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- bin/lis
+- features/communication basics.feature
+- features/lis.feature
+- features/step_definitions/lis_steps.rb
+- features/support/env.rb
+- lib/lis.rb
+- lib/lis/application_protocol.rb
+- lib/lis/io_listener.rb
+- lib/lis/messages.rb
+- lib/lis/packetized_protocol.rb
+- lib/lis/worklist_manager_interface.rb
+- lis.gemspec
+- test/helper.rb
+- test/lib/mock_server.rb
+- test/test_io_listener.rb
+- test/test_messages.rb
+- test/test_packetized_protocol.rb
+has_rdoc: true
+homepage: http://github.com/levinalex/lis
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: LIS interface to Siemens Immulite 2000XPi or other similar analyzers
+test_files: 
+- test/helper.rb
+- test/lib/mock_server.rb
+- test/test_io_listener.rb
+- test/test_messages.rb
+- test/test_packetized_protocol.rb