change test for tables

test/tabletest.jl

@@ -1,24 +1,9 @@
-using StatsBase
+x = repeat(["a", "b", "c", "d"], outer=[100]);
+y = repeat(["A", "B", "C", "D"], inner=[10], outer=[10]);
 
-srand(2016);
-x = sample(1:5, 100);
-y = sample(["a", "b"], 100);
-table1 = RFlavor.table(y)
-table2=RFlavor.table(x, y)
-
-@test sprint(show, table1) == """\
-2-element Named Array{Int64,1}
-Dim1 │ 
-──┼───
-a │ 61
-b │ 39"""
-
-@test sprint(show, table2) == """\
-5×2 Named Array{Int64,2}
-Dim1 ╲ Dim2 │  a   b
-────────────┼───────
-1           │ 14   9
-2           │ 15   7
-3           │ 10  10
-4           │ 10   5
-5           │ 12   8"""
+@test table(x).array == [100, 100, 100, 100]
+@test table(y).array == [100, 100, 100, 100]
+@test table(x, y).array == [30 20 30 20;
+                                30 20 30 20;
+                                20 30 20 30;
+                                20 30 20 30]