added test_digest.rb

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1300 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_ruby/Maasha/test/test_digest.rb b/code_ruby/Maasha/test/test_digest.rb
new file mode 100755 (executable)
index 0000000..9db221a
--- /dev/null
+++ b/code_ruby/Maasha/test/test_digest.rb
@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+
+require 'seq'
+require 'test/unit'
+require 'pp'
+
+class TestDigest < Test::Unit::TestCase 
+  def setup
+    @entry = Seq.new
+  end
+
+  def test_Digest_new_raises_on_bad_pattern_residue
+    assert_raise(DigestError) { Digest.new(@entry, "X", 4) }
+  end
+
+  def test_Digest_new_dont_raise_on_ok_pattern_residue
+    assert_nothing_raised { Digest.new(@entry, "AGCUTRYWSMKHDVBNagcutrywsmkhdvbn", 4) }
+  end
+
+  def test_Digest_each
+    @entry.seq = "aaaaTTTTbbbbTTTT"
+    digest = Digest.new(@entry, "TTNT", 1)
+    assert_equal("aaaaT", digest.first.seq)
+  end
+end
+
+
+__END__