lingo 1.9.0.pre1 → 1.9.0

data/lib/lingo/text_utils.rb

@@ -6,7 +6,7 @@
 # Lingo -- A full-featured automatic indexing system                          #
 #                                                                             #
 # Copyright (C) 2005-2007 John Vorhauer                                       #
-# Copyright (C) 2007-2015 John Vorhauer, Jens Wille                           #
+# Copyright (C) 2007-2016 John Vorhauer, Jens Wille                           #
 #                                                                             #
 # Lingo is free software; you can redistribute it and/or modify it under the  #
 # terms of the GNU Affero General Public License as published by the Free     #
@@ -25,11 +25,14 @@
 #++
 
 require 'nuggets/file/ext'
+require 'nuggets/string/format'
 
 class Lingo
 
   module TextUtils
 
+    DEFAULT_MODE = 'rb'.freeze
+
     STDIN_EXT = %w[STDIN -].freeze
 
     STDOUT_EXT = %w[STDOUT -].freeze
@@ -46,51 +49,141 @@ class Lingo
       STDOUT_EXT.include?(path)
     end
 
-    def open_stdin
-      stdin = set_encoding(lingo.config.stdin)
-      @progress ? StringIO.new(stdin.read) : stdin
+    def overwrite?(path, unlink = false)
+      !File.exist?(path) || if agree?("#{path} already exists. Overwrite?")
+        File.unlink(path) if unlink
+        true
+      end
+    end
+
+    def agree?(msg)
+      print "#{msg} (y/n) [n]: "
+
+      case stdin.gets.chomp
+        when /\Ano?\z/i, ''  then nil
+        when /\Ay(?:es)?\z/i then true
+        else puts 'Please enter "yes" or "no".'; agree?(msg)
+      end
+    rescue Interrupt
+      abort ''
+    end
+
+    def stdin
+      respond_to?(:lingo, true) ? lingo.config.stdin : $stdin
+    end
+
+    def stdout
+      respond_to?(:lingo, true) ? lingo.config.stdout : $stdout
+    end
+
+    def open(path, mode = nil, encoding = nil, &block)
+      mode ||= DEFAULT_MODE
+
+      _yield_obj(case mode
+        when /r/ then stdin?(path) ? open_stdin(encoding) : File.exist?(path) ?
+          open_path(path, mode, encoding) : raise(FileNotFoundError.new(path))
+        when /w/ then stdout?(path) ? open_stdout(encoding) : overwrite?(path) ?
+          open_path(path, mode, encoding) : raise(FileExistsError.new(path))
+      end, &block)
+    end
+
+    def open_csv(path, mode = nil, options = {}, encoding = nil, &block)
+      _require_lib('csv')
+
+      open(path, mode, encoding) { |io|
+        _yield_obj(CSV.new(io, options), &block) }
+    end
+
+    def open_stdin(encoding = nil)
+      io = set_encoding(stdin, encoding)
+      @progress ? StringIO.new(io.read) : io
     end
 
-    def open_stdout
-      set_encoding(lingo.config.stdout)
+    def open_stdout(encoding = nil)
+      set_encoding(stdout, encoding)
     end
 
-    def open_path(path, mode = 'rb')
-      path =~ GZIP_RE ? open_gzip(path, mode) : open_file(path, mode)
+    def open_path(path, mode = nil, encoding = nil)
+      mode ||= DEFAULT_MODE
+
+      path =~ GZIP_RE ?
+        open_gzip(path, mode, encoding) :
+        open_file(path, mode, encoding)
     end
 
-    def open_file(path, mode)
-      File.open(path, mode, encoding: bom_encoding(mode))
+    def open_file(path, mode = nil, encoding = nil)
+      File.open(path, mode ||= DEFAULT_MODE,
+        encoding: bom_encoding(mode, encoding))
     end
 
-    def open_gzip(path, mode)
-      require_lib('zlib')
+    def open_gzip(path, mode = nil, encoding = nil)
+      _require_lib('zlib')
 
-      case mode
+      case mode ||= DEFAULT_MODE
         when 'r', 'rb'
           @progress = false
