Project

General

Profile

1 3132 perry
$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
2
require "metacat.rb"
3
require "test/unit"
4
5
class MetacatTest < Test::Unit::TestCase
6
7
  def setup
8
    # This test case is setup for use against the ucsb/msi metacat server
9
    # You need a valid login to run the test case as well as an squery, eml-docid,
10
    # and datatable docid that will all return documents
11
    @username = 'uid=cburt,o=PISCO,dc=ecoinformatics,dc=org'
12
    @password = '7lobster'
13
    @metacat = Metacat.new("http://data.piscoweb.org/catalog/metacat")
14
    #must return at least one eml document
15
    @squery = '<?xml version="1.0"?>
16
                 <pathquery version="1.2">
17
                   <returndoctype>eml://ecoinformatics.org/eml-2.0.1</returndoctype>
18
                   <returndoctype>eml://ecoinformatics.org/eml-2.0.0</returndoctype>
19
                   <returnfield>dataset/title</returnfield>
20
                   <returnfield>dataTable/entityName</returnfield>
21
                   <returnfield>creator/individualName/surName</returnfield>
22
                   <returnfield>creator/organizationName</returnfield>
23
                   <returnfield>dataTable/physical/distribution/online/url</returnfield>
24
                   <querygroup operator="INTERSECT">
25
                     <queryterm casesensitive="false" searchmode="starts-with">
26
                       <value>PISCO:</value>
27
                       <pathexpr>title</pathexpr>
28
                     </queryterm>
29
                     <querygroup operator="INTERSECT">
30
                       <queryterm casesensitive="true" searchmode="equals">
31
                         <value>Subtidal Community Survey Data</value>
32
                         <pathexpr>keywordSet/keyword</pathexpr>
33
                       </queryterm>
34
                       <queryterm casesensitive="true" searchmode="equals">
35
                         <value>PISCO Categories</value>
36
                         <pathexpr>keywordSet/keywordThesaurus</pathexpr>
37
                       </queryterm>
38
                     </querygroup>
39
                   </querygroup>
40
                 </pathquery>'
41
    @data_table_docid = 'HMS001_020ADCP019R00_20060612.40.1'
42
    @eml_docid = 'HMS001_020ADCP019R00_20060612.50.1'
43
    # Not accessable to user Public
44
    @locked_docid = 'chad.1.1'
45
  end
46
47
  def teardown
48
  end
49
50
  # Metacat.new
51
  def test_new
52
    assert_kind_of Metacat, Metacat.new("http://data.piscoweb.org/catalog/metacat")
53
  end
54
55
  def test_initial_login
56
    metacat = Metacat.new("http://data.piscoweb.org/catalog/metacat",
57
    'username' => @username, 'password' => @password)
58
    assert metacat
59
    assert metacat.logged_in?
60
  end
61
62
  def test_login_and_yield
63
    Metacat.new("http://data.piscoweb.org/catalog/metacat",
64
    'username' => @username, 'password' => @password) do |metacat|
65
      assert metacat.logged_in?
66
    end
67
  end
68
69
  # Metacat.find()
70
  def test_error_if_docid_and_squery_set?
71
    assert_raises ArgumentError do
72
      @metacat.find(
73
      :docid => @eml_docid,
74
      :squery => 'bs'
75
      )
76
    end
77
  end
78
79
  def test_nil_if_document_does_not_exist?
80
    assert_nil @metacat.find(:docid => 'bs_docid.80.9')
81
  end
82
83
  def test_permission_denied
84
    assert_raise(MetacatPermissionDenied) { @metacat.find(:docid  =>  @locked_docid) }
85
  end
86
87
  def test_returns_eml?
88
    assert_kind_of Eml,
89
    @metacat.find(:docid => @eml_docid)
90
  end
91
92
  def test_will_not_return_data_table
93
    assert_nil @metacat.find(:docid => @data_table_docid)
94
  end
95
96
  def test_returns_array_of_eml_objects?
97
    results = @metacat.find(:squery => @squery)
98
    assert_kind_of Array, results
99
    assert_kind_of Eml, results[0]
100
  end
101
102
  # Metacat.login/logout
103
  def test_login
104
    assert @metacat.login(@username, @password)
105
    assert @metacat.logged_in?
106
  end
107
108
  def test_logout
109
    assert @metacat.login(@username, @password)
110
    assert @metacat.logout
111
    assert_equal false, @metacat.logged_in?
112
  end
113
114
  def test_failed_login
115
    assert_raise(MetacatPermissionDenied) do
116
      @metacat.login('bleh', @password)
117
    end
118
  end
119
120
  # Metacat.read
121
  def test_read_eml
122
    doc = @metacat.read(@eml_docid)
123
    assert_kind_of(REXML::Document, doc)
124
    assert_equal doc.root.name, 'eml'
125
  end
126
127
  def test_read_xml
128
    # not sure how to search for this yet
129
  end
130
131
  def test_read_data_table
132
    file = File.open('tmp.data_table', 'w+')
133
    @metacat.read(@data_table_docid) do |buffer|
134
      file.write(buffer)
135
    end
136
    file.close
137
    assert_equal(File.size('tmp.data_table'), File.size(File.dirname(__FILE__)+'/example.data_table'))
138
    File.delete('tmp.data_table')
139
  end
140
141
  # Metacat.squery
142
  def test_returns_xml
143
    doc = REXML::Document.new(@metacat.squery(@squery))
144
    assert doc
145
    assert_equal 'resultset', doc.root.name
146
  end
147
148
  # Metacat.insert
149
150
  # Metacat.update
151
152
  # query_string
153
  def test_string_formatting
154
    hash = {
155
      'genus'     =>  'Caranx',
156
      'species'   =>  'melampygus'
157
    }
158
    assert_equal  '?genus=Caranx&species=melampygus', @metacat.send(:query_string, hash)
159
  end
160
end