-ok(my $db = $input->open(
- path => "$abs_path/data/excel_95.xls"
-), "open");
-ok(my $size = $input->size, "size");
+our ($db,$size);
+
+sub open_xls {
+ my $args = shift;
+
+ $args->{path} = "$abs_path/data/" . $args->{path} || die "no path?";
+ ok(my $db = $input->open( %$args ), "open " . dump( $args ));
+ ok($size = $input->size, "size $size");
+ return $db;
+}
+
+open_xls({ path => 'excel_95.xls' });