rdomino 0.0.2

data/lib/rdomino/version.rb

@@ -0,0 +1,3 @@
+module Rdomino
+  VERSION = "0.0.2"
+end

data/lib/rdomino/view.rb

@@ -0,0 +1,89 @@
+module Rdomino
+
+  class View
+    include Enumerable, DomObject, DcView
+    attr_reader :document 
+    
+    def initialize(db,name)
+      if @obj = db.getView(name)
+        unid = @obj.universalID 
+        @document = Document.new(@obj.parent.getdocumentbyunid(unid))
+      else
+        @document = @obj = nil
+      end
+    end
+    
+    # first column of categorized view
+    def categories
+      nvn = @obj.CreateViewNav( 0 )
+      r=[]
+      nve = nvn.GetFirst
+      while nve
+        r << nve.ColumnValues
+        nve = nvn.GetNextCategory(nve)  
+      end
+      r  
+    end
+    
+    def get_document_by_key(value,exact_match=true)
+      r = @obj.getDocumentByKey(value,exact_match)
+      r ? Document.new(r) : r 
+    end
+    
+    alias :[] :get_document_by_key
+    
+#    def [](p)
+#      r = get_document_by_key(p)
+#      unless r.empty? 
+#        r
+#      end
+#    end
+    
+    def get_all_documents_by_key(arg)
+      DocumentCollection.new(@obj.getAllDocumentsByKey(arg))
+    end
+    
+    def refresh
+      obj.Refresh
+      self
+    end
+    
+    def title
+      document.g :$Title
+    end
+    
+    def comment
+      document.g :$comment
+    end
+    
+    def ==(v)
+      title == v.title and comment == v.comment
+    end
+    
+    def select_after(time)
+      doc = getlastdocument
+      while doc.created > time
+        puts doc.created
+        doc = getprevdocument(doc)
+      end
+    end
+    
+    def refresh_selection_formula(value)
+      unless @obj.SelectionFormula == value
+        r = {}
+        r[:old] = @obj.SelectionFormula
+        r[:new] = value
+        @obj.SelectionFormula= value
+        r
+      end
+    end
+    
+    def to_array
+      map{|doc|
+        doc.columnvalues
+      }
+    end
+    
+  end
+
+end

data/readme.rdoc

@@ -0,0 +1 @@
+blabla

data/spec/helper.rb

@@ -0,0 +1 @@
+require File.dirname(__FILE__)+'/../lib/rdomino'

data/spec/rdomino/database_directory_spec.rb

@@ -0,0 +1,14 @@
+require File.dirname(__FILE__)+'/../helper'
+module Rdomino
+  describe DatabaseDirectory do
+    
+    it 'finds Databases by matchers' do
+      Session.get('test')
+      DatabaseDirectory.new("",/^imbeh/).each do |db| 
+        db.filepath.should match(/^imbeh/) 
+      end
+    end
+ 
+  end
+  
+end

data/spec/rdomino/database_helper_spec.rb

@@ -0,0 +1,17 @@
+require File.dirname(__FILE__)+'/../helper' 
+module Rdomino
+  describe DatabaseHelper, 'is cool' do
+     
+    before(:each) do
+      @h = Object.new
+      @h.extend DatabaseHelper
+    end
+    
+    it 'detects replica_ids' do
+      @h.is_replica_id?('0123456789012345').should be_true
+      @h.is_replica_id?('012345678901234').should be_false
+      @h.is_replica_id?('mail\k\avkoj.nsf').should be_false
+    end
+    
+  end
+end

data/spec/rdomino/database_spec.rb

