upd tests

Author: r2evans

inst/tests/tests.Rraw

@@ -20598,16 +20598,14 @@ test(2295.3, is.data.table(d2))
 test(2296, d2[x %no such operator% 1], error = '%no such operator%')
 
 # #6592: nested single-column frames break in print.data.table
-test(2297.01, format_list_item(data.frame(a=1)),                     output = "<data.frame\\[1x1]>")
-test(2297.02, format_list_item(data.frame(a=1)[0,,drop=FALSE]),      output = "<data.frame\\[0x1]>")
-test(2297.03, format_list_item(data.frame(a=1)[,0]),                 output = "<data.frame\\[1x0]>")
-test(2297.04, format_list_item(data.frame(a=1, b=2)[0,,drop=FALSE]), output = "<data.frame\\[0x2]>")
-test(2297.05, format_list_item(data.frame(a=1, b=2)[,0]),            output = "<data.frame\\[1x0]>")
-test(2297.06, format_list_item(data.table(a=1)),                     output = "<data.table\\[1x1]>")
-test(2297.07, format_list_item(data.table(a=1)[0,]),                 output = "<data.table\\[0x1]>")
-test(2297.08, format_list_item(data.table(a=1)[,0]),                 output = "<data.table\\[0x0]>")
-test(2297.09, format_list_item(data.table(a=1, b=2)[0,]),            output = "<data.table\\[0x2]>")
-test(2297.10, format_list_item(data.table(a=1, b=2)[,0]),            output = "<data.table\\[0x0]>")
-test(2297.11, data.table(a=1),                                       output = " *a\n1: *1")
-test(2297.12, data.table(a=list(data.frame(b=1))),                   output = " *a\n1: <data.frame\\[1x1]>")
-test(2297.13, data.table(a=list(data.table(b=1))),                   output = " *a\n1: <data.table\\[1x1]>")
+test(2297.01, format_list_item(data.frame(a=1)),                      output = "<data.frame\\[1x1]>")
+test(2297.02, format_list_item(data.frame(a=1)[0,,drop=FALSE]),       output = "<data.frame\\[0x1]>")
+test(2297.03, format_list_item(data.frame(a=1)[,0]),                  output = "<data.frame\\[1x0]>")
+test(2297.04, format_list_item(data.frame(a=1, b=2)[0,,drop=FALSE]),  output = "<data.frame\\[0x2]>")
+test(2297.06, format_list_item(data.table(a=1)),                      output = "<data.table\\[1x1]>")
+test(2297.07, format_list_item(data.table(a=numeric())),              output = "<data.table\\[0x1]>")
+test(2297.08, format_list_item(data.table(),                          output = "<data.table\\[0x0]>")
+test(2297.09, format_list_item(data.table(a=numeric(), b=numeric())), output = "<data.table\\[0x2]>")
+test(2297.10, data.table(a=1),                                        output = " *a\n1: *1")
+test(2297.11, data.table(a=list(data.frame(b=1))),                    output = " *a\n1: <data.frame\\[1x1]>")
+test(2297.12, data.table(a=list(data.table(b=1))),                    output = " *a\n1: <data.table\\[1x1]>")