-          Zlib::GzipReader.open(path, encoding: @encoding)
+          Zlib::GzipReader
         when 'w', 'wb'
-          Zlib::GzipWriter.open(path, encoding: @encoding)
+          Zlib::GzipWriter
         else
           raise ArgumentError, 'invalid access mode %s' % mode
-      end
+      end.open(path, encoding: get_encoding(encoding))
+    end
+
+    def foreach(path, encoding = nil)
+      open(path, nil, encoding) { |io|
+        io.each { |line| line.chomp!; yield line } }
+    end
+
+    def foreach_csv(path, options = {}, encoding = nil, &block)
+      open_csv(path, nil, options, encoding) { |csv| csv.each(&block) }
+    end
+
+    def get_path(path, ext)
+      set_ext(path, ext).format { |directive|
+        case directive
+          when 'd', t = 't' then Time.now.strftime(t ? '%H%M%S' : '%Y%m%d')
+          when 'c', l = 'l' then File.chomp_ext(File.basename(
+            lingo.config.send("#{l ? :lang : :config}_file")))
+        end
+      }
     end
 
     def set_ext(path, ext)
       File.set_ext(path.sub(GZIP_RE, ''), ".#{ext}")
     end
 
-    def set_encoding(io, encoding = @encoding)
-      io.set_encoding(encoding)
+    def set_encoding(io, encoding = nil)
+      io.set_encoding(get_encoding(encoding))
       io
     end
 
-    def bom_encoding(mode = 'r', encoding = @encoding)
-      (mode.include?('r') || mode.include?('+')) &&
+    def get_encoding(encoding = nil, iv = :@encoding)
+      encoding ||
+        (instance_variable_defined?(iv) ? instance_variable_get(iv) : nil)
+    end
+
+    def bom_encoding(mode = 'r', encoding = nil)
+      encoding = get_encoding(encoding)
+
+      encoding && (mode.include?('r') || mode.include?('+')) &&
         encoding.name.start_with?('UTF-') ? "BOM|#{encoding}" : encoding
     end
 
+    private
+
+    def _require_lib(lib)
+      respond_to?(:require_lib, true) ? require_lib(lib) : require(lib)
+    end
+
+    def _yield_obj(obj)
+      !block_given? ? obj : begin
+        yield obj
+      ensure
+        obj.close
+      end
+    end
+
   end
 
 end

data/lib/lingo/version.rb

@@ -10,7 +10,7 @@ class Lingo
 
       # Returns array representation.
       def to_a
-        [MAJOR, MINOR, TINY] << 'pre1'
+        [MAJOR, MINOR, TINY]
       end
 
       # Short-cut for version string.

data/test/attendee/ts_sequencer.rb

@@ -4,6 +4,244 @@ require_relative '../test_helper'
 
 class TestAttendeeSequencer < AttendeeTestCase
 
