ruby_odata 0.0.10 → 0.1.0

data/spec/query_builder_spec.rb

@@ -18,6 +18,17 @@ module OData
         builder.top(10)
         builder.query.should eq "Products?$top=10&x=1&y=2"
       end
+      it "should properly handle queries for links" do
+        builder = QueryBuilder.new 'Categories(1)'
+        builder.links('Products')
+        builder.query.should eq "Categories(1)/$links/Products"
+      end
+      it "should properly handle queries for links with additional operations" do
+        builder = QueryBuilder.new 'Categories(1)'
+        builder.links('Products')
+        builder.top(5)
+        builder.query.should eq "Categories(1)/$links/Products?$top=5"
+      end
     end
   end
 end

data/spec/revised_service_spec.rb

@@ -0,0 +1,197 @@
+require 'spec_helper'
+
+module OData
+  describe Service do
+    before(:all) do
+      stub_request(:get, /http:\/\/test\.com\/test\.svc\/\$metadata(?:\?.+)?/).
+      with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+      to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/edmx_categories_products.xml", __FILE__)), :headers => {})
+
+      @cat_prod_service = OData::Service.new "http://test.com/test.svc"
+    end
+    subject { @cat_prod_service }
+    
+    context "methods" do
+      it { should respond_to :update_object }
+      it { should respond_to :delete_object }
+      it { should respond_to :save_changes }
+      it { should respond_to :load_property }
+      it { should respond_to :add_link }
+      it { should respond_to :execute }
+      it { should respond_to :partial? }
+      it { should respond_to :next }
+      it { should respond_to :classes }
+      it { should respond_to :class_metadata }
+      it { should respond_to :collections }
+      it { should respond_to :options }
+      it { should respond_to :function_imports }
+    
+      context "after parsing metadata" do
+        it { should respond_to :Products }
+        it { should respond_to :Categories }
+        it { should respond_to :AddToProducts }
+        it { should respond_to :AddToCategories }
+      end
+    end
+    context "collections method" do
+      subject { @cat_prod_service.collections }
+      it { should include 'Products' }
+      it { should include 'Categories' }
+      it "should expose the edmx type of objects" do
+        subject['Products'][:edmx_type].should eq 'RubyODataService.Product'
+        subject['Categories'][:edmx_type].should eq 'RubyODataService.Category'
+      end
+      it "should expose the local model type" do
+        subject['Products'][:type].should eq Product
+        subject['Categories'][:type].should eq Category                
+      end
+    end
+    context "class metadata" do
+      subject { @cat_prod_service.class_metadata }
+      it { should_not be_empty}
+      it { should have_key 'Product' }
+      it { should have_key 'Category' }
+      context "should have keys for each property" do
+        subject { @cat_prod_service.class_metadata['Category'] }
+        it { should have_key 'Id' }
+        it { should have_key 'Name' }
+        it { should have_key 'Products' }
+        it "should return a PropertyMetadata object for each property" do
+          subject['Id'].should be_a PropertyMetadata
+          subject['Name'].should be_a PropertyMetadata
+          subject['Products'].should be_a PropertyMetadata
+        end
+        it "should have correct PropertyMetadata for Category.Id" do
+          meta = subject['Id']
+          meta.name.should eq 'Id'
+          meta.type.should eq 'Edm.Int32'
+          meta.nullable.should eq false
+          meta.fc_target_path.should be_nil
+          meta.fc_keep_in_content.should be_nil
+          meta.nav_prop.should eq false
+        end
+        it "should have correct PropertyMetadata for Category.Name" do
+          meta = subject['Name']
+          meta.name.should eq 'Name'
+          meta.type.should eq 'Edm.String'
+          meta.nullable.should eq false
+          meta.fc_target_path.should be_nil
+          meta.fc_keep_in_content.should be_nil
+          meta.nav_prop.should eq false
+        end
+        it "should have correct PropertyMetadata for Category.Products" do
+          meta = subject['Products']
+          meta.name.should eq 'Products'
+          meta.type.should be_nil
+          meta.nullable.should eq true
+          meta.fc_target_path.should be_nil
+          meta.fc_keep_in_content.should be_nil
+          meta.nav_prop.should eq true
+          meta.association.should_not be_nil
+        end
+      end
+    end
+    context "function_imports method" do
+      subject { @cat_prod_service.function_imports }
+      it { should_not be_empty}
+      it { should have_key 'CleanDatabaseForTesting' }
+      it { should have_key 'EntityCategoryWebGet' }
+      it { should have_key 'EntitySingleCategoryWebGet' }
+      it "should expose the http method" do
+        subject['CleanDatabaseForTesting'][:http_method].should eq 'POST'
+        subject['EntityCategoryWebGet'][:http_method].should eq 'GET'
+        subject['EntitySingleCategoryWebGet'][:http_method].should eq 'GET'
+      end
+      it "should expose the return type" do
+        subject['CleanDatabaseForTesting'][:return_typo].should be_nil
+        subject['EntityCategoryWebGet'][:return_type].should eq Array
+        subject['EntityCategoryWebGet'][:inner_return_type].should eq Category
+        subject['EntitySingleCategoryWebGet'][:return_type].should eq Category
+        subject['EntitySingleCategoryWebGet'][:inner_return_type].should be_nil
+        subject['CategoryNames'][:return_type].should eq Array
+        subject['CategoryNames'][:inner_return_type].should eq String
+      end
+      it "should provide a hash of parameters" do
+        subject['EntityCategoryWebGet'][:parameters].should be_nil
+        subject['EntitySingleCategoryWebGet'][:parameters].should be_a Hash
+        subject['EntitySingleCategoryWebGet'][:parameters]['id'].should eq 'Edm.Int32'
+      end     
+      context "after parsing function imports" do
+        subject { @cat_prod_service }
+        it { should respond_to :CleanDatabaseForTesting }
+        it { should respond_to :EntityCategoryWebGet }
+        it { should respond_to :EntitySingleCategoryWebGet }
+        it { should respond_to :CategoryNames }
+      end
+      context "error checking" do
+        subject { @cat_prod_service }
+        it "should throw an exception if a parameter is passed in to a method that doesn't require one" do
+          lambda { subject.EntityCategoryWebGet(1) }.should raise_error(ArgumentError, "wrong number of arguments (1 for 0)")
+        end
+        it "should throw and exception if more parameters are passed in than required by the function" do
+          lambda { subject.EntitySingleCategoryWebGet(1,2) }.should raise_error(ArgumentError, "wrong number of arguments (2 for 1)")
+        end
+      end
+      context "url and http method checks" do
+        subject { @cat_prod_service }
+        before { stub_request(:any, /http:\/\/test\.com\/test\.svc\/(.*)/) }
+        it "should call the correct url with the correct http method for a post with no parameters" do
+          subject.CleanDatabaseForTesting
+          a_request(:post, "http://test.com/test.svc/CleanDatabaseForTesting").should have_been_made
+        end
+        it "should call the correct url with the correct http method for a get with no parameters" do
+          subject.EntityCategoryWebGet
+          a_request(:get, "http://test.com/test.svc/EntityCategoryWebGet").should have_been_made
+        end
+        it "should call the correct url with the correct http method for a get with parameters" do
+          subject.EntitySingleCategoryWebGet(1)
+          a_request(:get, "http://test.com/test.svc/EntitySingleCategoryWebGet?id=1").should have_been_made
+        end
+      end
+      context "function import result parsing" do
+        subject { @cat_prod_service }
+        before(:each) do
+          stub_request(:post, "http://test.com/test.svc/CleanDatabaseForTesting").to_return(:status => 204)
+          
+          stub_request(:get, "http://test.com/test.svc/EntityCategoryWebGet").
+          to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/result_entity_category_web_get.xml", __FILE__)), :headers => {})
+          
+          stub_request(:get, "http://test.com/test.svc/EntitySingleCategoryWebGet?id=1").
+          to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/result_entity_single_category_web_get.xml", __FILE__)), :headers => {})
+
+          stub_request(:get, "http://test.com/test.svc/CategoryNames").
+          to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/result_category_names.xml", __FILE__)), :headers => {})
+
+          stub_request(:get, "http://test.com/test.svc/FirstCategoryId").
+          to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/result_first_category_id.xml", __FILE__)), :headers => {})
+        end
+        it "should return true if a function import post that returns successfully and doesn't have a return value (HTTP 204)" do
+          result = subject.CleanDatabaseForTesting
+          result.should be_true
+        end
+        it "should return a collection of entities for a collection" do
+          result = subject.EntityCategoryWebGet
+          result.should be_an Enumerable
+          result.first.should be_a Category
+          result.first.Name.should eq "Test Category"
+        end
+        it "should return a single entity if it isn't a collection" do
+          result = subject.EntitySingleCategoryWebGet(1)
+          result.should be_a Category
+          result.Name.should eq "Test Category"
+        end
+        it "should return a collection of primitive types" do
+          result = subject.CategoryNames
+          result.should be_an Enumerable
+          result.first.should be_a String
+          result.first.should eq "Test Category 1"
+        end
+        it "should return a single primitive type" do
+          result = subject.FirstCategoryId
+          result.should be_a Fixnum
+          result.should eq 1
+        end
+      end
+    end
+  end
+end

