voruby 1.1.1 → 2.0.0

data/test/voruby/ucd/test.rb

@@ -0,0 +1,48 @@
+require 'test/unit'
+
+require 'voruby/ucd/ucd'
+include VORuby
+
+class UCDTest < Test::Unit::TestCase
+  def setup
+    @ucd = UCD.new
+  end
+  
+  def test_translate
+    assert_equal 'phot.mag;em.opt.V', @ucd.translate('PHOT_JHN_V')
+    assert_equal 'pos.eq.ra;meta.main', @ucd.translate('POS_EQ_RA_MAIN')
+    assert_equal nil, @ucd.translate('blah')
+  end
+  
+  def test_assign
+    assert_equal 'phot.mag;em.opt.V', @ucd.assign('V magnitude')
+    assert_equal nil, @ucd.assign('blah')
+  end
+  
+  def test_explain
+    assert_equal 'Photometric magnitude / Optical band between 400 and 500 nm', @ucd.explain('ivoa:phot.mag;em.opt.B')
+    assert_equal nil, @ucd.explain('blah')
+    
+    assert_equal 'Johnson magnitude V (JHN)', @ucd.explain('PHOT_JHN_V', '1')
+    assert_equal nil, @ucd.explain('blah', '1')
+  end
+  
+  def test_validate
+    result = @ucd.validate('ivob:phot.mag;em.opt.Z')
+    assert_equal 5, result.code
+    assert_equal ["use of non-standard namespace 'ivob'", "invalid UCD word 'em.opt.Z'"], result.errors
+    
+    result = @ucd.validate('ivoa:phot.mag;em.opt.B')
+    assert_equal 0, result.code
+    assert_equal [], result.errors
+  end
+  
+  def test_valid
+    assert_equal false, @ucd.valid?('ivob:phot.mag;em.opt.Z')
+    assert_equal true, @ucd.valid?('ivoa:phot.mag;em.opt.B')
+  end
+  
+  def test_upgrade
+    assert_equal 'pos.galactic.lat', @ucd.upgrade('pos.gal.lat')
+  end
+end

data/test/voruby/voevent/1.1/test.rb