+  def setup
+    @perm = [
+      wd('white|IDF', 'white|s', 'white|a', 'white|v'),
+      wd('yellow|IDF', 'yellow|s', 'yellow|a', 'yellow|v'),
+      wd('green|IDF', 'green|s', 'green|a', 'green|v'),
+      wd('white|IDF', 'white|s', 'white|a', 'white|v'),
+      wd('cold|IDF', 'cold|s', 'cold|a'),
+      wd('hot|IDF', 'hot|a'),
+      wd('hot|IDF', 'hot|a'),
+      wd('water|IDF', 'water|s', 'water|v'),
+      wd('warm|IDF', 'warm|a', 'warm|v'),
+      wd('warm|IDF', 'warm|a', 'warm|v'),
+      wd('dry|IDF', 'dry|s', 'dry|a', 'dry|v'),
+      wd('weather|IDF', 'weather|s', 'weather|v'),
+      wd('drink|IDF', 'drink|s', 'drink|v'),
+      wd('winter|IDF', 'winter|s', 'winter|v'),
+      wd('cool|IDF', 'cool|s', 'cool|a', 'cool|v'),
+      wd('fruit|IDF', 'fruit|s', 'fruit|v'),
+      wd('vegetable|IDF', 'vegetable|s', 'vegetable|a'),
+      wd('food|IDF', 'food|s'),
+      wd('juice|IDF', 'juice|s', 'juice|v'),
+      wd('flower|IDF', 'flower|s', 'flower|v'),
+      wd('fresh|IDF', 'fresh|s', 'fresh|a'),
+      wd('fish|IDF', 'fish|s', 'fish|a', 'fish|v'),
+      wd('tree|IDF', 'tree|s', 'tree|v'),
+      wd('meat|IDF', 'meat|s'),
+      wd('salad|IDF', 'salad|s'),
+      wd('vegetable|IDF', 'vegetable|s', 'vegetable|a'),
+      wd('green|IDF', 'green|s', 'green|a', 'green|v'),
+      wd('red|IDF', 'red|s', 'red|a', 'red|v'),
+      wd('red|IDF', 'red|s', 'red|a', 'red|v'),
+      wd('blue|IDF', 'blue|s', 'blue|a', 'blue|v'),
+      wd('blue|IDF', 'blue|s', 'blue|a', 'blue|v'),
+      wd('yellow|IDF', 'yellow|s', 'yellow|a', 'yellow|v'),
+      wd('white|IDF', 'white|s', 'white|a', 'white|v'),
+      wd('leaves|IDF', 'leave|s', 'leaf|s', 'leave|v'),
+      wd('yellow|IDF', 'yellow|s', 'yellow|a', 'yellow|v'),
+      wd('colour|IDF', 'colour|s', 'colour|v'),
+      wd('grey|IDF', 'grey|s'),
+      wd('tobacco|IDF', 'tobacco|s'),
+      wd('advertising|IDF', 'advertising|e'),
+      wd('cigarette|IDF', 'cigarette|s'),
+      wd('smoke|IDF', 'smoke|s', 'smoke|v'),
+      wd('alcohol|IDF', 'alcohol|s'),
+      wd('ban|IDF', 'ban|s'),
+      wd('coal|IDF', 'coal|s'),
+      wd('cigarette|IDF', 'cigarette|s'),
+      wd('import|IDF', 'import|s', 'import|v'),
+      wd('alcohol|IDF', 'alcohol|s'),
+      wd('textile|IDF', 'textile|s'),
+      wd('whiskey|IDF', 'whiskey|s'),
+      wd('drink|IDF', 'drink|s', 'drink|v'),
+      wd('whisky|IDF', 'whisky|s'),
+      ai('EOF|'),
+      ai('EOT|')
+    ]
+
+    @out1 = [
+      wd('white|IDF', 'white|s', 'white|a', 'white|v'),
+      wd('yellow|IDF', 'yellow|s', 'yellow|a', 'yellow|v'),
+      wd('green|IDF', 'green|s', 'green|a', 'green|v'),
+      wd('white|IDF', 'white|s', 'white|a', 'white|v'),
+      wd('cold|IDF', 'cold|s', 'cold|a'),
+      wd('hot|IDF', 'hot|a'),
+      wd('hot|IDF', 'hot|a'),
+      wd('water|IDF', 'water|s', 'water|v'),
+      wd('warm|IDF', 'warm|a', 'warm|v'),
+      wd('warm|IDF', 'warm|a', 'warm|v'),
+      wd('dry|IDF', 'dry|s', 'dry|a', 'dry|v'),
+      wd('weather|IDF', 'weather|s', 'weather|v'),
+      wd('drink|IDF', 'drink|s', 'drink|v'),
+      wd('winter|IDF', 'winter|s', 'winter|v'),
+      wd('cool|IDF', 'cool|s', 'cool|a', 'cool|v'),
+      wd('fruit|IDF', 'fruit|s', 'fruit|v'),
+      wd('vegetable|IDF', 'vegetable|s', 'vegetable|a'),
+      wd('food|IDF', 'food|s'),
+      wd('juice|IDF', 'juice|s', 'juice|v'),
+      wd('flower|IDF', 'flower|s', 'flower|v'),
+      wd('fresh|IDF', 'fresh|s', 'fresh|a'),
+      wd('fish|IDF', 'fish|s', 'fish|a', 'fish|v'),
+      wd('tree|IDF', 'tree|s', 'tree|v'),
+      wd('meat|IDF', 'meat|s'),
+      wd('salad|IDF', 'salad|s'),
+      wd('vegetable|IDF', 'vegetable|s', 'vegetable|a'),
+      wd('green|IDF', 'green|s', 'green|a', 'green|v'),
+      wd('red|IDF', 'red|s', 'red|a', 'red|v'),
+      wd('red|IDF', 'red|s', 'red|a', 'red|v'),
+      wd('blue|IDF', 'blue|s', 'blue|a', 'blue|v'),
+      wd('blue|IDF', 'blue|s', 'blue|a', 'blue|v'),
+      wd('yellow|IDF', 'yellow|s', 'yellow|a', 'yellow|v'),
+      wd('white|IDF', 'white|s', 'white|a', 'white|v'),
+      wd('leaves|IDF', 'leave|s', 'leaf|s', 'leave|v'),
+      wd('yellow|IDF', 'yellow|s', 'yellow|a', 'yellow|v'),
+      wd('colour|IDF', 'colour|s', 'colour|v'),
+      wd('grey|IDF', 'grey|s'),
+      wd('tobacco|IDF', 'tobacco|s'),
+      wd('advertising|IDF', 'advertising|e'),
+      wd('cigarette|IDF', 'cigarette|s'),
+      wd('smoke|IDF', 'smoke|s', 'smoke|v'),
+      wd('alcohol|IDF', 'alcohol|s'),
+      wd('ban|IDF', 'ban|s'),
+      wd('coal|IDF', 'coal|s'),
+      wd('cigarette|IDF', 'cigarette|s'),
+      wd('import|IDF', 'import|s', 'import|v'),
+      wd('alcohol|IDF', 'alcohol|s'),
+      wd('textile|IDF', 'textile|s'),
+      wd('whiskey|IDF', 'whiskey|s'),
+      wd('drink|IDF', 'drink|s', 'drink|v'),
+      wd('whisky|IDF', 'whisky|s'),
+      wd('white yellow|SEQ', 'yellow, white|q'),
+      wd('yellow green|SEQ', 'green, yellow|q'),
+      wd('green white|SEQ', 'white, green|q'),
+      wd('white cold|SEQ', 'cold, white|q'),
+      wd('hot water|SEQ', 'water, hot|q'),
+      wd('warm dry|SEQ', 'dry, warm|q'),
+      wd('dry weather|SEQ', 'weather, dry|q'),
+      wd('cool fruit|SEQ', 'fruit, cool|q'),
+      wd('vegetable food|SEQ', 'food, vegetable|q'),
+      wd('fresh fish|SEQ', 'fish, fresh|q'),
+      wd('fish tree|SEQ', 'tree, fish|q'),
+      wd('vegetable green|SEQ', 'green, vegetable|q'),
+      wd('green red|SEQ', 'red, green|q'),
+      wd('red red|SEQ', 'red, red|q'),
+      wd('red blue|SEQ', 'blue, red|q'),
+      wd('blue blue|SEQ', 'blue, blue|q'),
+      wd('blue yellow|SEQ', 'yellow, blue|q'),
+      wd('yellow white|SEQ', 'white, yellow|q'),
+      wd('white leaves|SEQ', 'leave, white|q'),
+      wd('yellow colour|SEQ', 'colour, yellow|q'),
+      wd('white yellow green|SEQ', 'green, white yellow|q'),
+      wd('yellow green white|SEQ', 'white, yellow green|q'),
+      wd('green white cold|SEQ', 'cold, green white|q'),
+      wd('hot hot water|SEQ', 'water, hot hot|q'),
+      wd('warm warm dry|SEQ', 'dry, warm warm|q'),
+      wd('warm dry weather|SEQ', 'weather, warm dry|q'),
+      wd('fresh fish tree|SEQ', 'tree, fresh fish|q'),
+      wd('vegetable green red|SEQ', 'red, vegetable green|q'),
+      wd('green red red|SEQ', 'red, green red|q'),
+      wd('red red blue|SEQ', 'blue, red red|q'),
+      wd('red blue blue|SEQ', 'blue, red blue|q'),
+      wd('blue blue yellow|SEQ', 'yellow, blue blue|q'),
+      wd('blue yellow white|SEQ', 'white, blue yellow|q'),
+      wd('yellow white leaves|SEQ', 'leave, yellow white|q'),
+      ai('EOF|'),
+      ai('EOT|')
+    ]
+
+    @out2 = [
+      wd('white|IDF', 'white|s', 'white|a', 'white|v'),
+      wd('yellow|IDF', 'yellow|s', 'yellow|a', 'yellow|v'),
+      wd('green|IDF', 'green|s', 'green|a', 'green|v'),
+      wd('white|IDF', 'white|s', 'white|a', 'white|v'),
+      wd('cold|IDF', 'cold|s', 'cold|a'),
+      wd('hot|IDF', 'hot|a'),
+      wd('hot|IDF', 'hot|a'),
+      wd('water|IDF', 'water|s', 'water|v'),
+      wd('warm|IDF', 'warm|a', 'warm|v'),
+      wd('warm|IDF', 'warm|a', 'warm|v'),
+      wd('dry|IDF', 'dry|s', 'dry|a', 'dry|v'),
+      wd('weather|IDF', 'weather|s', 'weather|v'),
+      wd('drink|IDF', 'drink|s', 'drink|v'),
+      wd('winter|IDF', 'winter|s', 'winter|v'),
+      wd('cool|IDF', 'cool|s', 'cool|a', 'cool|v'),
+      wd('fruit|IDF', 'fruit|s', 'fruit|v'),
+      wd('vegetable|IDF', 'vegetable|s', 'vegetable|a'),
+      wd('food|IDF', 'food|s'),
+      wd('juice|IDF', 'juice|s', 'juice|v'),
+      wd('flower|IDF', 'flower|s', 'flower|v'),
+      wd('fresh|IDF', 'fresh|s', 'fresh|a'),
+      wd('fish|IDF', 'fish|s', 'fish|a', 'fish|v'),
+      wd('tree|IDF', 'tree|s', 'tree|v'),
+      wd('meat|IDF', 'meat|s'),
+      wd('salad|IDF', 'salad|s'),
+      wd('vegetable|IDF', 'vegetable|s', 'vegetable|a'),
+      wd('green|IDF', 'green|s', 'green|a', 'green|v'),
+      wd('red|IDF', 'red|s', 'red|a', 'red|v'),
+      wd('red|IDF', 'red|s', 'red|a', 'red|v'),
+      wd('blue|IDF', 'blue|s', 'blue|a', 'blue|v'),
+      wd('blue|IDF', 'blue|s', 'blue|a', 'blue|v'),
+      wd('yellow|IDF', 'yellow|s', 'yellow|a', 'yellow|v'),
+      wd('white|IDF', 'white|s', 'white|a', 'white|v'),
+      wd('leaves|IDF', 'leave|s', 'leaf|s', 'leave|v'),
+      wd('yellow|IDF', 'yellow|s', 'yellow|a', 'yellow|v'),
+      wd('colour|IDF', 'colour|s', 'colour|v'),
+      wd('grey|IDF', 'grey|s'),
+      wd('tobacco|IDF', 'tobacco|s'),
+      wd('advertising|IDF', 'advertising|e'),
+      wd('cigarette|IDF', 'cigarette|s'),
+      wd('smoke|IDF', 'smoke|s', 'smoke|v'),
+      wd('alcohol|IDF', 'alcohol|s'),
+      wd('ban|IDF', 'ban|s'),
+      wd('coal|IDF', 'coal|s'),
+      wd('cigarette|IDF', 'cigarette|s'),
+      wd('import|IDF', 'import|s', 'import|v'),
+      wd('alcohol|IDF', 'alcohol|s'),
+      wd('textile|IDF', 'textile|s'),
+      wd('whiskey|IDF', 'whiskey|s'),
+      wd('drink|IDF', 'drink|s', 'drink|v'),
+      wd('whisky|IDF', 'whisky|s'),
+      wd('hot water|SEQ', 'water, hot|q'),
+      wd('warm dry|SEQ', 'dry, warm|q'),
+      wd('yellow colour|SEQ', 'colour, yellow|q'),
+      wd('white leaves|SEQ', 'leave, white|q'),
+      wd('yellow white|SEQ', 'white, yellow|q'),
+      wd('blue yellow|SEQ', 'yellow, blue|q'),
+      wd('blue blue|SEQ', 'blue, blue|q'),
+      wd('red blue|SEQ', 'blue, red|q'),
+      wd('red red|SEQ', 'red, red|q'),
+      wd('green red|SEQ', 'red, green|q'),
+      wd('vegetable green|SEQ', 'green, vegetable|q'),
+      wd('fish tree|SEQ', 'tree, fish|q'),
+      wd('fresh fish|SEQ', 'fish, fresh|q'),
+      wd('vegetable food|SEQ', 'food, vegetable|q'),
+      wd('cool fruit|SEQ', 'fruit, cool|q'),
+      wd('dry weather|SEQ', 'weather, dry|q'),
+      wd('white cold|SEQ', 'cold, white|q'),
+      wd('green white|SEQ', 'white, green|q'),
+      wd('yellow green|SEQ', 'green, yellow|q'),
+      wd('white yellow|SEQ', 'yellow, white|q'),
+      wd('hot hot water|SEQ', 'water, hot hot|q'),
+      wd('warm warm dry|SEQ', 'dry, warm warm|q'),
+      wd('yellow white leaves|SEQ', 'leave, yellow white|q'),
+      wd('blue yellow white|SEQ', 'white, blue yellow|q'),
+      wd('blue blue yellow|SEQ', 'yellow, blue blue|q'),
+      wd('red blue blue|SEQ', 'blue, red blue|q'),
+      wd('red red blue|SEQ', 'blue, red red|q'),
+      wd('green red red|SEQ', 'red, green red|q'),
+      wd('vegetable green red|SEQ', 'red, vegetable green|q'),
+      wd('fresh fish tree|SEQ', 'tree, fresh fish|q'),
+      wd('warm dry weather|SEQ', 'weather, warm dry|q'),
+      wd('green white cold|SEQ', 'cold, green white|q'),
+      wd('yellow green white|SEQ', 'white, yellow green|q'),
+      wd('white yellow green|SEQ', 'green, white yellow|q'),
+      ai('EOF|'),
+      ai('EOT|')
+    ]
+  end
+
   def test_basic
     meet({}, [
       # AS
@@ -23,12 +261,12 @@ class TestAttendeeSequencer < AttendeeTestCase
       wd('helle|IDF', 'hell|a'),
       wd('Sonne|IDF', 'sonne|s'),
       tk('.|PUNC'),
-      wd('sonne, hell|SEQ', 'sonne, hell|q'),
+      wd('helle Sonne|SEQ', 'sonne, hell|q'),
       # AK
       wd('Der|IDF', 'der|w'),
       wd('schöne|IDF', 'schön|a'),
       wd('Sonnenuntergang|COM', 'sonnenuntergang|k', 'sonne|s+', 'untergang|s+'),
-      wd('sonnenuntergang, schön|SEQ', 'sonnenuntergang, schön|q'),
+      wd('schöne Sonnenuntergang|SEQ', 'sonnenuntergang, schön|q'),
       ai('EOF|'),
       ai('EOT|')
     ])
