voruby 1.1.1 → 2.0.0

data/test/voruby/stc/1.10/stc_test.rb

@@ -0,0 +1,4626 @@
+require 'voruby/stc/1.10/stc'
+require 'test/unit'
+
+include VORuby::STC::V1_10::STC
+
+module VORuby
+  module STC
+    module V1_10
+      module STC
+        module Test
+          
+          class CoordFrameTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                CoordFrameType.new
+                CoordFrameType.new(:name => 'CoordFrame1')
+              }
+            end
+            
+            def test_accessors
+              f = CoordFrameType.new(:name => 'CoordFrame1')
+              
+              assert_equal 'CoordFrame1', f.name
+              f.name = 'CoordFrame2'
+              assert_equal 'CoordFrame2', f.name
+            end
+            
+            def test_xml
+              f = CoordFrameType.new(:name => 'CoordFrame1')
+              assert_equal(
+                "<stc:CoordFrameType xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'><stc:Name>CoordFrame1</stc:Name></stc:CoordFrameType>",
+                f.to_xml.to_s
+              )
+            end
+          end
+          
+          class CoordEquinoxTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                CoordEquinox.new('J2000.0')
+                CoordEquinox.new('B2000.00')
+              }
+              
+              assert_raises ArgumentError do
+                CoordEquinox.new('2000.0')
+              end
+              assert_raises ArgumentError do
+                CoordEquinox.new('B1950')
+              end
+            end
+            
+            def test_accessors
+              c = CoordEquinox.new('J2000.0')
+              assert_equal 'J2000.0', c.value
+            end
+          end
+          
+          class FkTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                FkType.new('J2000.0')
+                FkType.new(CoordEquinox.new('J2000.0'))
+              }
+              
+              assert_raises ArgumentError do
+                FkType.new(CoordEquinox.new('2000.0'))
+              end
+              assert_raises ArgumentError do
+                FkType.new
+              end
+            end
+            
+            def test_accessors
+              f = FkType.new('J2000.0')
+              
+              assert_equal CoordEquinox.new('J2000.0'), f.equinox
+              f.equinox = 'B1950.0'
+              assert_equal CoordEquinox.new('B1950.0'), f.equinox
+            end
+            
+            def test_relationships
+              assert_kind_of SpaceRefFrameType, FkType.new('J2000.0')
+            end
+            
+            def test_xml
+              f1 = FkType.new('J2000.0')
+              assert_equal "<stc:FkType xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'><stc:Equinox>J2000.0</stc:Equinox></stc:FkType>", f1.to_xml.to_s
+              
+              f2 = FkType.from_xml(f1.to_xml)
+              assert_equal f1, f2
+            end
+          end
+          
+          class CustomSpaceRefFrameTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                CustomSpaceRefFrameType.new(
+                  :frame => 'frame1',
+                  :pole_zaxis => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum'),
+                    :redshift => Redshift.new(:name => 'Redshift'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                  ),
+                  :xaxis => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum2'),
+                    :redshift => Redshift.new(:name => 'Redshift2'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                  )
+                )
+              }
+              
+              assert_raises ArgumentError do
+                CustomSpaceRefFrameType.new(:frame => 'frame1')
+              end
+              
+              assert_raises ArgumentError do
+                CustomSpaceRefFrameType.new(
+                  :pole_zaxis => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum'),
+                    :redshift => Redshift.new(:name => 'Redshift'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                  )
+                )
+              end
+              
+              assert_raises ArgumentError do
+                CustomSpaceRefFrameType.new(
+                  :xaxis => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum2'),
+                    :redshift => Redshift.new(:name => 'Redshift2'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                  )
+                )
+              end
+              
+              assert_raises TypeError do
+                CustomSpaceRefFrameType.new(
+                  :frame => 'frame1',
+                  :pole_zaxis => 'blah',
+                  :xaxis => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum2'),
+                    :redshift => Redshift.new(:name => 'Redshift2'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                  )
+                )
+              end
+              
+              assert_raises TypeError do
+                CustomSpaceRefFrameType.new(
+                  :frame => 'frame1',
+                  :pole_zaxis => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum'),
+                    :redshift => Redshift.new(:name => 'Redshift'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                  ),
+                  :xaxis => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              f = CustomSpaceRefFrameType.new(
+                :frame => 'frame1',
+                :pole_zaxis => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum'),
+                  :redshift => Redshift.new(:name => 'Redshift'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                ),
+                :xaxis => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                )
+              )
+              
+              assert_equal 'frame1', f.frame
+              assert_equal(
+                AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum'),
+                  :redshift => Redshift.new(:name => 'Redshift'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                ),
+                f.pole_zaxis
+              )
+              assert_equal(
+                AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                ),
+                f.xaxis
+              )
+              
+              f.frame = 'frame2'
+              assert_equal 'frame2', f.frame
+              f.pole_zaxis = AstroCoords.new(
+                :coord_system_id => 'FK5-UTC-VEL',
+                :time => TimeCoordinate.new(:name => 'Time2'),
+                :position => Position1D.new(:name => 'FK5Cart2', :unit => PosUnit.new('m')),
+                :velocity => Velocity1D.new(:name => 'Vel2', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                :spectral => Spectral.new(:name => 'Spectrum2'),
+                :redshift => Redshift.new(:name => 'Redshift2'),
+                :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+              )
+              assert_equal(
+                AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time2'),
+                  :position => Position1D.new(:name => 'FK5Cart2', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel2', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                ),
+                f.pole_zaxis
+              )
+              f.xaxis = AstroCoords.new(
+                :coord_system_id => 'FK5-UTC-VEL',
+                :time => TimeCoordinate.new(:name => 'Time3'),
+                :position => Position1D.new(:name => 'FK5Cart3', :unit => PosUnit.new('lyr')),
+                :velocity => Velocity1D.new(:name => 'Vel3', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                :spectral => Spectral.new(:name => 'Spectrum2'),
+                :redshift => Redshift.new(:name => 'Redshift2'),
+                :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+              )
+              assert_equal(
+                AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time3'),
+                  :position => Position1D.new(:name => 'FK5Cart3', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel3', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                ),
+                f.xaxis
+              )
+            end
+            
+            def test_xml
+              f1 = CustomSpaceRefFrameType.new(
+                :frame => 'frame1',
+                :pole_zaxis => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum'),
+                  :redshift => Redshift.new(:name => 'Redshift'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                ),
+                :xaxis => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                )
+              )
+              
+              f2 = CustomSpaceRefFrameType.from_xml(f1.to_xml)
+              assert_equal f1, f2
+            end
+          end
+          
+          class SpaceRefFrameTest < ::Test::Unit::TestCase
+            def test_icrs
+              f = Icrs.new
+              assert_equal "<stc:ICRS xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_fk4
+              f = Fk4.new('B1950.0')
+              assert_equal CoordEquinox.new('B1950.0'), f.equinox
+              assert_equal(
+                "<stc:FK4 xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'><stc:Equinox>B1950.0</stc:Equinox></stc:FK4>",
+                f.to_xml.to_s
+              )
+              assert_kind_of FkType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_fk5
+              f = Fk5.new('J2000.0')
+              assert_equal CoordEquinox.new('J2000.0'), f.equinox
+              assert_equal(
+                "<stc:FK5 xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'><stc:Equinox>J2000.0</stc:Equinox></stc:FK5>",
+                f.to_xml.to_s
+              )
+              assert_kind_of FkType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_ecliptic
+              f = Ecliptic.new('J2000.0')
+              assert_equal CoordEquinox.new('J2000.0'), f.equinox
+              assert_equal(
+                "<stc:ECLIPTIC xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'><stc:Equinox>J2000.0</stc:Equinox></stc:ECLIPTIC>",
+                f.to_xml.to_s
+              )
+              assert_kind_of FkType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_galactic_I
+              f = GalacticI.new
+              assert_equal "<stc:GALACTIC_I xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_galactic_II
+              f = GalacticII.new
+              assert_equal "<stc:GALACTIC_II xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_super_galactic
+              f = SuperGalactic.new
+              assert_equal "<stc:SUPER_GALACTIC xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_az_el
+              f = AzEl.new
+              assert_equal "<stc:AZ_EL xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_body
+              f = Body.new
+              assert_equal "<stc:BODY xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_geo
+              f = Geo.new
+              assert_equal "<stc:GEO xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_geod
+              f = Geod.new
+              assert_equal "<stc:GEOD xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_mag
+              f = Mag.new
+              assert_equal "<stc:MAG xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_gse
+              f = Gse.new
+              assert_equal "<stc:GSE xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_gsm
+              f = Gsm.new
+              assert_equal "<stc:GSM xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_sm
+              f = Sm.new
+              assert_equal "<stc:SM xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_hgc
+              f = Hgc.new
+              assert_equal "<stc:HGC xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_hee
+              f = Hee.new
+              assert_equal "<stc:HEE xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_heeq
+              f = Heeq.new
+              assert_equal "<stc:HEEQ xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_hci
+              f = Hci.new
+              assert_equal "<stc:HCI xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_hcd
+              f = Hcd.new
+              assert_equal "<stc:HCD xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_mercury_c
+              f = MercuryC.new
+              assert_equal "<stc:MERCURY_C xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_venus_c
+              f = VenusC.new
+              assert_equal "<stc:VENUS_C xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_luna_c
+              f = LunaC.new
+              assert_equal "<stc:LUNA_C xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_mars_c
+              f = MarsC.new
+              assert_equal "<stc:MARS_C xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_jupiter_c
+              f = JupiterCIII.new
+              assert_equal "<stc:JUPITER_C_III xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_saturn_c
+              f = SaturnCIII.new
+              assert_equal "<stc:SATURN_C_III xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_uranus_c
+              f = UranusCIII.new
+              assert_equal "<stc:URANUS_C_III xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_neptun_c
+              f = NeptuneCIII.new
+              assert_equal "<stc:NEPTUNE_C_III xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_pluto_c
+              f = PlutoC.new
+              assert_equal "<stc:PLUTO_C xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_mercury_g
+              f = MercuryG.new
+              assert_equal "<stc:MERCURY_G xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_venus_g
+              f = VenusG.new
+              assert_equal "<stc:VENUS_G xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_luna_g
+              f = LunaG.new
+              assert_equal "<stc:LUNA_G xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_mars_g
+              f = MarsG.new
+              assert_equal "<stc:MARS_G xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_jupiter_g
+              f = JupiterGIII.new
+              assert_equal "<stc:JUPITER_G_III xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_saturn_g
+              f = SaturnGIII.new
+              assert_equal "<stc:SATURN_G_III xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_uranus_g
+              f = UranusGIII.new
+              assert_equal "<stc:URANUS_G_III xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_neptune_g
+              f = NeptuneGIII.new
+              assert_equal "<stc:NEPTUNE_G_III xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_pluto_g
+              f = PlutoG.new
+              assert_equal "<stc:PLUTO_G xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+            
+            def test_unknown_frame
+              f = UnknownFrame.new
+              assert_equal "<stc:UNKNOWNFrame xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", f.to_xml.to_s
+              assert_kind_of IcrsType, f
+              assert_kind_of SpaceRefFrame, f
+            end
+          end
+          
+          class CustomSpaceRefFrameTest < ::Test::Unit::TestCase
+            def test_xml
+              f1 = CustomSpaceRefFrame.new(
+                :frame => 'frame1',
+                :pole_zaxis => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum'),
+                  :redshift => Redshift.new(:name => 'Redshift'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                ),
+                :xaxis => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                )
+              )
+              
+              f2 = CustomSpaceRefFrame.from_xml(f1.to_xml)
+              assert_equal f1, f2
+            end
+          end
+          
+          class PlanetaryEphemTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                PlanetaryEphem.new('JPL-DE200')
+                PlanetaryEphem.new('JPL-DE405')
+              }
+              
+              assert_raises ArgumentError do
+                PlanetaryEphem.new('blah')
+              end
+            end
+            
+            def test_accessors
+              p = PlanetaryEphem.new('JPL-DE200')
+              assert_equal 'JPL-DE200', p.value
+              
+              p.value = 'JPL-DE405'
+              assert_equal 'JPL-DE405', p.value
+            end
+          end
+          
+          class StdRefPosTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                StdRefPos.new
+                StdRefPos.new('JPL-DE200')
+                StdRefPos.new(PlanetaryEphem.new('JPL-DE200'))
+              }
+              
+              assert_raises ArgumentError do
+                StdRefPos.new('blah')
+              end
+            end
+            
+            def test_accessors
+              p = StdRefPos.new('JPL-DE200')
+              assert_equal PlanetaryEphem.new('JPL-DE200'), p.planetary_ephem
+              
+              p.planetary_ephem = 'JPL-DE405'
+              assert_equal PlanetaryEphem.new('JPL-DE405'), p.planetary_ephem
+            end
+            
+            def test_xml
+              p1 = StdRefPos.new('JPL-DE200')
+              assert_equal(
+                "<stc:StdRefPos xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'><stc:PlanetaryEphem>JPL-DE200</stc:PlanetaryEphem></stc:StdRefPos>",
+                p1.to_xml.to_s
+              )
+              
+              p2 = StdRefPos.from_xml(p1.to_xml)
+              assert_equal p1, p2
+            end
+          end
+          
+          class CustomRefPosTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                CustomRefPosType.new(
+                   AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum2'),
+                    :redshift => Redshift.new(:name => 'Redshift2'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                  )
+                )
+              }
+              
+              assert_raises ArgumentError do
+                CustomRefPosType.new
+              end
+              assert_raises TypeError do
+                CustomRefPosType.new('blah')
+              end
+            end
+            
+            def test_accessors
+              p = CustomRefPosType.new(
+                 AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                )
+              )
+              assert_equal(
+                AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                ),
+                p.coord_origin
+              )
+              
+              p.coord_origin = AstroCoords.new(
+                :coord_system_id => 'FK5-UTC-VEL',
+                :time => TimeCoordinate.new(:name => 'Time2'),
+                :position => Position1D.new(:name => 'FK5Cart2', :unit => PosUnit.new('lyr')),
+                :velocity => Velocity1D.new(:name => 'Vel2', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                :spectral => Spectral.new(:name => 'Spectrum2'),
+                :redshift => Redshift.new(:name => 'Redshift2'),
+                :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+              )
+              assert_equal(
+                AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time2'),
+                  :position => Position1D.new(:name => 'FK5Cart2', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel2', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                ),
+                p.coord_origin
+              )
+            end
+            
+            def test_xml
+              p1 = CustomRefPosType.new(
+                 AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                )
+              )
+              
+              p2 = CustomRefPosType.from_xml(p1.to_xml)
+              assert_equal p1, p2
+            end
+          end
+          
+          class ReferencePositionTest < ::Test::Unit::TestCase
+            def test_topocenter
+              p1 = Topocenter.new
+              assert_equal "<stc:TOPOCENTER xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+              
+              p2 = Topocenter.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_barycenter
+              p1 = Barycenter.new
+              assert_equal "<stc:BARYCENTER xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+              
+              p2 = Barycenter.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_heliocenter
+              p1 = Heliocenter.new
+              assert_equal "<stc:HELIOCENTER xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Heliocenter.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_geocenter
+              p1 = Geocenter.new
+              assert_equal "<stc:GEOCENTER xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Geocenter.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_lsr
+              p1 = Lsr.new
+              assert_equal "<stc:LSR xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Lsr.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_galactic_center
+              p1 = GalacticCenter.new
+              assert_equal "<stc:GALACTIC_CENTER xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = GalacticCenter.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_super_galactic_center
+              p1 = SuperGalacticCenter.new
+              assert_equal "<stc:SUPER_GALACTIC_CENTER xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = SuperGalacticCenter.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_moon
+              p1 = Moon.new
+              assert_equal "<stc:MOON xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Moon.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_embarycenter
+              p1 = Embarycenter.new
+              assert_equal "<stc:EMBARYCENTER xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Embarycenter.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_mercury
+              p1 = Mercury.new
+              assert_equal "<stc:MERCURY xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Mercury.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_venus
+              p1 = Venus.new
+              assert_equal "<stc:VENUS xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Venus.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_mars
+              p1 = Mars.new
+              assert_equal "<stc:MARS xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Mars.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_jupiter
+              p1 = Jupiter.new
+              assert_equal "<stc:JUPITER xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Jupiter.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_saturn
+              p1 = Saturn.new
+              assert_equal "<stc:SATURN xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Saturn.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_uranus
+              p1 = Uranus.new
+              assert_equal "<stc:URANUS xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Uranus.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_neptune
+              p1 = Neptune.new
+              assert_equal "<stc:NEPTUNE xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Neptune.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_pluto
+              p1 = Pluto.new
+              assert_equal "<stc:PLUTO xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Pluto.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_relocatable
+              p1 = Relocatable.new
+              assert_equal "<stc:RELOCATABLE xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = Relocatable.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+            
+            def test_unknown_ref_pos
+              p1 = UnknownRefPos.new
+              assert_equal "<stc:UNKNOWNRefPos xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd'/>", p1.to_xml.to_s
+
+              p2 = UnknownRefPos.from_xml(p1.to_xml)
+              assert_equal p1, p2
+              
+              assert_kind_of StdRefPos, p1
+              assert_kind_of ReferencePosition, p1
+            end
+          end
+          
+          class CustomRefPosTest < ::Test::Unit::TestCase
+            def test_relationships
+              p = CustomRefPos.new(
+                 AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                )
+              )
+              
+              assert_kind_of CustomRefPosType, p
+              assert_kind_of ReferencePosition, p
+            end
+            
+            def test_xml
+              p1 = CustomRefPos.new(
+                 AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('lyr')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.stsci.edu/'))
+                )
+              )
+              
+              p2 = CustomRefPos.from_xml(p1.to_xml)
+              assert_equal p1, p2
+            end
+          end
+          
+          class CoordFlavorTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                CoordFlavorType.new
+                CoordFlavorType.new(3)
+                CoordFlavorType.new(1, true)
+              }
+              
+              assert_raises ArgumentError do
+                CoordFlavorType.new(4)
+              end
+            end
+            
+            def test_accessors
+              f = CoordFlavorType.new(3, true)
+              assert_equal 3, f.coord_naxes
+              assert_equal true, f.coord_vel
+              
+              f.coord_naxes = 2
+              assert_equal 2, f.coord_naxes
+              f.coord_vel = false
+              assert_equal false, f.coord_vel
+            end
+            
+            def test_xml
+              f1 = CoordFlavorType.new(1, false)
+              assert_equal(
+                "<stc:CoordFlavorType stc:coord_naxes='1' xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd' stc:coord_vel='false'/>",
+                f1.to_xml.to_s
+              )
+              
+              f2 = CoordFlavorType.from_xml(f1.to_xml)
+              assert_equal f1, f2
+            end
+          end
+          
+          class CoordFlavorTest < ::Test::Unit::TestCase
+            def test_spherical
+              f1 = Spherical.new
+              assert_equal(
+                "<stc:SPHERICAL stc:coord_naxes='2' xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd' stc:coord_vel='false'/>",
+                f1.to_xml.to_s
+              )
+              
+              f2 = Spherical.from_xml(f1.to_xml)
+              assert_equal f1, f2
+              
+              assert_kind_of CoordFlavorType, f1
+              assert_kind_of CoordFlavor, f1
+            end
+            
+            def test_cartesion
+              f1 = Cartesian.new
+              assert_equal(
+                "<stc:CARTESIAN stc:coord_naxes='2' xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd' stc:coord_vel='false'/>",
+                f1.to_xml.to_s
+              )
+              
+              f2 = Cartesian.from_xml(f1.to_xml)
+              assert_equal f1, f2
+              
+              assert_kind_of CoordFlavorType, f1
+              assert_kind_of CoordFlavor, f1
+            end
+            
+            def test_unit_sphere
+              f1 = UnitSphere.new
+              assert_equal(
+                "<stc:UNITSPHERE stc:coord_naxes='2' xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd' stc:coord_vel='false'/>",
+                f1.to_xml.to_s
+              )
+              
+              f2 = UnitSphere.from_xml(f1.to_xml)
+              assert_equal f1, f2
+              
+              assert_kind_of CoordFlavorType, f1
+              assert_kind_of CoordFlavor, f1
+            end
+            
+            def test_geographic
+              f1 = Geographic.new
+              assert_equal(
+                "<stc:GEOGRAPHIC stc:coord_naxes='2' xmlns:stc='http://www.ivoa.net/xml/STC/stc-v1.10.xsd' stc:coord_vel='false'/>",
+                f1.to_xml.to_s
+              )
+              
+              f2 = Geographic.from_xml(f1.to_xml)
+              assert_equal f1, f2
+              
+              assert_kind_of CoordFlavorType, f1
+              assert_kind_of CoordFlavor, f1
+            end
+          end
+          
+          class SpaceFrameTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                SpaceFrameType.new(
+                  :name => 'MySpaceFrame',
+                  :space_ref_frame => Fk5.new('J2000.0'),
+                  :reference_position => Heliocenter.new,
+                  :offset_center => Value.new(110.1),
+                  :coord_flavor => Cartesian.new
+                )
+                SpaceFrameType.new(
+                  :name => 'MySpaceFrame',
+                  :space_ref_frame => Fk5.new('J2000.0'),
+                  :reference_position => Heliocenter.new,
+                  :coord_flavor => Cartesian.new
+                )
+              }
+              
+              assert_raises ArgumentError do
+                SpaceFrameType.new(
+                  :name => 'MySpaceFrame',
+                  :reference_position => Heliocenter.new,
+                  :offset_center => Value.new(110.1),
+                  :coord_flavor => Cartesian.new
+                )
+              end
+              assert_raises ArgumentError do
+                SpaceFrameType.new(
+                  :name => 'MySpaceFrame',
+                  :space_ref_frame => Fk5.new('J2000.0'),
+                  :offset_center => Value.new(110.1),
+                  :coord_flavor => Cartesian.new
+                )
+              end
+              assert_raises ArgumentError do
+                SpaceFrameType.new(
+                  :name => 'MySpaceFrame',
+                  :space_ref_frame => Fk5.new('J2000.0'),
+                  :reference_position => Heliocenter.new,
+                  :offset_center => Value.new(110.1)
+                )
+              end
+              
+              assert_raises TypeError do
+                SpaceFrameType.new(
+                  :name => 'MySpaceFrame',
+                  :space_ref_frame => 'blah',
+                  :reference_position => Heliocenter.new,
+                  :offset_center => Value.new(110.1),
+                  :coord_flavor => Cartesian.new
+                )
+              end
+              assert_raises TypeError do
+                SpaceFrameType.new(
+                  :name => 'MySpaceFrame',
+                  :space_ref_frame => Fk5.new('J2000.0'),
+                  :reference_position => 'blah',
+                  :offset_center => Value.new(110.1),
+                  :coord_flavor => Cartesian.new
+                )
+              end
+              assert_raises TypeError do
+                SpaceFrameType.new(
+                  :name => 'MySpaceFrame',
+                  :space_ref_frame => Fk5.new('J2000.0'),
+                  :reference_position => Heliocenter.new,
+                  :offset_center => 'blah',
+                  :coord_flavor => Cartesian.new
+                )
+              end
+              assert_raises TypeError do
+                SpaceFrameType.new(
+                  :name => 'MySpaceFrame',
+                  :space_ref_frame => Fk5.new('J2000.0'),
+                  :reference_position => Heliocenter.new,
+                  :offset_center => Value.new(110.1),
+                  :coord_flavor => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              f = SpaceFrameType.new(
+                :name => 'MySpaceFrame',
+                :space_ref_frame => Fk5.new('J2000.0'),
+                :reference_position => Heliocenter.new,
+                :offset_center => Value.new(110.1),
+                :coord_flavor => Cartesian.new
+              )
+              
+              assert_equal 'MySpaceFrame', f.name
+              assert_equal Fk5.new('J2000.0'), f.space_ref_frame
+              assert_equal Heliocenter.new, f.reference_position
+              assert_equal Value.new(110.1), f.offset_center
+              assert_equal Cartesian.new, f.coord_flavor
+              
+              f.space_ref_frame = Fk4.new('B1950.0')
+              assert_equal Fk4.new('B1950.0'), f.space_ref_frame
+              f.reference_position = Geocenter.new
+              assert_equal Geocenter.new, f.reference_position
+              f.offset_center = Value2.new([1.1, 2.2])
+              assert_equal Value2.new([1.1, 2.2]), f.offset_center
+              f.coord_flavor = Spherical.new
+              assert_equal Spherical.new, f.coord_flavor
+            end
+            
+            def test_relationships
+              f = SpaceFrameType.new(
+                :name => 'MySpaceFrame',
+                :space_ref_frame => Fk5.new('J2000.0'),
+                :reference_position => Heliocenter.new,
+                :offset_center => Value.new(110.1),
+                :coord_flavor => Cartesian.new
+              )
+              
+              assert_kind_of CoordFrameType, f
+            end
+            
+            def test_xml
+              f1 = SpaceFrameType.new(
+                :name => 'MySpaceFrame',
+                :space_ref_frame => Fk5.new('J2000.0'),
+                :reference_position => Heliocenter.new,
+                :offset_center => Value2.new([1.1, 2.2]),
+                :coord_flavor => Cartesian.new
+              )
+              
+              f2 = SpaceFrameType.from_xml(f1.to_xml)
+              assert_equal f1, f2
+            end
+          end
+          
+          class TimeFrameTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                TimeFrameType.new(
+                  :name => 'MyTimeFrame',
+                  :time_scale => TimeScale.new('UTC'),
+                  :reference_position => Topocenter.new,
+                  :time_ref_direction => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum'),
+                    :redshift => Redshift.new(:name => 'Redshift'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                   )
+                )
+                TimeFrameType.new(
+                  :name => 'MyTimeFrame',
+                  :reference_position => Topocenter.new,
+                  :time_ref_direction => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum'),
+                    :redshift => Redshift.new(:name => 'Redshift'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                   )
+                )
+                TimeFrameType.new(
+                  :name => 'MyTimeFrame',
+                  :time_scale => TimeScale.new('UTC'),
+                  :reference_position => Topocenter.new
+                )
+              }
+              
+              assert_raises ArgumentError do
+                TimeFrameType.new(
+                  :name => 'MyTimeFrame',
+                  :time_scale => 'blah',
+                  :reference_position => Topocenter.new,
+                  :time_ref_direction => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum'),
+                    :redshift => Redshift.new(:name => 'Redshift'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                   )
+                )
+              end
+              assert_raises TypeError do
+                TimeFrameType.new(
+                  :name => 'MyTimeFrame',
+                  :time_scale => TimeScale.new('UTC'),
+                  :reference_position => 'blah',
+                  :time_ref_direction => AstroCoords.new(
+                    :coord_system_id => 'FK5-UTC-VEL',
+                    :time => TimeCoordinate.new(:name => 'Time'),
+                    :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                    :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                    :spectral => Spectral.new(:name => 'Spectrum'),
+                    :redshift => Redshift.new(:name => 'Redshift'),
+                    :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                   )
+                )
+              end
+              assert_raises TypeError do
+                TimeFrameType.new(
+                  :name => 'MyTimeFrame',
+                  :time_scale => TimeScale.new('UTC'),
+                  :reference_position => Topocenter.new,
+                  :time_ref_direction => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              f = TimeFrameType.new(
+                :name => 'MyTimeFrame',
+                :time_scale => TimeScale.new('UTC'),
+                :reference_position => Topocenter.new,
+                :time_ref_direction => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum'),
+                  :redshift => Redshift.new(:name => 'Redshift'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                 )
+              )
+              
+              assert_equal 'MyTimeFrame', f.name
+              assert_equal TimeScale.new('UTC'), f.time_scale
+              assert_equal Topocenter.new, f.reference_position
+              assert_equal(
+                AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum'),
+                  :redshift => Redshift.new(:name => 'Redshift'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                 ),
+                 f.time_ref_direction
+              )
+              
+              f.name = 'MySecondTimeFrame'
+              assert_equal 'MySecondTimeFrame', f.name
+              f.time_scale = TimeScale.new('LST')
+              assert_equal TimeScale.new('LST'), f.time_scale
+              f.reference_position = Heliocenter.new
+              assert_equal Heliocenter.new, f.reference_position
+              f.time_ref_direction = AstroCoords.new(
+                :coord_system_id => 'FK5-UTC-VEL',
+                :time => TimeCoordinate.new(:name => 'Time2'),
+                :position => Position1D.new(:name => 'FK5Cart2', :unit => PosUnit.new('m')),
+                :velocity => Velocity1D.new(:name => 'Vel2', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                :spectral => Spectral.new(:name => 'Spectrum2'),
+                :redshift => Redshift.new(:name => 'Redshift2'),
+                :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+               )
+               assert_equal(
+                AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time2'),
+                  :position => Position1D.new(:name => 'FK5Cart2', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel2', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum2'),
+                  :redshift => Redshift.new(:name => 'Redshift2'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                 ),
+                 f.time_ref_direction
+               )
+            end
+            
+            def test_relationships
+              f = TimeFrameType.new(
+                :name => 'MyTimeFrame',
+                :time_scale => TimeScale.new('UTC'),
+                :reference_position => Topocenter.new,
+                :time_ref_direction => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum'),
+                  :redshift => Redshift.new(:name => 'Redshift'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                 )
+              )
+              
+              assert_kind_of CoordFrameType, f
+            end
+            
+            def test_xml
+              f1 = TimeFrameType.new(
+                :name => 'MyTimeFrame',
+                :time_scale => TimeScale.new('UTC'),
+                :reference_position => Topocenter.new,
+                :time_ref_direction => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :time => TimeCoordinate.new(:name => 'Time'),
+                  :position => Position1D.new(:name => 'FK5Cart', :unit => PosUnit.new('m')),
+                  :velocity => Velocity1D.new(:name => 'Vel', :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('h')),
+                  :spectral => Spectral.new(:name => 'Spectrum'),
+                  :redshift => Redshift.new(:name => 'Redshift'),
+                  :coord_file => AstroCoordsFile.new(:file => Fits.new(:uri => 'http://www.noao.edu/'))
+                 )
+              )
+              
+              f2 = TimeFrameType.from_xml(f1.to_xml)
+              assert_equal f1, f2
+            end
+          end
+          
+          class SpectralFrameTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                SpectralFrameType.new(:reference_position => Topocenter.new)
+              }
+              
+              assert_raises ArgumentError do
+                SpectralFrameType.new
+              end
+              assert_raises TypeError do
+                SpectralFrameType.new(:reference_position => 'blah')
+              end
+            end
+            
+            def test_accessors
+              f = SpectralFrameType.new(:reference_position => Topocenter.new)
+              assert_equal Topocenter.new, f.reference_position
+              
+              f.reference_position = Heliocenter.new
+              assert_equal Heliocenter.new, f.reference_position
+            end
+            
+            def test_relationships
+              assert_kind_of CoordFrameType, SpectralFrameType.new(:reference_position => Topocenter.new)
+            end
+            
+            def test_xml
+              f1 = SpectralFrameType.new(:reference_position => Topocenter.new)
+             
+              f2 = SpectralFrameType.from_xml(f1.to_xml)
+              assert_equal f1, f2
+            end
+          end
+          
+          class DopplerDefinitionTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                DopplerDefinition.new('OPTICAL')
+                DopplerDefinition.new('RADIO')
+                DopplerDefinition.new('RELATIVISTIC')
+              }
+              
+              assert_raises ArgumentError do
+                DopplerDefinition.new
+              end
+              assert_raises ArgumentError do
+                DopplerDefinition.new('blah')
+              end
+            end
+            
+            def test_accessors
+              d = DopplerDefinition.new('RADIO')
+              assert_equal 'RADIO', d.value
+              
+              d.value = 'OPTICAL'
+              assert_equal 'OPTICAL', d.value
+            end
+          end
+          
+          class RedshiftFrameTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                RedshiftFrameType.new(
+                  :doppler_definition => 'OPTICAL',
+                  :reference_position => Topocenter.new,
+                  :value_type => 'REDSHIFT'
+                )
+                RedshiftFrameType.new(
+                  :reference_position => Topocenter.new,
+                  :value_type => 'REDSHIFT'
+                )
+                RedshiftFrameType.new(
+                  :reference_position => Topocenter.new
+                )
+              }
+              
+              assert_raises ArgumentError do
+                RedshiftFrameType.new(
+                  :doppler_definition => 'OPTICAL',
+                  :value_type => 'REDSHIFT'
+                )
+              end
+              assert_raises TypeError do
+                RedshiftFrameType.new(
+                  :reference_position => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              f = RedshiftFrameType.new(
+                :doppler_definition => 'OPTICAL',
+                :reference_position => Topocenter.new,
+                :value_type => 'REDSHIFT'
+              )
+              
+              assert_equal DopplerDefinition.new('OPTICAL'), f.doppler_definition
+              assert_equal Topocenter.new, f.reference_position
+              assert_equal 'REDSHIFT', f.value_type
+              
+              f.doppler_definition = DopplerDefinition.new('RELATIVISTIC')
+              assert_equal DopplerDefinition.new('RELATIVISTIC'), f.doppler_definition
+              f.reference_position = Heliocenter.new
+              assert_equal Heliocenter.new, f.reference_position
+              f.value_type = 'VELOCITY'
+              assert_equal 'VELOCITY', f.value_type
+            end
+            
+            def test_relationships
+              f = RedshiftFrameType.new(
+                :doppler_definition => 'OPTICAL',
+                :reference_position => Topocenter.new,
+                :value_type => 'REDSHIFT'
+              )
+              
+              assert_kind_of CoordFrameType, f
+            end
+            
+            def test_xml
+              f1 = RedshiftFrameType.new(
+                :doppler_definition => 'OPTICAL',
+                :reference_position => Topocenter.new,
+                :value_type => 'REDSHIFT'
+              )
+              
+              f2 = RedshiftFrameType.from_xml(f1.to_xml)
+              assert_equal f1, f2
+            end
+          end
+          
+          class CoordSysTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                CoordSysType.new(
+                  :id => 'MyCoordSys',
+                  :coord_frames => [
+                    RedshiftFrame.new(
+                      :doppler_definition => 'OPTICAL',
+                      :reference_position => Topocenter.new,
+                      :value_type => 'REDSHIFT'
+                    )
+                  ]
+                )
+              }
+              
+              assert_raises ArgumentError do
+                CoordSysType.new(:id => 'MyCoordSys')
+              end
+              assert_raises ArgumentError do
+                CoordSysType.new(
+                   :coord_frames => [
+                     RedshiftFrame.new(
+                      :doppler_definition => 'OPTICAL',
+                      :reference_position => Topocenter.new,
+                      :value_type => 'REDSHIFT'
+                    )
+                  ]
+                )
+              end
+              assert_raises TypeError do
+                CoordSysType.new(
+                  :id => 'MyCoordSys',
+                  :coord_frames => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              t = CoordSysType.new(
+                :id => 'MyCoordSys',
+                :coord_frames => [
+                  RedshiftFrame.new(
+                    :doppler_definition => 'OPTICAL',
+                    :reference_position => Topocenter.new,
+                    :value_type => 'REDSHIFT'
+                  ),
+                  SpectralFrame.new(:reference_position => Topocenter.new)
+                ]
+              )
+              
+              assert_equal Id.new('MyCoordSys'), t.id
+              assert_equal(
+                [
+                  RedshiftFrame.new(
+                    :doppler_definition => 'OPTICAL',
+                    :reference_position => Topocenter.new,
+                    :value_type => 'REDSHIFT'
+                  ),
+                  SpectralFrame.new(:reference_position => Topocenter.new)
+                ],
+                t.coord_frames
+              )
+              
+              t.id = Id.new('MyCoordSys2')
+              assert_equal Id.new('MyCoordSys2'), t.id
+              t.coord_frames = [
+                RedshiftFrame.new(
+                  :doppler_definition => 'OPTICAL',
+                  :reference_position => Topocenter.new,
+                  :value_type => 'REDSHIFT'
+                )
+              ]
+              assert_equal(
+                [RedshiftFrame.new(
+                    :doppler_definition => 'OPTICAL',
+                    :reference_position => Topocenter.new,
+                    :value_type => 'REDSHIFT'
+                  )],
+                t.coord_frames
+              )
+            end
+            
+            def test_xml
+              t1 = CoordSysType.new(
+                :id => 'MyCoordSys',
+                :coord_frames => [
+                  RedshiftFrame.new(
+                    :doppler_definition => 'OPTICAL',
+                    :reference_position => Topocenter.new,
+                    :value_type => 'REDSHIFT'
+                  ),
+                  SpectralFrame.new(:reference_position => Topocenter.new)
+                ]
+              )
+              
+              t2 = CoordSysType.from_xml(t1.to_xml)
+              assert_equal t1, t2
+            end
+          end
+          
+          class AstroCoordSystemTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  ),
+                  :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new),
+                  :redshift_frame => RedshiftFrame.new(
+                    :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                    :reference_position => Barycenter.new
+                  ),
+                  :generic_coord_frames => [
+                    GenericCoordFrame.new(:name => 'Generic1'), GenericCoordFrame.new(:name => 'Generic2')
+                  ]
+                )
+                
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  ),
+                  :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new),
+                  :redshift_frame => RedshiftFrame.new(
+                    :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                    :reference_position => Barycenter.new
+                  )
+                )
+                
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  ),
+                  :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new)
+                )
+                
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  )
+                )
+              }
+              
+              assert_raises ArgumentError do
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new)
+                )
+              end
+              assert_raises ArgumentError do
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  )
+                )
+              end
+              assert_raises ArgumentError do
+                AstroCoordSystemType.new(
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  )
+                )
+              end
+              
+              assert_raises TypeError do
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => 'blah',
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  ),
+                  :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new),
+                  :redshift_frame => RedshiftFrame.new(
+                    :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                    :reference_position => Barycenter.new
+                  ),
+                  :generic_coord_frames => [
+                    GenericCoordFrame.new(:name => 'Generic1'), GenericCoordFrame.new(:name => 'Generic2')
+                  ]
+                )
+              end
+              assert_raises TypeError do
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                  :space_frame => 'blah',
+                  :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new),
+                  :redshift_frame => RedshiftFrame.new(
+                    :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                    :reference_position => Barycenter.new
+                  ),
+                  :generic_coord_frames => [
+                    GenericCoordFrame.new(:name => 'Generic1'), GenericCoordFrame.new(:name => 'Generic2')
+                  ]
+                )
+              end
+              assert_raises TypeError do
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  ),
+                  :spectral_frame => 'blah',
+                  :redshift_frame => RedshiftFrame.new(
+                    :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                    :reference_position => Barycenter.new
+                  ),
+                  :generic_coord_frames => [
+                    GenericCoordFrame.new(:name => 'Generic1'), GenericCoordFrame.new(:name => 'Generic2')
+                  ]
+                )
+              end
+              assert_raises TypeError do
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  ),
+                  :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new),
+                  :redshift_frame => 'blah',
+                  :generic_coord_frames => [
+                    GenericCoordFrame.new(:name => 'Generic1'), GenericCoordFrame.new(:name => 'Generic2')
+                  ]
+                )
+              end
+              assert_raises TypeError do
+                AstroCoordSystemType.new(
+                  :id => Id.new('ICRS-TT-CXO'),
+                  :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Space', :space_ref_frame => Icrs.new,
+                    :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                  ),
+                  :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new),
+                  :redshift_frame => RedshiftFrame.new(
+                    :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                    :reference_position => Barycenter.new
+                  ),
+                  :generic_coord_frames => [
+                    'blah', GenericCoordFrame.new(:name => 'Generic2')
+                  ]
+                )
+              end
+            end
+            
+            def test_accessors
+              s = AstroCoordSystemType.new(
+                :id => Id.new('ICRS-TT-CXO'),
+                :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                :space_frame => SpaceFrame.new(
+                  :name => 'Space', :space_ref_frame => Icrs.new,
+                  :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                ),
+                :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new),
+                :redshift_frame => RedshiftFrame.new(
+                  :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                  :reference_position => Barycenter.new
+                ),
+                :generic_coord_frames => [
+                  GenericCoordFrame.new(:name => 'Generic1'), GenericCoordFrame.new(:name => 'Generic2')
+                ]
+              )
+              
+              assert_equal Id.new('ICRS-TT-CXO'), s.id
+              assert_equal(
+                TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                s.time_frame
+              )
+              assert_equal(
+                SpaceFrame.new(
+                  :name => 'Space', :space_ref_frame => Icrs.new,
+                  :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                ),
+                s.space_frame
+              )
+              assert_equal SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new), s.spectral_frame
+              assert_equal(
+                RedshiftFrame.new(
+                  :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                  :reference_position => Barycenter.new
+                ),
+                s.redshift_frame
+              )
+              assert_equal(
+                GenericCoordFrameList.new([GenericCoordFrame.new(:name => 'Generic1'), GenericCoordFrame.new(:name => 'Generic2')]),
+                s.generic_coord_frames
+              )
+              
+              assert_equal s.time_frame, s.coord_frames[0]
+              assert_equal s.space_frame, s.coord_frames[1]
+              assert_equal s.spectral_frame, s.coord_frames[2]
+              assert_equal s.redshift_frame, s.coord_frames[3]
+              assert_equal s.generic_coord_frames, GenericCoordFrameList.new(s.coord_frames[4..-1])
+              
+              s.id = Id.new('ICRS-TT-CX1')
+              assert_equal Id.new('ICRS-TT-CX1'), s.id
+              s.time_frame = TimeFrame.new(:name => 'Time2', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new)
+              assert_equal TimeFrame.new(:name => 'Time2', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new), s.time_frame
+              s.space_frame = SpaceFrame.new(
+                :name => 'Space2', :space_ref_frame => Icrs.new,
+                :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+              )
+              assert_equal(
+                SpaceFrame.new(
+                  :name => 'Space2', :space_ref_frame => Icrs.new,
+                  :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                ),
+                s.space_frame
+              )
+              s.spectral_frame = SpectralFrame.new(:name => 'Energy2', :reference_position => Topocenter.new)
+              assert_equal SpectralFrame.new(:name => 'Energy2', :reference_position => Topocenter.new), s.spectral_frame
+              s.redshift_frame = RedshiftFrame.new(
+                :name => 'DopplerVelocity2', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                :reference_position => Barycenter.new
+              )
+              assert_equal(
+                RedshiftFrame.new(
+                  :name => 'DopplerVelocity2', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                  :reference_position => Barycenter.new
+                ),
+                s.redshift_frame
+              )
+              s.generic_coord_frames = GenericCoordFrameList.new([GenericCoordFrame.new(:name => 'Generic2'), GenericCoordFrame.new(:name => 'Generic3')])
+              assert_equal(
+                GenericCoordFrameList.new([GenericCoordFrame.new(:name => 'Generic2'), GenericCoordFrame.new(:name => 'Generic3')]),
+                s.generic_coord_frames
+              )
+            end
+            
+            def test_relationships
+              s = AstroCoordSystemType.new(
+                :id => Id.new('ICRS-TT-CXO'),
+                :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                :space_frame => SpaceFrame.new(
+                  :name => 'Space', :space_ref_frame => Icrs.new,
+                  :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                ),
+                :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new),
+                :redshift_frame => RedshiftFrame.new(
+                  :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                  :reference_position => Barycenter.new
+                ),
+                :generic_coord_frames => [
+                  GenericCoordFrame.new(:name => 'Generic1'), GenericCoordFrame.new(:name => 'Generic2')
+                ]
+              )
+              
+              assert_kind_of CoordSysType, s
+            end
+            
+            def test_xml
+              s1 = AstroCoordSystemType.new(
+                :id => Id.new('ICRS-TT-CXO'),
+                :time_frame => TimeFrame.new(:name => 'Time', :time_scale => TimeScale.new('TT'), :reference_position => Topocenter.new),
+                :space_frame => SpaceFrame.new(
+                  :name => 'Space', :space_ref_frame => Icrs.new,
+                  :reference_position => Topocenter.new, :coord_flavor => Spherical.new
+                ),
+                :spectral_frame => SpectralFrame.new(:name => 'Energy', :reference_position => Topocenter.new),
+                :redshift_frame => RedshiftFrame.new(
+                  :name => 'DopplerVelocity', :doppler_definition => DopplerDefinition.new('OPTICAL'),
+                  :reference_position => Barycenter.new
+                ),
+                :generic_coord_frames => [
+                  GenericCoordFrame.new(:name => 'Generic1'), GenericCoordFrame.new(:name => 'Generic2')
+                ]
+              )
+              
+              s2 = AstroCoordSystemType.from_xml(s1.to_xml)
+              assert_equal s1, s2
+            end
+          end
+          
+          class PixelCoordSystemTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                PixelCoordSystemType.new(:id => 'System1', :pixel_coord_frames => [PixelCoordFrame.new(:name => 'CoordSystem1')])
+              }
+              
+              assert_raises ArgumentError do
+                PixelCoordSystemType.new(:id => 'System1')
+              end
+              assert_raises ArgumentError do
+                PixelCoordSystemType.new(:pixel_coord_frames => [PixelCoordFrame.new(:name => 'CoordSystem1')])
+              end
+              assert_raises ArgumentError do
+                PixelCoordSystemType.new
+              end
+              
+              assert_raises TypeError do
+                PixelCoordSystemType.new(:id => 'System1', :pixel_coord_frames => 'blah')
+              end
+            end
+            
+            def test_accessors
+              s = PixelCoordSystemType.new(:id => 'System1', :pixel_coord_frames => [PixelCoordFrame.new(:name => 'CoordSystem1')])
+              
+              assert_equal Id.new('System1'), s.id
+              assert_equal PixelCoordFrameList.new([PixelCoordFrame.new(:name => 'CoordSystem1')]), s.pixel_coord_frames
+              s.id = Id.new('System2')
+              assert_equal Id.new('System2'), s.id
+              s.pixel_coord_frames = [PixelCoordFrame.new(:name => 'CoordSystem2'), PixelCoordFrame.new(:name => 'CoordSystem3')]
+              assert_equal(
+                PixelCoordFrameList.new([PixelCoordFrame.new(:name => 'CoordSystem2'), PixelCoordFrame.new(:name => 'CoordSystem3')]),
+                s.pixel_coord_frames
+              )
+            end
+            
+            def test_relationships
+              s = PixelCoordSystemType.new(:id => 'System1', :pixel_coord_frames => [PixelCoordFrame.new(:name => 'CoordSystem1')])
+              assert_kind_of CoordSysType, s
+            end
+            
+            def test_xml
+              s1 = PixelCoordSystemType.new(:id => 'System1', :pixel_coord_frames => [PixelCoordFrame.new(:name => 'CoordSystem1')])
+              s2 = PixelCoordSystemType.from_xml(s1.to_xml)
+              assert_equal s1, s2
+            end
+          end
+          
+          class TimeIntervalTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                TimeIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :start_time => AstronTime.new('UTC', ISOTime.new(DateTime.now)),
+                  :stop_time => AstronTime.new('LOCAL', ISOTime.new(DateTime.now))
+                )
+                TimeIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :start_time => AstronTime.new('UTC', ISOTime.new(DateTime.now))
+                )
+                TimeIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5
+                )
+                TimeIntervalType.new
+              }
+              
+              assert_raises TypeError do
+                TimeIntervalType.new(:start_time => 'blah')
+              end
+              assert_raises TypeError do
+                TimeIntervalType.new(:stop_time => 'blah')
+              end
+            end
+            
+            def test_accessors
+              i = TimeIntervalType.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :start_time => AstronTime.new('UTC', ISOTime.new(DateTime.parse('2008-01-01'))),
+                :stop_time => AstronTime.new('LOCAL', ISOTime.new(DateTime.parse('2008-01-01')))
+              )
+              
+              assert_equal true, i.lo_include
+              assert_equal false, i.hi_include
+              assert_equal 0.5, i.fill_factor
+              assert_equal AstronTime.new('UTC', ISOTime.new(DateTime.parse('2008-01-01'))), i.start_time
+              assert_equal AstronTime.new('LOCAL', ISOTime.new(DateTime.parse('2008-01-01'))), i.stop_time
+              
+              i.lo_include = false
+              assert_equal false, i.lo_include
+              i.hi_include = true
+              assert_equal true, i.hi_include
+              i.fill_factor = nil
+              assert_equal 1.0, i.fill_factor
+              i.start_time = AstronTime.new('LOCAL', ISOTime.new(DateTime.parse('2008-05-01')))
+              assert_equal AstronTime.new('LOCAL', ISOTime.new(DateTime.parse('2008-05-01'))), i.start_time
+              i.stop_time = AstronTime.new('UTC', ISOTime.new(DateTime.parse('2008-03-01')))
+              assert_equal AstronTime.new('UTC', ISOTime.new(DateTime.parse('2008-03-01'))), i.stop_time
+            end
+            
+            def test_relationships
+              assert_kind_of CoordIntervalType, TimeIntervalType.new
+            end
+            
+            def test_xml
+              i1 = TimeIntervalType.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :start_time => AstronTime.new('UTC', ISOTime.new(DateTime.parse('2008-01-01'))),
+                :stop_time => AstronTime.new('LOCAL', ISOTime.new(DateTime.parse('2008-01-01')))
+              )
+              
+              i2 = TimeIntervalType.from_xml(i1.to_xml)
+              assert_equal i1, i2
+            end
+          end
+          
+          class CoordScalarIntervalTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                CoordScalarIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => 10.1, :hi_limit => 21.2
+                )
+                CoordScalarIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => 10.1
+                )
+                CoordScalarIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :hi_limit => 21.2
+                )
+                CoordScalarIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5
+                )
+                CoordScalarIntervalType.new
+              }
+              
+              assert_raises ArgumentError do
+                CoordScalarIntervalType.new(:lo_limit => 'blah')
+              end
+              assert_raises ArgumentError do
+                CoordScalarIntervalType.new(:hi_limit => 'blah')
+              end
+            end
+            
+            def test_accessors
+              i = CoordScalarIntervalType.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => 10.1, :hi_limit => 21.2
+              )
+              
+              assert_equal true, i.lo_include
+              assert_equal false, i.hi_include
+              assert_equal 0.5, i.fill_factor
+              assert_equal 10.1, i.lo_limit
+              assert_equal 21.2, i.hi_limit
+              
+              i.lo_include = false
+              assert_equal false, i.lo_include
+              i.hi_include = true
+              assert_equal true, i.hi_include
+              i.fill_factor = 0.8
+              assert_equal 0.8, i.fill_factor
+              i.lo_limit = 0.1
+              assert_equal 0.1, i.lo_limit
+              i.hi_limit = nil
+              assert_equal nil, i.hi_limit
+            end
+            
+            def test_relationships
+              assert_kind_of CoordIntervalType, CoordScalarIntervalType.new
+            end
+            
+            def test_xml
+              i1 = CoordScalarIntervalType.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => 10.1, :hi_limit => 21.2
+              )
+              
+              i2 = CoordScalarIntervalType.from_xml(i1.to_xml)
+              assert_equal i1, i2
+            end
+          end
+          
+          class Coord2VecIntervalTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                Coord2VecIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => [10.1, 2.4], :hi_limit => [21.2, 9.1]
+                )
+                Coord2VecIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => [10.1, 2.4]
+                )
+                Coord2VecIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :hi_limit => [21.2, 9.1]
+                )
+                Coord2VecIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5
+                )
+                Coord2VecIntervalType.new
+              }
+              
+              assert_raises TypeError do
+                Coord2VecIntervalType.new(:lo_limit => 'blah')
+              end
+              assert_raises TypeError do
+                Coord2VecIntervalType.new(:hi_limit => 'blah')
+              end
+            end
+            
+            def test_accessors
+              i = Coord2VecIntervalType.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => [10.1, 2.4], :hi_limit => [21.2, 9.1]
+              )
+              
+              assert_equal true, i.lo_include
+              assert_equal false, i.hi_include
+              assert_equal 0.5, i.fill_factor
+              assert_equal Double2.new([10.1, 2.4]), i.lo_limit
+              assert_equal Double2.new([21.2, 9.1]), i.hi_limit
+              
+              i.lo_include = false
+              assert_equal false, i.lo_include
+              i.hi_include = true
+              assert_equal true, i.hi_include
+              i.fill_factor = 0.8
+              assert_equal 0.8, i.fill_factor
+              i.lo_limit = [0.1, 0.5]
+              assert_equal Double2.new([0.1, 0.5]), i.lo_limit
+              i.hi_limit = nil
+              assert_equal nil, i.hi_limit
+            end
+            
+            def test_relationships
+              assert_kind_of CoordIntervalType, Coord2VecIntervalType.new
+            end
+            
+            def test_xml
+              i1 = Coord2VecIntervalType.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => [10.1, 2.4], :hi_limit => [21.2, 9.1]
+              )
+              
+              i2 = Coord2VecIntervalType.from_xml(i1.to_xml)
+              assert_equal i1, i2
+            end
+          end
+          
+          class Coord3VecIntervalTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                Coord3VecIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => [10.1, 2.4, 5.1], :hi_limit => [21.2, 9.1, 8.2]
+                )
+                Coord3VecIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => [10.1, 2.4, 5.1]
+                )
+                Coord3VecIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :hi_limit => [21.2, 9.1, 8.2]
+                )
+                Coord3VecIntervalType.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5
+                )
+                Coord3VecIntervalType.new
+              }
+              
+              assert_raises TypeError do
+                Coord3VecIntervalType.new(:lo_limit => 'blah')
+              end
+              assert_raises TypeError do
+                Coord3VecIntervalType.new(:hi_limit => 'blah')
+              end
+            end
+            
+            def test_accessors
+              i = Coord3VecIntervalType.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => [10.1, 2.4, 5.1], :hi_limit => [21.2, 9.1, 8.2]
+              )
+              
+              assert_equal true, i.lo_include
+              assert_equal false, i.hi_include
+              assert_equal 0.5, i.fill_factor
+              assert_equal Double3.new([10.1, 2.4, 5.1]), i.lo_limit
+              assert_equal Double3.new([21.2, 9.1, 8.2]), i.hi_limit
+              
+              i.lo_include = false
+              assert_equal false, i.lo_include
+              i.hi_include = true
+              assert_equal true, i.hi_include
+              i.fill_factor = 0.8
+              assert_equal 0.8, i.fill_factor
+              i.lo_limit = [0.1, 0.5, 0.8]
+              assert_equal Double3.new([0.1, 0.5, 0.8]), i.lo_limit
+              i.hi_limit = nil
+              assert_equal nil, i.hi_limit
+            end
+            
+            def test_relationships
+              assert_kind_of CoordIntervalType, Coord3VecIntervalType.new
+            end
+            
+            def test_xml
+              i1 = Coord3VecIntervalType.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => [10.1, 2.4, 1.1], :hi_limit => [21.2, 9.1, 8.7]
+              )
+              
+              i2 = Coord3VecIntervalType.from_xml(i1.to_xml)
+              assert_equal i1, i2
+            end
+          end
+          
+          class SphereTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                SphereType.new(
+                  :radius => 10.2,
+                  :center => [1.1, 2.3, 3.3],
+                  :unit => PosUnit.new('m'),
+                  :radius_unit => PosUnit.new('deg'),
+                  :fill_factor => 0.4
+                )
+                SphereType.new(
+                  :radius => 10.2,
+                  :center => [1.1, 2.3, 3.3],
+                  :unit => PosUnit.new('m'),
+                  :radius_unit => PosUnit.new('deg')
+                )
+                SphereType.new(
+                  :radius => 10.2,
+                  :center => [1.1, 2.3, 3.3],
+                  :unit => PosUnit.new('m')
+                )
+              }
+              
+              assert_raises ArgumentError do
+                SphereType.new(
+                  :radius => 10.2,
+                  :center => [1.1, 2.3, 3.3]
+                )
+              end
+              assert_raises ArgumentError do
+                SphereType.new(
+                  :radius => 10.2,
+                  :unit => PosUnit.new('m')
+                )
+              end
+              assert_raises ArgumentError do
+                SphereType.new(
+                  :center => [1.1, 2.3, 3.3],
+                  :unit => PosUnit.new('m')
+                )
+              end
+              
+              assert_raises TypeError do
+                SphereType.new(
+                  :radius => 10.2,
+                  :center => 'blah',
+                  :unit => PosUnit.new('m')
+                )
+              end
+            end
+            
+            def test_accessors
+              s = SphereType.new(
+                :radius => 10.2,
+                :center => [1.1, 2.3, 3.3],
+                :unit => PosUnit.new('m'),
+                :radius_unit => PosUnit.new('deg'),
+                :fill_factor => 0.4
+              )
+              
+              assert_equal 10.2, s.radius
+              assert_equal Double3.new([1.1, 2.3, 3.3]), s.center
+              assert_equal PosUnit.new('m'), s.unit
+              assert_equal PosUnit.new('deg'), s.radius_unit
+              assert_equal 0.4, s.fill_factor
+              
+              s.radius = 5.2
+              assert_equal 5.2, s.radius
+              s.center = [2.2, 3.3, 4.4]
+              assert_equal Double3.new([2.2, 3.3, 4.4]), s.center
+              s.unit = 'kpc'
+              assert_equal PosUnit.new('kpc'), s.unit
+              s.radius_unit = 'arcmin'
+              assert_equal PosUnit.new('arcmin'), s.radius_unit
+              s.fill_factor = 0.2
+              assert_equal 0.2, s.fill_factor
+            end
+            
+            def test_relationships
+              assert_kind_of SpatialIntervalType, SphereType.new(:radius => 10.2, :center => [1.1, 2.3, 3.3], :unit => PosUnit.new('m'))
+            end
+            
+            def test_xml
+              s1 = SphereType.new(
+                :radius => 10.2,
+                :center => [1.1, 2.3, 3.3],
+                :unit => PosUnit.new('m'),
+                :radius_unit => PosUnit.new('deg'),
+                :fill_factor => 0.4
+              )
+              
+              s2 = SphereType.from_xml(s1.to_xml)
+              assert_equal s1, s2
+            end
+          end
+          
+          class VelocitySphereTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                VelocitySphereType.new(
+                  :radius => 10.2,
+                  :center => [1.1, 2.3, 3.3],
+                  :unit => PosUnit.new('m'),
+                  :radius_unit => PosUnit.new('deg'),
+                  :fill_factor => 0.4,
+                  :vel_time_unit => VelTimeUnit.new('s')
+                )
+                VelocitySphereType.new(
+                  :radius => 10.2,
+                  :center => [1.1, 2.3, 3.3],
+                  :unit => PosUnit.new('m'),
+                  :radius_unit => PosUnit.new('deg'),
+                  :vel_time_unit => VelTimeUnit.new('s')
+                )
+                VelocitySphereType.new(
+                  :radius => 10.2,
+                  :center => [1.1, 2.3, 3.3],
+                  :unit => PosUnit.new('m'),
+                  :vel_time_unit => VelTimeUnit.new('s')
+                )
+              }
+              
+              assert_raises ArgumentError do
+                VelocitySphereType.new(
+                  :radius => 10.2,
+                  :center => [1.1, 2.3, 3.3]
+                )
+              end
+              assert_raises ArgumentError do
+                VelocitySphereType.new(
+                  :radius => 10.2,
+                  :unit => PosUnit.new('m')
+                )
+              end
+              assert_raises ArgumentError do
+                VelocitySphereType.new(
+                  :center => [1.1, 2.3, 3.3],
+                  :unit => PosUnit.new('m')
+                )
+              end
+              
+              assert_raises TypeError do
+                VelocitySphereType.new(
+                  :radius => 10.2,
+                  :center => 'blah',
+                  :unit => PosUnit.new('m'),
+                  :vel_time_unit => VelTimeUnit.new('s')
+                )
+              end
+            end
+            
+            def test_accessors
+              s = VelocitySphereType.new(
+                :radius => 10.2,
+                :center => [1.1, 2.3, 3.3],
+                :unit => PosUnit.new('m'),
+                :radius_unit => PosUnit.new('deg'),
+                :fill_factor => 0.4,
+                :vel_time_unit => VelTimeUnit.new('s')
+              )
+              
+              assert_equal 10.2, s.radius
+              assert_equal Double3.new([1.1, 2.3, 3.3]), s.center
+              assert_equal PosUnit.new('m'), s.unit
+              assert_equal PosUnit.new('deg'), s.radius_unit
+              assert_equal 0.4, s.fill_factor
+              assert_equal VelTimeUnit.new('s'), s.vel_time_unit
+              
+              s.radius = 5.2
+              assert_equal 5.2, s.radius
+              s.center = [2.2, 3.3, 4.4]
+              assert_equal Double3.new([2.2, 3.3, 4.4]), s.center
+              s.unit = 'kpc'
+              assert_equal PosUnit.new('kpc'), s.unit
+              s.radius_unit = 'arcmin'
+              assert_equal PosUnit.new('arcmin'), s.radius_unit
+              s.fill_factor = 0.2
+              assert_equal 0.2, s.fill_factor
+              s.vel_time_unit = VelTimeUnit.new('h')
+              assert_equal VelTimeUnit.new('h'), s.vel_time_unit
+            end
+            
+            def test_relationships
+              assert_kind_of(
+                SphereType,
+                VelocitySphereType.new(
+                  :radius => 10.2,
+                  :center => [1.1, 2.3, 3.3],
+                  :unit => PosUnit.new('m'),
+                  :radius_unit => PosUnit.new('deg'),
+                  :fill_factor => 0.4,
+                  :vel_time_unit => VelTimeUnit.new('s')
+                )
+              )
+            end
+            
+            def test_xml
+              s1 = VelocitySphereType.new(
+                :radius => 10.2,
+                :center => [1.1, 2.3, 3.3],
+                :unit => PosUnit.new('m'),
+                :radius_unit => PosUnit.new('deg'),
+                :fill_factor => 0.4,
+                :vel_time_unit => VelTimeUnit.new('s')
+              )
+
+              s2 = VelocitySphereType.from_xml(s1.to_xml)
+              assert_equal s1, s2
+            end
+          end
+          
+          class PositionIntervalTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                PositionIntervalType.new(:unit => PosUnit.new('m'), :coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true))
+              }
+              
+              assert_raises ArgumentError do
+                PositionIntervalType.new(:unit => PosUnit.new('m'))
+              end
+              assert_raises ArgumentError do
+                PositionIntervalType.new(:coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true))
+              end
+              
+              assert_raises TypeError do
+                PositionIntervalType.new(:unit => PosUnit.new('m'), :coord_interval => 'blah')
+              end
+            end
+            
+            def test_accessors
+              i = PositionIntervalType.new(:unit => PosUnit.new('m'), :coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true))
+              
+              assert_equal PosUnit.new('m'), i.unit
+              assert_equal CoordScalarInterval.new(:lo_include => true, :hi_include => true), i.coord_interval
+              
+              i.unit = PosUnit.new('arcmin')
+              assert_equal PosUnit.new('arcmin'), i.unit
+              i.coord_interval = CoordScalarInterval.new(:lo_include => false, :hi_include => false)
+              assert_equal CoordScalarInterval.new(:lo_include => false, :hi_include => false), i.coord_interval
+            end
+            
+            def test_relationships
+              assert_kind_of(
+                SpatialIntervalType,
+                PositionIntervalType.new(:unit => PosUnit.new('m'), :coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true))
+              )
+            end
+            
+            def test_xml
+              i1 = PositionIntervalType.new(
+                :unit => PosUnit.new('m'),
+                :coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true)
+              )
+              
+              i2 = PositionIntervalType.from_xml(i1.to_xml)
+              assert_equal i1, i2
+            end
+          end
+          
+          class VelocityIntervalTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                VelocityIntervalType.new(
+                  :unit => PosUnit.new('m'),
+                  :vel_time_unit => VelTimeUnit.new('s'),
+                  :coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true)
+                )
+              }
+              
+              assert_raises ArgumentError do
+                VelocityIntervalType.new(:unit => PosUnit.new('m'))
+              end
+              assert_raises ArgumentError do
+                VelocityIntervalType.new(:vel_time_unit => VelTimeUnit.new('s'))
+              end
+              assert_raises ArgumentError do
+                VelocityIntervalType.new(:coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true))
+              end
+              
+              assert_raises TypeError do
+                VelocityIntervalType.new(:unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s'), :coord_interval => 'blah')
+              end
+            end
+            
+            def test_accessors
+              i = VelocityIntervalType.new(
+                :unit => PosUnit.new('m'),
+                :vel_time_unit => VelTimeUnit.new('s'),
+                :coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true)
+              )
+              
+              assert_equal PosUnit.new('m'), i.unit
+              assert_equal VelTimeUnit.new('s'), i.vel_time_unit
+              assert_equal CoordScalarInterval.new(:lo_include => true, :hi_include => true), i.coord_interval
+              
+              i.unit = PosUnit.new('arcmin')
+              assert_equal PosUnit.new('arcmin'), i.unit
+              i.vel_time_unit = VelTimeUnit.new('h')
+              assert_equal VelTimeUnit.new('h'), i.vel_time_unit
+              i.coord_interval = CoordScalarInterval.new(:lo_include => false, :hi_include => false)
+              assert_equal CoordScalarInterval.new(:lo_include => false, :hi_include => false), i.coord_interval
+            end
+            
+            def test_relationships
+              assert_kind_of(
+                PositionIntervalType,
+                VelocityIntervalType.new(
+                  :unit => PosUnit.new('m'),
+                  :vel_time_unit => VelTimeUnit.new('s'),
+                  :coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true)
+                )
+              )
+            end
+            
+            def test_xml
+              i1 = VelocityIntervalType.new(
+                :unit => PosUnit.new('m'),
+                :vel_time_unit => VelTimeUnit.new('s'),
+                :coord_interval => CoordScalarInterval.new(:lo_include => true, :hi_include => true)
+              )
+              
+              i2 = VelocityIntervalType.from_xml(i1.to_xml)
+              assert_equal i1, i2
+            end
+          end
+          
+          class RegionFileTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised { RegionFileType.new(:file => 'http://www.noao.edu/region.xml') }
+              assert_raises ArgumentError do
+                RegionFileType.new
+              end
+            end
+            
+            def test_accessors
+              f = RegionFileType.new(:file => 'http://www.noao.edu/region.xml')
+              assert_equal URI.parse('http://www.noao.edu/region.xml'), f.file
+              
+              f.file = 'http://www.stsci.edu/region.xml'
+              assert_equal URI.parse('http://www.stsci.edu/region.xml'), f.file
+            end
+            
+            def test_relationships
+              assert_kind_of SpatialIntervalType, RegionFileType.new(:file => 'http://www.noao.edu/region.xml')
+            end
+            
+            def test_xml
+              f1 = RegionFileType.new(:file => 'http://www.noao.edu/region.xml')
+              f2 = RegionFileType.from_xml(f1.to_xml)
+              assert_equal f1, f2
+            end
+          end
+          
+          class RegionTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                RegionType.new(
+                  :region => Circle.new(
+                    :center => Double2.new([112.2, 223.3]),
+                    :radius => 100.0,
+                    :coord_system_id => Id.new('MyCircle')
+                  )
+                )
+              }
+              
+              assert_raises ArgumentError do
+                RegionType.new
+              end
+              assert_raises TypeError do
+                RegionType.new(:region => 'blah')
+              end
+            end
+            
+            def test_accessors
+              r = RegionType.new(
+                :region => Circle.new(
+                  :center => Double2.new([112.2, 223.3]),
+                  :radius => 100.0,
+                  :coord_system_id => Id.new('MyCircle')
+                )
+              )
+              
+              assert_equal(
+                Circle.new(
+                  :center => Double2.new([112.2, 223.3]),
+                  :radius => 100.0,
+                  :coord_system_id => Id.new('MyCircle')
+                ),
+                r.region
+              )
+              
+              r.region = Circle.new(
+                :center => Double2.new([222.2, 333.3]),
+                :radius => 50.0,
+                :coord_system_id => Id.new('MyCircle')
+              )
+              assert_equal(
+                Circle.new(
+                  :center => Double2.new([222.2, 333.3]),
+                  :radius => 50.0,
+                  :coord_system_id => Id.new('MyCircle')
+                ),
+                r.region
+              )
+            end
+            
+            def test_relationships
+              assert_kind_of(
+                SpatialIntervalType,
+                RegionType.new(
+                  :region => Circle.new(
+                    :center => Double2.new([112.2, 223.3]),
+                    :radius => 100.0,
+                    :coord_system_id => Id.new('MyCircle')
+                  )
+                )
+              )
+            end
+            
+            def test_xml
+              r1 = RegionType.new(
+                :region => Circle.new(
+                  :center => Double2.new([112.2, 223.3]),
+                  :radius => 100.0,
+                  :coord_system_id => Id.new('MyCircle')
+                )
+              )
+              
+              r2 = RegionType.from_xml(r1.to_xml)
+              assert_equal r1, r2
+            end
+          end
+          
+          class SpectralIntervalTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                SpectralInterval.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => 10.1, :hi_limit => 21.2, :unit => SpectralUnit.new('GHz')
+                )
+                SpectralInterval.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => 10.1, :unit => SpectralUnit.new('GHz')
+                )
+                SpectralInterval.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :hi_limit => 21.2, :unit => SpectralUnit.new('GHz')
+                )
+                SpectralInterval.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :unit => SpectralUnit.new('GHz')
+                )
+                SpectralInterval.new(:unit => SpectralUnit.new('GHz'))
+              }
+              
+              assert_raises ArgumentError do
+                SpectralInterval.new(:lo_limit => 'blah', :unit => SpectralUnit.new('GHz'))
+              end
+              assert_raises ArgumentError do
+                SpectralInterval.new(:hi_limit => 'blah', :unit => SpectralUnit.new('GHz'))
+              end
+            end
+            
+            def test_accessors
+              i = SpectralInterval.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => 10.1, :hi_limit => 21.2, :unit => SpectralUnit.new('GHz')
+              )
+              
+              assert_equal true, i.lo_include
+              assert_equal false, i.hi_include
+              assert_equal 0.5, i.fill_factor
+              assert_equal 10.1, i.lo_limit
+              assert_equal 21.2, i.hi_limit
+              assert_equal SpectralUnit.new('GHz'), i.unit
+              
+              i.lo_include = false
+              assert_equal false, i.lo_include
+              i.hi_include = true
+              assert_equal true, i.hi_include
+              i.fill_factor = 0.8
+              assert_equal 0.8, i.fill_factor
+              i.lo_limit = 0.1
+              assert_equal 0.1, i.lo_limit
+              i.hi_limit = nil
+              assert_equal nil, i.hi_limit
+              i.unit = SpectralUnit.new('A')
+              assert_equal SpectralUnit.new('A'), i.unit
+            end
+            
+            def test_relationships
+              assert_kind_of CoordScalarIntervalType, SpectralInterval.new(:unit => SpectralUnit.new('GHz'))
+            end
+            
+            def test_xml
+              i1 = SpectralInterval.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => 10.1, :hi_limit => 21.2, :unit => SpectralUnit.new('GHz')
+              )
+              
+              i2 = SpectralInterval.from_xml(i1.to_xml)
+              assert_equal i1, i2
+            end
+          end
+          
+          class RedshiftIntervalTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                RedshiftInterval.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => 10.1, :hi_limit => 21.2, :unit => PosUnit.new('m'),
+                  :vel_time_unit => VelTimeUnit.new('yr')
+                )
+                RedshiftInterval.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :lo_limit => 10.1, :unit => PosUnit.new('m'),
+                  :vel_time_unit => VelTimeUnit.new('yr')
+                )
+                RedshiftInterval.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :hi_limit => 21.2, :unit => PosUnit.new('m'),
+                  :vel_time_unit => VelTimeUnit.new('yr')
+                )
+                RedshiftInterval.new(
+                  :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                  :unit => PosUnit.new('m')
+                )
+                RedshiftInterval.new
+              }
+              
+              assert_raises ArgumentError do
+                RedshiftInterval.new(:lo_limit => 'blah')
+              end
+              assert_raises ArgumentError do
+                RedshiftInterval.new(:hi_limit => 'blah')
+              end
+            end
+            
+            def test_accessors
+              i = RedshiftInterval.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => 10.1, :hi_limit => 21.2, :unit => PosUnit.new('m'),
+                :vel_time_unit => VelTimeUnit.new('yr')
+              )
+              
+              assert_equal true, i.lo_include
+              assert_equal false, i.hi_include
+              assert_equal 0.5, i.fill_factor
+              assert_equal 10.1, i.lo_limit
+              assert_equal 21.2, i.hi_limit
+              assert_equal PosUnit.new('m'), i.unit
+              assert_equal VelTimeUnit.new('yr'), i.vel_time_unit
+              
+              i.lo_include = false
+              assert_equal false, i.lo_include
+              i.hi_include = true
+              assert_equal true, i.hi_include
+              i.fill_factor = 0.8
+              assert_equal 0.8, i.fill_factor
+              i.lo_limit = 0.1
+              assert_equal 0.1, i.lo_limit
+              i.hi_limit = nil
+              assert_equal nil, i.hi_limit
+              i.unit = PosUnit.new('m')
+              assert_equal PosUnit.new('m'), i.unit
+              i.vel_time_unit = VelTimeUnit.new('s')
+              assert_equal VelTimeUnit.new('s'), i.vel_time_unit
+            end
+            
+            def test_relationships
+              assert_kind_of CoordScalarIntervalType, RedshiftInterval.new
+            end
+            
+            def test_xml
+              i1 = RedshiftInterval.new(
+                :lo_include => true, :hi_include => false, :fill_factor => 0.5,
+                :lo_limit => 10.1, :hi_limit => 21.2, :unit => PosUnit.new('m'),
+                :vel_time_unit => VelTimeUnit.new('yr')
+              )
+              
+              i2 = RedshiftInterval.from_xml(i1.to_xml)
+              assert_equal i1, i2
+            end
+          end
+          
+          class CoordAreaTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                CoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                  :redshift_intervals => [RedshiftInterval.new],
+                  :coord_intervals => [CoordScalarInterval.new]
+                )
+                
+                CoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                  :redshift_intervals => [RedshiftInterval.new]
+                )
+                
+                CoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))]
+                )
+                
+                CoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ]
+                )
+                
+                CoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m'))
+                )
+                
+                CoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new]
+                )
+                
+                CoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId'
+                )
+              }
+              
+              assert_raises ArgumentError do
+                CoordAreaType.new(:id => Id.new('MyArea'))
+              end
+              assert_raises ArgumentError do
+                CoordAreaType.new(:coord_system_id => 'MyCoordSystemId')
+              end
+              
+              assert_raises TypeError do
+                CoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :time_intervals => 'blah')
+              end
+              assert_raises TypeError do
+                CoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :spatial_interval => 'blah')
+              end
+              assert_raises TypeError do
+                CoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :vel_intervals => 'blah')
+              end
+              assert_raises TypeError do
+                CoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :spectral_intervals => 'blah')
+              end
+              assert_raises TypeError do
+                CoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :redshift_intervals => 'blah')
+              end
+              assert_raises TypeError do
+                CoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :coord_intervals => 'blah')
+              end
+            end
+            
+            def test_accessors
+              a = CoordAreaType.new(
+                :id => Id.new('MyArea'),
+                :coord_system_id => 'MyCoordSystemId',
+                :time_intervals => [TimeIntervalType.new],
+                :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                :vel_intervals => [
+                  VelocitySphere.new(
+                    :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                    :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                  )
+                ],
+                :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                :redshift_intervals => [RedshiftInterval.new],
+                :coord_intervals => [CoordScalarInterval.new]
+              )
+              
+              assert_equal Id.new('MyArea'), a.id
+              assert_equal IdRef.new('MyCoordSystemId'), a.coord_system_id
+              assert_equal TimeIntervalList.new([TimeIntervalType.new]), a.time_intervals
+              assert_equal Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')), a.spatial_interval
+              assert_equal(
+                VelIntervalList.new([
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                ]),
+                a.vel_intervals
+              )
+              assert_equal SpectralIntervalList.new([SpectralInterval.new(:unit => SpectralUnit.new('GHz'))]), a.spectral_intervals
+              assert_equal RedshiftIntervalList.new([RedshiftInterval.new]), a.redshift_intervals
+              assert_equal CoordIntervalList.new([CoordScalarInterval.new]), a.coord_intervals
+              
+              a.id = Id.new('MyArea2')
+              assert_equal Id.new('MyArea2'), a.id
+              a.coord_system_id = IdRef.new('MyCoordSystemId2')
+              assert_equal IdRef.new('MyCoordSystemId2'), a.coord_system_id
+              a.time_intervals = [TimeIntervalType.new, TimeIntervalType.new]
+              assert_equal TimeIntervalList.new([TimeIntervalType.new, TimeIntervalType.new]), a.time_intervals
+              a.spatial_interval = Sphere.new(:radius => 0.4, :center => Double3.new([0.1, 0.1, 0.1]), :unit => PosUnit.new('mm'))
+              assert_equal Sphere.new(:radius => 0.4, :center => Double3.new([0.1, 0.1, 0.1]), :unit => PosUnit.new('mm')), a.spatial_interval
+              a.vel_intervals = [
+                VelocitySphere.new(
+                  :radius => 12.1, :center => Double3.new([9.0, 8.0, 7.0]),
+                  :unit => PosUnit.new('mm'), :vel_time_unit => VelTimeUnit.new('h')
+                )
+              ]
+              assert_equal(
+                VelIntervalList.new([
+                  VelocitySphere.new(
+                    :radius => 12.1, :center => Double3.new([9.0, 8.0, 7.0]),
+                    :unit => PosUnit.new('mm'), :vel_time_unit => VelTimeUnit.new('h')
+                  )
+                ]),
+                a.vel_intervals
+              )
+              a.spectral_intervals = [SpectralInterval.new(:unit => SpectralUnit.new('MHz'))]
+              assert_equal SpectralIntervalList.new([SpectralInterval.new(:unit => SpectralUnit.new('MHz'))]), a.spectral_intervals
+              a.redshift_intervals = [RedshiftInterval.new, RedshiftInterval.new]
+              assert_equal RedshiftIntervalList.new([RedshiftInterval.new, RedshiftInterval.new]), a.redshift_intervals
+              a.coord_intervals = [CoordScalarInterval.new, CoordScalarInterval.new]
+              assert_equal CoordIntervalList.new([CoordScalarInterval.new, CoordScalarInterval.new]), a.coord_intervals
+            end
+            
+            def test_xml
+              a1 = CoordAreaType.new(
+                :id => Id.new('MyArea'),
+                :coord_system_id => 'MyCoordSystemId',
+                :time_intervals => [TimeIntervalType.new],
+                :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                :vel_intervals => [
+                  VelocitySphere.new(
+                    :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                    :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                  )
+                ],
+                :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                :redshift_intervals => [RedshiftInterval.new],
+                :coord_intervals => [CoordScalarInterval.new]
+              )
+              
+              a2 = CoordAreaType.from_xml(a1.to_xml)
+              assert_equal a1, a2
+            end
+          end
+          
+          class AstroCoordAreaTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                AstroCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                  :redshift_intervals => [RedshiftInterval.new],
+                  :coord_intervals => [CoordScalarInterval.new]
+                )
+                
+                AstroCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                  :redshift_intervals => [RedshiftInterval.new]
+                )
+                
+                AstroCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))]
+                )
+                
+                AstroCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ]
+                )
+                
+                AstroCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m'))
+                )
+                
+                AstroCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new]
+                )
+                
+                AstroCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId'
+                )
+              }
+              
+              assert_raises ArgumentError do
+                AstroCoordAreaType.new(:id => Id.new('MyArea'))
+              end
+              assert_raises ArgumentError do
+                AstroCoordAreaType.new(:coord_system_id => 'MyCoordSystemId')
+              end
+              
+              assert_raises TypeError do
+                AstroCoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :time_intervals => 'blah')
+              end
+              assert_raises TypeError do
+                AstroCoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :spatial_interval => 'blah')
+              end
+              assert_raises TypeError do
+                AstroCoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :vel_intervals => 'blah')
+              end
+              assert_raises TypeError do
+                AstroCoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :spectral_intervals => 'blah')
+              end
+              assert_raises TypeError do
+                AstroCoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :redshift_intervals => 'blah')
+              end
+              assert_raises TypeError do
+                AstroCoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :coord_intervals => 'blah')
+              end
+            end
+            
+            def test_accessors
+              a = AstroCoordAreaType.new(
+                :id => Id.new('MyArea'),
+                :coord_system_id => 'MyCoordSystemId',
+                :time_intervals => [TimeIntervalType.new],
+                :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                :vel_intervals => [
+                  VelocitySphere.new(
+                    :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                    :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                  )
+                ],
+                :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                :redshift_intervals => [RedshiftInterval.new],
+                :coord_intervals => [CoordScalarInterval.new]
+              )
+              
+              assert_equal Id.new('MyArea'), a.id
+              assert_equal IdRef.new('MyCoordSystemId'), a.coord_system_id
+              assert_equal TimeIntervalList.new([TimeIntervalType.new]), a.time_intervals
+              assert_equal Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')), a.spatial_interval
+              assert_equal(
+                VelIntervalList.new([
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                ]),
+                a.vel_intervals
+              )
+              assert_equal SpectralIntervalList.new([SpectralInterval.new(:unit => SpectralUnit.new('GHz'))]), a.spectral_intervals
+              assert_equal RedshiftIntervalList.new([RedshiftInterval.new]), a.redshift_intervals
+              assert_equal CoordScalarIntervalList.new([CoordScalarInterval.new]), a.coord_intervals
+              
+              a.id = Id.new('MyArea2')
+              assert_equal Id.new('MyArea2'), a.id
+              a.coord_system_id = IdRef.new('MyCoordSystemId2')
+              assert_equal IdRef.new('MyCoordSystemId2'), a.coord_system_id
+              a.time_intervals = [TimeIntervalType.new, TimeIntervalType.new]
+              assert_equal TimeIntervalList.new([TimeIntervalType.new, TimeIntervalType.new]), a.time_intervals
+              a.spatial_interval = Sphere.new(:radius => 0.4, :center => Double3.new([0.1, 0.1, 0.1]), :unit => PosUnit.new('mm'))
+              assert_equal Sphere.new(:radius => 0.4, :center => Double3.new([0.1, 0.1, 0.1]), :unit => PosUnit.new('mm')), a.spatial_interval
+              a.vel_intervals = [
+                VelocitySphere.new(
+                  :radius => 12.1, :center => Double3.new([9.0, 8.0, 7.0]),
+                  :unit => PosUnit.new('mm'), :vel_time_unit => VelTimeUnit.new('h')
+                )
+              ]
+              assert_equal(
+                VelIntervalList.new([
+                  VelocitySphere.new(
+                    :radius => 12.1, :center => Double3.new([9.0, 8.0, 7.0]),
+                    :unit => PosUnit.new('mm'), :vel_time_unit => VelTimeUnit.new('h')
+                  )
+                ]),
+                a.vel_intervals
+              )
+              a.spectral_intervals = [SpectralInterval.new(:unit => SpectralUnit.new('MHz'))]
+              assert_equal SpectralIntervalList.new([SpectralInterval.new(:unit => SpectralUnit.new('MHz'))]), a.spectral_intervals
+              a.redshift_intervals = [RedshiftInterval.new, RedshiftInterval.new]
+              assert_equal RedshiftIntervalList.new([RedshiftInterval.new, RedshiftInterval.new]), a.redshift_intervals
+              a.coord_intervals = [CoordScalarInterval.new, CoordScalarInterval.new]
+              assert_equal CoordScalarIntervalList.new([CoordScalarInterval.new, CoordScalarInterval.new]), a.coord_intervals
+            end
+            
+            def test_xml
+              a1 = AstroCoordAreaType.new(
+                :id => Id.new('MyArea'),
+                :coord_system_id => 'MyCoordSystemId',
+                :time_intervals => [TimeIntervalType.new],
+                :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                :vel_intervals => [
+                  VelocitySphere.new(
+                    :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                    :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                  )
+                ],
+                :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                :redshift_intervals => [RedshiftInterval.new],
+                :coord_intervals => [CoordScalarInterval.new]
+              )
+              
+              a2 = AstroCoordAreaType.from_xml(a1.to_xml)
+              assert_equal a1, a2
+            end
+          end
+          
+          class PixelCoordAreaTypeTest < ::Test::Unit::TestCase
+            def test_construction
+              assert_nothing_raised {
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                  :redshift_intervals => [RedshiftInterval.new],
+                  :coord_intervals => [CoordScalarInterval.new]
+                )
+                
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                  :coord_intervals => [CoordScalarInterval.new]
+                )
+                
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :coord_intervals => [CoordScalarInterval.new]
+                )
+                
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :vel_intervals => [
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                  ],
+                  :coord_intervals => [CoordScalarInterval.new]
+                )
+                
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                  :coord_intervals => [CoordScalarInterval.new]
+                )
+                
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :time_intervals => [TimeIntervalType.new],
+                  :coord_intervals => [CoordScalarInterval.new]
+                )
+                
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :coord_intervals => [CoordScalarInterval.new]
+                )
+              }
+              
+              assert_raises ArgumentError do
+                PixelCoordAreaType.new(:id => Id.new('MyArea'), :coord_intervals => [CoordScalarInterval.new])
+              end
+              assert_raises ArgumentError do
+                PixelCoordAreaType.new(:coord_system_id => 'MyCoordSystemId', :coord_intervals => [CoordScalarInterval.new])
+              end
+              assert_raises ArgumentError do
+                PixelCoordAreaType.new(:id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId')
+              end
+              
+              assert_raises RuntimeError do
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'),
+                  :coord_system_id => 'MyCoordSystemId',
+                  :coord_intervals => []
+                )
+              end
+              
+              assert_raises TypeError do
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :coord_intervals => [CoordScalarInterval.new], :time_intervals => 'blah'
+                )
+              end
+              assert_raises TypeError do
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :coord_intervals => [CoordScalarInterval.new], :spatial_interval => 'blah'
+                )
+              end
+              assert_raises TypeError do
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :coord_intervals => [CoordScalarInterval.new], :vel_intervals => 'blah'
+                )
+              end
+              assert_raises TypeError do
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :coord_intervals => [CoordScalarInterval.new], :spectral_intervals => 'blah'
+                )
+              end
+              assert_raises TypeError do
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :coord_intervals => [CoordScalarInterval.new], :redshift_intervals => 'blah'
+                )
+              end
+              assert_raises TypeError do
+                PixelCoordAreaType.new(
+                  :id => Id.new('MyArea'), :coord_system_id => 'MyCoordSystemId', :coord_intervals => [CoordScalarInterval.new], :coord_intervals => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              a = PixelCoordAreaType.new(
+                :id => Id.new('MyArea'),
+                :coord_system_id => 'MyCoordSystemId',
+                :time_intervals => [TimeIntervalType.new],
+                :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                :vel_intervals => [
+                  VelocitySphere.new(
+                    :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                    :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                  )
+                ],
+                :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                :redshift_intervals => [RedshiftInterval.new],
+                :coord_intervals => [CoordScalarInterval.new]
+              )
+              
+              assert_equal Id.new('MyArea'), a.id
+              assert_equal IdRef.new('MyCoordSystemId'), a.coord_system_id
+              assert_equal TimeIntervalList.new([TimeIntervalType.new]), a.time_intervals
+              assert_equal Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')), a.spatial_interval
+              assert_equal(
+                VelIntervalList.new([
+                    VelocitySphere.new(
+                      :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                      :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                    )
+                ]),
+                a.vel_intervals
+              )
+              assert_equal SpectralIntervalList.new([SpectralInterval.new(:unit => SpectralUnit.new('GHz'))]), a.spectral_intervals
+              assert_equal RedshiftIntervalList.new([RedshiftInterval.new]), a.redshift_intervals
+              assert_equal PixelCoordAreaType::CoordScalarIntervalList.new([CoordScalarInterval.new]), a.coord_intervals
+              
+              a.id = Id.new('MyArea2')
+              assert_equal Id.new('MyArea2'), a.id
+              a.coord_system_id = IdRef.new('MyCoordSystemId2')
+              assert_equal IdRef.new('MyCoordSystemId2'), a.coord_system_id
+              a.time_intervals = [TimeIntervalType.new, TimeIntervalType.new]
+              assert_equal TimeIntervalList.new([TimeIntervalType.new, TimeIntervalType.new]), a.time_intervals
+              a.spatial_interval = Sphere.new(:radius => 0.4, :center => Double3.new([0.1, 0.1, 0.1]), :unit => PosUnit.new('mm'))
+              assert_equal Sphere.new(:radius => 0.4, :center => Double3.new([0.1, 0.1, 0.1]), :unit => PosUnit.new('mm')), a.spatial_interval
+              a.vel_intervals = [
+                VelocitySphere.new(
+                  :radius => 12.1, :center => Double3.new([9.0, 8.0, 7.0]),
+                  :unit => PosUnit.new('mm'), :vel_time_unit => VelTimeUnit.new('h')
+                )
+              ]
+              assert_equal(
+                VelIntervalList.new([
+                  VelocitySphere.new(
+                    :radius => 12.1, :center => Double3.new([9.0, 8.0, 7.0]),
+                    :unit => PosUnit.new('mm'), :vel_time_unit => VelTimeUnit.new('h')
+                  )
+                ]),
+                a.vel_intervals
+              )
+              a.spectral_intervals = [SpectralInterval.new(:unit => SpectralUnit.new('MHz'))]
+              assert_equal SpectralIntervalList.new([SpectralInterval.new(:unit => SpectralUnit.new('MHz'))]), a.spectral_intervals
+              a.redshift_intervals = [RedshiftInterval.new, RedshiftInterval.new]
+              assert_equal RedshiftIntervalList.new([RedshiftInterval.new, RedshiftInterval.new]), a.redshift_intervals
+              a.coord_intervals = [CoordScalarInterval.new, CoordScalarInterval.new]
+              assert_equal PixelCoordAreaType::CoordScalarIntervalList.new([CoordScalarInterval.new, CoordScalarInterval.new]), a.coord_intervals
+            end
+            
+            def test_xml
+              a1 = PixelCoordAreaType.new(
+                :id => Id.new('MyArea'),
+                :coord_system_id => 'MyCoordSystemId',
+                :time_intervals => [TimeIntervalType.new],
+                :spatial_interval => Sphere.new(:radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]), :unit => PosUnit.new('m')),
+                :vel_intervals => [
+                  VelocitySphere.new(
+                    :radius => 10.1, :center => Double3.new([1.1, 2.2, 3.3]),
+                    :unit => PosUnit.new('m'), :vel_time_unit => VelTimeUnit.new('s')
+                  )
+                ],
+                :spectral_intervals => [SpectralInterval.new(:unit => SpectralUnit.new('GHz'))],
+                :redshift_intervals => [RedshiftInterval.new],
+                :coord_intervals => [CoordScalarInterval.new]
+              )
+              
+              a2 = PixelCoordAreaType.from_xml(a1.to_xml)
+              assert_equal a1, a2
+            end
+          end
+          
+          class StcResourceProfileTypeTest < ::Test::Unit::TestCase
+            def setup
+              @astro_coord_systems = [AstroCoordSystem.new(
+                :id => 'ICRS-TT-CXO',
+                :time_frame => TimeFrame.new(
+                  :name => 'Time',
+                  :time_scale => TimeScale.new('TT'),
+                  :reference_position => Topocenter.new
+                ),
+                :space_frame => SpaceFrame.new(
+                  :name => 'Space',
+                  :space_ref_frame => Icrs.new,
+                  :reference_position => Topocenter.new,
+                  :coord_flavor => Spherical.new(2)
+                ),
+                :spectral_frame => SpectralFrame.new(
+                  :name => 'Energy',
+                  :reference_position => Topocenter.new
+                )
+              )]
+              
+              @astro_coords = AstroCoords.new(
+                :coord_system_id => 'ICRS-TT-CXO',
+                :time => TimeCoordinate.new(
+                  :name => 'Time',
+                  :error => [Error.new(0.0001)],
+                  :resolution => [Resolution.new(0.000016), Resolution.new(3.0)],
+                  :size => [Size.new(1000.0), Size.new(170000.0)]
+                ),
+                :position => Position2D.new(
+                  :name => 'Position',
+                  :unit => PosUnit.new('arcsec'),
+                  :error => [Error2.new([1.0, 1.0])],
+                  :resolution => [Resolution2.new([0.5, 0.5])],
+                  :size => [Size2.new([1000.0, 1000.0]), Size2.new([4000.0, 4000.0])]
+                ),
+                :spectral => Spectral.new(
+                  :name => 'Energy',
+                  :unit => SpectralUnit.new('keV'),
+                  :error => [Error.new(0.1)],
+                  :resolution => [Resolution.new(0.02), Resolution.new(2.0)],
+                  :size => [Size.new(2.0), Size.new(10.0)]
+                )
+              )
+              
+              @astro_coord_areas = AstroCoordArea.new(
+                :id => 'AllSky-CXO',
+                :coord_system_id => 'ICRS-TT-CXO',
+                :time_intervals => [
+                  TimeIntervalType.new(
+                    :start_time => AstronTime.new('TT', ISOTime.new('1999-07-23T16:00:00'))
+                  )
+                ],
+                :spatial_interval => Region.new(:region => AllSky.new(:fill_factor => 0.02)),
+                :spectral_intervals => [
+                  SpectralInterval.new(:unit => SpectralUnit.new('keV'), :lo_limit => 0.12, :hi_limit => 10.0)
+                ]
+              )
+            end
+            
+            def test_construction
+              assert_nothing_raised {
+                StcResourceProfileType.new(
+                  :id => 'MyResourceProfile',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+                
+                StcResourceProfileType.new(
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              }
+              
+              assert_raises ArgumentError do
+                StcResourceProfileType.new(
+                  :id => 'MyResourceProfile',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords
+                )
+              end
+              assert_raises ArgumentError do
+                StcResourceProfileType.new(
+                  :id => 'MyResourceProfile',
+                  :coord_sys => @astro_coord_systems,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises ArgumentError do
+                StcResourceProfileType.new(
+                  :id => 'MyResourceProfile',
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              
+              assert_raises TypeError do
+                StcResourceProfileType.new(
+                  :id => 'MyResourceProfile',
+                  :coord_sys => 'blah',
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises TypeError do
+                StcResourceProfileType.new(
+                  :id => 'MyResourceProfile',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => 'blah',
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises TypeError do
+                StcResourceProfileType.new(
+                  :id => 'MyResourceProfile',
+                  :coord_sys => 'blah',
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+            end
+            
+            def test_accessors
+              p = StcResourceProfileType.new(
+                :id => 'MyResourceProfile',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              assert_equal Id.new('MyResourceProfile'), p.id
+              assert_equal @astro_coord_systems, p.coord_sys
+              assert_equal @astro_coords, p.coords
+              assert_equal @astro_coord_areas, p.coord_areas
+            end
+            
+            def test_relationships
+              p = StcResourceProfileType.new(
+                :id => 'MyResourceProfile',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              assert_kind_of StcDescription, p
+            end
+            
+            def test_xml
+              p1 = StcResourceProfileType.new(
+                :id => 'MyResourceProfile',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              p2 = StcResourceProfileType.from_xml(p1.to_xml)
+              assert_equal p1, p2
+            end
+            
+            def test_real_world
+              p1 = StcResourceProfileType.new(
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              p2 = StcResourceProfileType.from_xml(File.new('test/voruby/stc/1.10/stc-resource-profile.xml'))
+              assert_equal p1, p2
+            end
+          end
+          
+          class SearchLocationTypeTest < ::Test::Unit::TestCase
+            def setup
+              @astro_coord_systems = [AstroCoordSystem.new(
+                  :id => 'ICRS-TT-BARY',
+                  :time_frame => TimeFrame.new(
+                    :name => 'Time',
+                    :time_scale => TimeScale.new('TT'),
+                    :reference_position => Barycenter.new
+                  ),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'Equatorial',
+                    :space_ref_frame => Icrs.new,
+                    :reference_position => Barycenter.new,
+                    :coord_flavor => Spherical.new(2)
+                  ),
+                  :spectral_frame => SpectralFrame.new(
+                    :name => 'Wavelength',
+                    :reference_position => Barycenter.new
+                  )
+                )]
+                
+                @astro_coords = AstroCoords.new(
+                  :coord_system_id => 'ICRS-TT-BARY',
+                  :position => Position2D.new(
+                    :name => 'RA,Dec',
+                    :unit => PosUnit.new('deg'),
+                    :resolution => [Resolution2.new([0.0001, 0.0001]), Resolution2.new([0.0003, 0.0003])],
+                    :size => [Size2.new([0.5, 0.5]), Size2.new([0.67, 0.67])],
+                    :pix_size => [PixSize2.new([0.00005, 0.00005]), PixSize2.new([0.00015, 0.00015])]
+                  ),
+                  :spectral => Spectral.new(
+                    :name => 'Lambda',
+                    :unit => SpectralUnit.new('A'),
+                    :resolution => [Resolution.new(300.0), Resolution.new(600.0)]
+                  )
+                )
+                
+                @astro_coord_areas = AstroCoordArea.new(
+                  :id => 'M81',
+                  :coord_system_id => 'ICRS-TT-BARY',
+                  :time_intervals => [
+                    TimeIntervalType.new(
+                      :start_time => AstronTime.new('TT', ISOTime.new('1900-01-01T00:00:00'))
+                    )
+                  ],
+                  :spatial_interval => Region.new(
+                    :region => Circle.new(
+                      :coord_system_id => 'ICRS-TT-BARY',
+                      :unit => PosUnit.new('deg'),
+                      :center => [148.9, 69.1],
+                      :radius => 2.0
+                    )
+                  ),
+                  :spectral_intervals => [
+                    SpectralInterval.new(:unit => SpectralUnit.new('A'), :lo_limit => 4000.0, :hi_limit => 7000.0)
+                  ]
+                )
+            end
+            
+            def test_construction
+              assert_nothing_raised {
+                SearchLocationType.new(
+                  :id => 'MySearchLocation',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+                
+                SearchLocationType.new(
+                  :id => 'MySearchLocation',
+                  :coord_sys => @astro_coord_systems,
+                  :coord_areas => @astro_coord_areas
+                )
+                
+                SearchLocationType.new(
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              }
+              
+              assert_raises ArgumentError do
+                SearchLocationType.new(
+                  :id => 'MySearchLocation',
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises ArgumentError do
+                SearchLocationType.new(
+                  :id => 'MySearchLocation',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords
+                )
+              end
+              
+              assert_raises TypeError do
+                SearchLocationType.new(
+                  :id => 'MySearchLocation',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => 'blah'
+                )
+              end
+              assert_raises TypeError do
+                SearchLocationType.new(
+                  :id => 'MySearchLocation',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => 'blah',
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises TypeError do
+                SearchLocationType.new(
+                  :id => 'MySearchLocation',
+                  :coord_sys => 'blah',
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+            end
+            
+            def test_accessors
+              l = SearchLocationType.new(
+                :id => 'MySearchLocation',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              assert_equal Id.new('MySearchLocation'), l.id
+              assert_equal @astro_coord_systems, l.coord_sys
+              assert_equal @astro_coords, l.coords
+              assert_equal @astro_coord_areas, l.coord_areas
+            end
+            
+            def test_relationships
+              l = SearchLocationType.new(
+                :id => 'MySearchLocation',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              assert_kind_of StcDescription, l
+            end
+            
+            def test_xml
+              l1 = SearchLocationType.new(
+                :id => 'MySearchLocation',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              l2 = SearchLocationType.from_xml(l1.to_xml)
+              assert_equal l1, l2
+            end
+            
+            def test_real_world
+              l1 = SearchLocationType.new(
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              l2 = StcResourceProfileType.from_xml(File.new('test/voruby/stc/1.10/stc-search-location.xml'))
+              assert_equal l1, l2
+            end
+          end
+          
+          class CatalogEntryLocationTypeTest < ::Test::Unit::TestCase
+            def setup
+              @astro_coord_systems = [
+                AstroCoordSystem.new(
+                  :id => 'B1950-OPTICAL-ET',
+                  :time_frame => TimeFrame.new(
+                    :name => 'Time',
+                    :time_scale => TimeScale.new('ET'),
+                    :reference_position => Topocenter.new
+                  ),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'PosEq',
+                    :space_ref_frame => Fk4.new(CoordEquinox.new('B1950.0')),
+                    :reference_position => Barycenter.new,
+                    :coord_flavor => Spherical.new(2, true)
+                  ),
+                  :spectral_frame => SpectralFrame.new(
+                    :name => 'Optical',
+                    :reference_position => Topocenter.new
+                  ),
+                  :redshift_frame => RedshiftFrame.new(
+                    :name => 'DopplerVelocity',
+                    :doppler_definition => 'OPTICAL',
+                    :reference_position => Barycenter.new
+                  )
+                ),
+                AstroCoordSystem.new(
+                  :id => 'SGC-OPTICAL-ET',
+                  :time_frame => TimeFrame.new(
+                    :name => 'Time',
+                    :time_scale => TimeScale.new('ET'),
+                    :reference_position => Topocenter.new
+                  ),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'SGC',
+                    :space_ref_frame => SuperGalactic.new,
+                    :reference_position => Barycenter.new,
+                    :coord_flavor => Spherical.new(2, true)
+                  ),
+                  :spectral_frame => SpectralFrame.new(
+                    :name => 'Optical',
+                    :reference_position => Topocenter.new
+                  ),
+                  :redshift_frame => RedshiftFrame.new(
+                    :name => 'DopplerVelocity',
+                    :doppler_definition => 'OPTICAL',
+                    :reference_position => GalacticCenter.new
+                  )
+                )
+              ]
+              
+              @astro_coords = [
+                AstroCoords.new(
+                  :coord_system_id => 'B1950-OPTICAL-ET',
+                  :position => Position2D.new(
+                    :name => 'RA,Dec',
+                    :unit => PosUnit.new('deg'),
+                    :value => Value2Ref.new('Column3'),
+                    :error => Error2Ref.new('Column4'),
+                    :size => Size2Ref.new('Column5')
+                  ),
+                  :redshift => Redshift.new(
+                    :unit => PosUnit.new('km'),
+                    :vel_time_unit => VelTimeUnit.new('s'),
+                    :name => 'Vrad(barycenter)',
+                    :value => ValueRef.new('Column6'),
+                    :error => ErrorRef.new('Column7')
+                  )
+                ),
+                AstroCoords.new(
+                  :coord_system_id => 'SGC-OPTICAL-ET',
+                  :position => Position2D.new(
+                    :name => 'SGLong,SGLat',
+                    :unit => PosUnit.new('deg'),
+                    :value => Value2Ref.new('Column8'),
+                    :error => Error2Ref.new('Column9'),
+                    :size => Size2Ref.new('Column10')
+                  ),
+                  :redshift => Redshift.new(
+                    :unit => PosUnit.new('km'),
+                    :vel_time_unit => VelTimeUnit.new('s'),
+                    :name => 'Vrad(Galcenter)',
+                    :value => ValueRef.new('Column11'),
+                    :error => ErrorRef.new('Column12')
+                  )
+                )
+              ]
+              
+              @astro_coord_areas = [
+                AstroCoordArea.new(
+                  :coord_system_id => 'B1950-OPTICAL-ET',
+                  :id => 'RA6-18hDec20-70deg',
+                  :time_intervals => [
+                    TimeIntervalType.new(
+                      :start_time => AstronTime.new('ET', JDTime.new(2440000)),
+                      :stop_time => AstronTime.new('ET', JDTime.new(2441000))
+                    )
+                  ],
+                  :spatial_interval => Region.new(
+                    :region => Polygon.new(
+                      :coord_system_id => 'B1950-OPTICAL-ET',
+                      :unit => PosUnit.new('deg'),
+                      :vertices => [
+                        Vertex.new(:position => Double2.new([270.0, 20.0])),
+                        Vertex.new(:position => Double2.new([90.0, 20.0]), :small_circle => SmallCircle.new),
+                        Vertex.new(:position => Double2.new([90.0, 70.0])),
+                        Vertex.new(:position => Double2.new([270.0, 70.0]))
+                      ]
+                    )
+                  ),
+                  :spectral_intervals => [
+                    SpectralInterval.new(:unit => SpectralUnit.new('A'), :lo_limit => 5000.0, :hi_limit => 6500.0)
+                  ],
+                  :redshift_intervals => [
+                    RedshiftInterval.new(:unit => PosUnit.new('km'), :vel_time_unit => VelTimeUnit.new('s'), :hi_limit => 10000.0)
+                  ]
+                )
+              ]
+            end
+            
+            def test_construction
+              assert_nothing_raised {
+                CatalogEntryLocationType.new(
+                  :id => 'MyCatalogEntry',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+                
+                CatalogEntryLocationType.new(
+                  :id => 'MyCatalogEntry',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords
+                )
+              }
+              
+              assert_raises ArgumentError do
+                CatalogEntryLocationType.new(
+                  :id => 'MyCatalogEntry',
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises ArgumentError do
+                CatalogEntryLocationType.new(
+                  :id => 'MyCatalogEntry',
+                  :coord_sys => @astro_coord_systems,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              
+              assert_raises TypeError do
+                CatalogEntryLocationType.new(
+                  :id => 'MyCatalogEntry',
+                  :coord_sys => 'blah',
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises TypeError do
+                CatalogEntryLocationType.new(
+                  :id => 'MyCatalogEntry',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => 'blah',
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises TypeError do
+                CatalogEntryLocationType.new(
+                  :id => 'MyCatalogEntry',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => 'blah'
+                )
+              end
+            end
+            
+            def test_construction
+              l = CatalogEntryLocationType.new(
+                :id => 'MyCatalogEntry',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              assert_equal Id.new('MyCatalogEntry'), l.id
+              assert_equal @astro_coord_systems, l.coord_sys
+              assert_equal @astro_coords, l.coords
+              assert_equal @astro_coord_areas, l.coord_areas
+            end
+            
+            def test_relationships
+              l = CatalogEntryLocationType.new(
+                :id => 'MyCatalogEntry',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              assert_kind_of StcDescription, l
+            end
+            
+            def test_xml
+              l1 = CatalogEntryLocationType.new(
+                :id => 'MyCatalogEntry',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              l2 = CatalogEntryLocationType.from_xml(l1.to_xml)
+              assert_equal l1, l2
+            end
+            
+            def test_real_world
+              l1 = CatalogEntryLocationType.new(
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              l2 = CatalogEntryLocationType.from_xml(File.new('test/voruby/stc/1.10/stc-catalog-entry-location.xml'))
+              assert_equal l1, l2
+            end
+          end
+          
+          class ObservatoryLocationTest < ::Test::Unit::TestCase
+            def setup
+              @astro_coord_systems = [AstroCoordSystem.new(
+                :id => 'FK5-UTC-VEL',
+                :time_frame => TimeFrame.new(
+                  :name => 'Time',
+                  :time_scale => TimeScale.new('UTC'),
+                  :reference_position => Topocenter.new
+                ),
+                :space_frame => SpaceFrame.new(
+                  :name => 'FK5Cart+Vel',
+                  :space_ref_frame => Fk5.new(CoordEquinox.new('J2000.0')),
+                  :reference_position => Topocenter.new,
+                  :coord_flavor => Cartesian.new(3, true)
+                )
+              )]
+              
+              @astro_coords = AstroCoords.new(
+                :coord_system_id => 'FK5-UTC-VEL',
+                :coord_file => AstroCoordsFile.new(
+                  :file => Fits.new(:hdu_num => 1, :uri => 'http://MySpace.edu/OrbitEphemeris.fits'),
+                  :time => CoordFitsColumns.new(:name => 'Time', :value => 'VALUE'),
+                  :position => CoordFitsColumns.new(:name => 'Position', :value => 'X,Y,Z'),
+                  :velocity => CoordFitsColumns.new(:name => 'Velocity', :value => 'VX,VY,VZ')
+                )
+              )
+            end
+            
+            def test_construction
+              assert_nothing_raised {
+                ObservatoryLocation.new(
+                  :id => 'MyObservatoryLocation',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords
+                )
+              }
+              
+              assert_raises ArgumentError do
+                ObservatoryLocation.new(
+                  :id => 'MyObservatoryLocation',
+                  :coords => @astro_coords
+                )
+              end
+              assert_raises ArgumentError do
+                ObservatoryLocation.new(
+                  :id => 'MyObservatoryLocation',
+                  :coord_sys => @astro_coord_systems
+                )
+              end
+              assert_raises ArgumentError do
+                ObservatoryLocation.new(
+                  :id => 'MyObservatoryLocation',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => 'blah'
+                )
+              end
+              
+              assert_raises TypeError do
+                ObservatoryLocation.new(
+                  :id => 'MyObservatoryLocation',
+                  :coord_sys => 'blah',
+                  :coords => @astro_coords
+                )
+              end
+              assert_raises TypeError do
+                ObservatoryLocation.new(
+                  :id => 'MyObservatoryLocation',
+                  :coord_sys => @astro_coord_systems,
+                  :coords => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              l = ObservatoryLocation.new(
+                :id => 'MyObservatoryLocation',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords
+              )
+              
+              assert_equal Id.new('MyObservatoryLocation'), l.id
+              assert_equal @astro_coord_systems, l.coord_sys
+              assert_equal @astro_coords, l.coords
+            end
+            
+            def test_relationships
+              l = ObservatoryLocation.new(
+                :id => 'MyObservatoryLocation',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords
+              )
+              
+              assert_kind_of StcDescription, l
+            end
+            
+            def test_xml
+              l1 = ObservatoryLocation.new(
+                :id => 'ROSAT',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords
+              )
+              
+              l2 = ObservatoryLocation.from_xml(l1.to_xml)
+              assert_equal l1, l2
+            end
+          end
+          
+          class ObservationLocationTest < ::Test::Unit::TestCase
+            def setup
+              @astro_coord_systems = [AstroCoordSystem.new(
+                :id => 'FK5-UTC-Energy',
+                :time_frame => TimeFrame.new(
+                  :name => 'TimeUTC',
+                  :time_scale => TimeScale.new('UTC'),
+                  :reference_position => Topocenter.new
+                ),
+                :space_frame => SpaceFrame.new(
+                  :name => 'FK5Spher',
+                  :space_ref_frame => Fk5.new(CoordEquinox.new('J2000.0')),
+                  :reference_position => Topocenter.new,
+                  :coord_flavor => Spherical.new(2)
+                )
+              )]
+              
+              @astro_coords = AstroCoords.new(
+                :coord_system_id => 'FK5-UTC-Energy',
+                :time => TimeCoordinate.new(
+                  :unit => TimeUnit.new('s'),
+                  :time_instant => AstronTime.new(
+                    TimeScale.new('UTC'),
+                    MJDTime.new(49192.57)
+                  ),
+                  :error => Error.new(0.1),
+                  :resolution => Resolution.new(22955),
+                  :pix_size => PixSize.new(22955)
+                ),
+                :position => Position2D.new(
+                  :name => 'RA,Dec',
+                  :unit => PosUnit.new('deg'),
+                  :value => Value2.new([233.73, 23.49]),
+                  :error => Error2.new([0.005, 0.005]),
+                  :resolution => Resolution2.new([0.01, 0.01]),
+                  :pix_size => PixSize2.new([0.0041667, 0.0041667])
+                ),
+                :spectral => Spectral.new(
+                  :name => 'Energy',
+                  :unit => SpectralUnit.new('keV'),
+                  :value => Value.new(1.0),
+                  :error => Error.new(0.1),
+                  :resolution => Resolution.new(2.3),
+                  :pix_size => PixSize.new(2.3)
+                )
+              )
+              
+              @astro_coord_areas = AstroCoordArea.new(
+                :coord_system_id => 'FK5-UTC-Energy',
+                :id => 'ROSATFIELD',
+                :time_intervals => [
+                  TimeIntervalType.new(
+                    :fill_factor => 0.025,
+                    :start_time => AstronTime.new('UTC', ISOTime.new('1993-07-24T13:47:39')),
+                    :stop_time => AstronTime.new('UTC', ISOTime.new('1993-08-03T21:17:42'))
+                  )
+                ],
+                :spatial_interval => Region.new(
+                  :region => Circle.new(
+                    :coord_system_id => 'FK5-UTC-Energy',
+                    :unit => PosUnit.new('deg'),
+                    :center => Double2.new([233.73, 23.49]),
+                    :radius => 1.0
+                  )
+                ),
+                :spectral_intervals => [
+                  SpectralInterval.new(:unit => SpectralUnit.new('keV'), :lo_limit => 0.1, :hi_limit => 2.4)
+                ]
+              )
+            end
+            
+            def test_construction
+              assert_nothing_raised {
+                ObservationLocation.new(
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              }
+              
+              assert_raises ArgumentError do
+                ObservationLocation.new(
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords
+                )
+              end
+              assert_raises ArgumentError do
+                ObservationLocation.new(
+                  :coord_sys => @astro_coord_systems,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises ArgumentError do
+                ObservationLocation.new(
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+            
+              assert_raises TypeError do
+                ObservationLocation.new(
+                  :coord_sys => 'blah',
+                  :coords => @astro_coords,
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises TypeError do
+                ObservationLocation.new(
+                  :coord_sys => @astro_coord_systems,
+                  :coords => 'blah',
+                  :coord_areas => @astro_coord_areas
+                )
+              end
+              assert_raises TypeError do
+                ObservationLocation.new(
+                  :coord_sys => @astro_coord_systems,
+                  :coords => @astro_coords,
+                  :coord_areas => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              l = ObservationLocation.new(
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              assert_equal @astro_coord_systems, l.coord_sys
+              assert_equal @astro_coords, l.coords
+              assert_equal @astro_coord_areas, l.coord_areas
+            end
+            
+            def test_relationships
+              l = ObservationLocation.new(
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+              
+              assert_kind_of StcDescription, l
+            end
+            
+            def test_xml
+              l1 = ObservationLocation.new(
+                :id => 'US701411P.N1',
+                :coord_sys => @astro_coord_systems,
+                :coords => @astro_coords,
+                :coord_areas => @astro_coord_areas
+              )
+    
+              l2 = ObservationLocation.from_xml(l1.to_xml)
+              assert_equal l1, l2
+            end
+          end
+          
+          class PixelSpaceTest < ::Test::Unit::TestCase
+            def setup
+              @pixel_coord_systems = PixelCoordSystem.new(
+                :id => 'US701411P.N1Pix',
+                :pixel_coord_frames => [
+                  PixelCoordFrame.new(:name => 'X'),
+                  PixelCoordFrame.new(:name => 'Y')
+                ]
+              )
+              
+              @pixel_coords = [
+                PixelCoords.new(
+                  :coordinates => [PixelCoordinate.new(:value => 2.3)],
+                  :coord_system_id => IdRef.new('ref')
+                )
+              ]
+              
+              @pixel_coord_areas = PixelCoordArea.new(
+                :coord_system_id => 'US701411P.N1Pix',
+                :id => 'US701411P.N1PixImage',
+                :coord_intervals => [
+                  CoordScalarInterval.new(:fill_factor => 0.9, :lo_limit => 1.0, :hi_limit => 1024.0),
+                  CoordScalarInterval.new(:fill_factor => 0.9, :lo_limit => 1.0, :hi_limit => 1024.0)
+                ]
+              )
+            end
+            
+            def test_construction
+              assert_nothing_raised {
+                PixelSpace.new(
+                  :id => 'MyPixelSpace',
+                  :coord_sys => @pixel_coord_systems,
+                  :coords => @pixel_coords,
+                  :coord_areas => @pixel_coord_areas
+                )
+                
+                PixelSpace.new(
+                  :id => 'MyPixelSpace',
+                  :coord_sys => @pixel_coord_systems,
+                  :coord_areas => @pixel_coord_areas
+                )
+              }
+              
+              assert_raises ArgumentError do
+                PixelSpace.new(
+                  :id => 'MyPixelSpace',
+                  :coords => @pixel_coords,
+                  :coord_areas => @pixel_coord_areas
+                )
+              end
+              assert_raises ArgumentError do
+                PixelSpace.new(
+                  :id => 'MyPixelSpace',
+                  :coord_sys => @pixel_coord_systems,
+                  :coords => @pixel_coords
+                )
+              end
+              
+              assert_raises TypeError do
+                PixelSpace.new(
+                  :id => 'MyPixelSpace',
+                  :coord_sys => 'blah',
+                  :coords => @pixel_coords,
+                  :coord_areas => @pixel_coord_areas
+                )
+              end
+              assert_raises TypeError do
+                PixelSpace.new(
+                  :id => 'MyPixelSpace',
+                  :coord_sys => @pixel_coord_systems,
+                  :coords => 'blah',
+                  :coord_areas => @pixel_coord_areas
+                )
+              end
+              assert_raises TypeError do
+                PixelSpace.new(
+                  :id => 'MyPixelSpace',
+                  :coord_sys => @pixel_coord_systems,
+                  :coords => @pixel_coords,
+                  :coord_areas => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              s = PixelSpace.new(
+                :id => 'MyPixelSpace',
+                :coord_sys => @pixel_coord_systems,
+                :coords => @pixel_coords,
+                :coord_areas => @pixel_coord_areas
+              )
+              
+              assert_equal Id.new('MyPixelSpace'), s.id
+              assert_equal @pixel_coord_systems, s.coord_sys
+              assert_equal @pixel_coords, s.coords
+              assert_equal @pixel_coord_areas, s.coord_areas
+            end
+            
+            def test_relationships
+              s = PixelSpace.new(
+                :id => 'MyPixelSpace',
+                :coord_sys => @pixel_coord_systems,
+                :coords => @pixel_coords,
+                :coord_areas => @pixel_coord_areas
+              )
+              
+              assert_kind_of StcDescription, s
+            end
+            
+            def test_xml
+              s1 = PixelSpace.new(
+                :id => 'MyPixelSpace',
+                :coord_sys => @pixel_coord_systems,
+                :coords => @pixel_coords,
+                :coord_areas => @pixel_coord_areas
+              )
+              
+              s2 = PixelSpace.from_xml(s1.to_xml)
+              assert_equal s1, s2
+            end
+          end
+          
+          class ObsDataLocationTypeTest < ::Test::Unit::TestCase
+            def setup
+              @observatory_location = ObservatoryLocation.new(
+                :id => 'ROSAT',
+                :coord_sys => [AstroCoordSystem.new(
+                  :id => 'FK5-UTC-VEL',
+                  :time_frame => TimeFrame.new(
+                    :name => 'Time',
+                    :time_scale => TimeScale.new('UTC'),
+                    :reference_position => Topocenter.new
+                  ),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'FK5Cart+Vel',
+                    :space_ref_frame => Fk5.new(CoordEquinox.new('J2000.0')),
+                    :reference_position => Topocenter.new,
+                    :coord_flavor => Cartesian.new(3, true)
+                  )
+                )],
+                :coords => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-VEL',
+                  :coord_file => AstroCoordsFile.new(
+                    :file => Fits.new(:hdu_num => 1, :uri => 'http://MySpace.edu/OrbitEphemeris.fits'),
+                    :time => CoordFitsColumns.new(:name => 'Time', :value => 'VALUE'),
+                    :position => CoordFitsColumns.new(:name => 'Position', :value => 'X,Y,Z'),
+                    :velocity => CoordFitsColumns.new(:name => 'Velocity', :value => 'VX,VY,VZ')
+                  )
+                )
+              )
+              
+              @observation_location = ObservationLocation.new(
+                :coord_sys => [AstroCoordSystem.new(
+                  :id => 'FK5-UTC-Energy',
+                  :time_frame => TimeFrame.new(
+                    :name => 'TimeUTC',
+                    :time_scale => TimeScale.new('UTC'),
+                    :reference_position => Topocenter.new
+                  ),
+                  :space_frame => SpaceFrame.new(
+                    :name => 'FK5Spher',
+                    :space_ref_frame => Fk5.new(CoordEquinox.new('J2000.0')),
+                    :reference_position => Topocenter.new,
+                    :coord_flavor => Spherical.new(2)
+                  )
+                )],
+                :coords => AstroCoords.new(
+                  :coord_system_id => 'FK5-UTC-Energy',
+                  :time => TimeCoordinate.new(
+                    :unit => TimeUnit.new('s'),
+                    :time_instant => AstronTime.new(
+                      TimeScale.new('UTC'),
+                      MJDTime.new(49192.57)
+                    ),
+                    :error => Error.new(0.1),
+                    :resolution => Resolution.new(22955),
+                    :pix_size => PixSize.new(22955)
+                  ),
+                  :position => Position2D.new(
+                    :name => 'RA,Dec',
+                    :unit => PosUnit.new('deg'),
+                    :value => Value2.new([233.73, 23.49]),
+                    :error => Error2.new([0.005, 0.005]),
+                    :resolution => Resolution2.new([0.01, 0.01]),
+                    :pix_size => PixSize2.new([0.0041667, 0.0041667])
+                  ),
+                  :spectral => Spectral.new(
+                    :name => 'Energy',
+                    :unit => SpectralUnit.new('keV'),
+                    :value => Value.new(1.0),
+                    :error => Error.new(0.1),
+                    :resolution => Resolution.new(2.3),
+                    :pix_size => PixSize.new(2.3)
+                  )
+                ),
+                :coord_areas => AstroCoordArea.new(
+                  :coord_system_id => 'FK5-UTC-Energy',
+                  :id => 'ROSATFIELD',
+                  :time_intervals => [
+                    TimeIntervalType.new(
+                      :fill_factor => 0.025,
+                      :start_time => AstronTime.new('UTC', ISOTime.new('1993-07-24T13:47:39')),
+                      :stop_time => AstronTime.new('UTC', ISOTime.new('1993-08-03T21:17:42'))
+                    )
+                  ],
+                  :spatial_interval => Region.new(
+                    :region => Circle.new(
+                      :coord_system_id => 'FK5-UTC-Energy',
+                      :unit => PosUnit.new('deg'),
+                      :center => Double2.new([233.73, 23.49]),
+                      :radius => 1.0
+                    )
+                  ),
+                  :spectral_intervals => [
+                    SpectralInterval.new(:unit => SpectralUnit.new('keV'), :lo_limit => 0.1, :hi_limit => 2.4)
+                  ]
+                )
+              )
+              
+              @pixel_space = PixelSpace.new(
+                :coord_sys => PixelCoordSystem.new(
+                  :id => 'US701411P.N1Pix',
+                  :pixel_coord_frames => [
+                    PixelCoordFrame.new(:name => 'X'),
+                    PixelCoordFrame.new(:name => 'Y')
+                  ]
+                ),
+                :coord_areas => PixelCoordArea.new(
+                  :coord_system_id => 'US701411P.N1Pix',
+                  :id => 'US701411P.N1PixImage',
+                  :coord_intervals => [
+                    CoordScalarInterval.new(:fill_factor => 0.9, :lo_limit => 1.0, :hi_limit => 1024.0),
+                    CoordScalarInterval.new(:fill_factor => 0.9, :lo_limit => 1.0, :hi_limit => 1024.0)
+                  ]
+                )
+              )
+            end
+            
+            def test_construction
+              assert_nothing_raised {
+                ObsDataLocationType.new(
+                  :observatory_location => @observatory_location,
+                  :observation_location => @observation_location,
+                  :pixel_space => @pixel_space
+                )
+                
+                ObsDataLocationType.new(
+                  :observatory_location => @observatory_location,
+                  :observation_location => @observation_location
+                )
+              }
+        
+              assert_raises ArgumentError do
+                ObsDataLocationType.new(
+                  :observatory_location => @observatory_location
+                )
+              end
+              assert_raises ArgumentError do
+                ObsDataLocationType.new(
+                  :observation_location => @observation_location
+                  )
+              end
+            
+              assert_raises TypeError do
+                ObsDataLocationType.new(
+                  :observatory_location => 'blah',
+                  :observation_location => @observation_location,
+                  :pixel_space => @pixel_space
+                )
+              end
+              assert_raises TypeError do
+                ObsDataLocationType.new(
+                  :observatory_location => @observatory_location,
+                  :observation_location => 'blah',
+                  :pixel_space => @pixel_space
+                )
+              end
+              assert_raises TypeError do
+                ObsDataLocationType.new(
+                  :observatory_location => @observatory_location,
+                  :observation_location => @observation_location,
+                  :pixel_space => 'blah'
+                )
+              end
+            end
+            
+            def test_accessors
+              l = ObsDataLocationType.new(
+                :observatory_location => @observatory_location,
+                :observation_location => @observation_location,
+                :pixel_space => @pixel_space
+              )
+              
+              assert_equal @observatory_location, l.observatory_location
+              assert_equal @observation_location, l.observation_location
+              assert_equal @pixel_space, l.pixel_space
+            end
+            
+            def test_relationships
+              l = ObsDataLocationType.new(
+                :observatory_location => @observatory_location,
+                :observation_location => @observation_location,
+                :pixel_space => @pixel_space
+              )
+              
+              assert_kind_of StcMetadataType, l
+            end
+            
+            def test_xml
+              l1 = ObsDataLocationType.new(
+                :observatory_location => @observatory_location,
+                :observation_location => @observation_location,
+                :pixel_space => @pixel_space
+              )
+              
+              l2 = ObsDataLocationType.from_xml(l1.to_xml)
+              assert_equal l1, l2
+            end
+            
+            def test_real_world
+              l1 = ObsDataLocationType.new(
+                :observatory_location => @observatory_location,
+                :observation_location => @observation_location,
+                :pixel_space => @pixel_space
+              )
+              
+              l2 = ObsDataLocationType.from_xml(File.new('test/voruby/stc/1.10/stc-obs-data-location.xml'))
+              assert_equal l1, l2
+            end
+          end
+        
+        end
+      end
+    end
+  end
+end