ninoxe 0.1.1 → 0.1.2

data/spec/models/chouette/object_id_spec.rb

@@ -0,0 +1,146 @@
+require 'spec_helper'
+
+describe Chouette::ObjectId do
+
+  def objectid(value = "abc:StopArea:abc123")
+    Chouette::ObjectId.new value
+  end
+
+  subject { objectid }
+
+  context "when invalid" do
+
+    subject { objectid("abc") }
+
+    it { should_not be_valid }
+
+    its(:parts) { should be_nil }
+    its(:system_id) { should be_nil }
+
+  end
+  
+  context "when with spaces in last part" do
+
+    subject { objectid("abc:Line:Aze toto") }
+
+    it { should_not be_valid }
+
+
+  end
+  
+  context "when with spaces in first part" do
+
+    subject { objectid("ae abc:Line:Aze") }
+
+    it { should_not be_valid }
+
+
+  end
+  
+  context "when with spaces in middle part" do
+
+    subject { objectid("aeabc:Li ne:Aze") }
+
+    it { should_not be_valid }
+    
+
+  end
+  
+  context "when invalid in first part" do
+
+    subject { objectid("Abc_+19:Line:Abc") }
+
+    it { should_not be_valid }
+  end
+  
+  context "when invalid in middle part" do
+
+    subject { objectid("Abc_19:Li56ne:Abc") }
+
+    it { should_not be_valid }
+  end
+
+  context "when invalid in last part" do
+
+    subject { objectid("Abc_19:Line:Ab+c") }
+
+    it { should_not be_valid }
+  end
+  context "when valid" do
+
+    subject { objectid("Abc_19:Line:Abc_12-") }
+
+    it { should be_valid }
+  end
+
+  describe "#parts" do
+
+    it "should be the 3 parts of the ObjectId" do
+      objectid("abc:StopArea:abc123").parts.should == %w{abc StopArea abc123}
+    end
+
+  end
+
+  describe "#system_id" do
+    
+    it "should be the first ObjectId parts" do
+      objectid("first:second:third").system_id.should == "first"
+    end
+
+  end
+
+  describe "#object_type" do
+    
+    it "should be the second ObjectId parts" do
+      objectid("first:second:third").object_type.should == "second"
+    end
+
+  end
+
+  describe "#local_id" do
+    
+    it "should be the third ObjectId parts" do
+      objectid("first:second:third").local_id.should == "third"
+    end
+
+  end
+
+  it "should be valid when parts are found" do
+    subject.stub :parts => "dummy"
+    subject.should be_valid
+  end
+
+  describe ".create" do
+
+    let(:given_system_id) { "systemId" }
+    let(:given_object_type) { "objectType" }
+    let(:given_local_id) { "localId" }
+
+    subject { Chouette::ObjectId.create(given_system_id, given_object_type, given_local_id) }
+    
+    RSpec::Matchers.define :return_an_objectid_with_given do |attribute|
+      match do |actual|
+        actual.send(attribute).should == send("given_#{attribute}")
+      end
+    end
+
+    it { should return_an_objectid_with_given(:system_id) }
+    it { should return_an_objectid_with_given(:object_type) }
+    it { should return_an_objectid_with_given(:local_id) }
+
+  end
+
+  describe ".new" do
+    
+    it "should return an existing ObjectId" do
+      Chouette::ObjectId.new(objectid).should == objectid
+    end
+
+    it "should create an empty ObjectId with nil" do
+      Chouette::ObjectId.new(nil).should be_empty
+    end
+
+  end
+
+
+end

data/spec/models/chouette/route_spec.rb

