statsample 1.5.0 → 2.0.0

data/test/test_rserve_extension.rb

@@ -1,42 +0,0 @@
-require(File.expand_path(File.dirname(__FILE__) + '/helpers_tests.rb'))
-begin
-  require 'rserve'
-  require 'statsample/rserve_extension'
-
-  class StatsampleRserveExtensionTestCase < Minitest::Test
-    context 'Statsample Rserve extensions' do
-      setup do
-        @r = Rserve::Connection.new
-      end
-      teardown do
-        @r.close
-      end
-      should 'return a valid rexp for numeric vector' do
-        a = 100.times.map { |i| rand > 0.9 ? nil : i + rand }.to_numeric
-        rexp = a.to_REXP
-        assert(rexp.is_a? Rserve::REXP::Double)
-        assert_equal(rexp.to_ruby, a.data_with_nils)
-        @r.assign 'a', rexp
-        assert_equal(a.data_with_nils, @r.eval('a').to_ruby)
-      end
-      should 'return a valid rserve dataframe for statsample datasets' do
-        a = 100.times.map { |i| rand > 0.9 ? nil : i + rand }.to_numeric
-        b = 100.times.map { |i| rand > 0.9 ? nil : i + rand }.to_numeric
-        c = 100.times.map { |i| rand > 0.9 ? nil : i + rand }.to_numeric
-        ds = { 'a' => a, 'b' => b, 'c' => c }.to_dataset
-        rexp = ds.to_REXP
-        assert(rexp.is_a? Rserve::REXP::GenericVector)
-        ret = rexp.to_ruby
-        assert_equal(a.data_with_nils, ret['a'])
-        @r.assign 'df', rexp
-        out_df = @r.eval('df').to_ruby
-        assert_equal('data.frame', out_df.attributes['class'])
-        assert_equal(%w(a b c), out_df.attributes['names'])
-        assert_equal(a.data_with_nils, out_df['a'])
-      end
-    end
-  end
-
-rescue LoadError
-  puts 'Require rserve extension'
-end

data/test/test_xls.rb

@@ -1,52 +0,0 @@
-require(File.expand_path(File.dirname(__FILE__) + '/helpers_tests.rb'))
-class StatsampleExcelTestCase < Minitest::Test
-  context 'Excel reader' do
-    setup do
-      @ds = Statsample::Excel.read(File.dirname(__FILE__) + '/fixtures/test_xls.xls')
-    end
-    should 'set the number of cases' do
-      assert_equal(6, @ds.cases)
-    end
-    should 'set correct field names' do
-      assert_equal(%w(id name age city a1), @ds.fields)
-    end
-    should 'set a dataset equal to expected' do
-      id = [1, 2, 3, 4, 5, 6].to_vector(:numeric)
-      name = %w(Alex Claude Peter Franz George Fernand).to_vector(:object)
-      age = [20, 23, 25, nil, 5.5, nil].to_vector(:numeric)
-      city = ['New York', 'London', 'London', 'Paris', 'Tome', nil].to_vector(:object)
-      a1 = ['a,b', 'b,c', 'a', nil, 'a,b,c', nil].to_vector(:object)
-      ds_exp = Statsample::Dataset.new({ 'id' => id, 'name' => name, 'age' => age, 'city' => city, 'a1' => a1 }, %w(id name age city a1))
-      ds_exp.fields.each{|f|
-        assert_equal(ds_exp[f], @ds[f])
-      }
-      assert_equal(ds_exp, @ds)
-    end
-    should 'set to nil empty cells' do
-      assert_equal(nil, @ds['age'][5])
-    end
-  end
-  context 'Excel writer' do
-    setup do
-      a = 100.times.map { rand(100) }.to_numeric
-      b = (['b'] * 100).to_vector
-      @ds = { 'b' => b, 'a' => a }.to_dataset(%w(b a))
-      tempfile = Tempfile.new('test_write.xls')
-      Statsample::Excel.write(@ds, tempfile.path)
-      @ds2 = Statsample::Excel.read(tempfile.path)
-    end
-    should 'return same fields as original' do
-      assert_equal(@ds.fields, @ds2.fields)
-    end
-    should 'return same number of cases as original' do
-      assert_equal(@ds.cases, @ds2.cases)
-    end
-    should 'return same cases as original' do
-      i = 0
-      @ds2.each_array do |row|
-        assert_equal(@ds.case_as_array(i), row)
-        i += 1
-      end
-    end
-  end
-end