@@ -67,14 +305,14 @@ class TestAttendeeSequencer < AttendeeTestCase
       wd('Gottes|IDF', 'gott|s'),
       wd('Turm|IDF', 'turm|s'),
       tk('.|PUNC'),
-      wd('abbild gott|SEQ', 'abbild gott|q'),
-      wd('gott turm|SEQ', 'gott turm|q'),
-      wd('abbild gott turm|SEQ', 'abbild gott turm|q'),
+      wd('Abbild Gottes|SEQ', 'abbild gott|q'),
+      wd('Gottes Turm|SEQ', 'gott turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'abbild gott turm|q'),
       # SS
       wd('Der|IDF', 'der|w'),
       wd('Sonne|IDF', 'sonne|s'),
       wd('Untergang|IDF', 'untergang|s'),
-      wd('sonne untergang|SEQ', 'sonne untergang|q'),
+      wd('Sonne Untergang|SEQ', 'sonne untergang|q'),
       ai('EOF|'),
       ai('EOT|')
     ])
@@ -99,7 +337,7 @@ class TestAttendeeSequencer < AttendeeTestCase
       wd('Gottes|IDF', 'gott|s'),
       wd('Turm|IDF', 'turm|s'),
       tk('.|PUNC'),
-      wd('abbild gottes turm|SEQ', 'abbild gottes turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'abbild gottes turm|q'),
       ai('EOF|'),
       ai('EOT|')
     ])
