aixm 0.3.7 → 1.0.0

data/spec/lib/aixm/feature/obstacle_group_spec.rb

@@ -1,326 +0,0 @@
-require_relative '../../../spec_helper'
-
-describe AIXM::Feature::ObstacleGroup do
-  describe "unlinked obstacle group" do
-    subject do
-      AIXM.obstacle_group(name: "Mirmande éoliennes")
-    end
-
-    describe :initialize do
-      it "sets defaults" do
-        subject = AIXM.obstacle_group(
-          name: "Mirmande éoliennes"
-        )
-        subject.obstacles.must_equal []
-      end
-    end
-
-    describe :name= do
-      it "fails on invalid values" do
-        [:foobar, 123].wont_be_written_to subject, :name
-      end
-
-      it "upcases and transcodes valid values" do
-        subject.name.must_equal 'MIRMANDE EOLIENNES'
-      end
-    end
-
-    describe :xy_accuracy= do
-      it "fails on invalid values" do
-        [:foobar, 123].wont_be_written_to subject, :xy_accuracy
-      end
-
-      it "accepts valid values" do
-        [nil, AIXM::Factory.d, AIXM.d(0, :m)].must_be_written_to subject, :xy_accuracy
-      end
-    end
-
-    describe :z_accuracy= do
-      it "fails on invalid values" do
-        [:foobar, 123].wont_be_written_to subject, :z_accuracy
-      end
-
-      it "accepts valid values" do
-        [nil, AIXM::Factory.d, AIXM.d(0, :m)].must_be_written_to subject, :z_accuracy
-      end
-    end
-
-    describe :remarks= do
-      macro :remarks
-    end
-
-    describe :add_obstacle do
-      it "adds an obstacle to the obstacle group" do
-        subject.add_obstacle(AIXM::Factory.obstacle)
-        subject.obstacles.count.must_equal 1
-        subject.obstacles.first.obstacle_group.must_equal subject
-      end
-    end
-
-    describe :to_xml do
-      subject do
-        AIXM::Factory.unlinked_obstacle_group
-      end
-
-      it "builds correct AIXM" do
-        AIXM.aixm!
-        subject.to_xml.must_equal <<~END
-          <!-- Obstacle: [wind_turbine] 44.67501389N 004.87256667E LA TEISSONIERE 1 -->
-          <Obs>
-            <ObsUid>
-              <geoLat>444030.05N</geoLat>
-              <geoLong>0045221.24E</geoLong>
-            </ObsUid>
-            <txtName>LA TEISSONIERE 1</txtName>
-            <txtDescrType>WINDTURBINE</txtDescrType>
-            <codeGroup>Y</codeGroup>
-            <codeLgt>N</codeLgt>
-            <codeDatum>WGE</codeDatum>
-            <valGeoAccuracy>50</valGeoAccuracy>
-            <uomGeoAccuracy>M</uomGeoAccuracy>
-            <valElev>1764</valElev>
-            <valElevAccuracy>33</valElevAccuracy>
-            <valHgt>262</valHgt>
-            <uomDistVer>FT</uomDistVer>
-          </Obs>
-          <!-- Obstacle: [wind_turbine] 44.67946667N 004.87381111E LA TEISSONIERE 2 -->
-          <Obs>
-            <ObsUid>
-              <geoLat>444046.08N</geoLat>
-              <geoLong>0045225.72E</geoLong>
-            </ObsUid>
-            <txtName>LA TEISSONIERE 2</txtName>
-            <txtDescrType>WINDTURBINE</txtDescrType>
-            <codeGroup>Y</codeGroup>
-            <codeLgt>N</codeLgt>
-            <codeDatum>WGE</codeDatum>
-            <valGeoAccuracy>50</valGeoAccuracy>
-            <uomGeoAccuracy>M</uomGeoAccuracy>
-            <valElev>1738</valElev>
-            <valElevAccuracy>33</valElevAccuracy>
-            <valHgt>262</valHgt>
-            <uomDistVer>FT</uomDistVer>
-          </Obs>
-        END
-      end
-
-      it "builds correct OFMX" do
-        AIXM.ofmx!
-        subject.to_xml.must_equal <<~END
-          <!-- Obstacle group: MIRMANDE EOLIENNES -->
-          <Ogr>
-            <OgrUid>
-              <txtName>MIRMANDE EOLIENNES</txtName>
-              <geoLat>44.67501389N</geoLat>
-              <geoLong>004.87256667E</geoLong>
-            </OgrUid>
-            <codeDatum>WGE</codeDatum>
-            <valGeoAccuracy>50</valGeoAccuracy>
-            <uomGeoAccuracy>M</uomGeoAccuracy>
-            <valElevAccuracy>33</valElevAccuracy>
-            <uomElevAccuracy>FT</uomElevAccuracy>
-            <txtRmk>Extension planned</txtRmk>
-          </Ogr>
-          <!-- Obstacle: [wind_turbine] 44.67501389N 004.87256667E LA TEISSONIERE 1 -->
-          <Obs>
-            <ObsUid>
-              <OgrUid>
-                <txtName>MIRMANDE EOLIENNES</txtName>
-                <geoLat>44.67501389N</geoLat>
-                <geoLong>004.87256667E</geoLong>
-              </OgrUid>
-              <geoLat>44.67501389N</geoLat>
-              <geoLong>004.87256667E</geoLong>
-            </ObsUid>
-            <txtName>LA TEISSONIERE 1</txtName>
-            <codeType>WINDTURBINE</codeType>
-            <codeGroup>Y</codeGroup>
-            <codeLgt>N</codeLgt>
-            <codeMarking>N</codeMarking>
-            <codeDatum>WGE</codeDatum>
-            <valElev>1764</valElev>
-            <valHgt>262</valHgt>
-            <uomDistVer>FT</uomDistVer>
-            <codeHgtAccuracy>N</codeHgtAccuracy>
-            <valRadius>80</valRadius>
-            <uomRadius>M</uomRadius>
-          </Obs>
-          <!-- Obstacle: [wind_turbine] 44.67946667N 004.87381111E LA TEISSONIERE 2 -->
-          <Obs>
-            <ObsUid>
-              <OgrUid>
-                <txtName>MIRMANDE EOLIENNES</txtName>
-                <geoLat>44.67501389N</geoLat>
-                <geoLong>004.87256667E</geoLong>
-              </OgrUid>
-              <geoLat>44.67946667N</geoLat>
-              <geoLong>004.87381111E</geoLong>
-            </ObsUid>
-            <txtName>LA TEISSONIERE 2</txtName>
-            <codeType>WINDTURBINE</codeType>
-            <codeGroup>Y</codeGroup>
-            <codeLgt>N</codeLgt>
-            <codeMarking>N</codeMarking>
-            <codeDatum>WGE</codeDatum>
-            <valElev>1738</valElev>
-            <valHgt>262</valHgt>
-            <uomDistVer>FT</uomDistVer>
-            <codeHgtAccuracy>N</codeHgtAccuracy>
-            <valRadius>80</valRadius>
-            <uomRadius>M</uomRadius>
-          </Obs>
-        END
-      end
-    end
-  end
-
-  describe "linked obstacle group" do
-    subject do
-      AIXM.obstacle_group(name: "Mirmande éoliennes")
-    end
-
-    describe :add_obstacle do
-      it "adds an obstacle to the obstacle group and links it to previous" do
-        subject.add_obstacle(AIXM::Factory.obstacle)
-        subject.add_obstacle(AIXM::Factory.obstacle, linked_to: :previous, link_type: :cable)
-        subject.obstacles.count.must_equal 2
-        subject.obstacles.last.linked_to.must_equal subject.obstacles.first
-        subject.obstacles.last.link_type.must_equal :cable
-      end
-
-      it "adds an obstacle to the obstacle group and links it to another obstacle" do
-        subject.add_obstacle(AIXM::Factory.obstacle)
-        subject.add_obstacle(AIXM::Factory.obstacle, linked_to: subject.obstacles.first, link_type: :solid)
-        subject.obstacles.count.must_equal 2
-        subject.obstacles.last.linked_to.must_equal subject.obstacles.first
-        subject.obstacles.last.link_type.must_equal :solid
-      end
-    end
-
-    describe :to_xml do
-      subject do
-        AIXM::Factory.linked_obstacle_group
-      end
-
-      it "builds correct AIXM" do
-        AIXM.aixm!
-        subject.to_xml.must_equal <<~END
-          <!-- Obstacle: [mast] 52.29639722N 002.10675278W DROITWICH LW NORTH -->
-          <Obs>
-            <ObsUid>
-              <geoLat>521747.03N</geoLat>
-              <geoLong>0020624.31W</geoLong>
-            </ObsUid>
-            <txtName>DROITWICH LW NORTH</txtName>
-            <txtDescrType>MAST</txtDescrType>
-            <codeGroup>Y</codeGroup>
-            <codeLgt>N</codeLgt>
-            <codeDatum>WGE</codeDatum>
-            <valGeoAccuracy>0</valGeoAccuracy>
-            <uomGeoAccuracy>M</uomGeoAccuracy>
-            <valElev>848</valElev>
-            <valElevAccuracy>0</valElevAccuracy>
-            <valHgt>700</valHgt>
-            <uomDistVer>FT</uomDistVer>
-          </Obs>
-          <!-- Obstacle: [mast] 52.29457778N 002.10568611W DROITWICH LW NORTH -->
-          <Obs>
-            <ObsUid>
-              <geoLat>521740.48N</geoLat>
-              <geoLong>0020620.47W</geoLong>
-            </ObsUid>
-            <txtName>DROITWICH LW NORTH</txtName>
-            <txtDescrType>MAST</txtDescrType>
-            <codeGroup>Y</codeGroup>
-            <codeLgt>N</codeLgt>
-            <codeDatum>WGE</codeDatum>
-            <valGeoAccuracy>0</valGeoAccuracy>
-            <uomGeoAccuracy>M</uomGeoAccuracy>
-            <valElev>848</valElev>
-            <valElevAccuracy>0</valElevAccuracy>
-            <valHgt>700</valHgt>
-            <uomDistVer>FT</uomDistVer>
-          </Obs>
-        END
-      end
-
-      it "builds correct OFMX" do
-        AIXM.ofmx!
-        subject.to_xml.must_equal <<~END
-          <!-- Obstacle group: DROITWICH LONGWAVE ANTENNA -->
-          <Ogr>
-            <OgrUid>
-              <txtName>DROITWICH LONGWAVE ANTENNA</txtName>
-              <geoLat>52.29639722N</geoLat>
-              <geoLong>002.10675278W</geoLong>
-            </OgrUid>
-            <codeDatum>WGE</codeDatum>
-            <valGeoAccuracy>0</valGeoAccuracy>
-            <uomGeoAccuracy>M</uomGeoAccuracy>
-            <valElevAccuracy>0</valElevAccuracy>
-            <uomElevAccuracy>FT</uomElevAccuracy>
-            <txtRmk>Destruction planned</txtRmk>
-          </Ogr>
-          <!-- Obstacle: [mast] 52.29639722N 002.10675278W DROITWICH LW NORTH -->
-          <Obs>
-            <ObsUid>
-              <OgrUid>
-                <txtName>DROITWICH LONGWAVE ANTENNA</txtName>
-                <geoLat>52.29639722N</geoLat>
-                <geoLong>002.10675278W</geoLong>
-              </OgrUid>
-              <geoLat>52.29639722N</geoLat>
-              <geoLong>002.10675278W</geoLong>
-            </ObsUid>
-            <txtName>DROITWICH LW NORTH</txtName>
-            <codeType>MAST</codeType>
-            <codeGroup>Y</codeGroup>
-            <codeLgt>N</codeLgt>
-            <codeMarking>N</codeMarking>
-            <codeDatum>WGE</codeDatum>
-            <valElev>848</valElev>
-            <valHgt>700</valHgt>
-            <uomDistVer>FT</uomDistVer>
-            <codeHgtAccuracy>Y</codeHgtAccuracy>
-            <valRadius>200</valRadius>
-            <uomRadius>M</uomRadius>
-          </Obs>
-          <!-- Obstacle: [mast] 52.29457778N 002.10568611W DROITWICH LW NORTH -->
-          <Obs>
-            <ObsUid>
-              <OgrUid>
-                <txtName>DROITWICH LONGWAVE ANTENNA</txtName>
-                <geoLat>52.29639722N</geoLat>
-                <geoLong>002.10675278W</geoLong>
-              </OgrUid>
-              <geoLat>52.29457778N</geoLat>
-              <geoLong>002.10568611W</geoLong>
-            </ObsUid>
-            <txtName>DROITWICH LW NORTH</txtName>
-            <codeType>MAST</codeType>
-            <codeGroup>Y</codeGroup>
-            <codeLgt>N</codeLgt>
-            <codeMarking>N</codeMarking>
-            <codeDatum>WGE</codeDatum>
-            <valElev>848</valElev>
-            <valHgt>700</valHgt>
-            <uomDistVer>FT</uomDistVer>
-            <codeHgtAccuracy>Y</codeHgtAccuracy>
-            <valRadius>200</valRadius>
-            <uomRadius>M</uomRadius>
-            <ObsUidLink>
-              <OgrUid>
-                <txtName>DROITWICH LONGWAVE ANTENNA</txtName>
-                <geoLat>52.29639722N</geoLat>
-                <geoLong>002.10675278W</geoLong>
-              </OgrUid>
-              <geoLat>52.29639722N</geoLat>
-              <geoLong>002.10675278W</geoLong>
-            </ObsUidLink>
-            <codeLinkType>CABLE</codeLinkType>
-          </Obs>
-        END
-      end
-    end
-  end
-end

