+#
+# test *_row
+#
+
+my $row = {
+ '000' => [ 42 ],
+ '900' => [ qw/a foo b bar c baz/ ],
+};
+
+ok(! $db->load_row( input => 'non-existant', id => 1234 ), 'invalid load_row');
+
+ok($db->save_row( input => 'foo', id => 1234, row => $row ), "save_row");
+
+ok(-e $db->var_path( 'row','webpac-test','foo',1234), "exists");
+
+is_deeply($db->load_row( input => 'foo', id => 1234 ), $row, 'load_row');
+
+ok($db->save_row( database => 'baz', input => 'foo', id => 1234, row => $row ), "save_row with database");
+
+ok(-e $db->var_path( 'row','baz','foo',1234), "exists");
+
+is_deeply($db->load_row( database => 'baz', input => 'foo', id => 1234 ), $row, 'load_row');
+