@@ -125,15 +363,15 @@ class TestAttendeeSequencer < AttendeeTestCase
       wd('Gottes|IDF', 'gott|s'),
       wd('Turm|IDF', 'turm|s'),
       tk('.|PUNC'),
-      wd('abbild gottes turm|SEQ', 'abbild gottes turm|q'),
-      wd('abbild gott|SEQ', 'abbild gott|q'),
-      wd('gott turm|SEQ', 'gott turm|q'),
-      wd('abbild gott turm|SEQ', 'abbild gott turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'abbild gottes turm|q'),
+      wd('Abbild Gottes|SEQ', 'abbild gott|q'),
+      wd('Gottes Turm|SEQ', 'gott turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'abbild gott turm|q'),
       # SS
       wd('Abbild Gottes|MUL', 'abbild gottes|m'),
       wd('Abbild|IDF', 'abbild|s'),
       wd('Gottes|IDF', 'gott|s'),
-      wd('abbild gott|SEQ', 'abbild gott|q'),
+      wd('Abbild Gottes|SEQ', 'abbild gott|q'),
       ai('EOF|'),
       ai('EOT|')
     ])
@@ -162,14 +400,14 @@ class TestAttendeeSequencer < AttendeeTestCase
       wd('Gottes|IDF', 'gott|s'),
       wd('Turm|IDF', 'turm|s'),
       tk('.|PUNC'),
