add tests ・ 28b8e06 ・ Gitprep

t/02-sqlite.t

@@ -67,6 +67,7 @@ $t->new->create_table1->insert({k1 => 1, k2 => 2}, {k1 => 3, k2 => 4})->test(sub
     
     my $r;     # resultset
     my @rows;
+    my $rows;
     
     # Simple query array ref
     $r = $dbi->query("select k1, k2 from t1");
@@ -108,6 +109,13 @@ $t->new->create_table1->insert({k1 => 1, k2 => 2}, {k1 => 3, k2 => 4})->test(sub
     is_deeply(\@rows, [{k1 => 1, k2 => 2}, {k1 => 3, k2 => 4}], 'Simple query hash ref');
     
     
+    # Simple query array ref all
+    $r = $dbi->query("select k1, k2 from t1");
+    
+    $rows = $r->fetch_all;
+    is_deeply($rows, [[1, 2], [3, 4]], 'Simple query array');
+    
+    
     
     
     $dbi->fetch_filter(sub {

...	...	@@ -67,6 +67,7 @@ $t->new->create_table1->insert({k1 => 1, k2 => 2}, {k1 => 3, k2 => 4})->test(sub
67	67
68	68	my $r; # resultset
69	69	my @rows;
	70	+ my $rows;
70	71
71	72	# Simple query array ref
72	73	$r = $dbi->query("select k1, k2 from t1");
...	...	@@ -108,6 +109,13 @@ $t->new->create_table1->insert({k1 => 1, k2 => 2}, {k1 => 3, k2 => 4})->test(sub
108	109	is_deeply(\@rows, [{k1 => 1, k2 => 2}, {k1 => 3, k2 => 4}], 'Simple query hash ref');
109	110
110	111
	112	+ # Simple query array ref all
	113	+ $r = $dbi->query("select k1, k2 from t1");
	114	+
	115	+ $rows = $r->fetch_all;
	116	+ is_deeply($rows, [[1, 2], [3, 4]], 'Simple query array');
	117	+
	118	+
111	119
112	120
113	121	$dbi->fetch_filter(sub {