rserve-client 0.1.0

data/spec/rserve_connection_spec.rb

@@ -0,0 +1,43 @@
+require File.dirname(__FILE__)+"/spec_helper.rb"
+describe Rserve::Connection do
+   describe "opening and closing" do
+     it "should be open a connection and receive ID-String" do
+       @r=Rserve::Connection.new()
+       @r.get_server_version.should==103
+       @r.protocol.should=="QAP1"
+       @r.last_error.should=="OK"
+       @r.rt.should be_instance_of(Rserve::Talk)
+     end
+     it "should quit correctly" do
+       @r=Rserve::Connection.new
+       @r.should be_connected
+       @r.close.should be_true
+       @r.should_not be_connected
+       @r.close.should be_true
+     end
+     after do
+       @r.close if @r.connected?
+     end
+   
+ end
+ describe "basic eval methods" do
+    before do
+      @r=Rserve::Connection.new
+    end
+    it "should eval_void correctly" do
+      @r.void_eval("x<-1").should be_true
+    end
+    it "should eval correctly" do
+      la=@r.eval("c(TRUE,TRUE,FALSE,FALSE)")
+      la.should be_instance_of(Rserve::REXP::Logical)
+      la.true?.should==[true,true,false,false]
+    end
+    it "should eval_void and eval correctly" do
+      @r.void_eval("x<-c(TRUE,FALSE)").should be_true
+      la=@r.eval("x")
+      la.should be_instance_of(Rserve::REXP::Logical)
+      la.true?.should==[true,false]      
+      
+    end
+  end
+end

data/spec/rserve_double_spec.rb

@@ -0,0 +1,55 @@
+require File.dirname(__FILE__)+"/spec_helper.rb"
+
+describe Rserve::REXP::Double do
+  describe "initialization" do
+    it "should accept array as payload" do
+      payload=[1,2,3]
+      a=Rserve::REXP::Double.new(payload)
+      a.payload.should==payload.map(&:to_f)
+    end
+    it "should accept float as payload" do
+      payload=1.1
+      a=Rserve::REXP::Double.new(payload)
+      a.payload.should==[1.1]
+    end
+    
+    
+    
+  end
+    describe "common methods" do
+    before do
+      @n=rand(10)+10
+      @payload=@n.times.map {rand(10).to_f}
+      @a=Rserve::REXP::Double.new(@payload)
+    end
+    subject {@a}
+    it "should return correct length of payload" do
+      @a.length.should==@n
+    end
+    it {should be_numeric}
+    it {should be_integer}
+    it "method as_integer should return payload as integers" do
+      @a.as_integers.should==@payload.map(&:to_i)
+    end
+    it "method as_doubles should return floats" do
+      @a.as_doubles.should==@payload
+    end
+    it "method as_strings should return strings" do
+      @a.as_strings.should==@payload.map(&:to_s)
+    end
+    it "method na? should return coherent answer" do
+      payload=[3,5,Rserve::REXP::Double::NA, 10,20]
+      a=Rserve::REXP::Double.new(payload)
+      a.na?(a.as_integers[0]).should be_false
+      a.na?(a.as_integers[2]).should be_true
+      a.na?.should==[false,false,true,false,false]
+    end
+    it "method to_debug_string and to_s returns a coherent response" do
+      @a.to_debug_string.size.should>0
+      @a.to_s.size.should>0
+      
+    end
+    end
+  
+  
+end

data/spec/rserve_integer_spec.rb