-      wd('abbild gottes turm|SEQ', 'abbild gottes turm|q'),
-      wd('abbild gott|SEQ', 'abbild gott|q'),
-      wd('gott turm|SEQ', 'gott turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'abbild gottes turm|q'),
+      wd('Abbild Gottes|SEQ', 'abbild gott|q'),
+      wd('Gottes Turm|SEQ', 'gott turm|q'),
       # SS
       wd('Abbild Gottes|MUL', 'abbild gottes|m'),
       wd('Abbild|IDF', 'abbild|s'),
       wd('Gottes|IDF', 'gott|s'),
-      wd('abbild gott|SEQ', 'abbild gott|q'),
+      wd('Abbild Gottes|SEQ', 'abbild gott|q'),
       ai('EOF|'),
       ai('EOT|')
     ])
@@ -228,14 +466,14 @@ class TestAttendeeSequencer < AttendeeTestCase
       wd('Gottes|IDF', 'gott|s'),
       wd('Turm|IDF', 'turm|s'),
       tk('.|PUNC'),
-      wd('abbild gottes turm|SEQ', 'abbild gottes turm|q'),
-      wd('abbild gott|SEQ', 'abbild gott|q'),
-      wd('gott turm|SEQ', 'gott turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'abbild gottes turm|q'),
+      wd('Abbild Gottes|SEQ', 'abbild gott|q'),
+      wd('Gottes Turm|SEQ', 'gott turm|q'),
       # SS
       wd('Abbild Gottes|MUL', 'abbild gottes|m'),
       wd('Abbild|IDF', 'abbild|s'),
       wd('Gottes|IDF', 'gott|s'),
-      wd('abbild gott|SEQ', 'abbild gott|q'),
+      wd('Abbild Gottes|SEQ', 'abbild gott|q'),
       ai('EOF|'),
       ai('EOT|')
     ])
