linguistics 1.0.9 → 2.0.0

data/tests/en/lafcadio.tests.rb

@@ -1,77 +0,0 @@
-#!/usr/bin/ruby -w
-#
-# Unit test for additions donated by Francis Hwang, author of Lafcadio
-# $Id: lafcadio.tests.rb,v 221d313ccdd5 2007/06/13 05:25:38 ged $
-#
-# Converted from ts_english.rb.
-# 
-
-unless defined? Linguistics::TestCase
-	testsdir = File::dirname( File::dirname(File::expand_path( __FILE__ )) )
-	$LOAD_PATH.unshift testsdir unless $LOAD_PATH.include?( testsdir )
-
-	require 'lingtestcase'
-end
-
-### This test case tests ...
-class LafcadioAdditionsTestCase < Linguistics::TestCase
-
-	Linguistics::use( :en )
-	include Linguistics::EN
-
-	CamelCaseStrings = [
-		["productCategory", 	"product category"],
-		["ProductCategory", 	"product category"],
-		["catalogOrder",		"catalog order"],
-		["product",				"product"],
-		["theNameOfAMethod",	"the name of a method"],
-	]
-
-	ProperNouns = {
-		"albania" => "Albania",
-		"bosnia and herzegovina" => "Bosnia and Herzegovina",
-		"faroe islands" => "Faroe Islands",
-		"macedonia, the former yugoslav republic of" =>
-			"Macedonia, the Former Yugoslav Republic of",
-		"virgin islands, u.s." => "Virgin Islands, U.S.",
-	}
-
-	
-
-	#################################################################
-	###	T E S T S
-	#################################################################
-
-	def test_camel_case_to_english_should_transform_to_english
-		printTestHeader "Lafcadio Additions: CamelCase to English"
-		res = nil
-
-		CamelCaseStrings.each do |src, dst|
-			assert_nothing_raised { res = src.en.camel_case_to_english }
-			assert_equal dst, res
-		end
-	end
-
-	### This already worked before the additions, but might as well test 'em
-	### some more.
-	def test_plural
-		assert_equal "product categories", "product category".en.plural
-		assert_equal "products", "product".en.plural
-		assert_equal 'addresses', 'address'.en.plural
-		assert_equal 'taxes', 'tax'.en.plural
-	end
-
-
-	### String#proper_noun
-	def test_proper_noun_should_return_caseified_string
-		printTestHeader "Lafcadio Additions: Proper Nouns"
-
-		ProperNouns.each do |key,expected|
-			input = key.dup # Get around hash keys being frozen
-			debug_msg "Trying %p, expect: %p" % [input, expected]
-			assert_equal expected, input.en.proper_noun
-		end
-	end
-
-end
-

data/tests/en/linkparser.tests.rb

@@ -1,42 +0,0 @@
-#!/usr/bin/ruby -w
-#
-# Unit test for English link grammar
-# $Id: linkparser.tests.rb,v 21e0fa69b1a3 2008/09/06 05:20:07 ged $
-#
-# Copyright (c) 2003-2005 The FaerieMUD Consortium.
-#
-
-unless defined? Linguistics::TestCase
-	testsdir = File::dirname( File::dirname(File::expand_path( __FILE__ )) )
-	$LOAD_PATH.unshift testsdir unless $LOAD_PATH.include?( testsdir )
-
-	require 'lingtestcase'
-end
-
-### This test case tests the English language link grammar extension of
-### Linguistics::EN.
-class LinkParserTestCase < Linguistics::TestCase
-
-	Linguistics::use(:en)
-	include Linguistics::EN
-
-	### Overridden to skip tests if WordNet isn't installed.
-	def run( result )
-		return super if Linguistics::EN::has_link_parser?
-		yield( STARTED, name )
-		result.add_run
-		yield( FINISHED, name )
-	end
-
-
-	def test_sentence_should_return_a_parsed_linkparser_sentence
-		rval = nil
-
-		assert_nothing_raised do
-			rval = "He is a dog.".en.sentence
-		end
-		
-		assert_instance_of LinkParser::Sentence, rval
-	end
-
-end