@@ -0,0 +1,159 @@
+require 'spec_helper'
+
+describe Chouette::Route do
+  subject { Factory(:route) }
+
+  it { should validate_uniqueness_of :objectid }
+  its(:objectid) { should be_kind_of(Chouette::ObjectId) }
+
+  it { should validate_presence_of :name }
+  it { should validate_presence_of :line }
+  it { should validate_presence_of :wayback_code }
+  it { should validate_presence_of :direction_code }
+
+  context "reordering methods" do
+    let( :bad_stop_point_ids){subject.stop_points.map { |sp| sp.id + 1}} 
+    let( :ident){subject.stop_points.map(&:id)} 
+    let( :first_last_swap){ [ident.last] + ident[1..-2] + [ident.first]} 
+
+    describe "#reorder!" do
+      context "invalid stop_point_ids" do
+        let( :new_stop_point_ids) { bad_stop_point_ids}
+        it { subject.reorder!( new_stop_point_ids).should be_false}
+      end
+
+      context "swaped last and first stop_point_ids" do
+        let!( :new_stop_point_ids) { first_last_swap}
+        let!( :old_stop_point_ids) { subject.stop_points.map(&:id) }
+        let!( :old_stop_area_ids) { subject.stop_areas.map(&:id) }
+
+        it "should keep stop_point_ids order unchanged" do
+          subject.reorder!( new_stop_point_ids).should be_true
+          subject.stop_points.map(&:id).should eq( old_stop_point_ids)
+        end
+        it "should have changed stop_area_ids order" do
+          subject.reorder!( new_stop_point_ids).should be_true
+          subject.reload
+          subject.stop_areas.map(&:id).should eq( [old_stop_area_ids.last] + old_stop_area_ids[1..-2] + [old_stop_area_ids.first])
+        end
+      end
+    end
+
+    describe "#stop_point_permutation?" do
+      context "invalid stop_point_ids" do
+        let( :new_stop_point_ids) { bad_stop_point_ids}
+        it { should_not be_stop_point_permutation( new_stop_point_ids)}
+      end
+      context "unchanged stop_point_ids" do
+        let( :new_stop_point_ids) { ident}
+        it { should be_stop_point_permutation( new_stop_point_ids)}
+      end
+      context "swaped last and first stop_point_ids" do
+        let( :new_stop_point_ids) { first_last_swap}
+        it { should be_stop_point_permutation( new_stop_point_ids)}
+      end
+    end
+  end
+
+  describe "#stop_points" do
+    context "#find_by_stop_area" do
+      context "when arg is first quay id" do
+        let(:first_stop_point) { subject.stop_points.first}
+        it "should return first quay" do
+          subject.stop_points.find_by_stop_area( first_stop_point.stop_area_id).should eq( first_stop_point)
+        end
+      end
+    end
+  end
+  describe "#stop_areas" do
+    let(:line){ Factory(:line)}
+    let(:route_1){ Factory(:route, :line => line)}
+    let(:route_2){ Factory(:route, :line => line)}
+    it "should retreive all stop_area on route" do
+      route_1.stop_areas.each do |sa|
+        sa.stop_points.map(&:route_id).uniq.should == [route_1.id]
+      end
+    end
+
+    context "when route is looping: last and first stop area are the same" do
+      it "should retreive same stop_area one last and first position" do
+        route_loop = Factory(:route, :line => line)
+        first_stop = Chouette::StopPoint.where( :route_id => route_loop.id, :position => 0).first
+        last_stop = Factory(:stop_point, :route => route_loop, :position => 5, :stop_area => first_stop.stop_area)
+
+        route_loop.stop_areas.size.should == 6
+        route_loop.stop_areas.select {|s| s.id == first_stop.stop_area.id}.size.should == 2
+      end
+    end
+  end
+
+  describe "#direction_code" do
+    def self.legacy_directions
+      %w{A R ClockWise CounterClockWise North NorthWest West SouthWest 
+        South SouthEast East NorthEast}
+    end
+    legacy_directions.each do |direction|
+      context "when direction is #{direction}" do
+        direction_code = Chouette::Direction.new( Chouette::Route.direction_binding[ direction])
+        it "should be #{direction_code}" do
+          subject.direction = direction
+          subject.direction_code.should == direction_code
+        end
+      end
+    end
+    context "when direction is nil" do
+      it "should be nil" do
+        subject.direction = nil
+        subject.direction_code.should be_nil
+      end
+    end
+  end
+  describe "#direction_code=" do
+    context "when unknown direction is provided" do
+      it "should change direction to nil" do
+        subject.direction_code = "dummy"
+        subject.direction.should be_nil
+      end
+    end
+    context "when an existing direction (west) is provided" do
+      it "should change direction Direction.west" do
+        subject.direction_code = "west"
+        subject.direction.should == "West"
+      end
+    end
+  end
+  describe "#wayback_code" do
+    def self.legacy_waybacks
+      %w{A R}
+    end
+    legacy_waybacks.each do |wayback|
+      context "when wayback is #{wayback}" do
+        wayback_code = Chouette::Wayback.new( Chouette::Route.wayback_binding[ wayback])
+        it "should be #{wayback_code}" do
+          subject.wayback = wayback
+          subject.wayback_code.should == wayback_code
+        end
+      end
+    end
+    context "when wayback is nil" do
+      it "should be nil" do
+        subject.wayback = nil
+        subject.wayback_code.should be_nil
+      end
+    end
+  end
+  describe "#wayback_code=" do
+    context "when unknown wayback is provided" do
+      it "should change wayback to nil" do
+        subject.wayback_code = "dummy"
+        subject.wayback.should be_nil
+      end
+    end
+    context "when an existing wayback (straight_forward) is provided" do
+      it "should change wayback Wayback.straight_forward" do
+        subject.wayback_code = "straight_forward"
+        subject.wayback.should == "A"
+      end
+    end
+  end
+end

