Skip to content

Commit

Permalink
tidy mock test files
Browse files Browse the repository at this point in the history
  • Loading branch information
yappo committed Jan 12, 2010
1 parent e20763c commit 60a639c
Show file tree
Hide file tree
Showing 130 changed files with 12 additions and 22 deletions.
2 changes: 1 addition & 1 deletion Makefile.PL
Expand Up @@ -10,7 +10,7 @@ requires 'Storable';
requires 'DBI';
requires 'DBD::SQLite';

tests 't/*.t t/*/*.t';
tests 't/*.t t/*/*.t t/*/*/*.t';
author_tests 'xt';

build_requires 'Test::Class';
Expand Down
6 changes: 0 additions & 6 deletions t/020_mock/cache-memory-not_key.t

This file was deleted.

File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
5 changes: 0 additions & 5 deletions t/020_mock/memory-not_key.t

This file was deleted.

File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
21 changes: 11 additions & 10 deletions tools/generate_test_020_mock.pl
Expand Up @@ -9,17 +9,17 @@
'none' => '',
}->{$cache_name};

for my $driver_name (qw/ dbi dbi-mysql memory d-memcached /) {
for my $driver_name (qw/ dbi dbi-mysql memory memcached /) {
my $driver = +{
'dbi' => qq{ driver => 'DBI',\n dsn => 'dbi:SQLite:dbname=',\n},
'dbi-mysql' => qq{ driver => 'DBI',\n dsn => 'dbi:mysql:database=test',\n},
'memory' => qq{ driver => 'Memory',\n},
'd-memcached' => qq{ driver => 'Memcached',\n},
'dbi' => qq{ driver => 'DBI',\n dsn => 'dbi:SQLite:dbname=',\n},
'dbi-mysql' => qq{ driver => 'DBI',\n dsn => 'dbi:mysql:database=test',\n},
'memory' => qq{ driver => 'Memory',\n},
'memcached' => qq{ driver => 'Memcached',\n},
}->{$driver_name};

for my $test_type (qw/ alias_column-suger-rename alias_column-suger alias_column basic bigint binary default for_cache index inflate inflate_column-suger iterator no_key transaction/) {
next if $driver_name eq 'memory' && $test_type eq 'transaction';
if ($driver_name eq 'd-memcached') {
if ($driver_name eq 'memcached') {
next unless $test_type eq 'bigint';
}

Expand All @@ -46,10 +46,11 @@
run;
!;

my $name = join('-', $cache_name, $driver_name, $test_type) . '.t';
$name =~ s/none-//;
my $file = Path::Class::File->new(qw/ t 020_mock /, $name);
my $fh = $file->openw;
my $dir = Path::Class::Dir->new(qw/ t 020_mock /, $driver_name);
$dir->mkpath;
my $name = ($cache_name eq 'none') ? '' : "$cache_name-";
$name .= "$test_type.t";
my $fh = $dir->file($name)->openw;
print $fh $code;
}
}
Expand Down

0 comments on commit 60a639c

Please sign in to comment.