@@ -0,0 +1,55 @@
+require File.dirname(__FILE__)+"/spec_helper.rb"
+
+describe Rserve::REXP::Integer do
+  describe "initialization" do
+    it "should accept array as payload" do
+      payload=[1,2,3]
+      a=Rserve::REXP::Integer.new(payload)
+      a.payload.should==payload
+    end
+    it "should accept integer as payload" do
+      payload=1
+      a=Rserve::REXP::Integer.new(payload)
+      a.payload.should==[1]
+    end
+    
+    
+    
+  end
+    describe "common methods" do
+    before do
+      @n=rand(10)+10
+      @payload=@n.times.map {rand(10)}
+      @a=Rserve::REXP::Integer.new(@payload)
+    end
+    subject {@a}
+    it "should return correct length of payload" do
+      @a.length.should==@n
+    end
+    it {should be_numeric}
+    it {should be_integer}
+    it "method as_integer should return payload" do
+      @a.as_integers.should==@payload
+    end
+    it "method as_doubles should return floats" do
+      @a.as_doubles.should==@payload.map(&:to_f)
+    end
+    it "method as_string should return string" do
+      @a.as_strings.should==@payload.map(&:to_s)
+    end
+    it "method is_NA should return coherent answer" do
+      payload=[3,5,Rserve::REXP::Integer::NA, 10,20]
+      a=Rserve::REXP::Integer.new(payload)
+      a.na?(a.as_integers[0]).should be_false
+      a.na?(a.as_integers[2]).should be_true
+      a.na?.should==[false,false,true,false,false]
+    end
+    it "method to_debug_string and to_s returns a coherent response" do
+      @a.to_debug_string.size.should>0
+      @a.to_s.size.should>0
+      
+    end
+    end
+  
+  
+end

data/spec/rserve_packet_spec.rb

@@ -0,0 +1,19 @@
+require File.dirname(__FILE__)+"/spec_helper.rb"
+
+describe Rserve::Packet do
+  it "should be ok if cmd isn't an error" do
+    packet=Rserve::Packet.new(Rserve::Protocol::RESP_OK,[1,2,3,4])
+    packet.should be_ok
+    packet.should_not be_error
+  end
+  it "should be error if cmd is an error" do
+    packet=Rserve::Packet.new(Rserve::Protocol::RESP_ERR,[1,2,3,4])
+    packet.should be_error
+    packet.should_not be_ok
+  end
+  it "method to_s should return coherent to_s" do
+    packet=Rserve::Packet.new(Rserve::Protocol::RESP_OK,[1,2,3,4])
+    packet.to_s.should match /Packet\[cmd=\d+,\s*len=\d,\s*con='.+',\s*status=.+\]/
+  end
+
+end

data/spec/rserve_protocol_spec.rb

@@ -0,0 +1,75 @@
+require File.dirname(__FILE__)+"/spec_helper.rb"
+
+describe Rserve::Protocol do
+  before do
+    @t=Object.new
+    @t.extend Rserve::Protocol
+  end
+  it "set_int method should set an integer correctly on an array of bytes" do
+    bytes=[0,0,0,0,0,0,0]
+    v=1000
+    @t.set_int(v, bytes, 2)
+    bytes.should==[0,0,232,3,0,0,0]
+  end
+  it "set_hdr method should set correctly the header for len<0xFFFFFF" do
+    bytes=[0]*8
+    cmd=Rserve::Protocol::CMD_login
+    len=0x123456
+    offset=0
+    expected=[cmd,0x56,0x34,0x12,0,0,0,0]
+
+    @t.set_hdr(cmd,len,bytes,offset)
+
+    bytes.should==expected
+  end
+  it "set_hdr method should set correctly the header for len>0xFFFFFF" do
+    bytes=[0]*8
+    cmd=Rserve::Protocol::CMD_login    
+    len=0x12345678
+    offset=0
+    expected=[cmd|Rserve::Protocol::DT_LARGE,0x78,0x56,0x34,0x12,0,0,0]
+    @t.set_hdr(cmd,len,bytes,offset)
+    bytes.should==expected
+  end 
+  it "new_hdr method should return a correct header for different lengths" do
+    cmd=Rserve::Protocol::CMD_login    
+    len=0x123456
+    expected=[cmd,0x56,0x34,0x12]
+    @t.new_hdr(cmd,len).should==expected
+    len=0x12345678
+    expected=[cmd|Rserve::Protocol::DT_LARGE,0x78,0x56,0x34,0x12,0,0,0]
+    @t.new_hdr(cmd,len).should==expected
+  end
+  it "get_int method should return a correct integer for a given buffer" do
+    buffer=[0xFF,0x78,0x56,0x34,0x12]
+    expected=0x12345678
+    @t.get_int(buffer,1).should==expected
+    
+    # Version with errors
+    
+    buffer=[0xFF,0xFF78,0xFF56,0xFF34,0xFF12]
+    expected=0x12345678
+    @t.get_int(buffer,1).should==expected
+  end
+  it "get_len method should return correct length from a header" do
+     cmd=Rserve::Protocol::CMD_login    
+    len=0x12345678
+    header=@t.new_hdr(cmd,len)
+    @t.get_len(header,0).should==len
+  end
+  it "get_long method should return correct long(32 bits) for a given buffer" do
+    buffer=[0xFF,0x78,0x56,0x34,0x12,0x78,0x56,0x34,0x12]
+    expected=0x1234567812345678
+    @t.get_long(buffer,1).should==expected
+
+  end
+  it "set_long method should set correct long(32 bits) for a given buffer" do
+    buffer=[0]*9
+    long=0x123456789ABCDF45
+
+    @t.set_long(long,buffer,1)
+    expected=[0x45,0xDF,0xBC,0x9A,0x78,0x56,0x34,0x12]
+    buffer.slice(1,8).should==expected
+  end
+  
+end