data/spec/lib/aixm/feature/obstacle_spec.rb

@@ -1,279 +0,0 @@
-require_relative '../../../spec_helper'
-
-describe AIXM::Feature::Obstacle do
-  subject do
-    AIXM::Factory.obstacle
-  end
-
-  describe :initialize do
-    it "sets defaults" do
-      subject = AIXM.obstacle(
-        type: :tower,
-        xy: AIXM.xy(lat: %q(48°51'29.7"N), long: %q(002°17'40.52"E)),
-        radius: AIXM.d(88, :m),
-        z: AIXM.z(1187 , :qnh)
-      )
-      subject.wont_be :lighting
-      subject.wont_be :marking
-      subject.wont_be :height_accurate
-    end
-  end
-
-  describe :name= do
-    it "fails on invalid values" do
-      [:foobar, 123].wont_be_written_to subject, :name
-    end
-
-    it "upcases and transcodes valid values" do
-      subject.tap { |s| s.name = 'Teufelsbrücke' }.name.must_equal 'TEUFELSBRUECKE'
-    end
-  end
-
-  describe :type= do
-    it "fails on invalid values" do
-      [nil, :foobar].wont_be_written_to subject, :type
-    end
-
-    it "looks up valid values" do
-      subject.tap { |s| s.type = :WINDTURBINE }.type.must_equal :wind_turbine
-      subject.tap { |s| s.type = :TOWER }.type.must_equal :tower
-    end
-  end
-
-  describe :xy= do
-    macro :xy
-
-    it "fails on nil values" do
-      [nil].wont_be_written_to subject, :xy
-    end
-  end
-
-  describe :radius= do
-    it "fails on invalid values" do
-      [:foobar, 123, AIXM.d(0, :m)].wont_be_written_to subject, :radius
-    end
-
-    it "accepts valid values" do
-      [AIXM::Factory.d, nil].must_be_written_to subject, :radius
-    end
-  end
-
-  describe :z= do
-    macro :z_qnh
-
-    it "fails on nil values" do
-      [nil].wont_be_written_to subject, :z
-    end
-  end
-
-  describe :lighting= do
-    it "fails on invalid values" do
-      [:foobar, 123].wont_be_written_to subject, :lighting
-    end
-
-    it "accepts valid values" do
-      [true, false, nil].must_be_written_to subject, :lighting
-    end
-  end
-
-  describe :lighting_remarks= do
-    it "accepts nil value" do
-      [nil].must_be_written_to subject, :lighting_remarks
-    end
-
-    it "stringifies valid values" do
-      subject.tap { |s| s.lighting_remarks = 'foobar' }.lighting_remarks.must_equal 'foobar'
-      subject.tap { |s| s.lighting_remarks = 123 }.lighting_remarks.must_equal '123'
-    end
-  end
-
-  describe :marking= do
-    it "fails on invalid values" do
-      [:foobar, 123].wont_be_written_to subject, :marking
-    end
-
-    it "accepts valid values" do
-      [true, false, nil].must_be_written_to subject, :marking
-    end
-  end
-
-  describe :marking_remarks= do
-    it "accepts nil value" do
-      [nil].must_be_written_to subject, :marking_remarks
-    end
-
-    it "stringifies valid values" do
-      subject.tap { |s| s.marking_remarks = 'foobar' }.marking_remarks.must_equal 'foobar'
-      subject.tap { |s| s.marking_remarks = 123 }.marking_remarks.must_equal '123'
-    end
-  end
-
-  describe :height= do
-    it "fails on invalid values" do
-      [:foobar, 123, AIXM.d(0, :m)].wont_be_written_to subject, :height
-    end
-
-    it "accepts valid values" do
-      [nil, AIXM::Factory.d].must_be_written_to subject, :height
-    end
-  end
-
-  describe :xy_accuracy= do
-    it "fails on invalid values" do
-      [:foobar, 123].wont_be_written_to subject, :xy_accuracy
-    end
-
-    it "accepts valid values" do
-      [nil, AIXM::Factory.d, AIXM.d(0, :m)].must_be_written_to subject, :xy_accuracy
-    end
-  end
-
-  describe :z_accuracy= do
-    it "fails on invalid values" do
-      [:foobar, 123].wont_be_written_to subject, :z_accuracy
-    end
-
-    it "accepts valid values" do
-      [nil, AIXM::Factory.d, AIXM.d(0, :m)].must_be_written_to subject, :z_accuracy
-    end
-  end
-
-  describe :height_accurate= do
-    it "fails on invalid values" do
-      [:foobar, 123].wont_be_written_to subject, :height_accurate
-    end
-
-    it "accepts valid values" do
-      [true, false, nil].must_be_written_to subject, :height_accurate
-    end
-  end
-
-  describe :valid_from= do
-    it "fails on invalid values" do
-      ['foobar', '2018-01-77'].wont_be_written_to subject, :valid_from
-    end
-
-    it "accepts nil value" do
-      [nil].must_be_written_to subject, :valid_from
-    end
-
-    it "parses dates and times" do
-      string = '2018-01-01 12:00:00 +0100'
-      subject.tap { |s| s.valid_from = string }.valid_from.must_equal Time.parse(string)
-    end
-  end
-
-  describe :valid_until= do
-    it "fails on invalid values" do
-      ['foobar', '2018-01-77'].wont_be_written_to subject, :valid_until
-    end
-
-    it "accepts nil value" do
-      [nil].must_be_written_to subject, :valid_until
-    end
-
-    it "parses dates and times" do
-      string = '2018-01-01 12:00:00 +0100'
-      subject.tap { |s| s.valid_until = string }.valid_until.must_equal Time.parse(string)
-    end
-  end
-
-  describe :remarks= do
-    macro :remarks
-  end
-
-  describe :grouped? do
-    it "returns false since single obstacles are not grouped" do
-      subject.wont_be :grouped?
-    end
-  end
-
-  describe :linked? do
-    subject do
-      AIXM::Factory.unlinked_obstacle_group.obstacles.first
-    end
-
-    it "returns false for unlinked obstacles" do
-      subject.wont_be :linked?
-    end
-
-    it "returns true for linked obstacles" do
-      subject = AIXM::Factory.linked_obstacle_group.obstacles.last
-      subject.must_be :linked?
-    end
-  end
-
-  describe :to_xml do
-    it "builds correct AIXM" do
-      AIXM.aixm!
-      subject.to_xml.must_equal <<~END
-        <!-- Obstacle: [tower] 48.85825000N 002.29458889E EIFFEL TOWER -->
-        <Obs>
-          <ObsUid>
-            <geoLat>485129.70N</geoLat>
-            <geoLong>0021740.52E</geoLong>
-          </ObsUid>
-          <txtName>EIFFEL TOWER</txtName>
-          <txtDescrType>TOWER</txtDescrType>
-          <codeGroup>N</codeGroup>
-          <codeLgt>Y</codeLgt>
-          <txtDescrLgt>red strobes</txtDescrLgt>
-          <codeDatum>WGE</codeDatum>
-          <valGeoAccuracy>2</valGeoAccuracy>
-          <uomGeoAccuracy>M</uomGeoAccuracy>
-          <valElev>1187</valElev>
-          <valElevAccuracy>3</valElevAccuracy>
-          <valHgt>1063</valHgt>
-          <uomDistVer>FT</uomDistVer>
-          <txtRmk>Temporary light installations (white strobes, gyro light etc)</txtRmk>
-        </Obs>
-      END
-    end
-
-    it "builds correct OFMX" do
-      AIXM.ofmx!
-      subject.to_xml.must_equal <<~END
-        <!-- Obstacle group: EIFFEL TOWER -->
-        <Ogr>
-          <OgrUid>
-            <txtName>EIFFEL TOWER</txtName>
-            <geoLat>48.85825000N</geoLat>
-            <geoLong>002.29458889E</geoLong>
-          </OgrUid>
-          <codeDatum>WGE</codeDatum>
-          <valGeoAccuracy>2</valGeoAccuracy>
-          <uomGeoAccuracy>M</uomGeoAccuracy>
-          <valElevAccuracy>3</valElevAccuracy>
-          <uomElevAccuracy>FT</uomElevAccuracy>
-        </Ogr>
-        <!-- Obstacle: [tower] 48.85825000N 002.29458889E EIFFEL TOWER -->
-        <Obs>
-          <ObsUid>
-            <OgrUid>
-              <txtName>EIFFEL TOWER</txtName>
-              <geoLat>48.85825000N</geoLat>
-              <geoLong>002.29458889E</geoLong>
-            </OgrUid>
-            <geoLat>48.85825000N</geoLat>
-            <geoLong>002.29458889E</geoLong>
-          </ObsUid>
-          <txtName>EIFFEL TOWER</txtName>
-          <codeType>TOWER</codeType>
-          <codeGroup>N</codeGroup>
-          <codeLgt>Y</codeLgt>
-          <txtDescrLgt>red strobes</txtDescrLgt>
-          <codeDatum>WGE</codeDatum>
-          <valElev>1187</valElev>
-          <valHgt>1063</valHgt>
-          <uomDistVer>FT</uomDistVer>
-          <codeHgtAccuracy>Y</codeHgtAccuracy>
-          <valRadius>88</valRadius>
-          <uomRadius>M</uomRadius>
-          <datetimeValidWef>2018-01-01T12:00:00+01:00</datetimeValidWef>
-          <datetimeValidTil>2019-01-01T12:00:00+01:00</datetimeValidTil>
-          <txtRmk>Temporary light installations (white strobes, gyro light etc)</txtRmk>
-        </Obs>
-      END
-    end
-  end
-end

data/spec/lib/aixm/feature/organisation_spec.rb

@@ -1,77 +0,0 @@
-require_relative '../../../spec_helper'
-
-describe AIXM::Feature::Organisation do
-  subject do
-    AIXM::Factory.organisation
-  end
-
-  describe :name= do
-    it "fails on invalid values" do
-      [nil, :foobar, 123].wont_be_written_to subject, :name
-    end
-
-    it "upcases and transcodes valid values" do
-      subject.tap { |s| s.name = 'Nîmes-Alès' }.name.must_equal 'NIMES-ALES'
-    end
-  end
-
-  describe :type= do
-    it "fails on invalid values" do
-      [nil, :foobar, 123].wont_be_written_to subject, :type
-    end
-
-    it "looks up valid values" do
-      subject.tap { |s| s.type = :state }.type.must_equal :state
-      subject.tap { |s| s.type = :IO }.type.must_equal :international_organisation
-    end
-  end
-
-  describe :id= do
-    it "fails on invalid values" do
-      [:foobar, 123].wont_be_written_to subject, :id
-    end
-
-    it "accepts nil value" do
-      [nil].must_be_written_to subject, :id
-    end
-
-    it "upcases valid values" do
-      subject.tap { |s| s.id = 'lf' }.id.must_equal 'LF'
-    end
-  end
-
-  describe :remarks= do
-    macro :remarks
-  end
-
-  describe :to_xml do
-    it "builds correct complete OFMX" do
-      AIXM.ofmx!
-      subject.to_xml.must_equal <<~END
-        <!-- Organisation: FRANCE -->
-        <Org source="LF|GEN|0.0 FACTORY|0|0">
-          <OrgUid>
-            <txtName>FRANCE</txtName>
-          </OrgUid>
-          <codeId>LF</codeId>
-          <codeType>S</codeType>
-          <txtRmk>Oversea departments not included</txtRmk>
-        </Org>
-      END
-    end
-
-    it "builds correct minimal OFMX" do
-      AIXM.ofmx!
-      subject.id = subject.remarks = nil
-      subject.to_xml.must_equal <<~END
-        <!-- Organisation: FRANCE -->
-        <Org source="LF|GEN|0.0 FACTORY|0|0">
-          <OrgUid>
-            <txtName>FRANCE</txtName>
-          </OrgUid>
-          <codeType>S</codeType>
-        </Org>
-      END
-    end
-  end
-end