@@ -0,0 +1,812 @@
+require 'voruby/voevent/1.1/voevent'
+require 'test/unit'
+
+include VORuby::VOEvent::V1_1
+
+module VORuby
+  module VOEvent
+    module V1_1
+      module Test
+        
+        class ReferenceTest < ::Test::Unit::TestCase
+          def setup
+            @uri = URI.parse('http://www.noao.edu/')
+            @type = 'ref'
+            @name = 'NOAO'
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              Reference.new(@uri, @type, @name)
+              Reference.new(@uri, @type)
+              Reference.new(@uri)
+            }
+            
+            assert_raises ArgumentError do
+              Reference.new(nil)
+            end
+          end
+          
+          def test_accessors
+            r = Reference.new(@uri, @type, @name)
+            
+            assert_equal @uri, r.uri
+            assert_equal @type, r.type
+            assert_equal @name, r.name
+          end
+          
+          def test_xml
+            r1 = Reference.new(@uri, @type, @name)
+            r2 = Reference.from_xml(r1.to_xml)
+            
+            assert_equal r1, r2
+          end
+        end
+        
+        class DescriptionTest < ::Test::Unit::TestCase
+          def setup
+            @value = 'This is a description...'
+            @format = 'image/gif'
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              Description.new(@value, @format)
+              Description.new(@value)
+            }
+            
+            assert_raises ArgumentError do
+              Description.new(nil)
+            end
+          end
+          
+          def test_accessors
+            d = Description.new(@value, @format)
+            
+            assert_equal @value, d.value
+            assert_equal @format, d.format
+          end
+          
+          def test_xml
+            d1 = Description.new(@value, @format)
+            d2 = Description.from_xml(d1.to_xml)
+            
+            assert_equal d1, d2
+          end
+        end
+        
+        class EventIVORNTest < ::Test::Unit::TestCase
+          def setup
+            @uri = URI.parse('http://www.noao.edu/')
+            @cite = Cite.new('supersedes')
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              EventIVORN.new(@uri, @cite)
+            }
+            
+            assert_raises TypeError do
+              EventIVORN.new(@uri, 123)
+            end
+            
+            assert_raises ArgumentError do
+              EventIVORN.new(@uri, nil)
+            end
+            assert_raises ArgumentError do
+              EventIVORN.new(nil, @cite)
+            end
+          end
+          
+          def test_accessors
+            i = EventIVORN.new(@uri, @cite)
+            
+            assert_equal @uri, i.uri
+            assert_equal @cite, i.cite
+          end
+          
+          def test_xml
+            i1 = EventIVORN.new(@uri, @cite)
+            i2 = EventIVORN.from_xml(i1.to_xml)
+            
+            assert_equal i1, i2
+          end
+        end
+        
+        class CitationsTest < ::Test::Unit::TestCase
+          def setup
+            @ivorns = [
+              EventIVORN.new('http://www.noao.edu/', 'supersedes'),
+              EventIVORN.new('http://www.stsci.edu/', 'followup')
+            ]
+            @descriptions = [Description.new('We did stuff to cause this change.')]
+            @references = [Reference.new('http://www.noao.edu/staff/dgasson', 'url', 'Me')]
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              Citations.new(@ivorns, @descriptions, @references)
+              Citations.new(@ivorns, @descriptions)
+              Citations.new(@ivorns)
+            }
+            
+            assert_raises ArgumentError do
+              Citations.new(nil)
+            end
+            
+            assert_raises TypeError do
+              Citations.new(@ivorns, @descriptions, 123)
+            end
+            assert_raises TypeError do
+              Citations.new(@ivorns, 123, @references)
+            end
+            assert_raises TypeError do
+              Citations.new('blah', @descriptions, @references)
+            end
+          end
+          
+          def test_accessors
+            c = Citations.new(@ivorns, @descriptions, @references)
+            
+            assert_equal @ivorns, c.event_ivorns
+            assert_equal @descriptions, c.descriptions
+            assert_equal @references, c.references
+          end
+          
+          def test_xml
+            c1 = Citations.new(@ivorns, @descriptions, @references)
+            c2 = Citations.from_xml(c1.to_xml)
+
+            assert_equal c1, c2
+          end
+        end
+        
+        class HowTest < ::Test::Unit::TestCase
+          def setup
+            @descriptions = [Description.new('We did stuff.')]
+            @references = [Reference.new('http://nsa.noao.edu/kp012345.rtml', 'rtml', 'Echelle')]
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              How.new(@descriptions, @references)
+              How.new(@descriptions)
+              How.new(nil, @references)
+              How.new
+            }
+          
+            assert_raises TypeError do
+              How.new(@descriptions, 'blah')
+            end
+            assert_raises TypeError do
+              How.new('blah', @references)
+            end
+          end
+          
+          def test_accessors
+            h = How.new(@descriptions, @references)
+            
+            assert_equal @descriptions, h.descriptions
+            assert_equal @references, h.references
+          end
+          
+          def test_xml
+            h1 = How.new(@descriptions, @references)
+            h2 = How.from_xml(h1.to_xml)
+
+            assert_equal h1, h2
+          end
+        end
+        
+        class WhereWhenTest < ::Test::Unit::TestCase
+          def setup
+            observatory_location = ObservatoryLocationType.new(
+              [AstroCoordSystem.new(
+                nil,
+                TimeFrame.new(TOPOCENTER.new, TimeScaleType.new('TT')),
+                SpaceFrame.new(GEO_D.new(nil, nil, nil, nil), TOPOCENTER.new, SPHERICAL.new(3)),
+                nil, nil, :id => 'TT-GEOD-TOPO'
+              )],
+              [AstroCoords.new(
+                'TT-GEOD-TOPO',
+                nil,
+                :position => Position3D.new(
+                  :value => Value3.new(
+                    Double1Type.new(248.4056, :pos_unit => 'deg'),
+                    Double1Type.new(31.9586, :pos_unit => 'deg'),
+                    Double1Type.new(2158.0, :pos_unit => 'm')
+                  )
+                )
+              )],
+              nil,
+              :id => 'KPNO'
+            )
+            
+            observation_location = AstroSTCDescriptionType.new(
+              [AstroCoordSystem.new(
+                [CoordFrame.new(ScalarRefFrame.new(1.0, nil, nil), nil, CARTESIAN.new(1), 'Brightness', :ucd => 'em...', :id => 'brightness')],
+                TimeFrame.new(TOPOCENTER.new, TimeScaleType.new('TT')),
+                SpaceFrame.new(ICRS.new, TOPOCENTER.new, SPHERICAL.new(2), nil, nil, :id => 'spaceFrame'),
+                SpectralFrame.new(TOPOCENTER.new),
+                nil,
+                :id => 'TT-ICRS-WAVELENGTH-TOPO'
+              )],
+              [AstroCoords.new(
+                'TT-ICRS-WAVELENGTH-TOPO',
+                [ScalarCoordinate.new(
+                  :unit => 'mJy/arcsec**2',
+                  :frame_id => 'brightness',
+                  :error => [Error.new(0.001)]
+                )],
+                :time => STC::V1_30::Time.new(
+                  :time_instant => AstronTimeType.new(:absolute_time => ISOTime.new('2004-07-15T08:23:56')),
+                  :resolution => [Resolution.new(1000.0)],
+                  :pix_size => [PixSize.new(1000.0)]
+                ),
+                :position => Position2D.new(
+                  :unit => 'deg',
+                  :value => Value2.new(148.88821, 69.06529, :id => 'Center'),
+                  :error => [Error2Radius.new(0.0003)],
+                  :resolution => [Resolution2.new(0.00025, 0.00025)],
+                  :pix_size => [PixSize2.new(0.0001, 0.0001)]
+                ),
+                :spectral => Spectral.new(
+                  :unit => 'Angstrom',
+                  :value => Value.new(4600.0),
+                  :resolution => [Resolution.new(400.0)],
+                  :pix_size => [PixSize.new(400.0)]
+                )
+              )],
+              [AstroCoordArea.new(
+                'TT-ICRS-WAVELENGTH-TOPO',
+                [CoordScalarInterval.new(0.0, 10.0, nil, nil, :frame_id => 'brightness')],
+                [TimeIntervalType.new(
+                  AstronTimeType.new(:absolute_time => ISOTime.new('2004-07-15T08:17:36')),
+                  AstronTimeType.new(:absolute_time => ISOTime.new('2004-07-15T08:30:16'))
+                )],
+                Position2VecInterval.new(
+                  Double2Type.new(148.18821, 68.81529),
+                  Double2Type.new(149.58821, 69.31529),
+                  nil, nil,
+                  :unit => 'deg'
+                ),
+                nil,
+                [SpectralIntervalType.new(
+                  'Angstrom',
+                  Double1Type.new(4400.0),
+                  Double1Type.new(4800.0)
+                )],
+                nil,
+                :id => 'M81Image'
+              )],
+              :id => 'M81'
+            )
+            
+            @obs_data_locations = [ObsDataLocation.new(observatory_location, observation_location)]
+            @descriptions = [Description.new('We did stuff.')]
+            @references = [Reference.new('http://nsa.noao.edu/kp012345.rtml', 'rtml', 'Echelle')]
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              WhereWhen.new(@obs_data_locations, @descriptions, @references)
+              WhereWhen.new(@obs_data_locations, @descriptions)
+              WhereWhen.new(@obs_data_locations)
+              WhereWhen.new(nil, nil, nil)
+              WhereWhen.new
+            }
+            
+            assert_raises TypeError do
+              WhereWhen.new(@obs_data_locations, @descriptions, 'blah')
+            end
+            assert_raises TypeError do
+              WhereWhen.new(@obs_data_locations, 'blah', @references)
+            end
+            assert_raises TypeError do
+              WhereWhen.new('blah', @descriptions, @references)
+            end
+          end
+          
+          def test_accessors
+            w = WhereWhen.new(@obs_data_locations, @descriptions, @references)
+            
+            assert_equal @obs_data_locations, w.obs_data_locations
+            assert_equal @descriptions, w.descriptions
+            assert_equal @references, w.references
+          end
+          
+          def test_xml
+            w1 = WhereWhen.new(@obs_data_locations, @descriptions, @references)
+            w2 = WhereWhen.from_xml(w1.to_xml)
+            
+            assert_equal w1, w2
+          end
+        end
+        
+        class InferenceTest < ::Test::Unit::TestCase
+          def setup
+            @names = ['Tycho\'s Stella Nova']
+            @concepts = ['stars.supernova.Ia']
+            @probability = 1.0
+            @relation = 'associated'
+            @descriptions = [Description.new('We did stuff.')]
+            @references = [Reference.new('http://nsa.noao.edu/kp012345.rtml', 'rtml', 'Echelle')]
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              Inference.new(@names, @concepts, @probability, @relation, @descriptions, @references)
+              Inference.new(@names, @concepts, @probability, @relation)
+              Inference.new(@names, @concepts, @probability)
+              Inference.new(@names, @concepts)
+              Inference.new(@names, nil)
+              Inference.new(nil, @concepts)
+              Inference.new(nil, nil)
+            }
+            
+            assert_raises TypeError do
+              Inference.new(123, @concepts)
+            end
+            assert_raises TypeError do
+              Inference.new(@names, 123)
+            end
+            
+            assert_raises RuntimeError do
+              Inference.new(@names, @concepts, -0.2)
+            end
+            assert_raises RuntimeError do
+              Inference.new(@names, @concepts, 2.3)
+            end
+          end
+          
+          def test_accessors
+            i = Inference.new(@names, @concepts, @probability, @relation, @descriptions, @references)
+            
+            assert_equal @names, i.names
+            assert_equal @concepts, i.concepts
+            assert_equal @probability, i.probability
+            assert_equal @relation, i.relation
+            assert_equal @descriptions, i.descriptions
+            assert_equal @references, i.references
+          end
+          
+          def test_xml
+            i1 = Inference.new(@names, @concepts, @probability, @relation, @descriptions, @references)
+            i2 = Inference.from_xml(i1.to_xml)
+
+            assert_equal i1, i2
+          end
+        end
+        
+        class WhyTest < ::Test::Unit::TestCase
+          def setup
+            @inferences = [
+              Inference.new(["Tycho's Stella Nova"], ["stars.supernova.Ia"], 1.0),
+              Inference.new(['3C 10'], ['ISM.SNRemnant'], 1.0, 'associated', [Description.new('Supernova remnant')])
+            ]
+            @names = ['Name1']
+            @concepts = ['Concept1']
+            @descriptions = [Description.new('We did stuff.')]
+            @references = [Reference.new('http://nsa.noao.edu/kp012345.rtml', 'rtml', 'Echelle')]
+            @importance = 1.0
+            @expires = DateTime.parse("1574-05-11T12:00:00")
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              Why.new(@inferences, @importance, @expires, @names, @concepts, @descriptions, @references)
+              Why.new(@inferences, @importance, @expires, @names, @concepts)
+              Why.new(@inferences, @importance, @expires)
+              Why.new(@inferences, @importance)
+              Why.new(@inferences)
+              Why.new(nil)
+            }
+            
+            assert_raises TypeError do
+              Why.new('blah')
+            end
+          end
+          
+          def test_accessors
+            w = Why.new(@inferences, @importance, @expires, @names, @concepts, @descriptions, @references)
+            
+            assert_equal @inferences, w.inferences
+            assert_equal @importance, w.importance
+            assert_equal @expires, w.expires
+            assert_equal @names, w.names
+            assert_equal @concepts, w.concepts
+            assert_equal @descriptions, w.descriptions
+            assert_equal @references, w.references
+          end
+          
+          def test_xml
+            w1 = Why.new(@inferences, @importance, @expires, @names, @concepts, @descriptions, @references)
+            w2 = Why.from_xml(w1.to_xml)
+            
+            assert_equal w1, w2
+          end
+        end
+        
+        class ParamTest < ::Test::Unit::TestCase
+          def setup
+            @name = 'TRIGGER_NUM'
+            @value = '114299'
+            @ucd = 'meta.id'
+            @unit = 'whatever'
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              Param.new(@name, @value, @ucd, @unit)
+              Param.new(@name, @value, @ucd)
+              Param.new(@name, @value)
+              Param.new(@name, nil)
+              Param.new(nil, @name)
+              Param.new(nil, nil)
+            }
+          end
+          
+          def test_accessors
+            p = Param.new(@name, @value, @ucd, @unit)
+            
+            assert_equal @name, p.name
+            assert_equal @value, p.value
+            assert_equal @ucd, p.ucd
+            assert_equal @unit, p.unit
+          end
+          
+          def test_xml
+            p1 = Param.new(@name, @value, @ucd, @unit)
+            p2 = Param.from_xml(p1.to_xml)
+
+            assert_equal p1, p2
+          end
+        end
+        
+        class GroupTest < ::Test::Unit::TestCase
+          def setup
+            @params = [Param.new('TRIGGER_NUM', '114299', 'meta.id', 'whatever')]
+            @name = 'whatever'
+            @type = 'phot_pt'
+            @descriptions = [Description.new('We did stuff.')]
+            @references = [Reference.new('http://nsa.noao.edu/kp012345.rtml', 'rtml', 'Echelle')]
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              Group.new(@params, @name, @type, @descriptions, @references)
+              Group.new(@params, @name, @type)
+              Group.new(@params, @name)
+              Group.new(@params)
+              Group.new(nil)
+            }
+            
+            assert_raises TypeError do
+              Group.new('blah')
+            end
+          end
+          
+          def test_accessors
+            g = Group.new(@params, @name, @type, @descriptions, @references)
+            
+            assert_equal @params, g.params
+            assert_equal @name, g.name
+            assert_equal @type, g.type
+            assert_equal @descriptions, g.descriptions
+            assert_equal @references, g.references
+          end
+          
+          def test_xml
+            g1 = Group.new(@params, @name, @type, @descriptions, @references)
+            g2 = Group.from_xml(g1.to_xml)
+            
+            assert_equal g1, g2
+          end
+        end
+        
+        class WhatTest < ::Test::Unit::TestCase
+          def setup
+            @groups = [
+              Group.new(
+                [Param.new('mag', '13.2', 'phot.ma;em.opt.R'), Param.new('epoch', '245523.12345', 'time.epoch')],
+                nil, 'phot_pt'
+              ),
+              Group.new(
+                [Param.new('mag', '13.4', 'phot.ma;em.opt.R'), Param.new('epoch', '245523.46533', 'time.epoch')],
+                nil, 'phot_pt'
+              ),
+              Group.new(
+                [Param.new('mag', '13.0', 'phot.ma;em.opt.R'), Param.new('epoch', '245523.76444', 'time.epoch')],
+                nil, 'phot_pt'
+              )
+            ]
+            
+            @params = [Param.new('TRIGGER_NUM', '114299', 'meta.id', 'whatever')]
+            @descriptions = [Description.new('We did stuff.')]
+            @references = [Reference.new('http://nsa.noao.edu/kp012345.rtml', 'rtml', 'Echelle')]
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              What.new(@groups, @params, @descriptions, @references)
+              What.new(@groups, @params)
+              What.new(@groups)
+              What.new(nil)
+            }
+            
+            assert_raise TypeError do
+              What.new('blah', @params)
+            end
+            assert_raise TypeError do
+              What.new(@groups, 'blah')
+            end
+          end
+          
+          def test_accessors
+            w = What.new(@groups, @params, @descriptions, @references)
+            
+            assert_equal @groups, w.groups
+            assert_equal @params, w.params
+            assert_equal @descriptions, w.descriptions
+            assert_equal @references, w.references
+          end
+          
+          def test_xml
+            w1 = What.new(@groups, @params, @descriptions, @references)
+            w2 = What.from_xml(w1.to_xml)
+            
+            assert_equal w1, w2
+          end
+        end
+        
+        class AuthorTest < ::Test::Unit::TestCase
+          def setup
+            @titles = ['Rapid Telescope for Optical Response']
+            @short_names = ['Raptor']
+            @logo_urls = ['http://www.raptor.lanl.gov/images/RAPTOR_patchLarge.jpg']
+            @contact_names = ['Robert White']
+            @contact_emails = ['rwhite@lanl.gov']
+            @contact_phones = ['+1 800 555 1212']
+            @contributors = ['whoever']
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              Author.new(
+                :titles => @titles, :short_names => @short_names, :logo_urls => @logo_urls,
+                :contact_names => @contact_names, :contact_emails => @contact_emails, :contact_phones => @contact_phones,
+                :contributors => @contributors
+              )
+              Author.new(
+                :titles => @titles, :short_names => @short_names, :logo_urls => @logo_urls,
+                :contact_names => @contact_names, :contact_emails => @contact_emails, :contact_phones => @contact_phones
+              )
+              Author.new(
+                :titles => @titles, :short_names => @short_names, :logo_urls => @logo_urls,
+                :contact_names => @contact_names, :contact_emails => @contact_emails
+              )
+              Author.new(
+                :titles => @titles, :short_names => @short_names, :logo_urls => @logo_urls,
+                :contact_names => @contact_names
+              )
+              Author.new(
+                :titles => @titles, :short_names => @short_names, :logo_urls => @logo_urls
+              )
+              Author.new(
+                :titles => @titles, :short_names => @short_names
+              )
+              Author.new(
+                :titles => @titles
+              )
+              Author.new
+            }
+            
+            assert_raises TypeError do
+              Author.new(:titles => 123)
+            end
+            assert_raises TypeError do
+              Author.new(:short_names => 123)
+            end
+            assert_raises TypeError do
+              Author.new(:logo_urls => 123)
+            end
+            assert_raises TypeError do
+              Author.new(:contact_names => 123)
+            end
+            assert_raises TypeError do
+              Author.new(:contact_emails => 123)
+            end
+            assert_raises TypeError do
+              Author.new(:contact_phones => 123)
+            end
+            assert_raises TypeError do
+              Author.new(:contributors => 123)
+            end
+          end
+          
+          def test_accessors
+            a = Author.new(
+              :titles => @titles, :short_names => @short_names, :logo_urls => @logo_urls,
+              :contact_names => @contact_names, :contact_emails => @contact_emails, :contact_phones => @contact_phones,
+              :contributors => @contributors
+            )
+            
+            assert_equal @titles, a.titles
+            assert_equal @short_names, a.short_names
+            assert_equal @logo_urls, a.logo_urls
+            assert_equal @contact_names, a.contact_names
+            assert_equal @contact_emails, a.contact_emails
+            assert_equal @contact_phones, a.contact_phones
+            assert_equal @contributors, a.contributors
+          end
+          
+          def test_xml
+            a1 = Author.new(
+              :titles => @titles, :short_names => @short_names, :logo_urls => @logo_urls,
+              :contact_names => @contact_names, :contact_emails => @contact_emails, :contact_phones => @contact_phones,
+              :contributors => @contributors
+            )
+            a2 = Author.from_xml(a1.to_xml)
+            
+            assert_equal a1, a2
+          end
+        end
+        
+        class WhoTest < ::Test::Unit::TestCase
+          def setup
+            @author_ivorns = [URI.parse('ivo://uraniborg.hven/Tycho')]
+            @dates = [DateTime.parse('1573-05-05T01:23:45Z')]
+            @authors = [Author.new(:titles => ['Rapid Telescope for Optical Response'])]
+            @descriptions = [Description.new('We did stuff.')]
+            @references = [Reference.new('http://nsa.noao.edu/kp012345.rtml', 'rtml', 'Echelle')]
+          end
+          
+          def test_construction
+            assert_nothing_raised {
+              Who.new(@author_ivorns, @dates, @authors, @descriptions, @references)
+              Who.new(@author_ivorns, @dates, @authors)
+              Who.new(@author_ivorns, @dates)
+              Who.new(@author_ivorns, nil)
+              Who.new(nil, @dates)
+              Who.new(nil, nil)
+            }
+            
+            assert_raises TypeError do
+              Who.new(@author_ivorns, @dates, 'blah')
+            end
+            assert_raises TypeError do
+              Who.new(@author_ivorns, 'blah', @authors)
+            end
+            assert_raises TypeError do
+              Who.new('blah', @dates, @authors)
+            end
+          end
+          
+          def test_accessors
+            w = Who.new(@author_ivorns, @dates, @authors, @descriptions, @references)
+            
+            assert_equal @author_ivorns, w.author_ivorns
+            assert_equal @dates, w.dates
+            assert_equal @authors, w.authors
+            assert_equal @descriptions, w.descriptions
+            assert_equal @references, w.references
+          end
+          
+          def test_xml
+            w1 = Who.new(@author_ivorns, @dates, @authors, @descriptions, @references)
+            w2 = Who.from_xml(w1.to_xml)
+            
+            assert_equal w1, w2
+          end
+        end
+        
+        class VOEventTest < ::Test::Unit::TestCase
+          def setup
+            @ivorn = URI.parse('ivo://raptor.lanl/VOEvent#235649409')
+            @role = 'observation'
+            @version = '1.1'
+            @citations = Citations.new(
+              [EventIVORN.new(URI.parse('ivo://raptor.lanl/VOEvent#235649408'), 'followup')],
+              [Description.new('This is an observation of the earlier event but with improved square-galaxy discrimination')]
+            )
+            @who = Who.new(
+              [URI.parse('ivo://raptor.lanl/organization')],
+              [DateTime.parse('2005-04-15T14:34:16')]
+            )
+            @what = What.new(
+              [Group.new([Param.new('counts', '73288', 'phot.count', 'ct'), Param.new('peak', '1310', 'arith.rate;phot.count', 'ct/s')], 'SQUARE_GALAXY_FLUX')],
+              [Param.new('seeing', '2', 'instr.obsty.site.seeing', 'arcsec')],
+              [Description.new('This is the light curve associated with the observation.')],
+              [Reference.new(URI.parse('http://raptor.lanl.gov/data/lightcurves/235649409'))]
+            )
+            @where_when = WhereWhen.new()
+            @how = How.new(
+              [Description.new('This VOEvent packet resulted from observations made with Raptor AB at Los Alamos.')],
+              [Reference.new(URI.parse('http://www.raptor.lanl.gov/documents/phase_zero.rtml'), 'rtml', 'Raptor AB')]
+            )
+            @descriptions = [Description.new('We did stuff.')]
+            @references = [Reference.new('http://nsa.noao.edu/kp012345.rtml', 'rtml', 'Echelle')]
+            @why = Why.new(
+              [Inference.new(['NGC1234'], nil, 0.9, 'associated')],
+              0.8,
+              DateTime.parse('2005-04-16T02:34:16'),
+              nil,
+              ['process.variation.burst;em.opt'],
+              [Description.new('Fast Orphan Optical Transient. Do not know what caused it, but looks like we found the host galaxy')]
+            )
+          end
+        
+          def test_construction
+            assert_nothing_raised {
+              VOEvent.new(@ivorn, @who, @what, @where_when, @how, @why, @version, @role, @citations, @descriptions, @references)
+              VOEvent.new(@ivorn, @who, @what, @where_when, @how, @why, @version, @role, @citations)
+              VOEvent.new(@ivorn, @who, @what, @where_when, @how, @why, @version, @role)
+              VOEvent.new(@ivorn, @who, @what, @where_when, @how, @why, @version)
+              VOEvent.new(@ivorn, @who, @what, @where_when, @how, @why)
+              VOEvent.new(@ivorn, @who, @what, @where_when, @how, nil)
+              VOEvent.new(@ivorn, @who, @what, @where_when, nil, @why)
+              VOEvent.new(@ivorn, @who, @what, nil, @how, @why)
+              VOEvent.new(@ivorn, @who, nil, @where_when, @how, @why)
+              VOEvent.new(@ivorn, nil, @what, @where_when, @how, @why)
+            }
+            
+            assert_raises ArgumentError do
+              VOEvent.new(nil, @who, @what, @where_when, @how, @why)
+            end
+            
+            assert_raises TypeError do
+              VOEvent.new(@ivorn, @who, @what, @where_when, @how, @why, @version, @role, 'blah')
+            end
+            assert_raises TypeError do
+              VOEvent.new(@ivorn, @who, @what, @where_when, @how, 'blah', @version, @role, @citations)
+            end
+            assert_raises TypeError do
+              VOEvent.new(@ivorn, @who, @what, @where_when, 'blah', @why, @version, @role, @citations)
+            end
+            assert_raises TypeError do
+              VOEvent.new(@ivorn, @who, @what, 'blah', @how, @why, @version, @role, @citations)
+            end
+            assert_raises TypeError do
+              VOEvent.new(@ivorn, @who, 'blah', @where_when, @how, @why, @version, @role, @citations)
+            end
+            assert_raises TypeError do
+              VOEvent.new(@ivorn, 'blah', @what, @where_when, @how, @why, @version, @role, @citations)
+            end
+          end
+          
+          def test_accessors
+            e = VOEvent.new(@ivorn, @who, @what, @where_when, @how, @why, @version, @role, @citations, @descriptions, @references)
+            
+            assert_equal @ivorn, e.ivorn
+            assert_equal @who, e.who
+            assert_equal @what, e.what
+            assert_equal @where_when, e.where_when
+            assert_equal @how, e.how
+            assert_equal @why, e.why
+            assert_equal @version, e.version
+            assert_equal @role, e.role
+            assert_equal @citations, e.citations
+            assert_equal @descriptions, e.descriptions
+            assert_equal @references, e.references
+          end
+          
+          def test_xml
+            e1 = VOEvent.new(@ivorn, @who, @what, @where_when, @how, @why, @version, @role, @citations, @descriptions, @references)
+            e2 = VOEvent.from_xml(e1.to_xml)
+
+            assert_equal e1, e2
+          end
+        end
+        
+        class RealWorldTest < ::Test::Unit::TestCase
+          def test_real_world
+            assert_nothing_raised {
+              VOEvent.from_xml(File.new('test/voruby/voevent/1.1/voevent.xml')).to_xml
+            }
+          end
+        end
+        
+      end
+    end
+  end
+end