added test for length of seq/qual mismatch

[biopieces.git] / code_ruby / lib / maasha / seq.rb

diff --git a/code_ruby/lib/maasha/seq.rb b/code_ruby/lib/maasha/seq.rb
index e4b6bfd7c27d5933d0bd9c6b65210bd9a7b32ea0..fd83ba3282d28c561358fb9383c18e324d9a7ed4 100644 (file)
--- a/code_ruby/lib/maasha/seq.rb
+++ b/code_ruby/lib/maasha/seq.rb
@@ -30,7 +30,9 @@ require 'narray'
 autoload :BackTrack,   'maasha/seq/backtrack'
 autoload :Dynamic,     'maasha/seq/dynamic'
 autoload :Homopolymer, 'maasha/seq/homopolymer'
+autoload :Hamming,     'maasha/seq/hamming'
 autoload :Levenshtein, 'maasha/seq/levenshtein'
+autoload :Ambiguity,   'maasha/seq/ambiguity'
 
 # Residue alphabets
 DNA     = %w[a t c g]
@@ -133,6 +135,10 @@ class Seq
     @seq      = seq
     @type     = type
     @qual     = qual
+
+    if @qual
+      raise SeqError, "Sequence length and score length mismatch: #{@seq.length} != #{@qual.length}" if @seq.length != @qual.length
+    end
   end
 
   # Method that guesses and returns the sequence type
@@ -384,8 +390,12 @@ class Seq
 
   # Method to determine the Hamming Distance between
   # two Sequence objects (case insensitive).
-  def hamming_distance(entry)
-    self.seq.upcase.hamming_distance(entry.seq.upcase)
+  def hamming_distance(entry, options = nil)
+    if options and options[:ambiguity]
+      Hamming.distance(self.seq, entry.seq)
+    else
+      self.seq.upcase.hamming_distance(entry.seq.upcase)
+    end
   end
 
   # Method to determine the Edit Distance between