dir = File.dirname("__FILE__")
require 'rubygems'
require 'spec'
require 'treetop'
require 'yaml'

Treetop.load(File.expand_path(dir + '../../lib/biodiversity/parser/scientific_name_clean'))
Treetop.load(File.expand_path(dir + '../../lib/biodiversity/parser/scientific_name_dirty'))

describe ScientificNameDirty do
  before(:all) do
    @parser = ScientificNameDirtyParser.new 
  end
  
  def parse(input)
    @parser.parse(input)
  end
  
  def value(input)
    parse(input).value
  end
  
  def canonical(input)
    parse(input).canonical
  end
  
  def details(input)
    parse(input).details
  end
  
  it 'should parse clean names' do
    parse("Betula verucose (L.) Bar. 1899").should_not be_nil
  end
  
  it 'should parse year with []' do
    parse("Anthoscopus Cabanis [1851]").should_not be_nil
    value("Anthoscopus Cabanis [185?]").should == "Anthoscopus Cabanis (185?)"
    parse("Anthoscopus Cabanis [1851?]").should_not be_nil
    value("Anthoscopus Cabanis [1851]").should == "Anthoscopus Cabanis (1851)"
    value("Anthoscopus Cabanis [1851?]").should == "Anthoscopus Cabanis (1851?)"
    details("Anthoscopus Cabanis [1851?]").should == {:uninomial=>"Anthoscopus", :authors=>{:names=>["Cabanis"], :approximate_year=>"(1851?)"}, :name_part_verbatim=>"Anthoscopus", :auth_part_verbatim=>"Cabanis [1851?]"}
    
    parse("Trismegistia monodii Ando, 1973 [1974]").should_not be_nil
    details("Trismegistia monodii Ando, 1973 [1974]").should == {:genus=>"Trismegistia", :species=>"monodii", :authors=>{:names=>["Ando"], :ambiguous_year=>"1973 [1974]"}, :name_part_verbatim=>"Trismegistia monodii", :auth_part_verbatim=>"Ando, 1973 [1974]"}
    parse("Zygaena witti Wiegel [1973]").should_not be_nil
    parse("Deyeuxia coarctata Kunth, 1815 [1816]").should_not be_nil
  end

  it 'should parse year with page number' do
    val = "Gymnodactylus irregularis WERMUTH 1965: 54"
    parse(val).should_not be_nil
    value(val).should == "Gymnodactylus irregularis WERMUTH 1965"
    details(val).should == {:genus=>"Gymnodactylus", :species=>"irregularis", :authors=>{:names=>["WERMUTH"], :year=>"1965"}, :name_part_verbatim=>"Gymnodactylus irregularis", :auth_part_verbatim=>"WERMUTH 1965: 54"}   
  end
  
  it 'should parse double parenthesis' do
   val = "Meiostemon humbertii ( (H. Perrier) ) Exell & Stace"
    parse(val).should_not be_nil
    value(val).should == "Meiostemon humbertii (H. Perrier) Exell et Stace"
    details(val).should == {:genus=>"Meiostemon", :species=>"humbertii", :orig_authors=>{:names=>["H. Perrier"]}, :authors=>{:names=>["Exell", "Stace"]}, :name_part_verbatim=>"Meiostemon humbertii", :auth_part_verbatim=>"( (H. Perrier) ) Exell & Stace"}
  end  
  
  # Acomys "Geoffroy, I." 1838
  # Verpericola megasoma "Dall" Pils.
  # Auricotes neoclayae "Price, Hellenthal and Palma 2003"
  # Leccinum cinnamomeum var. cinnamomeum "A.H. Sm.
  
  # it 'should parse quote' do
  #   val = 'Acomys "Geoffroy, I." 1838'
  # end

  # it 'should parse author with []' do
  #  # OK parse("Farsetia mutabilis [ R.Br. ]").should_not be_nil
  #  parse("Farsetia mutabilis [R.Br.]").should_not be_nil
  #  # value("Farsetia mutabilis [R.Br.]").should == "Farsetia mutabilis [R.Br.]"
  #  # details("Farsetia mutabilis [R.Br.]").should == {}
  # end
  
  it 'should parse dirty years' do
    parse("Tridentella tangeroae Bruce, 1988B").should_not be_nil
    parse("Tridentella tangeroae Bruce, 1988b").should_not be_nil
    parse("Tridentella tangeroae Bruce, 1988d").should_not be_nil
    parse("Tridentella tangeroae Bruce, 198?").should_not be_nil
  end

  it 'should parse double years' do
    parse("Tridentella tangeroae Bruce, 1987-92").should_not be_nil
  end

end