odin 0.0.4

data/test/fixtures/art.txt

@@ -0,0 +1,7 @@
+All of the great ancient civilizations, such as Ancient Egypt, India, China, Greece, Rome or Arabia had works and styles of art. In the Middle Ages, most of the art in Europe showed Biblical stories in paintings, stained glass windows, and mosaic tile floors and walls.
+
+Islamic art includes geometric patterns, Islamic calligraphy, and architecture. In India and Tibet, painted sculptures, dance, and religious painting were done. In China, arts included jade carving, bronzework, pottery, poetry, calligraphy, music, painting, drama, and fiction. There are many Chinese artistic styles, which are usually named after the ruling dynasty.
+
+In Europe, after the Middle Ages, (which some people call the Mediaeval Period or the "Dark Ages") there was a "Renaissance" which means "rebirth". People rediscovered science and artists were allowed to paint subjects other than religious subjects. People like Michelangelo and Leonardo da Vinci still painted religious pictures, but they also now could paint mythological pictures too. These artists also invented linear perspective where things in the distance look smaller than things close up in the picture. This was new because in the Middle Ages people would paint all the figures close up and just overlapping each other.
+
+In the late 1800s, artists in Europe, responding to Modernity created many new painting styles such as Classicism, Romanticism, Realism, and Impressionism. The history of twentieth century art includes Expressionism, Fauvism, Cubism, Dadaism, and Surrealism, and Minimalism.

data/test/fixtures/both.txt

@@ -0,0 +1 @@
+I love.  She loves you.  She loves apples.  I love the girl.  I love ripe apples.  I love the pretty girl.  I love the pretty, sweet girl.  Man loves.  Man loves apples.  Man loves the apples.  Man loves sweet apples.  Man loves the sweet apples.  Man loves the sweet, pretty apples.  The man loves.  The man loves apples.  The man loves the apples.  The man loves sweet apples.  The man loves the sweet apples.  The man loves the sweet, pretty apples.  The woman in house loves you.  The woman in pretty house loves you.  The woman in the house loves you.  The woman in the pretty house loves you.  Old men love.  Old men love apples.  Old men love the apples.  Old men love sweet apples.  Old men love the sweet apples.  Old men love the sweet, pretty apples.  The old man loves.  The old man loves apples.  The old man loves the apples.  The old man loves sweet apples.  The old man loves the sweet apples.  The old man loves the sweet, pretty apples.  The old, old man loves.  The old, old man loves apples.  The old, old man loves the apples.  The old, old man loves sweet apples.  The old, old man loves the sweet apples.  The old, old man loves the sweet, pretty apples.  She loves you.  Men love you.  The man loves you.  Sweet men love you.  The sweet man loves you.  The sweet, handsome man loves you.  I.  The.  The apple.  The sweet apple.  In.  In the.  In the house.  Man in.  Man in the.  Man in the house.  Man in the walk.  Loves.  Loves you.  Loves apples.  Loves the.  Loves the apples.  Loves sweet apples.  Loves the sweet.  Loves the sweet apples.  The the man loves you.  The the man loves apples.  The the man loves the apples.  The the man loves sweet apples.  The the man loves the sweet apples.  Man the loves apples.  The man the loves apples.  The man the apples.  Handsome loves.

data/test/fixtures/grammar_checker.css

@@ -0,0 +1,4 @@
+.ungrammatical
+{
+  border-bottom: 2px dotted green;
+}

data/test/fixtures/grammatical.txt

@@ -0,0 +1 @@
+I love.  She loves you.  She loves apples.  I love the girl.  I love ripe apples.  I love the pretty girl.  I love the pretty, sweet girl.  Man loves.  Man loves apples.  Man loves the apples.  Man loves sweet apples.  Man loves the sweet apples.  Man loves the sweet, pretty apples.  The man loves.  The man loves apples.  The man loves the apples.  The man loves sweet apples.  The man loves the sweet apples.  The man loves the sweet, pretty apples.  The woman in house loves you.  The woman in pretty house loves you.  The woman in the house loves you.  The woman in the pretty house loves you.  Old men love.  Old men love apples.  Old men love the apples.  Old men love sweet apples.  Old men love the sweet apples.  Old men love the sweet, pretty apples.  The old man loves.  The old man loves apples.  The old man loves the apples.  The old man loves sweet apples.  The old man loves the sweet apples.  The old man loves the sweet, pretty apples.  The old, old man loves.  The old, old man loves apples.  The old, old man loves the apples.  The old, old man loves sweet apples.  The old, old man loves the sweet apples.  The old, old man loves the sweet, pretty apples.  She loves you.  Men love you.  The man loves you.  Sweet men love you.  The sweet man loves you.  The sweet, handsome man loves you.