@@ -0,0 +1,111 @@
+require File.dirname(__FILE__)+'/../helper'
+module Rdomino
+  describe Database do 
+     
+    before(:all) do
+      @s  = Session.get('test')
+      @db = @s[:testdb].load_fixtures 
+    end
+    
+    it 'loads fixtures from xlm' do
+      @db.count.should == 3  
+      p 1
+    end
+    
+    it 'loads fixtures from yml' do
+      @db = @db.load_fixtures :yml
+      @db.count.should == 1
+      @db.search("Name='Horst'").count.should == 1  
+    end
+    
+    it 'loads fixtures from hash' do
+      @db = @db.load_fixtures :name => 'Paula'
+      @db.count.should == 1
+      @db.search("Name='Paula'").count.should == 1  
+    end
+    
+    it 'loads fixtures from string' do
+      @db = @db.load_fixtures( <<-HERE )
+form|name
+Person|Theo
+HERE
+      @db.count.should == 1
+      @db.search("Name='Theo'").count.should == 1  
+    end
+    
+    it 'includes specific Module' do
+      @db.foo.should == "bar"
+    end
+    
+    it 'finds document by id and unid' do
+      doc = @db.load_fixtures(:name => 'Paula').first
+      unid = doc.unid
+      @db.find(unid).unid.should == unid
+      id = doc.id
+      @db.find(id).id.should == id
+    end
+    
+    it 'acesses design documents' do
+      @db.design_documents{|d|}. # more design documents 
+        should be > @db.design_documents(:views ){|d| } # than views 
+      @db.design_documents(:icon).should be_a(Document)
+      @db.design_documents(:icon).unid.should == @db.icon.unid
+      # @db.design_documents(:icon).id.should == @db.icon.id 
+      # fails expected: "FFFF0010",     got: "11A" 
+      # @db.find("FFFF0010").unid.should == @db.find("11A").unid
+      
+      @db.design_documents(:acl).should be_a(Document)
+      @db.icon.should be_a(Document)
+      @db.acl.should be_a(Document)
+      #@db.design_documents(:databasescript).should be_a(Document)
+    end
+    
+    it 'accesses flags' do
+      # @db.flags.should == 'JF'
+    end
+    
+    it 'accesses default_frameset' do
+      @db.default_frameset.should == 'fsdefault'
+    end
+    
+    it 'can modify the replication cut of intervall' do
+      @db.cut_off_intervall = 90
+      @db.cut_off_intervall.should == 90
+      @db.cut_off_intervall = 91
+      @db.cut_off_intervall.should == 91
+    end
+    
+    it 'accesses view' do
+      @db['people'].should be_a(View)
+      @db['blabla'].should be_nil  
+    end
+    
+    it 'refreshes view from other database' do
+#      view = @db['categorized']
+#      view.document.removepermanently(true) if view
+#      @db.refresh_view_design( @s[:design_library,"categorized"], :open => true ).should == :pasted
+#      @db.refresh_view_design( @s[:design_library,"categorized"] ).should == :no_action
+    end
+    
+    it 'shows content' do
+      @db = @db.load_fixtures
+      @db.by.should == {"Group" => 1, "Person" => 2}
+      @db.by(:name,"Form='Person'").should == {"Tobias"=>1, "Frank"=>1}
+    end
+    
+    it 'can search' do
+      @db.search("Form='Person'").count.should == 2
+    end
+        
+    it 'creates document' do
+      lambda {
+        @doc = @db.create_document(:form=> 'test')
+      }.should change(@db, :count).by(1)
+      
+      lambda{
+        @doc.remove(true)
+      }.should change(@db,:count).by(-1)
+    end
+    
+  end
+end

data/spec/rdomino/datetime_spec.rb

@@ -0,0 +1,12 @@
+require File.dirname(__FILE__)+'/../helper'
+module Rdomino
+  describe Datetime do
+    
+    it 'works' do
+      dt = Datetime.new(Time.local(1992,2,1,11,22,33))
+      dt.localtime.should == "01.02.92 11:22:33 CET"    
+    end
+    
+  end    
+
+end

data/spec/rdomino/document_collection_spec.rb

@@ -0,0 +1,56 @@
+require File.dirname(__FILE__)+'/../helper'
+module Rdomino
+  describe DocumentCollection, 'DocumentCollection' do
+    
+    before(:each) do
+      @s = Session.get 'test'
+      @db = @s[:scratch]
+      @db.load_fixtures(:yml)
+    end
+    
+    # shared_examples_for 'updating attributes' do
+    
+    it 'requires confirmation' do
+      $terminal = HighLine.new(StringIO.new("n\n"), StringIO.new)
+      @db.search("tk='mail'").update_attributes( :tk => 'new').should  be_nil
+      @db.search("tk='new'").count.should == 0
+    end
+    
+    it 'shoud not modify without confirmation' do
+      $terminal = HighLine.new(StringIO.new("y\n"), StringIO.new)
+      @db.search("tk='mail'").update_attributes( :tk => 'new', :name => 'new').should == 2
+      @db.search("tk='new'").count.should == 2
+      @db.search("name='new'").count.should == 2
+    end
+    
+    it 'proceed without asking' do
+      @db.search("tk='mail'").update_attributes!( :tk => 'new', :name => 'new').should == 2
+      @db.search("tk='new'").count.should == 2
+      @db.search("name='new'").count.should == 2
+    end
+      
+    it 'updates string' do
+      @db.search("tk='mail'").update_attributes!( 'tk' => 'new', 'name' => 'new').should == 2
+    end
+    
+    
+    it 'fills_nonexistent_fields' do
+      dc = @db.search("@isunavailable(hans)")
+      dc.count.should == 4
+      dc.update_attributes!(:hans => '')
+      @db.search("@isunavailable(hans)").count.should == 0
+    end
+    
+    it 'creates empty fields' do 
+      @db.each{|d| d.create_empty_fields(  %w(tk tkk) )}
+      @db.search("@isunavailable(tkk)").count.should == 0
+      @db.search("tk=''").count.should == 0
+    end
+    
+    it 'can be limited to change maximum' do
+      @db.search("1=1").each_limit{|d| puts d.g(:tk) }
+    end
+    
+  end    
+
+end

data/spec/rdomino/document_spec.rb