data/spec/rserve_rexpfactory_spec.rb

@@ -0,0 +1,44 @@
+# encoding: UTF-8
+
+require File.dirname(__FILE__)+"/spec_helper.rb"
+
+describe Rserve::Protocol::REXPFactory do
+  before do
+    @r=Rserve::Connection.new
+  end
+  it "should process single logical" do
+    la=@r.eval("TRUE")
+    la.should be_instance_of(Rserve::REXP::Logical)
+    la.true?.should==[true]
+  end
+  it "should process logical vector" do
+    la=@r.eval("c(TRUE,FALSE,TRUE)")
+    la.should be_instance_of(Rserve::REXP::Logical)
+    la.true?.should==[true,false,true]
+  end
+  it "should process single double" do
+    la=@r.eval("1.5")
+    la.should be_instance_of(Rserve::REXP::Double)
+    la.as_doubles.should==[1.5]
+  end
+  it "should process double vector" do
+    a=100.times.map{|i| rand()}
+    la=@r.eval("c("+a.map(&:to_s).join(",")+")")
+    la.should be_instance_of(Rserve::REXP::Double)
+    
+    la.as_doubles.map(&:to_f).each_with_index {|v,i|
+      v.should be_close(a[i],1e-10)
+    }
+  end
+  it "should process char" do
+    la=@r.eval("c('abc','def','ghi')")
+    la.should be_instance_of(Rserve::REXP::String)
+    la.as_strings.should==['abc','def','ghi']
+  end
+  it "should process list" do
+    require 'pp'
+    la=@r.eval("list(name='Fred', wife='Mary', no.children=3, child.ages=c(4,7,9))")
+    pp la
+  end
+
+end

data/spec/rserve_spec.rb

@@ -0,0 +1,18 @@
+require File.dirname(__FILE__)+"/spec_helper.rb"
+
+describe Rserve do
+  before do
+     @r=Rserve::Connection.new()
+  end
+  it "should receive a valid response to valid expression" do
+    #response=@r.send(Rserve::CMD_eval, @r.string("1:5"))
+    #p response
+    #response[:response].should==Rserve::RESP_OK
+  end
+  it "should receive error on invalid expression" do
+    #response=@r.send(Rserve::CMD_eval, @r.string("a|sdsds<-||#@r3"))
+    #p response
+    #response[:response].should==Rserve::RESP_ERR
+  end
+
+end

data/spec/rserve_talk_spec.rb

