Linguistics 1.0.3

data/test.rb

@@ -0,0 +1,110 @@
+#!/usr/bin/ruby
+#
+#	Test suite for Linguistics classes
+#
+#
+
+BEGIN {
+	$basedir = File::dirname( __FILE__ )
+	%w{lib tests redist}.each do |dir|
+		$LOAD_PATH.unshift File::join( $basedir, dir )
+	end
+
+	require "#$basedir/utils"
+	include UtilityFunctions
+}
+
+verboseOff {
+	require 'lingtestcase'
+	require 'find'
+	require 'test/unit'
+	require 'test/unit/testsuite'
+	require 'test/unit/ui/console/testrunner'
+	require 'optparse'
+}
+
+# Turn off output buffering
+$stderr.sync = $stdout.sync = true
+
+# Initialize variables
+safelevel = 0
+patterns = []
+requires = []
+
+# Parse command-line switches
+ARGV.options {|oparser|
+	oparser.banner = "Usage: #$0 [options] [TARGETS]\n"
+
+	oparser.on( "--debug", "-d", TrueClass, "Turn debugging on" ) {
+		$DEBUG = true
+		debugMsg "Turned debugging on."
+	}
+
+	oparser.on( "--verbose", "-v", TrueClass, "Make progress verbose" ) {
+		$VERBOSE = true
+		debugMsg "Turned verbose on."
+	}
+
+	# Handle the 'help' option
+	oparser.on( "--help", "-h", "Display this text." ) {
+		$stderr.puts oparser
+		exit!(0)
+	}
+
+	oparser.parse!
+}
+
+# Parse test patterns
+ARGV.each {|pat| patterns << Regexp::new( pat, Regexp::IGNORECASE )}
+$stderr.puts "#{patterns.length} patterns given on the command line"
+
+### Load all the tests from the tests dir
+Find.find( File::join($basedir,"tests") ) {|file|
+	Find.prune if /\/\./ =~ file or /~$/ =~ file
+	Find.prune if /TEMPLATE/ =~ file
+	next if File.stat( file ).directory?
+
+ 	unless patterns.empty?
+ 		Find.prune unless patterns.find {|pat| pat =~ file}
+ 	end
+
+	debugMsg "Considering '%s': " % file
+	next unless file =~ /\.tests.rb$/
+	debugMsg "Requiring '%s'..." % file
+	require "#{file}"
+	requires << file
+}
+
+$stderr.puts "Required #{requires.length} files."
+unless patterns.empty?
+	$stderr.puts "[" + requires.sort.join( ", " ) + "]"
+end
+
+# Build the test suite
+class LinguisticsTests
+	class << self
+		def suite
+			suite = Test::Unit::TestSuite.new( "Linguistics" )
+
+			if suite.respond_to?( :add )
+				ObjectSpace.each_object( Class ) {|klass|
+					suite.add( klass.suite ) if klass < Linguistics::TestCase
+				}
+			else
+				ObjectSpace.each_object( Class ) {|klass|
+					suite << klass.suite if klass < Linguistics::TestCase
+				}			
+			end
+
+			return suite
+		end
+	end
+end
+
+# Run tests
+$SAFE = safelevel
+Test::Unit::UI::Console::TestRunner.new( LinguisticsTests ).start
+
+
+
+

data/tests/en/conjunction.tests.rb

@@ -0,0 +1,114 @@
+#!/usr/bin/ruby -w
+#
+# Unit test for English conjunctions 
+# $Id: conjunction.tests.rb,v 1.2 2003/09/11 05:03:12 deveiant Exp $
+#
+# 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 suite tests the stage1 (static) parser and the metagrammar it
+### parses in which the actual parser-generator's behaviour is defined.
+class EnglishConjunctionsTestCase < Linguistics::TestCase
+
+	Linguistics::use( :en )
+	include Linguistics::EN
+	
+	Tests = {
+		# Test name		=> {
+		#	target => {
+		#		{<options>} => <expected output>
+		#	},
+		:singleWord => {
+			['cat'] => {
+				{} => %{a cat}
+			},
+		},
+
+		:twoWord => {
+			%w{cat dog} => {
+				{} => 'a cat and a dog',
+				{:conjunctive => 'plus'} => 'a cat plus a dog',
+				{:conjunctive => ''} => 'a cat a dog',
+			},
+			%w{cat Cat} => {
+				{} => %{two cats},
+				{:combine => false} => 'a cat and a Cat',
+				{:casefold => false} => 'a cat and a Cat',
+				{:generalize => true} => 'several cats',
+			},
+		},
+
+		:manyWord => {
+			%w{cat dog fox dog chicken chicken Fox chicken goose Dog goose} => {
+				{} => 'three dogs, three chickens, two foxes, two geese, and a cat',
+				{:combine => false} => 
+					'a cat, a dog, a fox, a dog, a chicken, a chicken, a Fox, a '\
+					'chicken, a goose, a Dog, and a goose',
+				{:casefold => false} => 
+					'three chickens, two dogs, two geese, a cat, a fox, a Fox, '\
+					'and a Dog',
+				{:generalize => true} => 
+					'several dogs, several chickens, several foxes, several '\
+					'geese, and a cat',
+			}
+		},
+	}
+
+	# Auto-generate tests for the dataset
+	Tests.each_with_index {|test,i|
+		name = test[0]
+		methname = "test_%03d_%s" %
+			[ i + 50, name ]
+		define_method( methname ) {
+			printTestHeader "Conjunction: #{name}"
+			Tests[name].each {|target, tests|
+				rval = nil
+				tests.each {|opts, output|
+					op = "conjunction of %s with options=%s" %
+						[ target.inspect, opts.inspect ]
+
+					# Method interface
+					assert_nothing_raised( op ) {
+						rval = target.en.conjunction( opts )
+					}
+					assert_equal output, rval, op
+
+					# Function interface
+					assert_nothing_raised( op ) {
+						rval = conjunction( target, opts )
+					}
+					assert_equal output, rval, op
+				}
+			}
+		}
+	}
+	
+	### Overridden initializer: auto-generated test methods have an arity of 1
+	### even though they don't require an argument (as of the current Ruby CVS),
+	### and the default initializer throws an :invalid_test for methods with
+	### arity != 0.
+	def initialize( test_method_name )
+        if !respond_to?( test_method_name )
+			throw :invalid_test
+        end
+        @method_name = test_method_name
+        @test_passed = true
+	end
+
+
+	#################################################################
+	###	T E S T S
+	#################################################################
+
+
+
+end
+