data/tests/en/lprintf.tests.rb

@@ -1,77 +0,0 @@
-#!/usr/bin/ruby -w
-#
-# Unit test for Linguistics::EN#lprintf
-# $Id: lprintf.tests.rb,v 221d313ccdd5 2007/06/13 05:25:38 ged $
-#
-# Copyright (c) 2006 The FaerieMUD Consortium.
-# 
-
-unless defined?( Linguistics::TestCase )
-	require 'pathname'
-	basedir = Pathname.new( __FILE__ ).dirname.parent.parent.expand_path
-	
-	libdir = basedir + "lib"
-	testsdir = basedir + "tests"
-	$LOAD_PATH.unshift( libdir ) unless $LOAD_PATH.include?( libdir )
-	$LOAD_PATH.unshift( testsdir ) unless $LOAD_PATH.include?( testsdir )
-	
-	require 'lingtestcase'
-end
-
-require 'linguistics/en'
-
-### This test case tests the lprintf method of the Linguistics English module
-class Linguistics::LPrintfTestCase < Linguistics::TestCase
-
-	Items = %w{ruby moose mouse nexus}
-	
-	def initialize( *args )
-		Linguistics::use( :en )
-		super
-	end
-
-	def test_lprintf_with_conjunct_tag_should_conjunctionize_the_corresponding_argument
-		rval = nil
-		
-		assert_nothing_raised do
-			rval = "I have %CONJUNCT in my pocket".en.lprintf( Items )
-		end
-		
-		assert_equal "I have a ruby, a moose, a mouse, and a nexus in my pocket",
-			rval
-	end
-
-	
-	def test_lprintf_with_plural_tag_should_pluralize_the_corresponding_argument
-		rval = nil
-		
-		assert_nothing_raised do
-			rval = "What's with all the %PL?".en.lprintf( "llama" )
-		end
-		
-		assert_equal "What's with all the llamas?", rval
-	end
-
-	
-	def test_lprintf_with_indef_article_tag_should_use_an_for_umbrella
-		rval = nil
-		
-		assert_nothing_raised do
-			rval = "You pick up %A.".en.lprintf( "umbrella" )
-		end
-		
-		assert_equal "You pick up an umbrella.", rval
-	end
-
-	
-	def test_lprintf_with_indef_article_tag_should_use_a_for_flagon_of_mead
-		rval = nil
-		
-		assert_nothing_raised do
-			rval = "You pick up %A.".en.lprintf( "flagon of mead" )
-		end
-		
-		assert_equal "You pick up a flagon of mead.", rval
-	end
-	
-end

data/tests/en/titlecase.tests.rb

@@ -1,73 +0,0 @@
-#!/usr/bin/ruby -w
-#
-# Unit test for English language module's title case method 
-# $Id: titlecase.tests.rb,v 221d313ccdd5 2007/06/13 05:25:38 ged $
-#
-# Copyright (c) 2005 The FaerieMUD Consortium.
-# 
-
-unless defined? Linguistics::TestCase
-	testsdir = File::dirname( File::dirname(File::expand_path( __FILE__ )) )
-	$LOAD_PATH.unshift testsdir unless $LOAD_PATH.include?( testsdir )
-
-	require 'lingtestcase'
-end
-
-### This test case tests the #titlecase method of the english-language extension
-### for the Linguistics library.
-class TitleCaseTestCase < Linguistics::TestCase
-
-	Linguistics::use( :en )
-
-	Titles = File::open(__FILE__).read.split("__END__").last.split("\n")
-
-	def test_nothing
-		debug_msg "Not tested, as the functionality it tests hasn't been released yet."
-	end
-
-	def dont_test_titles
-		printTestHeader "TitleCase: Titles"
-		rval = nil
-
-		debug_msg "Titles = %p" % [Titles]
-
-		Titles.each do |title|
-			next if !/\w/.match( title )
-
-			assert_nothing_raised do
-				rval = title.downcase.en.titlecase
-			end
-
-			assert_instance_of String, rval
-			assert_equal title, rval
-		end
-	end
-
-end
-
-
-__END__
-A Certain Kind of Longing
-A Connecticut Yankee in King Arthur's Court
-A Portrait of the Artist as a Young Man
-Alice in Wonderland
-Catcher in the Rye
-Crime and Punishment
-Death of a Salesman
-Dr. Jekyll and Mr. Hyde
-Gone With the Wind
-Gone but Not Forgotten
-Gulliver's Travels
-Last of the Mohicans
-Lord of the Flies
-Love in the Time of Cholera
-Maggie, A Girl of the Streets
-Notes from the Underground
-Of Mice and Men
-Pride and Prejudice
-The Adventures of Don Quixote
-The Good Earth
-The Heart of Darkness
-The Lord of the Rings
-The Old Man and the Sea
-Mrs. Frisby and the Rats of N.I.M.H.

