WatersOfOblivion-heychell7 0.0.2 → 0.0.3

data/lib/heychell7.rb

@@ -2,7 +2,7 @@ $:.unshift(File.dirname(__FILE__)) unless
   $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
 
 module Heychell7
-  VERSION = '0.0.2'
+  VERSION = '0.0.3'
 
   class ParseError < Exception; end
 
@@ -12,6 +12,21 @@ module Heychell7
       @stack = []
     end
 
+    class << self
+      def parse input = nil, &block
+        parser = Parser.new
+        return parser.parse_trigger &block if block_given?
+        return parser.parse_io input if input.is_a? IO
+
+        if input.respond_to?(:to_s) and !input.to_s.empty?
+          return parser.parse_file input if File.exist?(input)
+          return parser.parse_string input
+        end
+
+        raise ParseError.new "Unknown parser input"
+      end
+    end
+
     def parse_trigger &block
       @trigger = block
       Proc.new { |data|
@@ -27,7 +42,8 @@ module Heychell7
     end
 
     def parse_string str
-      parse "\x0b#{str}\x1c\r" unless str =~ /^\x0b.*\x1c\r$/
+      str = "\x0b#{str}\x1c\r" unless str =~ /^\x0b.*\x1c\r$/
+      parse str
       message
     end
 
@@ -157,7 +173,7 @@ module Heychell7
     end
 
     def to_hl7
-      @data
+      @data.to_s
     end
   end
 

data/spec/heychell7_spec.rb

@@ -1,11 +1,225 @@
 require File.dirname(__FILE__) + '/spec_helper.rb'
 
-# Time to add your specs!
-# http://rspec.info/
-describe "Place your specs here" do
-  
-  it "find this spec in spec directory" do
-    # violated "Be sure to write your specs"
-  end
-  
+module Heychell7
+  describe Parser do
+    before do
+      @parser = Parser.new
+    end
+
+    describe :parse do
+      before do
+        @parser = mock "Parser"
+        Parser.stub! :new => @parser
+      end
+
+      it "should delegate to parse_trigger if a block is given" do
+        @parser.should_receive(:parse_trigger)
+        Parser.parse do end
+      end
+
+      it "should delegate to parse_io if an IO is given" do
+        io = mock "IO"
+        io.stub! :is_a? => true
+        @parser.should_receive(:parse_io).with io
+        Parser.parse io
+      end
+
+      it "should delegate to parse_file if a existant file is given" do
+        File.should_receive(:exist?).with("filename").and_return true
+        @parser.should_receive(:parse_file).with("filename")
+        Parser.parse "filename"
+      end
+
+      it "should delegate to parse if it can become a string" do
+        @parser.should_receive(:parse_string).with("the string")
+        Parser.parse "the string"
+      end
+
+      it "should raise a ParserError if everything else is exhausted" do
+        lambda { Parser.parse nil }.should raise_error ParseError
+      end
+    end
+
+    describe :parse_trigger do
+      before do
+        @parser = Parser.new
+      end
+
+      it "should return a block which calls parse" do
+        @parser.should_receive(:parse).with("foo")
+        @parser.parse_trigger.call "foo"
+      end
+
+      it "should call the given block when parsing is complete" do
+        lambda {
+          @parser.parse_trigger do |msg|
+            fail if msg.is_a? Message
+          end.call "\x0b\x1c\r"
+        }.should raise_error RuntimeError
+      end
+    end
+
+    describe :parse_io do
+      before do
+        @io = mock "IO"
+        @io.stub!(:read).and_return "foo", "bar", ""
+      end
+
+      it "should read until there is nothing else to read" do
+        @io.should_receive(:read).exactly(3).times
+        @parser.parse_io @io
+      end
+
+      it "should pass what it reads to parse" do
+        @parser.should_receive(:parse).ordered.with "foo"
+        @parser.should_receive(:parse).ordered.with "bar"
+        @parser.should_not_receive(:parse).with ""
+        @parser.parse_io @io
+      end
+    end
+
+    describe :parse_file do
+      before do
+        @file = mock "file"
+        @file.stub! :read => ""
+        File.stub! :open => @file
+      end
+
+      it "should open the file" do
+        File.should_receive(:open).with("filename", "r")
+        @parser.parse_file "filename"
+      end
+
+      it "should pass the opened file to parse_io" do
+        @parser.should_receive(:parse_io).with(@file)
+        @parser.parse_file "filename"
+      end
+    end
+
+    describe :parse_string do
+      it "should parse the string" do
+        @parser.should_receive(:parse).with("\x0bthe string\x1c\r")
+        @parser.parse_string "\x0bthe string\x1c\r"
+      end
+
+      it "should automatically add the MLLP bits" do
+        @parser.should_receive(:parse).with("\x0bthe string\x1c\r")
+        @parser.parse_string "the string"
+      end
+    end
+
+    it "should be able to parse HL7" do
+      example_hl7 = <<-EOF
+one^two|three
+four|five^six^seven|eight
+EOF
+
+      Parser.parse(example_hl7).to_hl7.should == example_hl7
+    end
+  end
+
+  describe Message do
+    before do
+      @message = Message.new
+    end
+
+    it "should have a :segments attribute" do
+      @message.segments = [:foo, :bar]
+      @message.segments.should == [:foo, :bar]
+    end
+
+    it "should have no segments by default" do
+      @message.segments.should be_empty
+    end
+
+    it "should take the constructor arguments as segments" do
+      message = Message.new :foo, :bar
+      message.segments.should == [:foo, :bar]
+    end
+
+    it "should convert to HL7" do
+      @message.segments = [Segment.new(Field.new(Item.new("foo")), Field.new(Item.new("bar"))), Segment.new(Field.new(Item.new("baz")), Field.new(Item.new("bat")))]
+      @message.to_hl7.should == "foo|bar\nbaz|bat\n"
+    end
+
+    it "should convert to MLLP" do
+      @message.segments = [Segment.new(Field.new(Item.new("foo")), Field.new(Item.new("bar"))), Segment.new(Field.new(Item.new("baz")), Field.new(Item.new("bat")))]
+      @message.to_mllp.should == "\x0bfoo|bar\nbaz|bat\n\x1c\r"
+    end
+  end
+
+  describe Segment do
+    before do
+      @segment = Segment.new
+    end
+
+    it "should have a :fields attribute" do
+      @segment.fields = [:foo, :bar]
+      @segment.fields.should == [:foo, :bar]
+    end
+
+    it "should have no fields by default" do
+      @segment.fields.should be_empty
+    end
+
+    it "should take the constructor arguments as fields" do
+      segment = Segment.new :foo, :bar
+      segment.fields.should == [:foo, :bar]
+    end
+
+    it "should convert to HL7" do
+      @segment.fields = [Field.new(Item.new("foo"), Item.new("bar")), Field.new(Item.new("baz"))]
+      @segment.to_hl7.should == "foo^bar|baz"
+    end
+  end
+
+  describe Field do
+    before do
+      @field = Field.new
+    end
+
+    it "should have a :items attribute" do
+      @field.items = [:foo, :bar]
+      @field.items.should == [:foo, :bar]
+    end
+
+    it "should have no items by default" do
+      @field.items.should be_empty
+    end
+
+    it "should take the constructor arguments as items" do
+      field = Field.new :foo, :bar
+      field.items.should == [:foo, :bar]
+    end
+
+    it "should convert to HL7" do
+      @field.items = [Item.new("foo"), Item.new("bar")]
+      @field.to_hl7.should == "foo^bar"
+    end
+  end
+
+  describe Item do
+    before do
+      @item = Item.new
+    end
+
+    it "should have a :data attribute" do
+      @item.data = :foo
+      @item.data.should == :foo
+    end
+
+    it "should have no data by default" do
+      @item.data.should be_nil
+    end
+
+    it "should take the constructor arguments as data" do
+      item = Item.new :foo
+      item.data.should == :foo
+    end
+
+    it "should convert to HL7" do
+      @item.data = :foo
+      @item.to_hl7.should == "foo"
+    end
+  end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: WatersOfOblivion-heychell7
 version: !ruby/object:Gem::Version 
-  version: 0.0.2
+  version: 0.0.3
 platform: ruby
 authors: 
 - Jonathan Bryant