@@ -260,10 +498,10 @@ class TestAttendeeSequencer < AttendeeTestCase
       wd('Gottes|IDF', 'gott|s'),
       wd('Turm|IDF', 'turm|s'),
       tk('.|PUNC'),
-      wd('abbild gottes turm|SEQ', 'abbild gottes turm|q'),
-      wd('abbild gott turm|SEQ', 'abbild gott turm|q'),
-      #wd('abbild gott|SEQ', 'abbild gott|q'),  # FIXME
-      wd('gott turm|SEQ', 'gott turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'abbild gottes turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'abbild gott turm|q'),
+      #wd('Abbild Gottes|SEQ', 'abbild gott|q'),  # FIXME
+      wd('Gottes Turm|SEQ', 'gott turm|q'),
       ai('EOF|'),
       ai('EOT|')
     ])
@@ -288,10 +526,10 @@ class TestAttendeeSequencer < AttendeeTestCase
       wd('Gottes|IDF', 'gott|s'),
       wd('Turm|IDF', 'turm|s'),
       tk('.|PUNC'),
-      wd('ms:abbild gottes^turm|SEQ', 'ms:abbild gottes^turm|q'),
-      wd('sss:abbild^gott^turm|SEQ', 'sss:abbild^gott^turm|q'),
-      #wd('ss:abbild^gott|SEQ', 'ss:abbild^gott|q'),  # FIXME
-      wd('ss:gott^turm|SEQ', 'ss:gott^turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'ms:abbild gottes^turm|q'),
+      wd('Abbild Gottes Turm|SEQ', 'sss:abbild^gott^turm|q'),
+      #wd('Abbild Gottes|SEQ', 'ss:abbild^gott|q'),  # FIXME
+      wd('Gottes Turm|SEQ', 'ss:gott^turm|q'),
       ai('EOF|'),
       ai('EOT|')
     ])