data/tests/en/wordnet.tests.rb

@@ -1,95 +0,0 @@
-#!/usr/bin/ruby -w
-#
-# Unit test for Linguistics::EN WordNet functions 
-# $Id: wordnet.tests.rb,v 21e0fa69b1a3 2008/09/06 05:20:07 ged $
-#
-# Copyright (c) 2003 The FaerieMUD Consortium.
-# 
-
-unless defined? Linguistics::TestCase
-	testsdir = File::dirname( File::dirname(File::expand_path( __FILE__ )) )
-	$LOAD_PATH.unshift testsdir unless $LOAD_PATH.include?( testsdir )
-
-	require 'lingtestcase'
-end
-
-
-### This test case tests ...
-class EnglishWordnetTestCase < Linguistics::TestCase
-
-	Linguistics::use( :en, :installProxy => true )
-
-	TestObjects = [ "auto", 5, [%w{ash bin}] ]
-
-	### Overridden to skip tests if WordNet isn't installed.
-	def run( result )
-		return super if Linguistics::EN::has_wordnet?
-		yield( STARTED, name )
-		result.add_run
-		yield( FINISHED, name )
-	end
-
-
-	#################################################################
-	###	T E S T S
-	#################################################################
-
-	### Test the wn_lexicon method of the EN module
-	def test_00_Lexicon
-		printTestHeader "English: WordNet: Lexicon"
-
-		assert_respond_to Linguistics::EN, :wn_lexicon
-		assert_nothing_raised {
-			lex = Linguistics::EN::wn_lexicon
-			assert_instance_of WordNet::Lexicon, lex
-		}
-	end
-	
-	### Test synset method
-	def test_05_Synset
-		printTestHeader "English: WordNet: Synsets"
-		rval = nil
-
-		TestObjects.each do |obj|
-			assert_respond_to obj, :en
-			assert_respond_to obj.en, :synset
-
-			assert_nothing_raised { rval = obj.en.synset }
-			assert_instance_of WordNet::Synset, rval,
-				".en.synset for %p" % obj
-		end
-	end
-
-	### Test proxy method
-	def test_06_ProxyMethod
-		printTestHeader "English: WordNet: Proxy method"
-		rval = nil
-
-		TestObjects.each do |obj|
-			assert_nothing_raised { rval = obj.synset }
-			assert_instance_of WordNet::Synset, rval,
-				".synset for %p" % obj
-		end
-
-		self.class.addSetupBlock {
-			@obj = TestObjects[0]
-		}
-		self.class.addTeardownBlock {
-			@obj = nil
-		}
-	end
-
-	### Test #coordinates
-	def test_10_Coordinates
-		printTestHeader "English: WordNet: Coordinate terms"
-		rval = nil
-
-		assert_nothing_raised {
-			rval = @obj.coordinates
-		}
-		assert_instance_of Array, rval
-		assert_instance_of WordNet::Synset, rval.first
-	end
-	
-end
-