@@ -0,0 +1,73 @@
+require File.dirname(__FILE__)+"/spec_helper.rb"
+
+describe Rserve::Talk do
+  before do
+    @iomock=mock('IO Mock')
+    @talk=Rserve::Talk.new(@iomock)
+  end
+  it "method request_string should return a valid string" do
+    par="x<-12".unpack("C*")
+    buf=[0]*13
+    @talk.set_hdr(Rserve::Protocol::DT_STRING,8,buf,0)
+    par.each_index {|i| buf[i+4]=par[i]}
+    @talk.request_string("x<-12").should==buf
+  end
+  it "should raise an error on incorrect type of cont" do
+    ty=Rserve::Protocol::CMD_shutdown
+    lambda {
+      @talk.request(:cmd=>ty, :cont=>"no")
+    }.should raise_exception()
+      
+  end
+  it "should behave correctly with cmd as only argument" do
+    ty=Rserve::Protocol::CMD_shutdown
+    buf=[0]*16
+    @talk.set_int(ty, buf, 0)
+    @talk.set_int(0, buf, 4)
+    rep=Rserve::Protocol::RESP_OK
+    cont="Test content"
+    cl=cont.length
+    server_response_1=[rep,cl,0,0].pack("IIII")
+    server_response_2=cont
+    
+    @iomock.should_receive(:write).once.with(buf.pack("C*"))
+    @iomock.should_receive(:recv).once.with(16).and_return(server_response_1)
+    @iomock.should_receive(:recv).once.with(cl).and_return(server_response_2)
+
+    ret=@talk.request(:cmd=>ty)
+    ret.should be_instance_of(Rserve::Packet)
+    ret.cmd.should==rep
+    ret.cont_len.should==cl
+    ret.cont.should==cont.unpack("C*")
+  end
+  it "should behave correctly with cmd and cont as arguments" do
+    
+
+    ty=Rserve::Protocol::CMD_eval
+    buf=[0]*16
+    
+    es="x<-1020"
+    es_proc=@talk.request_string(es).pack("C*")
+    es_len=es_proc.size
+    @talk.set_int(ty, buf, 0)
+    @talk.set_int(es_len, buf, 4)
+    rep=Rserve::Protocol::RESP_OK
+    cont=es+"(Response)"
+    cl=cont.length
+    server_response_1=[rep,cl,0,0].pack("IIII")
+    server_response_2=cont
+    @iomock.should_receive(:write).once.with(buf.pack("C*"))
+    @iomock.should_receive(:write).once.with(es_proc)
+    
+    @iomock.should_receive(:recv).once.with(16).and_return(server_response_1)
+    @iomock.should_receive(:recv).once.with(cl).and_return(server_response_2)
+    
+    ret=@talk.request(:cmd=>ty,:cont=>es)
+    
+    ret.should be_instance_of(Rserve::Packet)
+    ret.cmd.should==rep
+    ret.cont_len.should==cl
+    ret.cont.should==cont.unpack("C*")
+  end
+
+end

data/spec/spec.opts

@@ -0,0 +1,3 @@
+--color
+-f s 
+-b

data/spec/spec_helper.rb

@@ -0,0 +1,4 @@
+$:.unshift(File.dirname(__FILE__)+"/../lib")
+require 'spec'
+require 'spec/autorun'
+require 'rserve'

metadata