@@ -316,14 +554,14 @@ class TestAttendeeSequencer < AttendeeTestCase
       wd('helle|IDF', 'hell|a'),
       wd('Sonne|IDF', 'sonne|s'),
       tk('.|PUNC'),
-      wd('die hell (wa)|SEQ', 'die hell (wa)|q'),
-      wd('as: sonne, hell|SEQ', 'as: sonne, hell|q'),
+      wd('Die helle|SEQ', 'die hell (wa)|q'),
+      wd('helle Sonne|SEQ', 'as: sonne, hell|q'),
       # WA + AK
       wd('Der|IDF', 'der|w'),
       wd('schöne|IDF', 'schön|a'),
       wd('Sonnenuntergang|COM', 'sonnenuntergang|k', 'sonne|s+', 'untergang|s+'),
-      wd('der schön (wa)|SEQ', 'der schön (wa)|q'),
-      wd('ak: sonnenuntergang, schön|SEQ', 'ak: sonnenuntergang, schön|q'),
+      wd('Der schöne|SEQ', 'der schön (wa)|q'),
+      wd('schöne Sonnenuntergang|SEQ', 'ak: sonnenuntergang, schön|q'),
       ai('EOF|'),
       ai('EOT|')
     ])
@@ -353,4 +591,20 @@ class TestAttendeeSequencer < AttendeeTestCase
     ])
   end
 
+  def test_many_permutations
+    meet({}, @perm, @out1)
+  end
+
+  def test_many_permutations_simple_regex1
+    meet({ 'sequences' => [['A[SK]', '2, 1'], ['AA[SK]', '3, 1 2']] }, @perm, @out1)
+  end
+
+  def test_many_permutations_simple_regex2
+    meet({ 'sequences' => [['A(S|K)', '2, 1'], ['AA(?:S|K)', '3, 1 2']] }, @perm, @out1)
+  end
+
+  def test_many_permutations_complex_regex
+    meet({ 'sequences' => [['A{1}(S|K)', '2, 1'], ['A{2}(S|K)', '3, 1 2']] }, @perm, @out2)
+  end unless ENV['LINGO_DISABLE_SLOW_TESTS'] # ~60s
+
 end