data/spec/models/chouette/stop_area_spec.rb

@@ -0,0 +1,382 @@
+require 'spec_helper'
+
+describe Chouette::StopArea do
+  let!(:quay) { Factory :stop_area, :area_type => "Quay" }
+  let!(:boarding_position) { Factory :stop_area, :area_type => "BoardingPosition" }
+  let!(:commercial_stop_point) { Factory :stop_area, :area_type => "CommercialStopPoint" }
+  let!(:stop_place) { Factory :stop_area, :area_type => "StopPlace" }
+  let!(:itl) { Factory :stop_area, :area_type => "ITL" }
+
+  its(:objectid) { should be_kind_of(Chouette::ObjectId) }
+
+  it { should validate_presence_of :name }
+  it { should validate_presence_of :area_type }
+  it { should validate_numericality_of :latitude }
+  it { should validate_numericality_of :longitude }
+  it { should validate_numericality_of :x }
+  it { should validate_numericality_of :y }
+
+  describe ".x_y" do
+    it "should accept x and y both as nil" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.x = nil
+      subject.y = nil
+      subject.valid?.should be_true
+    end
+    it "should accept x and y both numerical" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.x = 10
+      subject.y = 10
+      subject.valid?.should be_true
+    end
+    it "should reject x nil with y numerical" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.x = nil
+      subject.y = 10
+      subject.valid?.should be_false
+    end
+    it "should reject x numerical with y nil" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.x = 10
+      subject.y = nil
+      subject.valid?.should be_false
+    end
+  end 
+  
+  describe ".latitude" do
+    it "should accept -90 value" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.latitude = -90
+      subject.valid?.should be_true
+    end
+    it "should reject < -90 value" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.latitude = -90.0001
+      subject.valid?.should be_false
+    end
+    it "should accept 90 value" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.latitude = 90
+      subject.valid?.should be_true
+    end
+    it "should reject > 90 value" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.latitude = 90.0001
+      subject.valid?.should be_false
+    end
+  end
+
+  describe ".longitude" do
+    it "should accept -180 value" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.longitude = -180
+      subject.valid?.should be_true
+    end
+    it "should reject < -180 value" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.longitude = -180.0001
+      subject.valid?.should be_false
+    end
+    it "should accept 180 value" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.longitude = 180
+      subject.valid?.should be_true
+    end
+    it "should reject > 180 value" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.longitude = 180.0001
+      subject.valid?.should be_false
+    end
+  end
+
+  describe ".long_lat" do
+    it "should accept longitude and latitude both as nil" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.longitude = nil
+      subject.latitude = nil
+      subject.valid?.should be_true
+    end
+    it "should accept longitude and latitude both numerical" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.longitude = 10
+      subject.latitude = 10
+      subject.valid?.should be_true
+    end
+    it "should reject longitude nil with latitude numerical" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.longitude = nil
+      subject.latitude = 10
+      subject.valid?.should be_false
+    end
+    it "should reject longitude numerical with latitude nil" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.longitude = 10
+      subject.latitude = nil
+      subject.valid?.should be_false
+    end
+  end 
+  
+
+  describe ".children_in_depth" do
+    it "should return all the deepest children from stop area" do
+      subject = Factory :stop_area, :area_type => "StopPlace"
+      commercial_stop_point = Factory :stop_area, :area_type => "CommercialStopPoint", :parent => subject 
+      commercial_stop_point2 = Factory :stop_area, :area_type => "CommercialStopPoint", :parent => commercial_stop_point
+      quay = Factory :stop_area, :parent => commercial_stop_point, :area_type => "Quay"
+      subject.children_in_depth.should =~ [commercial_stop_point, commercial_stop_point2, quay]
+    end
+    it "should return only the deepest children from stop area" do
+      subject = Factory :stop_area, :area_type => "StopPlace"
+      commercial_stop_point = Factory :stop_area, :area_type => "CommercialStopPoint", :parent => subject 
+      commercial_stop_point2 = Factory :stop_area, :area_type => "CommercialStopPoint", :parent => commercial_stop_point
+      quay = Factory :stop_area, :parent => commercial_stop_point, :area_type => "Quay"
+      subject.children_at_base.should =~ [quay]
+    end
+  end
+
+  describe ".stop_area_type" do
+    it "should have area_type of BoardingPosition when stop_area_type is set to boarding_position" do
+      subject = Factory :stop_area, :stop_area_type => "boarding_position"
+      subject.area_type.should == "BoardingPosition"
+    end
+    it "should have area_type of Quay when stop_area_type is set to quay" do
+      subject = Factory :stop_area, :stop_area_type => "quay"
+      subject.area_type.should == "Quay"
+    end
+    it "should have area_type of CommercialStopPoint when stop_area_type is set to commercial_stop_point" do
+      subject = Factory :stop_area, :stop_area_type => "commercial_stop_point"
+      subject.area_type.should == "CommercialStopPoint"
+    end
+    it "should have area_type of StopPlace when stop_area_type is set to stop_place" do
+      subject = Factory :stop_area, :stop_area_type => "stop_place"
+      subject.area_type.should == "StopPlace"
+    end
+    it "should have area_type of ITL when stop_area_type is set to itl" do
+      subject = Factory :stop_area, :stop_area_type => "itl"
+      subject.area_type.should == "ITL"
+    end
+  end
+
+  describe ".parent" do
+    it "should check if parent method exists" do
+      subject = Factory :stop_area, :parent_id => commercial_stop_point.id
+      subject.parent.should == commercial_stop_point
+    end
+  end
+
+  describe ".possible_children" do    
+    
+    it "should find no possible descendant for stop area type quay" do
+      subject = Factory :stop_area, :area_type => "Quay"
+      subject.possible_children.should == [] 
+    end
+
+    it "should find no possible descendant for stop area type boarding position" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.possible_children.should == [] 
+    end
+
+    it "should find descendant of type quay or boarding position for stop area type commercial stop point" do
+      subject = Factory :stop_area, :area_type => "CommercialStopPoint"
+      subject.possible_children.should =~ [quay, boarding_position] 
+    end
+
+    it "should find no children of type stop place or commercial stop point for stop area type stop place" do
+      subject = Factory :stop_area, :area_type => "StopPlace"
+      subject.possible_children.should =~ [stop_place, commercial_stop_point] 
+    end
+
+    it "should find no children of type ITL for stop area type ITL" do
+      subject = Factory :stop_area, :area_type => "ITL"
+      subject.possible_children.should =~ [stop_place, commercial_stop_point, quay, boarding_position] 
+    end
+
+  end
+
+  describe ".possible_parents" do
+
+    it "should find parent type commercial stop point for stop area type boarding position" do
+      subject = Factory :stop_area, :area_type => "BoardingPosition"
+      subject.possible_parents.should == [commercial_stop_point] 
+    end
+
+    it "should find parent type commercial stop point for stop area type quay" do
+      subject = Factory :stop_area, :area_type => "Quay"
+      subject.possible_parents.should == [commercial_stop_point] 
+    end    
+
+    it "should find parent type stop place for stop area type commercial stop point" do
+      subject = Factory :stop_area, :area_type => "CommercialStopPoint"
+      subject.possible_parents.should == [stop_place] 
+    end    
+
+    it "should find parent type stop place for stop area type stop place" do
+      subject = Factory :stop_area, :area_type => "StopPlace"
+      subject.possible_parents.should == [stop_place] 
+    end    
+
+  end
+
+
+  describe ".near" do
+
+    let(:stop_area) { Factory :stop_area, :latitude => 1, :longitude => 1 }
+    let(:stop_area2) { Factory :stop_area, :latitude => 1, :longitude => 1 }
+    
+    it "should find a StopArea at 300m from given origin" do
+      Chouette::StopArea.near(stop_area.to_lat_lng.endpoint(0, 0.250, :units => :kms)).should == [stop_area]
+    end
+
+    it "should not find a StopArea at more than 300m from given origin" do
+      Chouette::StopArea.near(stop_area2.to_lat_lng.endpoint(0, 0.350, :units => :kms)).should be_empty
+    end
+
+  end
+
+  describe "#to_lat_lng" do
+    
+    it "should return nil if latitude is nil" do
+      subject.latitude = nil
+      subject.to_lat_lng.should be_nil
+    end
+
+    it "should return nil if longitude is nil" do
+      subject.longitude = nil
+      subject.to_lat_lng.should be_nil
+    end
+
+  end
+
+  describe "#geometry" do
+    
+    it "should be nil when to_lat_lng is nil" do
+      subject.stub :to_lat_lng => nil
+      subject.geometry.should be_nil
+    end
+
+  end
+
+  describe ".bounds" do
+    
+    it "should return transform coordinates in floats" do
+      Chouette::StopArea.connection.stub :select_rows => [["113.5292500000000000", "22.1127580000000000", "113.5819330000000000", "22.2157050000000000"]]
+      GeoRuby::SimpleFeatures::Envelope.should_receive(:from_coordinates).with([[113.5292500000000000, 22.1127580000000000], [113.5819330000000000, 22.2157050000000000]])
+      Chouette::StopArea.bounds
+    end
+
+  end
+
+  describe "#default_position" do
+    
+    it "should return nil when StopArea.bounds is nil" do
+      Chouette::StopArea.stub :bounds => nil
+      subject.default_position.should be_nil
+    end
+
+    it "should return StopArea.bounds center" do
+      Chouette::StopArea.stub :bounds => mock(:center => "center")
+      subject.default_position.should == Chouette::StopArea.bounds.center
+    end
+
+  end
+
+  describe "#children_at_base" do
+    it "should have 2 children_at_base" do
+      subject = Factory :stop_area, :area_type => "StopPlace" 
+      commercial_stop_point = Factory :stop_area, :area_type => "CommercialStopPoint" ,:parent => subject
+      quay1 = Factory :stop_area, :parent => commercial_stop_point, :area_type => "Quay"
+      quay2 = Factory :stop_area, :parent => commercial_stop_point, :area_type => "Quay"
+      subject.children_at_base.size.should == 2
+    end
+   end 
+
+
+  describe "#generic_access_link_matrix" do
+    it "should have no access_links in matrix with no access_point" do
+      subject = Factory :stop_area, :area_type => "StopPlace" 
+      commercial_stop_point = Factory :stop_area, :area_type => "CommercialStopPoint" ,:parent => subject
+      subject.generic_access_link_matrix.size.should == 0
+    end
+    it "should have 4 generic_access_links in matrix with 2 access_points" do
+      subject = Factory :stop_area, :area_type => "StopPlace" 
+      commercial_stop_point = Factory :stop_area, :area_type => "CommercialStopPoint" ,:parent => subject
+      access_point1 = Factory :access_point, :stop_area => subject
+      access_point2 = Factory :access_point, :stop_area => subject
+      subject.generic_access_link_matrix.size.should == 4
+    end
+   end 
+  describe "#detail_access_link_matrix" do
+    it "should have no access_links in matrix with no access_point" do
+      subject = Factory :stop_area, :area_type => "StopPlace" 
+      commercial_stop_point = Factory :stop_area, :area_type => "CommercialStopPoint" ,:parent => subject
+      quay1 = Factory :stop_area, :parent => commercial_stop_point, :area_type => "Quay"
+      quay2 = Factory :stop_area, :parent => commercial_stop_point, :area_type => "Quay"
+      subject.detail_access_link_matrix.size.should == 0
+    end
+    it "should have 8 detail_access_links in matrix with 2 children_at_base and 2 access_points" do
+      subject = Factory :stop_area, :area_type => "StopPlace" 
+      commercial_stop_point = Factory :stop_area, :area_type => "CommercialStopPoint" ,:parent => subject
+      quay1 = Factory :stop_area, :parent => commercial_stop_point, :area_type => "Quay"
+      quay2 = Factory :stop_area, :parent => commercial_stop_point, :area_type => "Quay"
+      access_point1 = Factory :access_point, :stop_area => subject
+      access_point2 = Factory :access_point, :stop_area => subject
+      subject.detail_access_link_matrix.size.should == 8
+    end
+   end 
+  describe "#parents" do
+    it "should return parent hireachy list" do
+      stop_place = Factory :stop_area, :area_type => "StopPlace" 
+      commercial_stop_point = Factory :stop_area, :area_type => "CommercialStopPoint" ,:parent => stop_place
+      subject = Factory :stop_area, :parent => commercial_stop_point, :area_type => "Quay"
+      subject.parents.size.should == 2
+    end
+    it "should return empty parent hireachy list" do
+      subject = Factory :stop_area, :area_type => "Quay"
+      subject.parents.size.should == 0
+    end
+  end
+  
+  describe "#clean_invalid_access_links" do
+    it "should remove invalid access links" do
+      # subject is a CSP with a SP as parent, a quay as child
+      # 2 access_points of SP have access_link, one on subject, one on subject child
+      # when detaching subject from SP, both access_links must be deleted
+      stop_place = Factory :stop_area, :area_type => "StopPlace" 
+      subject = Factory :stop_area, :area_type => "CommercialStopPoint" ,:parent => stop_place
+      access_point1 = Factory :access_point, :stop_area => stop_place
+      access_point2 = Factory :access_point, :stop_area => stop_place
+      quay = Factory :stop_area, :parent => subject, :area_type => "Quay"
+      access_link1 = Factory :access_link, :stop_area => subject, :access_point => access_point1
+      access_link2 = Factory :access_link, :stop_area => quay, :access_point => access_point2
+      subject.save 
+      subject.access_links.size.should == 1
+      quay.access_links.size.should == 1
+      subject.parent=nil
+      subject.save 
+      subject.reload
+      subject.access_links.size.should == 0
+      quay.access_links.size.should == 0
+    end
+    it "should not remove still valid access links" do
+      # subject is a Q of CSP with a SP as parent
+      # 2 access_points, one of SP, one of CSP have access_link on subject
+      # when changing subject CSP to another CSP of same SP
+      # one access_links must be kept
+      stop_place = Factory :stop_area, :area_type => "StopPlace" 
+      commercial_stop_point1 = Factory :stop_area, :area_type => "CommercialStopPoint" ,:parent => stop_place
+      commercial_stop_point2 = Factory :stop_area, :area_type => "CommercialStopPoint" ,:parent => stop_place
+      access_point1 = Factory :access_point, :stop_area => stop_place
+      access_point2 = Factory :access_point, :stop_area => commercial_stop_point1
+      subject = Factory :stop_area, :parent => commercial_stop_point1, :area_type => "Quay"
+      access_link1 = Factory :access_link, :stop_area => subject, :access_point => access_point1
+      access_link2 = Factory :access_link, :stop_area => subject, :access_point => access_point2
+      subject.save 
+      subject.access_links.size.should == 2
+      subject.parent=commercial_stop_point2
+      subject.save 
+      subject.reload
+      subject.access_links.size.should == 1
+    end
+  end
+
+end