data/spec/service_spec.rb

@@ -37,7 +37,6 @@ module OData
         end
       end
     end
-
     describe "additional query string parameters" do
       before(:each) do
         # Required for the build_classes method
@@ -83,7 +82,27 @@ module OData
         svc.save_changes
         a_request(:post, "http://test.com/test.svc/$batch?x=1&y=2").should have_been_made
       end
-    end    
+      it "should pass the parameters as part of an add link" do
+        svc = OData::Service.new "http://test.com/test.svc/", { :additional_params => { :x=>1, :y=>2 } }
+        existing_flight1 = ZDemoFlight.new
+        existing_flight1.__metadata = { :uri => "http://test.com/test.svc/flight_dataCollection/1" }
+        existing_flight2 = ZDemoFlight.new
+        existing_flight2.__metadata = { :uri => "http://test.com/test.svc/flight_dataCollection/2" }
+        svc.add_link(existing_flight1, "flight_data_r", existing_flight2)
+        svc.save_changes
+        a_request(:post, "http://test.com/test.svc/flight_dataCollection/1/$links/flight_data_r?x=1&y=2").should have_been_made
+      end
+      it "should pass the parameters as part of a function import with a parameter" do
+        svc = OData::Service.new "http://test.com/test.svc/", { :additional_params => { :x=>1, :y=>2 } }
+        svc.get_flight(1)
+        a_request(:get, "http://test.com/test.svc/get_flight?id=1&x=1&y=2").should have_been_made
+      end
+      it "should pass the parameters as part of a function import without parameters" do
+        svc = OData::Service.new "http://test.com/test.svc/", { :additional_params => { :x=>1, :y=>2 } }
+        svc.get_top_flight
+        a_request(:get, "http://test.com/test.svc/get_top_flight?x=1&y=2").should have_been_made
+      end
+    end
     
     describe "lowercase collections" do
       before(:each) do
