DBIx-Class-Fixtures

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/09-dump-scalar-ref.t
t/10-dump-cleanup.t
t/12-populate-basic.t
t/13-populate-two-dbs.t
t/14-populate-post.t
t/15-multiple-belongs-to.t
t/16-rules-hasmany.t
t/17-dump_all_config_sets.t
t/18-extra.t
t/19-complex-hierarchy.t
t/19-populate-unicode.t
t/20-virtual-column.t
t/compile.t
t/lib/DBICTest.pm
t/lib/DBICTest/Schema.pm
t/lib/DBICTest/Schema/Artist.pm
t/lib/DBICTest/Schema/Artist/WashedUp.pm
t/lib/DBICTest/Schema/CD.pm
t/lib/DBICTest/Schema/CD_to_Producer.pm
t/lib/DBICTest/Schema/Producer.pm
t/lib/DBICTest/Schema/Tag.pm

MANIFEST  view on Meta::CPAN

t/var/configs/extra.json
t/var/configs/fetch.json
t/var/configs/includes.json
t/var/configs/multiple-has-many.json
t/var/configs/quantity.json
t/var/configs/rules.json
t/var/configs/rules2.json
t/var/configs/sample.json
t/var/configs/scalar_ref.json
t/var/configs/simple.json
t/var/configs/unicode.json
t/var/configs/use_create.json
t/var/configs/virtual-columns.json
t/var/configs/washed-up.json
t/var/fixtures/CD/1.fix
t/var/fixtures/CD/2.fix
t/var/fixtures/CD/3.fix
t/var/fixtures/CD/4.fix
t/var/fixtures/CD/5.fix
t/var/fixtures/CD/6.fix
t/var/fixtures/_config_set

t/19-populate-unicode.t  view on Meta::CPAN

);

DBICTest->clear_schema($schema);
DBICTest->populate_schema($schema);

ok(
    $fixtures->dump(
        {
            schema    => $schema,
            directory => io->catfile(qw't var fixtures')->name,
            config    => "unicode.json",
        }
    ),
    "unicode dump executed okay"
);

$fixtures->populate(
    {
        connection_details => [ 'dbi:SQLite:' . io->catfile(qw[ t var DBIxClass.db ])->name, '', '' ],
    	directory          => io->catfile(qw't var fixtures')->name,
        schema             => $schema,
        no_deploy          => 1,
        use_find_or_create => 1,
    }

t/lib/DBICTest.pm  view on Meta::CPAN

      unlink($db_file) if -e $db_file;
      unlink($db_file . "-journal") if -e $db_file . "-journal";
    }

    my $dsn = $args{"dsn"} || "dbi:SQLite:${db_file}";
    my $dbuser = $args{"user"} || '';
    my $dbpass = $args{"pass"} || '';

    my $schema;

    my @connect_info = ($dsn, $dbuser, $dbpass, { AutoCommit => 1, sqlite_unicode => 1 });

    if ($args{compose_connection}) {
      $schema = DBICTest::Schema->compose_connection(
                  'DBICTest', @connect_info
                );
    } else {
      $schema = DBICTest::Schema->compose_namespace('DBICTest')
                                ->connect(@connect_info);
    }