data/test/fixtures/ungrammatical.txt

@@ -0,0 +1 @@
+I.  The.  The apple.  The sweet apple.  In.  In the.  In the house.  Man in.  Man in the.  Man in the house.  Man in the walk.  Loves.  Loves you.  Loves apples.  Loves the.  Loves the apples.  Loves sweet apples.  Loves the sweet.  Loves the sweet apples.  The the man loves you.  The the man loves apples.  The the man loves the apples.  The the man loves sweet apples.  The the man loves the sweet apples.  Man the loves apples.  The man the loves apples.  The man the apples.  Handsome loves.

data/test/functional/grammar_checker_test.rb

@@ -0,0 +1,64 @@
+require File.dirname(__FILE__)/'..'/'test_helper'
+require File.dirname(__FILE__)/'..'/'..'/'app'/'controllers'/'grammar_checker.rb'
+require "find"
+
+class GrammarCheckerTest < Test::Unit::TestCase
+  def teardown
+    Find.find(@@FixturesDirectory) do |file_name|
+      if file_name.match(/.*\.#{GrammarChecker.suffix}$/) and not file_name.match(/existing/)
+        File.delete(file_name)
+      end
+    end
+  end
+  
+  def test_fail_when_given_no_file
+    assert_raise(ArgumentError) do
+      GrammarChecker.check(nil)
+    end
+  end
+  
+  def test_fail_when_given_nonexistent_file
+    assert_raise(Errno::ENOENT) do
+      GrammarChecker.check("nonexistent_file.txt")
+    end
+  end
+  
+  def test_fail_when_given_existing_out_file
+    assert_raise(Errno::EEXIST) do
+      GrammarChecker.check(@@FixturesDirectory/"existing.txt")
+    end
+  end
+  
+  def test_fail_when_given_directory
+    assert_raise(Errno::EISDIR) do
+      GrammarChecker.check(@@FixturesDirectory)
+    end
+  end
+  
+  # Regression test: the output of GrammarChecker used to differ from the output of the unit tests
+  # when used from the command line because word.rb wasn't imported before string.rb
+  def test_no_ungrammatical_when_checking_grammatical
+    file_name = @@FixturesDirectory/"grammatical.txt"
+    GrammarChecker.check(file_name)
+    
+    File.open("#{file_name}.#{GrammarChecker.suffix}") do |file|
+      while line = file.gets
+        assert(!contains_ungrammatical?(line))
+      end
+    end
+  end
+  
+  def test_ungrammatical_when_checking_ungrammatical
+    # TODO
+    # Would have to check each sentence
+  end
+  
+  private
+    def contains_ungrammatical?(string)
+      if string.match(/<[a-z="]*?ungrammatical[a-z="]*?>/)
+        return true
+      else
+        return false
+      end
+    end
+end

data/test/integration/en/word_and_noun_inflector_test.rb

@@ -0,0 +1,29 @@
+require File.dirname(__FILE__)/'..'/'..'/'test_helper'
+
+class WordAndNounInflectorTest < Test::Unit::TestCase
+  include NounInflectorTestCases
+  
+  PluralToSingular.each do |plural, singular|
+    define_method "test_#{plural}_plural" do
+      assert(Word.new(plural).plural?)
+    end
+  end
+  
+  SingularToPlural.each do |singular, plural|
+    define_method "test_#{singular}_singular" do
+      assert(Word.new(singular).singular?)
+    end
+  end
+  
+  # PluralToSingular.each do |plural, singular|
+  #   define_method "test_#{singular}_not_plural" do
+  #     assert(!Word.new(singular).plural?)
+  #   end
+  # end
+  # 
+  # PluralToSingular.each do |plural, singular|
+  #   define_method "test_#{plural}_not_singular" do
+  #     assert(!Word.new(plural).singular?)
+  #   end
+  # end
+end

data/test/test_helper.rb

@@ -0,0 +1,82 @@
+class Test::Unit::TestCase
+  # Add helper methods to be used by all tests here...
+  @@FixturesDirectory = File.dirname(__FILE__) + '/fixtures'
+end
+
+module Test::Unit::Assertions
+  # Add assertions to be used by all tests here...
+  
+  # The built in assert_raise doesn't work for subclasses, etc. That is, if I have
+  # UngrammaticalException and FragmentException < UngrammaticalException assert_raise
+  # UngrammaticalException will fail if the method throws FragmentException. It will only pass for
+  # UngrammaticalException.
+  #
+  # This code is basically the same as the original assert_raise (which, in my opinion, should make
+  # the above work). _expected_exception? just needed to be modified. I'm tempted to just change that
+  # method itself, but I don't want clients of these modifications to have unexpected behavior.
+  #
+  #
+  # Original:
+  #
+  # File test/unit/assertions.rb, line 111
+  # def assert_raise(*args)
+  #   _wrap_assertion do
+  #     if Module === args.last
+  #       message = ""
+  #     else
+  #       message = args.pop
+  #     end
+  #     exceptions, modules = _check_exception_class(args)
+  #     expected = args.size == 1 ? args.first : args
+  #     actual_exception = nil
+  #     full_message = build_message(message, "<?> exception expected but none was thrown.", expected)
+  #     assert_block(full_message) do
+  #       begin
+  #         yield
+  #       rescue Exception => actual_exception
+  #         break
+  #       end
+  #       false
+  #     end
+  #     full_message = build_message(message, "<?> exception expected but was\n?", expected, actual_exception)
+  #     assert_block(full_message) {_expected_exception?(actual_exception, exceptions, modules)}
+  #     actual_exception
+  #   end
+  # end
+  def assert_raise_kind_of(*args)
+    _wrap_assertion do
+      if Module === args.last
+        message = ""
+      else
+        message = args.pop
+      end
+      exceptions, modules = _check_exception_class(args)
+      expected = args.size == 1 ? args.first : args
+      actual_exception = nil
+      full_message = build_message(message, "<?> exception expected but none was thrown.", expected)
+      assert_block(full_message) do
+        begin
+          yield
+        rescue Exception => actual_exception
+          break
+        end
+        false
+      end
+      full_message = build_message(message, "<?> exception expected but was\n?", expected, actual_exception)
+      assert_block(full_message) {_expected_kind_of_exception?(actual_exception, exceptions, modules)}
+      actual_exception
+    end
+  end
+  
+  # Original:
+  #
+  # # File test/unit/assertions.rb, line 97
+  # def _expected_exception?(actual_exception, exceptions, modules) # :nodoc:
+  #   exceptions.include?(actual_exception.class) or
+  #     modules.any? {|mod| actual_exception.is_a?(mod)}
+  # end
+  def _expected_kind_of_exception?(actual_exception, exceptions, modules) # :nodoc:
+    exceptions.any? {|exception| actual_exception.kind_of?(exception)} or
+      modules.any? {|mod| actual_exception.is_a?(mod)}
+  end
+end

data/test/unit/atn_test.rb

@@ -0,0 +1,240 @@
+require File.dirname(__FILE__)/'..'/'test_helper'
+
+class ATNTest < Test::Unit::TestCase
+  def setup
+    @atn = ATN.new
+    @grammatical_sentences = []
+    
+    # TODO move this to an English specific test file?
+    # Sentences named according to structure
+    #
+    # Key:
+    # 
+    # a: adjective
+    # d: determiner
+    # n: noun
+    # P: preposition
+    # p: pronoun
+    # v: verb
+    #
+    @grammatical_sentences << @pv = "I love."
+    @grammatical_sentences << @pvp = "She loves you."
+    @grammatical_sentences << @pvn = "She loves apples."
+    @grammatical_sentences << @pvdn = "I love the girl."
+    @grammatical_sentences << @pvan = "I love ripe apples."
+    @grammatical_sentences << @pvdan = "I love the pretty girl."
+    @grammatical_sentences << @pvdaan = "I love the pretty, sweet girl."
+    
+    @grammatical_sentences << @nv = "Man loves."
+    @grammatical_sentences << @nvn = "Man loves apples."
+    @grammatical_sentences << @nvdn = "Man loves the apples."
+    @grammatical_sentences << @nvan = "Man loves sweet apples."
+    @grammatical_sentences << @nvdan = "Man loves the sweet apples."
+    @grammatical_sentences << @nvdaan = "Man loves the sweet, pretty apples."
+    
+    @grammatical_sentences << @dnv = "The man loves."
+    @grammatical_sentences << @dnvn = "The man loves apples."
+    @grammatical_sentences << @dnvdn = "The man loves the apples."
+    @grammatical_sentences << @dnvan = "The man loves sweet apples."
+    @grammatical_sentences << @dnvdan = "The man loves the sweet apples."
+    @grammatical_sentences << @dnvdaan = "The man loves the sweet, pretty apples."
+    
+    @grammatical_sentences << @dnPnvp = "The woman in house loves you."
+    @grammatical_sentences << @dnPanvp = "The woman in pretty house loves you."
+    @grammatical_sentences << @dnPdnvp = "The woman in the house loves you."
+    @grammatical_sentences << @dnPdanvp = "The woman in the pretty house loves you."
+    
+    @grammatical_sentences << @anv = "Old men love."
+    @grammatical_sentences << @anvn = "Old men love apples."
+    @grammatical_sentences << @anvdn = "Old men love the apples."
+    @grammatical_sentences << @anvan = "Old men love sweet apples."
+    @grammatical_sentences << @anvdan = "Old men love the sweet apples."
+    @grammatical_sentences << @anvdaan = "Old men love the sweet, pretty apples."
+    
+    @grammatical_sentences << @danv = "The old man loves."
+    @grammatical_sentences << @danvn = "The old man loves apples."
+    @grammatical_sentences << @danvdn = "The old man loves the apples."
+    @grammatical_sentences << @danvan = "The old man loves sweet apples."
+    @grammatical_sentences << @danvdan = "The old man loves the sweet apples."
+    @grammatical_sentences << @danvdaan = "The old man loves the sweet, pretty apples."
+    
+    @grammatical_sentences << @daanv = "The old, old man loves."
+    @grammatical_sentences << @daanvn = "The old, old man loves apples."
+    @grammatical_sentences << @daanvdn = "The old, old man loves the apples."
+    @grammatical_sentences << @daanvan = "The old, old man loves sweet apples."
+    @grammatical_sentences << @daanvdan = "The old, old man loves the sweet apples."
+    @grammatical_sentences << @daanvdaan = "The old, old man loves the sweet, pretty apples."  
+    
+    @grammatical_sentences << @pvp = "She loves you."
+    @grammatical_sentences << @nvp = "Men love you."
+    @grammatical_sentences << @dnvp = "The man loves you."
+    @grammatical_sentences << @anvp = "Sweet men love you."
+    @grammatical_sentences << @danvp = "The sweet man loves you."
+    @grammatical_sentences << @daanvp = "The sweet, handsome man loves you."
+    
+    @word = /'[a-z]+'/i
+  end
+  
+  def test_grammatical_pv__parse
+    # TODO switch to match?
+    # assert_match(/S\(NP\(N\(#{@word}\)\)VP\(V\(#{@word}\)\)\)/i, @atn.parse(@pv))
+    # /S<NP<N<#{@word}>VP<V<#{@word}>>>/i would be easier
+    assert_equal("S(NP(N('I'))VP(V('love')))", @atn.parse(@pv))
+    assert_equal("S(NP(N('She'))VP(V('loves')NP(N('you'))))", @atn.parse(@pvp))
+    assert_equal("S(NP(N('She'))VP(V('loves')NP(N('apples'))))", @atn.parse(@pvn))
+    assert_equal("S(NP(N('I'))VP(V('love')NP(D('the')N('girl'))))", @atn.parse(@pvdn))
+    assert_equal("S(NP(N('I'))VP(V('love')NP(A('ripe')N('apples'))))", @atn.parse(@pvan))
+    assert_equal("S(NP(N('I'))VP(V('love')NP(D('the')A('pretty')N('girl'))))", @atn.parse(@pvdan))
+    assert_equal("S(NP(N('I'))VP(V('love')NP(D('the')A('pretty')A('sweet')N('girl'))))", @atn.parse(@pvdaan))
+  end
+  
+  def test_grammatical_nv__parse
+    assert_equal("S(NP(N('Man'))VP(V('loves')))", @atn.parse(@nv))
+    assert_equal("S(NP(N('Man'))VP(V('loves')NP(N('apples'))))", @atn.parse(@nvn))
+    assert_equal("S(NP(N('Man'))VP(V('loves')NP(D('the')N('apples'))))", @atn.parse(@nvdn))
+    assert_equal("S(NP(N('Man'))VP(V('loves')NP(A('sweet')N('apples'))))", @atn.parse(@nvan))
+    assert_equal("S(NP(N('Man'))VP(V('loves')NP(D('the')A('sweet')N('apples'))))", @atn.parse(@nvdan))
+    assert_equal("S(NP(N('Man'))VP(V('loves')NP(D('the')A('sweet')A('pretty')N('apples'))))", @atn.parse(@nvdaan))
+  end
+  
+  def test_grammatical_dnv__parse
+    assert_equal("S(NP(D('The')N('man'))VP(V('loves')))", @atn.parse(@dnv))
+    assert_equal("S(NP(D('The')N('man'))VP(V('loves')NP(N('apples'))))", @atn.parse(@dnvn))
+    assert_equal("S(NP(D('The')N('man'))VP(V('loves')NP(D('the')N('apples'))))", @atn.parse(@dnvdn))
+    assert_equal("S(NP(D('The')N('man'))VP(V('loves')NP(A('sweet')N('apples'))))", @atn.parse(@dnvan))
+    assert_equal("S(NP(D('The')N('man'))VP(V('loves')NP(D('the')A('sweet')N('apples'))))", @atn.parse(@dnvdan))
+    assert_equal("S(NP(D('The')N('man'))VP(V('loves')NP(D('the')A('sweet')A('pretty')N('apples'))))", @atn.parse(@dnvdaan))
+  end
+  
+  def test_grammatical_anv__parse
+    assert_equal("S(NP(A('Old')N('men'))VP(V('love')))", @atn.parse(@anv))
+    assert_equal("S(NP(A('Old')N('men'))VP(V('love')NP(N('apples'))))", @atn.parse(@anvn))
+    assert_equal("S(NP(A('Old')N('men'))VP(V('love')NP(D('the')N('apples'))))", @atn.parse(@anvdn))
+    assert_equal("S(NP(A('Old')N('men'))VP(V('love')NP(A('sweet')N('apples'))))", @atn.parse(@anvan))
+    assert_equal("S(NP(A('Old')N('men'))VP(V('love')NP(D('the')A('sweet')N('apples'))))", @atn.parse(@anvdan))
+    assert_equal("S(NP(A('Old')N('men'))VP(V('love')NP(D('the')A('sweet')A('pretty')N('apples'))))", @atn.parse(@anvdaan))
+  end
+    
+  def test_grammatical_danv__parse
+    assert_equal("S(NP(D('The')A('old')N('man'))VP(V('loves')))", @atn.parse(@danv))
+    assert_equal("S(NP(D('The')A('old')N('man'))VP(V('loves')NP(N('apples'))))", @atn.parse(@danvn))
+    assert_equal("S(NP(D('The')A('old')N('man'))VP(V('loves')NP(D('the')N('apples'))))", @atn.parse(@danvdn))
+    assert_equal("S(NP(D('The')A('old')N('man'))VP(V('loves')NP(A('sweet')N('apples'))))", @atn.parse(@danvan))
+    assert_equal("S(NP(D('The')A('old')N('man'))VP(V('loves')NP(D('the')A('sweet')N('apples'))))", @atn.parse(@danvdan))
+    assert_equal("S(NP(D('The')A('old')N('man'))VP(V('loves')NP(D('the')A('sweet')A('pretty')N('apples'))))", @atn.parse(@danvdaan))
+  end
+    
+  def test_grammatical_daanv__parse
+    assert_equal("S(NP(D('The')A('old')A('old')N('man'))VP(V('loves')))", @atn.parse(@daanv))
+    assert_equal("S(NP(D('The')A('old')A('old')N('man'))VP(V('loves')NP(N('apples'))))", @atn.parse(@daanvn))
+    assert_equal("S(NP(D('The')A('old')A('old')N('man'))VP(V('loves')NP(D('the')N('apples'))))", @atn.parse(@daanvdn))
+    assert_equal("S(NP(D('The')A('old')A('old')N('man'))VP(V('loves')NP(A('sweet')N('apples'))))", @atn.parse(@daanvan))
+    assert_equal("S(NP(D('The')A('old')A('old')N('man'))VP(V('loves')NP(D('the')A('sweet')N('apples'))))", @atn.parse(@daanvdan))
+    assert_equal("S(NP(D('The')A('old')A('old')N('man'))VP(V('loves')NP(D('the')A('sweet')A('pretty')N('apples'))))", @atn.parse(@daanvdaan))
+  end
+  
+  def test_grammatical__vp_parse
+    assert_equal("S(NP(N('She'))VP(V('loves')NP(N('you'))))", @atn.parse(@pvp))
+    assert_equal("S(NP(N('Men'))VP(V('love')NP(N('you'))))", @atn.parse(@nvp))
+    assert_equal("S(NP(D('The')N('man'))VP(V('loves')NP(N('you'))))", @atn.parse(@dnvp))
+    assert_equal("S(NP(A('Sweet')N('men'))VP(V('love')NP(N('you'))))", @atn.parse(@anvp))
+    assert_equal("S(NP(D('The')A('sweet')N('man'))VP(V('loves')NP(N('you'))))", @atn.parse(@danvp))
+    assert_equal("S(NP(D('The')A('sweet')A('handsome')N('man'))VP(V('loves')NP(N('you'))))", @atn.parse(@daanvp))
+  end
+  
+  def test_grammatical__P__phrase
+    assert_equal("S(NP(D('The')N('woman')PP(P('in')NP(N('house'))))VP(V('loves')NP(N('you'))))", @atn.parse(@dnPnvp))
+    assert_equal("S(NP(D('The')N('woman')PP(P('in')NP(A('pretty')N('house'))))VP(V('loves')NP(N('you'))))", @atn.parse(@dnPanvp))
+    assert_equal("S(NP(D('The')N('woman')PP(P('in')NP(D('the')N('house'))))VP(V('loves')NP(N('you'))))", @atn.parse(@dnPdnvp))
+    assert_equal("S(NP(D('The')N('woman')PP(P('in')NP(D('the')A('pretty')N('house'))))VP(V('loves')NP(N('you'))))", @atn.parse(@dnPdanvp))
+  end
+  
+  def test_words_match
+    # There were some issues with this before, when using instance variables
+    # No good reason to remove the test now that it's here.
+    @grammatical_sentences.each do |sentence|
+      assert_equal(sentence.words.collect { |i| "'#{i}'"}, @atn.parse(sentence).matches_for(/'[a-z]+'/i))
+    end
+  end
+  
+  def test_ungrammatical_identified
+    ungrammatical_sentences = []
+    
+    ungrammatical_sentences << p = "I."
+    ungrammatical_sentences << d = "The."
+    ungrammatical_sentences << dn = "The apple."
+    ungrammatical_sentences << dan = "The sweet apple."
+    
+    # Underscore because initial P would be a constant
+    # TODO
+    ungrammatical_sentences << _P = "In."
+    ungrammatical_sentences << _Pd = "In the."
+    ungrammatical_sentences << _Pdn = "In the house."
+    
+    ungrammatical_sentences << nP = "Man in."
+    ungrammatical_sentences << nPd = "Man in the."
+    ungrammatical_sentences << nPdn = "Man in the house."
+    
+    ungrammatical_sentences << nPdv = "Man in the walk."
+    
+    ungrammatical_sentences << v = "Loves."
+    ungrammatical_sentences << vp = "Loves you."
+    ungrammatical_sentences << vn = "Loves apples."
+    ungrammatical_sentences << vd = "Loves the."
+    ungrammatical_sentences << vdn = "Loves the apples."
+    ungrammatical_sentences << van = "Loves sweet apples."
+    ungrammatical_sentences << vda = "Loves the sweet."
+    ungrammatical_sentences << vdan = "Loves the sweet apples."
+    
+    # Nearly grammatical
+    
+    ungrammatical_sentences << ddnvp = "The the man loves you."
+    ungrammatical_sentences << ddnvn = "The the man loves apples."
+    ungrammatical_sentences << ddnvdn = "The the man loves the apples."
+    ungrammatical_sentences << ddnvan = "The the man loves sweet apples."
+    ungrammatical_sentences << ddnvdan = "The the man loves the sweet apples."
+    
+    ungrammatical_sentences << ndvn = "Man the loves apples."
+    ungrammatical_sentences << dndvn = "The man the loves apples."
+    ungrammatical_sentences << dndn = "The man the apples."
+    
+    ungrammatical_sentences << av = "Handsome loves."
+    
+    ungrammatical_sentences.each do |sentence|
+      assert_raise_kind_of(UngrammaticalException) do
+        @atn.parse(sentence)
+      end
+    end
+    
+    ungrammatical_sentences.each do |sentence|
+      assert(!sentence.grammatical?)
+    end
+  end
+  
+  def test_grammatical_identified
+    @grammatical_sentences.each do |sentence|
+      assert_nothing_raised(UngrammaticalException) do
+        @atn.parse(sentence)
+      end
+    end
+    
+    @grammatical_sentences.each do |sentence|
+      assert(sentence.grammatical?)
+    end
+  end
+  
+  def test_corpus_grammatical
+    corpus = @grammatical_sentences.join("  ")
+    sentences = corpus.sentences
+    
+    sentences.each do |sentence|
+      assert_nothing_raised(UngrammaticalException) do
+        @atn.parse(sentence)
+      end
+    end
+    
+    sentences.each do |sentence|
+      assert(sentence.grammatical?)
+    end
+  end
+end

data/test/unit/noun_inflector_test.rb

@@ -0,0 +1,249 @@
+require File.dirname(__FILE__)/'..'/'test_helper'
+# require File.dirname(__FILE__) + '/abstract_unit'
+require File.dirname(__FILE__)/'..'/'..'/'lang'/'en'/'noun_inflector_test_cases.rb' # TODO no "en"
+
+module Ace
+  module Base
+    class Case
+    end
+  end
+end
+
+class NounInflectorTest < Test::Unit::TestCase
+  include NounInflectorTestCases
+
+  def test_pluralize_plurals
+    assert_equal "plurals", NounInflector.pluralize("plurals")
+    assert_equal "Plurals", NounInflector.pluralize("Plurals")
+  end
+
+  def test_pluralize_empty_string
+    assert_equal "", NounInflector.pluralize("")
+  end
+
+  SingularToPlural.each do |singular, plural|
+    define_method "test_pluralize_#{singular}" do
+      assert_equal(plural, NounInflector.pluralize(singular))
+      assert_equal(plural.capitalize, NounInflector.pluralize(singular.capitalize))
+    end
+  end
+
+  SingularToPlural.each do |singular, plural|
+    define_method "test_singularize_#{plural}" do
+      assert_equal(singular, NounInflector.singularize(plural))
+      assert_equal(singular.capitalize, NounInflector.singularize(plural.capitalize))
+    end
+  end
+
+  MixtureToTitleCase.each do |before, titleized|
+    define_method "test_titleize_#{before}" do
+      assert_equal(titleized, NounInflector.titleize(before))
+    end
+  end
+
+  def test_camelize
+    CamelToUnderscore.each do |camel, underscore|
+      assert_equal(camel, NounInflector.camelize(underscore))
+    end
+  end
+
+  def test_underscore
+    CamelToUnderscore.each do |camel, underscore|
+      assert_equal(underscore, NounInflector.underscore(camel))
+    end
+    CamelToUnderscoreWithoutReverse.each do |camel, underscore|
+      assert_equal(underscore, NounInflector.underscore(camel))
+    end
+  end
+
+  def test_camelize_with_module
+    CamelWithModuleToUnderscoreWithSlash.each do |camel, underscore|
+      assert_equal(camel, NounInflector.camelize(underscore))
+    end
+  end
+
+  def test_underscore_with_slashes
+    CamelWithModuleToUnderscoreWithSlash.each do |camel, underscore|
+      assert_equal(underscore, NounInflector.underscore(camel))
+    end
+  end
+
+  def test_demodulize
+    assert_equal "Account", NounInflector.demodulize("MyApplication::Billing::Account")
+  end
+
+  def test_foreign_key
+    ClassNameToForeignKeyWithUnderscore.each do |klass, foreign_key|
+      assert_equal(foreign_key, NounInflector.foreign_key(klass))
+    end
+
+    ClassNameToForeignKeyWithoutUnderscore.each do |klass, foreign_key|
+      assert_equal(foreign_key, NounInflector.foreign_key(klass, false))
+    end
+  end
+
+  def test_tableize
+    ClassNameToTableName.each do |class_name, table_name|
+      assert_equal(table_name, NounInflector.tableize(class_name))
+    end
+  end
+
+  def test_classify
+    ClassNameToTableName.each do |class_name, table_name|
+      assert_equal(class_name, NounInflector.classify(table_name))
+      assert_equal(class_name, NounInflector.classify("table_prefix." + table_name))
+    end
+  end
+
+  def test_classify_with_symbol
+    assert_nothing_raised do
+      assert_equal 'FooBar', NounInflector.classify(:foo_bars)
+    end
+  end
+
+  def test_classify_with_leading_schema_name
+    assert_equal 'FooBar', NounInflector.classify('schema.foo_bar')
+  end
+
+  def test_humanize
+    UnderscoreToHuman.each do |underscore, human|
+      assert_equal(human, NounInflector.humanize(underscore))
+    end
+  end
+
+  def test_constantize
+    assert_nothing_raised { assert_equal Ace::Base::Case, NounInflector.constantize("Ace::Base::Case") }
+    assert_nothing_raised { assert_equal Ace::Base::Case, NounInflector.constantize("::Ace::Base::Case") }
+    assert_nothing_raised { assert_equal NounInflectorTest, NounInflector.constantize("NounInflectorTest") }
+    assert_nothing_raised { assert_equal NounInflectorTest, NounInflector.constantize("::NounInflectorTest") }
+    assert_raises(NameError) { NounInflector.constantize("UnknownClass") }
+    assert_raises(NameError) { NounInflector.constantize("An invalid string") }
+    assert_raises(NameError) { NounInflector.constantize("InvalidClass\n") }
+  end
+
+  if RUBY_VERSION < '1.9.0'
+    def test_constantize_does_lexical_lookup
+      assert_raises(NameError) { NounInflector.constantize("Ace::Base::NounInflectorTest") }
+    end
+  else
+    def test_constantize_does_dynamic_lookup
+      assert_equal self.class, NounInflector.constantize("Ace::Base::NounInflectorTest")
+    end
+  end
+
+  def test_ordinal
+    OrdinalNumbers.each do |number, ordinalized|
+      assert_equal(ordinalized, NounInflector.ordinalize(number))
+    end
+  end
+
+  def test_dasherize
+    UnderscoresToDashes.each do |underscored, dasherized|
+      assert_equal(dasherized, NounInflector.dasherize(underscored))
+    end
+  end
+
+  def test_underscore_as_reverse_of_dasherize
+    UnderscoresToDashes.each do |underscored, dasherized|
+      assert_equal(underscored, NounInflector.underscore(NounInflector.dasherize(underscored)))
+    end
+  end
+
+  def test_underscore_to_lower_camel
+    UnderscoreToLowerCamel.each do |underscored, lower_camel|
+      assert_equal(lower_camel, NounInflector.camelize(underscored, false))
+    end
+  end
+  
+  %w{plurals singulars uncountables}.each do |inflection_type|
+    class_eval "
+      def test_clear_#{inflection_type}
+        cached_values = NounInflector.inflections.#{inflection_type}
+        NounInflector.inflections.clear :#{inflection_type}
+        assert NounInflector.inflections.#{inflection_type}.empty?, \"#{inflection_type} inflections should be empty after clear :#{inflection_type}\"
+        NounInflector.inflections.instance_variable_set :@#{inflection_type}, cached_values
+      end
+    "
+  end
+  
+  def test_clear_all
+    cached_values = NounInflector.inflections.plurals, NounInflector.inflections.singulars, NounInflector.inflections.uncountables
+    NounInflector.inflections.clear :all
+    assert NounInflector.inflections.plurals.empty?
+    assert NounInflector.inflections.singulars.empty?
+    assert NounInflector.inflections.uncountables.empty?
+    NounInflector.inflections.instance_variable_set :@plurals, cached_values[0]
+    NounInflector.inflections.instance_variable_set :@singulars, cached_values[1]
+    NounInflector.inflections.instance_variable_set :@uncountables, cached_values[2]
+  end
+  
+  def test_clear_with_default
+    cached_values = NounInflector.inflections.plurals, NounInflector.inflections.singulars, NounInflector.inflections.uncountables
+    NounInflector.inflections.clear
+    assert NounInflector.inflections.plurals.empty?
+    assert NounInflector.inflections.singulars.empty?
+    assert NounInflector.inflections.uncountables.empty?
+    NounInflector.inflections.instance_variable_set :@plurals, cached_values[0]
+    NounInflector.inflections.instance_variable_set :@singulars, cached_values[1]
+    NounInflector.inflections.instance_variable_set :@uncountables, cached_values[2]
+  end
+
+  Irregularities.each do |irregularity|
+    singular, plural = *irregularity
+    NounInflector.inflections do |inflect|
+      define_method("test_irregularity_between_#{singular}_and_#{plural}") do
+        inflect.irregular(singular, plural)
+        assert_equal singular, NounInflector.singularize(plural)
+        assert_equal plural, NounInflector.pluralize(singular)
+      end
+    end
+  end
+
+  [ :all, [] ].each do |scope|
+    NounInflector.inflections do |inflect|
+      define_method("test_clear_inflections_with_#{scope.kind_of?(Array) ? "no_arguments" : scope}") do
+        # save all the inflections
+        singulars, plurals, uncountables = inflect.singulars, inflect.plurals, inflect.uncountables
+
+        # clear all the inflections
+        inflect.clear(*scope)
+
+        assert_equal [], inflect.singulars
+        assert_equal [], inflect.plurals
+        assert_equal [], inflect.uncountables
+
+        # restore all the inflections
+        singulars.reverse.each { |singular| inflect.singular(*singular) }
+        plurals.reverse.each   { |plural|   inflect.plural(*plural) }
+        inflect.uncountable(uncountables)
+
+        assert_equal singulars, inflect.singulars
+        assert_equal plurals, inflect.plurals
+        assert_equal uncountables, inflect.uncountables
+      end
+    end
+  end
+
+  { :singulars => :singular, :plurals => :plural, :uncountables => :uncountable }.each do |scope, method|
+    NounInflector.inflections do |inflect|
+      define_method("test_clear_inflections_with_#{scope}") do
+        # save the inflections
+        values = inflect.send(scope)
+
+        # clear the inflections
+        inflect.clear(scope)
+
+        assert_equal [], inflect.send(scope)
+
+        # restore the inflections
+        if scope == :uncountables
+          inflect.send(method, values)
+        else
+          values.reverse.each { |value| inflect.send(method, *value) }
+        end
+
+        assert_equal values, inflect.send(scope)
+      end
+    end
+  end
+end