view release on metacpan or  search on metacpan

utils/test_schema.pl  view on Meta::CPAN

#/usr/bin/env perl

use Modern::Perl;

use Data::Printer;
use Try::Tiny;

use lib '../lib';
use AuditTest::Schema;
use DBIx::Class::AuditLog;

my $schema = AuditTest::Schema->connect( "DBI:mysql:database=audit_test",
    "root", $ARGV[0], { RaiseError => 1, PrintError => 1 } );

my $al_schema;

# deploy the audit log schema if it's not installed
try {
    $al_schema = $schema->audit_log_schema;
    my $changesets = $al_schema->resultset('AuditLogChangeset')->all;
}
catch {
    $al_schema->deploy;
};

my $user_01;
$schema->txn_do(
    sub {
        $user_01 = $schema->resultset('User')->create(
            {   name  => "JohnSample",
                email => 'jsample@sample.com',
                phone => '999-888-7777',
            }
        );
    },
    {   description => "adding new user: JohnSample",
        user_id     => "TestAdminUser",
    },
);

$schema->txn_do(
    sub {
        $user_01->phone('111-222-3333');
        $user_01->update();
    },
    {   description => "updating phone of JohnSample",
        user        => "TestAdminUser",
    },
);


$schema->txn_do(
    sub {
        $user_01->delete;
    },
    {   description => "delete user: JohnSample",
        user_id     => "YetAnotherAdminUser",
    },
);

$schema->txn_do(
    sub {
        $schema->resultset('User')->create(