test, improve coverage

src/List.jl

@@ -396,7 +396,7 @@ function _List_from_associative(dnames, d::Associative)
     for j in 1:p
         name = dnames[j]
         col = d[name]
-        columns[j] = DataArray(col)
+        columns[j] = DataArray(col) ## Does not work when col is a number or List
         colnames[j] = Symbol(name)
     end
     return List(columns, Index(colnames))

src/RFlavor.jl

@@ -5,7 +5,7 @@ using Compat
 import StatsBase, DataFrames
 import StatsBase:IntegerVector, RealVector, IntegerMatrix, RealMatrix
 import DataArrays:DataArray, PooledDataArray
-import DataFrames:pool, DataFrame, Index, DataVector, add_names, ColumnIndex, gennames, nrow, ncol, names!, rename!, rename,index
+import DataFrames:pool, DataFrame, Index, DataVector, add_names, ColumnIndex, gennames, nrow, ncol, names!, rename!, rename, index
 import Base: show, length, isempty
 
 

test/Listtest.jl

@@ -5,7 +5,26 @@ li = list(x=rand(10), y = rand(Int, 2,3), df = DataFrame(rand(5,2)),
 
 li2 = merge(li, list(f1=*, f2=-))
 li3 = list(li, list(f1=*, f2=-))
-@test length(unlist(li3, true))==6
+@test length(unlist(li3, true)) == 6
+@test length(unlist(li3, false)) == 2
 
 py=List(Any[rand(i) for i in 1:10])
 @test length(unlist(lapply(py, mean)))==10
+
+@test isempty(List())
+@test haskey(li, :x)
+@test get(li, :x, -1) == li[:x]
+names!(li, [:x1, :x2, :x3, :x4])
+@test names(li) == [:x1, :x2, :x3, :x4]
+
+# ERROR: dict = Dict("a" => 1, "b" => 2, "c" => 3)
+dict = Dict("a" => 1:2, "b" => [:x, :y], "c" => seq(1,2,.1))
+@test typeof(List(dict)) == RFlavor.List
+
+mat = rand(5,2)
+@test typeof(List(mat)) == RFlavor.List
+
+df = DataFrame(x=rand(10), y=rand(10))
+@test typeof(List(df)) == RFlavor.List
+
+## TOTO: push! definition might be problematic

test/findintervaltest.jl

@@ -1,3 +1,5 @@
 @test RFlavor.findinterval(1, [0.5, 1, 2]) == 2
 @test RFlavor.findinterval(1:3, 0:0.5:4) == [3, 5, 7]
 @test RFlavor.findinterval([1,4], [2, 3, 3, 5]) == [0, 3]
+@test_throws ErrorException RFlavor.findinterval(1, [1, -1, 2])
+@test_throws ErrorException RFlavor.findinterval([0, 1], [1, -1, 2])

test/runtests.jl

@@ -13,3 +13,4 @@ include("rangetest.jl")
 include("Listtest.jl")
 include("settest.jl")
 include("sweeptest.jl")
+include("seqtest.jl")

test/seqtest.jl

@@ -0,0 +1,4 @@
+x = rand(10)
+@test RFlavor.seq(0, 1, by = 0.1) == RFlavor.seq(0, 1, 0.1) == RFlavor.seq(0, 1, length = 11)
+@test RFlavor.seq_len(10) == RFlavor.seq_along(x)
+