@@ -0,0 +1,149 @@
+--- !ruby/object:Gem::Specification 
+name: rserve-client
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  - 0
+  version: 0.1.0
+platform: ruby
+authors: 
+- Claudio Bustos
+autorequire: 
+bindir: bin
+cert_chain: 
+- |
+  -----BEGIN CERTIFICATE-----
+  MIIDMjCCAhqgAwIBAgIBADANBgkqhkiG9w0BAQUFADA/MREwDwYDVQQDDAhjbGJ1
+  c3RvczEVMBMGCgmSJomT8ixkARkWBWdtYWlsMRMwEQYKCZImiZPyLGQBGRYDY29t
+  MB4XDTEwMDMyOTIxMzg1NVoXDTExMDMyOTIxMzg1NVowPzERMA8GA1UEAwwIY2xi
+  dXN0b3MxFTATBgoJkiaJk/IsZAEZFgVnbWFpbDETMBEGCgmSJomT8ixkARkWA2Nv
+  bTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBALf8JVMGqE7m5kYb+PNN
+  neZv2pcXV5fQCi6xkyG8bi2/SIFy/LyxuvLzEeOxBeaz1Be93bayIUquOIqw3dyw
+  /KXWa31FxuNuvAm6CN8fyeRYX/ou4cw3OIUUnIvB7RMNIu4wbgeM6htV/QEsNLrv
+  at1/mh9JpqawPrcjIOVMj4BIp67vmzJCaUf+S/H2uYtSO09F+YQE3tv85TPeRmqU
+  yjyXyTc/oJiw1cXskUL8UtMWZmrwNLHXuZWWIMzkjiz3UNdhJr/t5ROk8S2WPznl
+  0bMy/PMIlAbqWolRn1zl2VFJ3TaXScbqImY8Wf4g62b/1ZSUlGrtnLNsCYXrWiso
+  UPUCAwEAAaM5MDcwCQYDVR0TBAIwADALBgNVHQ8EBAMCBLAwHQYDVR0OBBYEFGu9
+  rrJ1H64qRmNNu3Jj/Qjvh0u5MA0GCSqGSIb3DQEBBQUAA4IBAQCV0Unka5isrhZk
+  GjqSDqY/6hF+G2pbFcbWUpjmC8NWtAxeC+7NGV3ljd0e1SLfoyBj4gnFtFmY8qX4
+  K02tgSZM0eDV8TpgFpWXzK6LzHvoanuahHLZEtk/+Z885lFene+nHadkem1n9iAB
+  cs96JO9/JfFyuXM27wFAwmfHCmJfPF09R4VvGHRAvb8MGzSVgk2i06OJTqkBTwvv
+  JHJdoyw3+8bw9RJ+jLaNoQ+xu+1pQdS2bb3m7xjZpufml/m8zFCtjYM/7qgkKR8z
+  /ZZt8lCiKfFArppRrZayE2FVsps4X6WwBdrKTMZ0CKSXTRctbEj1BAZ67eoTvBBt
+  rpP0jjs0
+  -----END CERTIFICATE-----
+
+date: 2010-05-21 00:00:00 -04:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rubyforge
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 2
+        - 0
+        - 4
+        version: 2.0.4
+  type: :development
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 2
+        - 6
+        - 0
+        version: 2.6.0
+  type: :development
+  version_requirements: *id002
+description: |-
+  Ruby client for Rserve, a Binary R server (http://www.rforge.net/Rserve/).
+  
+  Follows closely the new Java client API, but maintains all Ruby conventions when possible.
+  
+  Connection to Rserve not yet developed, but between June-July 2010 the system should be operational.
+email: 
+- clbustos_AT_gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- lib/rserve.rb
+- lib/rserve/connection.rb
+- lib/rserve/engine.rb
+- lib/rserve/packet.rb
+- lib/rserve/protocol.rb
+- lib/rserve/protocol/rexpfactory.rb
+- lib/rserve/rexp.rb
+- lib/rserve/rexp/double.rb
+- lib/rserve/rexp/genericvector.rb
+- lib/rserve/rexp/integer.rb
+- lib/rserve/rexp/list.rb
+- lib/rserve/rexp/logical.rb
+- lib/rserve/rexp/string.rb
+- lib/rserve/rexp/symbol.rb
+- lib/rserve/rexp/vector.rb
+- lib/rserve/rlist.rb
+- lib/rserve/talk.rb
+- spec/rserve_connection_spec.rb
+- spec/rserve_double_spec.rb
+- spec/rserve_integer_spec.rb
+- spec/rserve_packet_spec.rb
+- spec/rserve_protocol_spec.rb
+- spec/rserve_rexpfactory_spec.rb
+- spec/rserve_spec.rb
+- spec/rserve_talk_spec.rb
+- spec/spec.opts
+- spec/spec_helper.rb
+has_rdoc: true
+homepage: http://github.com/clbustos/Rserve-Ruby-client
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: ruby-statsample
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: Ruby client for Rserve, a Binary R server (http://www.rforge.net/Rserve/)
+test_files: []
+