@@ -124,7 +143,7 @@ module OData
       end
     end
   
-    describe "collections, objects, etc" do
+    describe "collections, objects, metadata etc" do
       before(:each) do
         # Metadata
         stub_request(:get, "http://test.com/test.svc/$metadata").
@@ -244,9 +263,449 @@ module OData
           product.Category.should_not be_an Array
         end      
       end
+      
+      describe "navigation properties" do
+        it "should fill in PropertyMetadata for navigation properties" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.class_metadata['Product'].should have_key 'Category'
+        end
+      end
     end
-  end
   
+    describe "single layer inheritance" do
+      before(:each) do
+        # Metadata
+        stub_request(:get, "http://test.com/test.svc/$metadata").
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/inheritance/edmx_pluralsight.xml", __FILE__)), :headers => {})
+        
+        # Content - Courses
+        stub_request(:get, /http:\/\/test\.com\/test\.svc\/Courses(?:.*)/).
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/inheritance/result_pluralsight_courses.xml", __FILE__)), :headers => {})
+      end
+      
+      it "should build all inherited attributes" do
+        OData::Service.new "http://test.com/test.svc/"
+        methods = Course.instance_methods.reject {|m| Object.methods.index(m)}
+        
+        # Ruby 1.9 uses symbols, and 1.8 uses strings, so this normalizes the data
+        methods.map! {|m| m.to_sym}
+        
+        methods.should include(:Title)
+        methods.should include(:Description)
+        methods.should include(:VideoLength)
+        methods.should include(:Category)
+
+        methods.should include(:Title=)
+        methods.should include(:Description=)
+        methods.should include(:VideoLength=)
+        methods.should include(:Category=)
+      end
+
+      it "should not build abstract classes" do
+        OData::Service.new "http://test.com/test.svc/"
+        defined?(ModelItemBase).should eq nil
+      end
+
+      it "should fill inherited properties" do
+        svc = OData::Service.new "http://test.com/test.svc/"
+        svc.Courses
+        courses = svc.execute
+        course = courses.first
+        course.Title.should_not be_nil
+        course.Description.should_not be_nil
+        course.VideoLength.should_not be_nil
+        course.Category.should_not be_nil
+      end
+    end
+  
+    describe "handling partial collections" do
+      before(:each) do
+        # Metadata
+        stub_request(:get, "http://test.com/test.svc/$metadata").
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/partial/partial_feed_metadata.xml", __FILE__)), :headers => {})
+
+        # Content - Partial
+        stub_request(:get, "http://test.com/test.svc/Partials").
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/partial/partial_feed_part_1.xml", __FILE__)), :headers => {})
+
+        stub_request(:get, "http://test.com/test.svc/Partials?$skiptoken='ERNSH'").
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/partial/partial_feed_part_2.xml", __FILE__)), :headers => {})
+
+        stub_request(:get, "http://test.com/test.svc/Partials?$skiptoken='ERNSH2'").
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/partial/partial_feed_part_3.xml", __FILE__)), :headers => {})
+
+      end
+
+      it "should return the whole collection by default" do
+        svc = OData::Service.new "http://test.com/test.svc/"
+        svc.Partials
+        results = svc.execute
+        results.count.should eq 3
+      end
+
+      it "should return only the partial when specified by options" do
+        svc = OData::Service.new("http://test.com/test.svc/", :eager_partial => false)
+        svc.Partials
+        results = svc.execute
+        results.count.should eq 1
+        svc.should be_partial
+        while svc.partial?
+          results.concat svc.next
+        end
+        results.count.should eq 3
+      end
+    end
+  
+    describe "link queries" do
+      before(:each) do
+        # Required for the build_classes method
+        stub_request(:get, /http:\/\/test\.com\/test\.svc\/\$metadata(?:\?.+)?/).
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/edmx_categories_products.xml", __FILE__)), :headers => {})
+        
+        stub_request(:get, "http://test.com/test.svc/Categories(1)/$links/Products").
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/links/result_links_query.xml", __FILE__)), :headers => {})
+      end
+      it "should be able to parse the results of a links query" do
+        svc = OData::Service.new "http://test.com/test.svc/"
+        svc.Categories(1).links('Products')
+        results = svc.execute
+        results.count.should eq 3
+        results.first.should be_a_kind_of(URI)
+        results[0].path.should eq "/SampleService/RubyOData.svc/Products(1)"
+        results[1].path.should eq "/SampleService/RubyOData.svc/Products(2)"
+        results[2].path.should eq "/SampleService/RubyOData.svc/Products(3)"        
+      end
+    end
+    
+    describe "sample service" do
+      before(:each) do
+        # Required for the build_classes method
+        stub_request(:get, /http:\/\/test\.com\/test\.svc\/\$metadata(?:\?.+)?/).
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/edmx_categories_products.xml", __FILE__)), :headers => {})
+        
+        stub_request(:get, /http:\/\/test\.com\/test\.svc\/Products\(\d\)/).
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/result_single_product.xml", __FILE__)), :headers => {})
+        
+        stub_request(:get, /http:\/\/test\.com\/test\.svc\/Products\(\d{2,}\)/).
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/result_single_product_not_found.xml", __FILE__)), :headers => {})
+        
+        stub_request(:get, "http://test.com/test.svc/Products(1)/Category").
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/result_single_category.xml", __FILE__)), :headers => {})
+        
+        stub_request(:get, "http://test.com/test.svc/Categories(1)").
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/result_single_category.xml", __FILE__)), :headers => {})
+        
+        stub_request(:get, "http://test.com/test.svc/Categories(1)/Products").
+        with(:headers => {'Accept'=>'*/*; q=0.5, application/xml', 'Accept-Encoding'=>'gzip, deflate'}).
+        to_return(:status => 200, :body => File.new(File.expand_path("../fixtures/sample_service/result_multiple_category_products.xml", __FILE__)), :headers => {})
+        
+        stub_request(:post, "http://test.com/test.svc/Categories(1)/$links/Products").to_return(:status => 204)
+        stub_request(:post, "http://test.com/test.svc/$batch").to_return(:status => 202)
+      end
+            
+      describe "lazy loading" do
+        after(:each) do
+          Object.send(:remove_const, 'Product') if Object.const_defined? 'Product'
+          Object.send(:remove_const, 'Category') if Object.const_defined? 'Category'
+        end
+        
+        it "should have a load property method" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.should respond_to(:load_property)
+        end
+      
+        it "should throw an exception if the object isn't tracked" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          new_object = Product.new
+          lambda { svc.load_property(new_object, "Category") }.should raise_error(ArgumentError, "You cannot load a property on an entity that isn't tracked")
+        end
+      
+        it "should throw an exception if there isn't a method matching the navigation property passed in" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Products(1)
+          product = svc.execute.first
+          lambda { svc.load_property(product, "NoMatchingMethod") }.should raise_error(ArgumentError, "'NoMatchingMethod' is not a valid navigation property")        
+        end
+      
+        it "should throw an exception if the method passed in is a standard property (non-navigation)" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Products(1)
+          product = svc.execute.first
+          lambda { svc.load_property(product, "Name") }.should raise_error(ArgumentError, "'Name' is not a valid navigation property")        
+        end
+      
+        it "should fill a single navigation property" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Products(1)
+          product = svc.execute.first
+          svc.load_property(product, "Category")
+          product.Category.should_not be_nil
+          product.Category.Id.should eq 1
+          product.Category.Name.should eq 'Category 1'
+        end
+      
+        it "should fill a collection navigation property" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Categories(1)
+          category = svc.execute.first
+          svc.load_property(category, "Products")
+          category.Products.first.should be_a Product
+          category.Products[0].Id.should eq 1
+          category.Products[1].Id.should eq 2
+        end
+      end
+    
+      describe "find, create, add, update, and delete" do
+        after(:each) do
+          Object.send(:remove_const, 'Product') if Object.const_defined? 'Product'
+          Object.send(:remove_const, 'Category') if Object.const_defined? 'Category'
+        end
+        
+        it "should implement an AddTo method for collection" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.should respond_to :AddToCategories
+          svc.should respond_to :AddToProducts
+        end
+        
+        it "should create objects with an initialize method that can build the object from a hash" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          product = Product.new 'Id' => 1000, 'Name' => 'New Product'
+          product.Id.should eq 1000
+          product.Name.should eq 'New Product'
+        end
+        
+        it "should create objects that rejects keys that don't have corresponding methods" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          lambda { Product.new 'NotAProperty' => true }.should raise_error NoMethodError
+        end
+        
+        it "should create objects that expose a properties class method that lists the properties for the object" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          Product.properties.should include 'Id'
+          Product.properties.should include 'Name'
+          Product.properties.should include 'Category'          
+        end
+        
+        it "should have full metadata for a property returned from the properties method" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          Product.properties['Category'].should be_a PropertyMetadata
+          Product.properties['Category'].nav_prop.should be_true
+        end
+        
+        it "should create objects that expose an id property" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Products(1)
+          product = svc.execute.first
+          product.should respond_to :id
+        end
+        
+        it "should extract the id from the metadata" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Products(1)
+          product = svc.execute.first
+          product.id.should eq 1
+        end
+        
+        describe "Class.first method" do
+          it "should exist on the create server objects" do
+            svc = OData::Service.new "http://test.com/test.svc/"
+            Product.should respond_to :first
+          end
+          it "should return nil if an id isn't passed in" do
+            svc = OData::Service.new "http://test.com/test.svc/"
+            product = Product.first(nil)
+            product.should be_nil
+          end          
+          it "should return nil if an id isn't found" do
+            svc = OData::Service.new "http://test.com/test.svc/"
+            product = Product.first(1234567890)
+            product.should be_nil
+          end
+          it "should return a product if an id is found" do
+            svc = OData::Service.new "http://test.com/test.svc/"
+            product = Product.first(1)
+            product.should_not be_nil
+          end
+        end
+      end
+      
+      describe "namespaces" do
+        after(:each) do
+          VisoftInc::Sample::Models.send(:remove_const, 'Product')        if VisoftInc::Sample::Models.const_defined? 'Product'
+          VisoftInc::Sample::Models.send(:remove_const, 'Category')       if VisoftInc::Sample::Models.const_defined? 'Category'
+          
+          VisoftInc::Sample.send(:remove_const, 'Models')                 if VisoftInc::Sample.const_defined? 'Models'
+          VisoftInc.send(:remove_const, 'Sample')                         if VisoftInc.const_defined? 'Sample'          
+          Object.send(:remove_const, 'VisoftInc')                         if Object.const_defined? 'VisoftInc'
+        end
+        
+        it "should create models in the specified namespace if the option is set (using a .NET style namespace with dots)" do
+          svc = OData::Service.new "http://test.com/test.svc/", { :namespace => 'VisoftInc.Sample.Models' }
+          defined?(VisoftInc::Sample::Models::Product).nil?.should be_false, 'VisoftInc::Sample::Models::Product was expected to be defined, but was not'
+          defined?(VisoftInc::Sample::Models::Category).nil?.should be_false, 'VisoftInc::Sample::Models::Category was expected to be defined, but was not'
+        end
+        
+        it "should create models in the specified namespace if the option is set (using Ruby style namespaces with double colons)" do
+          svc = OData::Service.new "http://test.com/test.svc/", { :namespace => 'VisoftInc::Sample::Models' }
+          defined?(VisoftInc::Sample::Models::Product).nil?.should be_false, 'VisoftInc::Sample::Models::Product was expected to be defined, but was not'
+          defined?(VisoftInc::Sample::Models::Category).nil?.should be_false, 'VisoftInc::Sample::Models::Category was expected to be defined, but was not'
+        end
+        
+        it "should fill object defined in a namespace" do
+          svc = OData::Service.new "http://test.com/test.svc/", { :namespace => 'VisoftInc::Sample::Models' }
+          svc.Categories(1)
+          categories = svc.execute
+          categories.should_not be_nil
+          category = categories.first
+          category.Id.should eq 1
+          category.Name.should eq 'Category 1'
+        end
+        
+        it "should fill the class_metadata hash" do
+          svc = OData::Service.new "http://test.com/test.svc/", { :namespace => 'VisoftInc::Sample::Models' }
+          svc.class_metadata.should_not be_empty
+        end
+        
+        it "should add a key (based on the name) for each property class_metadata hash" do
+          svc = OData::Service.new "http://test.com/test.svc/", { :namespace => 'VisoftInc::Sample::Models' }
+          svc.class_metadata['VisoftInc::Sample::Models::Product'].should have_key 'Id'
+          svc.class_metadata['VisoftInc::Sample::Models::Product'].should have_key 'Name'
+          svc.class_metadata['VisoftInc::Sample::Models::Product'].should have_key 'Description'
+        end
+        
+        it "should lazy load objects defined in a namespace" do
+          svc = OData::Service.new "http://test.com/test.svc/", { :namespace => 'VisoftInc::Sample::Models' }
+          svc.Categories(1)
+          category = svc.execute.first
+          svc.load_property category, 'Products'
+          category.Products.should_not be_nil
+          category.Products.first.Id.should eq 1
+          category.Products.first.Name.should eq 'Widget 1'          
+        end
+      end
+
+      describe "add_link method" do
+        it "should exist as a method on the service" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.should respond_to(:add_link)
+        end
+        
+        it "shouldn't be allowed if a parent isn't tracked" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          category = Category.new :Name => 'New Category'
+          property = nil # Not needed for this test
+          product = nil # Not needed for this test
+          lambda { svc.add_link(category, property, product) }.should raise_error(ArgumentError, "You cannot add a link on an entity that isn't tracked (Category)")
+        end
+        
+        it "shouldn't be allowed if a property isn't found on the parent" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Categories(1)
+          category = svc.execute.first
+          property = 'NotAProperty'
+          product = nil # Not needed for this test
+          lambda { svc.add_link(category, property, product) }.should raise_error(ArgumentError, "'NotAProperty' is not a valid navigation property for Category")
+        end
+        
+        it "shouldn't be allowed if a property isn't a navigation property on the parent" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Categories(1)
+          category = svc.execute.first
+          property = 'Name'
+          product = nil # Not needed for this test
+          lambda { svc.add_link(category, property, product) }.should raise_error(ArgumentError, "'Name' is not a valid navigation property for Category")
+        end
+        
+        it "shouldn't be allowed if a child isn't tracked" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Categories(1)
+          category = svc.execute.first
+          property = 'Products'
+          product = Product.new :Name => 'Widget 1' 
+          lambda { svc.add_link(category, property, product) }.should raise_error(ArgumentError, "You cannot add a link on a child entity that isn't tracked (Product)")
+        end
+        
+        it "should perform a post against the correct URL with the correct body on a single_save" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Categories(1)
+          category = svc.execute.first
+          svc.Products(1)
+          product = svc.execute.first
+          property = 'Products'
+          svc.add_link(category, property, product)
+          svc.save_changes
+          a_request(:post, "http://test.com/test.svc/Categories(1)/$links/Products").
+            with(:body => { "uri" => "http://test.com/test.svc/Products(1)" },
+                 :headers => {'Content-Type' => 'application/json'}).should have_been_made
+        end
+
+        it "should add the child to the parent's navigation property on a single_save" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Categories(1)
+          category = svc.execute.first
+          svc.Products(1)
+          product = svc.execute.first
+          property = 'Products'
+          svc.add_link(category, property, product)
+          svc.save_changes
+          category.Products.should include product
+        end
+
+        it "should add the parent to the child's navigation property on a single_save" do
+          svc = OData::Service.new "http://test.com/test.svc/"
+          svc.Categories(1)
+          category = svc.execute.first
+          svc.Products(1)
+          product = svc.execute.first
+          property = 'Products'
+          svc.add_link(category, property, product)
+          svc.save_changes
+          product.Category.should eq category
+        end
+
+        describe "batch_save" do
+          before(:each) do
+            @svc = OData::Service.new "http://test.com/test.svc/"
+            @category = Category.first(1)
+            @product = Product.first(1)
+            new_category = Category.new
+            @svc.AddToCategories(new_category)
+            @svc.add_link(@category, 'Products', @product)
+            @svc.save_changes
+          end
+
+          it "should perform a post with the correct URL and body on a batch_save" do
+            WebMock.should have_requested(:post, "http://test.com/test.svc/$batch").with { |request|
+              request.body.include? "POST http://test.com/test.svc/Categories(1)/$links/Products HTTP/1.1"
+              request.body.include? '{"uri":"http://test.com/test.svc/Products(1)"}'
+            }
+          end
+          context "child is a part of the parent's collection" do
+            subject { @category.Products }
+            it { should include @product }
+          end
+          context "parent object should be filled in on the child"  do
+            subject { @product.Category }
+            it { should eq @category }
+          end
+        end
+      end
+    end
+  end
+    
   describe_private OData::Service do
     describe "parse value" do
       before(:each) do