@@ -0,0 +1,55 @@
+require File.dirname(__FILE__)+'/../helper' 
+module Rdomino
+  describe Document do
+     
+    before(:all) do
+      @s = Session.get('test') 
+      @db = @s[:scratch]
+    end
+    
+    before(:each) do
+      @doc = @db.load_fixtures( :name => "Frank").first
+    end
+     
+    it 'accesses id and unid' do
+      @doc.id.should be_a(String) 
+      @doc.unid.should have(32).characters 
+    end
+    
+    it 'get items' do
+      @doc.get(:name)[0].should == 'Frank' 
+      @doc.g(:name).should == 'Frank'
+    end
+    
+    it 'replaces item' do
+      @doc.replace :name => 'Horst'  
+      @doc.g(:name).should == 'Horst'  
+    end
+    
+    it 'accesses items' do
+      @doc.items.map{|i| i.name}.sort.join(',').should == '$UpdatedBy,name'
+    end
+
+    it 'updates attributes' do
+      @doc.update_attributes(:name => 'Horst').should == 'name:Frank->Horst'
+      @doc.g(:name).should == 'Horst'
+    end
+
+    it 'updates attributes without change' do
+      @doc.update_attributes(:name => 'Frank').should be_nil
+    end
+
+    it 'updates attributes with numbers' do
+      @doc.update_attributes(:name => 3).should == 'name:Frank->3'
+      @doc.g(:name).should == 3
+    end
+
+    it 'updates attributes with unavailable field' do
+      @doc.update_attributes(:foo => 'bar').should == 'foo:->bar'
+      @doc.g(:foo).should == 'bar'
+    end
+                    
+    # it 'handles time'
+ 
+  end
+end

data/spec/rdomino/dxl_spec.rb

@@ -0,0 +1,16 @@
+require File.dirname(__FILE__)+'/../helper'
+module Rdomino
+  describe Database, '  for Dxl' do
+    
+    it 'should export dxl' do
+      d  = Session.get('test')
+      db = d[:testdb].load_fixtures
+      dir = File.dirname(__FILE__)+'/dxl/'
+      db.dxl_to_file(dir+'db.xml') 
+      db.search("Form = 'Person'").dxl_to_file(dir+'dc.xml')
+      d[:testdb,:people].refresh["Frank"].dxl_to_file(dir+'doc.xml')
+    end
+        
+  end    
+
+end

data/spec/rdomino/item_spec.rb

@@ -0,0 +1,26 @@
+require File.dirname(__FILE__)+'/../helper' 
+module Rdomino
+  
+  describe Item do
+     
+    before(:all) do
+      @s = Session.get 'test'
+      @doc = @s[:scratch].load_fixtures(:li => ['z1','z2']).first
+      @li = @doc[:li]
+    end
+    
+    it 'creates nonexistent item' do
+      item = @doc.find_or_create_item(:name)
+      item << 'v'
+      item.values.should == ['v']
+    end
+    
+    it 'appends text' do
+      @li.values.should == ['z1','z2']
+      @li << "z3"
+      @li.values.should == ['z1','z2','z3']
+    end
+    
+  end
+  
+end

data/spec/rdomino/name_spec.rb

@@ -0,0 +1,13 @@
+require File.dirname(__FILE__)+'/../helper'
+module Rdomino
+  describe Name, 'DominoName' do
+    
+    it 'works' do
+      Session.get
+      Name.abbreviated("CN=BYDSL1/OU=Server/OU=LEV/OU=DE/O=BAYER").
+        should == "BYDSL1/Server/LEV/DE/BAYER"
+    end
+    
+  end    
+
+end

data/spec/rdomino/session_spec.rb

@@ -0,0 +1,46 @@
+require File.dirname(__FILE__)+'/../helper'
+module Rdomino
+  describe Session, 'handles Session' do
+    
+    before(:all) do
+      @s  = Session.get 'test'
+      @db = @s[:testdb].load_fixtures
+    end
+    
+    it 'gets Datbase by replica_id' do
+      @s['!!C1257700002E52E7'].replicaId.should == 'C1257700002E52E7'
+    end
+    
+    it 'get Database' do
+      @db.should be_a(Database)
+      @db.Title.should == '$Testdb'
+    end
+    
+    it 'should get views' do
+      @s[:testdb,:people].Name.should == 'People'
+      @s[:testdb,'People'].Name.should == 'People'
+      @s[:testdb,:person_search].count.should == 2
+      @s[:testdb,"search:Form='Person'"].count.should == 2
+      @s[:testdb,"non existent view"].should be_nil
+    end
+    
+#    it 'should have addressbooks' do
+#      abs = Session.addressbooks
+#      abs.should be_a(Array)
+#      abs.length.should be > 2
+#      abs.each do |d|
+#        d.should be_a(Database)
+#      end
+#      Session.private_addressbooks.length.should == 1
+#    end
+#    
+#    it 'should have locations' do
+#      ls= Session.locations
+#      ls.should be_a(DocumentCollection)
+#      ls.count.should be  > 3
+#      ls.each { |l| "#{l.get :name}: #{l.get :userid}"  }
+#    end
+    
+  end
+  
+end