From b7cd3ebbb858a8891c35c45896f1bdd525f3534e Mon Sep 17 00:00:00 2001
From: Christoph Helma <helma@in-silico.ch>
Date: Mon, 10 Aug 2015 13:26:06 +0200
Subject: algorithm libraries added, fminer tests pass

---
 test/fminer.rb | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 test/fminer.rb

(limited to 'test/fminer.rb')

diff --git a/test/fminer.rb b/test/fminer.rb
new file mode 100644
index 0000000..17dcbe1
--- /dev/null
+++ b/test/fminer.rb
@@ -0,0 +1,46 @@
+require_relative "setup.rb"
+
+class FminerTest < MiniTest::Test
+
+  def test_fminer_bbrc
+    dataset = OpenTox::Dataset.from_csv_file File.join(DATA_DIR,"hamster_carcinogenicity.csv")
+    refute_nil dataset.id
+    feature_dataset = OpenTox::Algorithm::Fminer.bbrc dataset
+    feature_dataset = Dataset.find feature_dataset.id
+    assert_equal dataset.compounds.size, feature_dataset.compounds.size
+    assert_equal 54, feature_dataset.features.size
+    assert_equal "C-C-C=C", feature_dataset.features.first.smarts
+    compounds = feature_dataset.compounds
+    smarts = feature_dataset.features
+    match = OpenTox::Algorithm::Descriptor.smarts_match compounds, smarts
+    feature_dataset.data_entries.each_with_index do |fingerprint,i|
+      assert_equal match[i], fingerprint
+    end
+
+    dataset.delete
+    feature_dataset.delete
+  end
+
+  def test_fminer_last
+    skip "last features have to be activated"
+    dataset = OpenTox::Dataset.new
+    dataset.upload File.join(DATA_DIR,"hamster_carcinogenicity.csv")
+    feature_dataset = OpenTox::Algorithm::Fminer.last :dataset => dataset
+    assert_equal dataset.compounds.size, feature_dataset.compounds.size
+    assert_equal 21, feature_dataset.features.size
+    assert_equal '[#6&A]-[#6&a]:[#6&a]:[#6&a]:[#6&a]:[#6&a]', feature_dataset.features.first.smarts
+
+    compounds = feature_dataset.compounds
+    smarts = feature_dataset.features.collect{|f| f.smarts}
+    match = OpenTox::Algorithm::Descriptor.smarts_match compounds, smarts
+    compounds.each_with_index do |c,i|
+      smarts.each_with_index do |s,j|
+        assert_equal match[i][j], feature_dataset.data_entries[i][j].to_i
+      end
+    end
+
+    dataset.delete
+    feature_dataset.delete
+  end
+
+end
-- 
cgit v1.2.3