# File tests/linguawordnet.tests.rb, line 11 def test_00_PerlTests synset = nil synset2 = nil assert_nothing_raised { synset = $lexicon.lookupSynsetsByKey( BaseballOffset ) } assert_instance_of WordNet::Synset, synset words = '' synset.hyponyms.each {|bb_synset| bb_synset.words += ["ballser"] bb_synset.words.each {|word| words += "#{word}, "} } assert_match( /hardball/, words ) words = '' synset2 = $lexicon.lookupSynsets( "travel", WordNet::Verb, 2 ) synset2.words.each {|word| words += "#{word}, "} assert_match( /journey/, words ) assert_equal 4, $lexicon.familiarity( "boy", WordNet::Noun ) assert_equal "blue", $lexicon.morph( "bluest", WordNet::Adjective ) assert_match( /baseball/, "#{synset}" ) end