DBIx-Class-Helpers

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Try::Tiny" : "0",
            "namespace::clean" : "0.23",
            "parent" : "0"
         }
      },
      "test" : {
         "requires" : {
            "DBD::SQLite" : "0",
            "DateTime::Format::SQLite" : "0",
            "Test::Deep" : "0",
            "Test::Fatal" : "0.006",
            "Test::More" : "0.94",
            "Test::Roo" : "1.003",
            "aliased" : "0.34"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/frioux/DBIx-Class-Helpers/issues"

META.yml  view on Meta::CPAN

---
abstract: 'Simplify the common case stuff for DBIx::Class.'
author:
  - 'Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>'
build_requires:
  DBD::SQLite: '0'
  DateTime::Format::SQLite: '0'
  Test::Deep: '0'
  Test::Fatal: '0.006'
  Test::More: '0.94'
  Test::Roo: '1.003'
  aliased: '0.34'
configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.031, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html

Makefile.PL  view on Meta::CPAN

    "Sub::Exporter::Progressive" => "0.001006",
    "Text::Brew" => 0,
    "Try::Tiny" => 0,
    "namespace::clean" => "0.23",
    "parent" => 0
  },
  "TEST_REQUIRES" => {
    "DBD::SQLite" => 0,
    "DateTime::Format::SQLite" => 0,
    "Test::Deep" => 0,
    "Test::Fatal" => "0.006",
    "Test::More" => "0.94",
    "Test::Roo" => "1.003",
    "aliased" => "0.34"
  },
  "VERSION" => "2.037000",
  "test" => {
    "TESTS" => "t/*.t t/ResultClass/*.t t/ResultSet/*.t t/ResultSet/DateMethods1/*.t t/ResultSet/RemoveColumns/*.t t/ResultSet/Shortcut/*.t t/ResultSet/Shortcut/Search/*.t t/Row/*.t t/Schema/*.t t/Schema/Verifier/*.t"
  }
);

Makefile.PL  view on Meta::CPAN

  "DBIx::Class::Candy" => "0.003001",
  "DBIx::Introspector" => "0.001002",
  "DateTime::Format::SQLite" => 0,
  "Lingua::EN::Inflect" => 0,
  "List::Util" => 0,
  "Module::Runtime" => 0,
  "Moo" => 2,
  "Safe::Isa" => 0,
  "Sub::Exporter::Progressive" => "0.001006",
  "Test::Deep" => 0,
  "Test::Fatal" => "0.006",
  "Test::More" => "0.94",
  "Test::Roo" => "1.003",
  "Text::Brew" => 0,
  "Try::Tiny" => 0,
  "aliased" => "0.34",
  "namespace::clean" => "0.23",
  "parent" => 0
);

cpanfile  view on Meta::CPAN

requires 'Try::Tiny';
requires 'Safe::Isa';
requires 'Text::Brew';
requires 'Moo' => 2;

on test => sub {
   requires 'Test::More' => 0.94;
   requires 'Test::Deep' => 0;
   requires 'Test::Roo' => 1.003;
   requires 'DBD::SQLite' => 0;
   requires 'Test::Fatal' => 0.006;
   requires 'DateTime::Format::SQLite' => 0;
   requires 'aliased' => 0.34;
};

t/ResultSet/DateMethods1/bugs.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use lib 't/lib';

use DateTime;
use Test::More;
use TestSchema;

use Test::Fatal 'lives_ok';

my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;

lives_ok {
   $schema->resultset('HasDateOps')
      ->dt_before(DateTime->now, { -ident => '.a_date' })
      ->delete;
} 'does not explode due to spurious qualifier';

t/ResultSet/Errors.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal;

use TestSchema;
my $schema = TestSchema->deploy_or_connect();

my $f = __FILE__;
like exception {
   $schema->resultset('Gnarly')->literature
}, qr{^\QYou're trying to call a Result ("TestSchema::Result::Gnarly") method ("literature") on a ResultSet ("TestSchema::ResultSet::Gnarly") at $f line 15.\E}, 'exceptional';

done_testing;

t/ResultSet/Explain.t  view on Meta::CPAN

#!perl

use Test::Roo;
use Test::Fatal;
use Data::Dumper::Concise;

use lib 't/lib';

with 'A::Role::TestConnect';

sub rs { shift->schema->resultset('Gnarly') }

my $ran;
top_test basic => sub {

t/ResultSet/IgnoreWantarray.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal;

use TestSchema;
TestSchema::ResultSet->load_components('Helper::ResultSet::IgnoreWantarray');

my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;

my ($rs) = $schema->resultset('Foo')->search;
my ($rs2) = $schema->resultset('Bar')->search;
my ($rs3) = $schema->resultset('Foo')->first->bars;

t/ResultSet/SearchOr.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal 'dies_ok';

use TestSchema;
my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;

$schema->resultset('Gnarly')->update({ literature => 'boo.' });
$schema->resultset('Gnarly')->create({ id => 4, name => 'fismboc' });
my $rs = $schema->resultset('Gnarly')->search({ literature => 'boo.' });

is($rs->count, 3, 'base rs has three results');

t/ResultSet/SetOperations.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Deep;
use Test::Fatal 'dies_ok', 'lives_ok';

use TestSchema;
my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;

my $rs = $schema->resultset('Foo')->search({ id => 1 });
my $rs2 = $schema->resultset('Foo')->search({ id => { '>=' => 3 } });
my $rs3 = $schema->resultset('Foo')->search({ id => [ 1, 3 ] });

cmp_deeply [ sort map $_->id, $rs2->union($rs2)->all ], [3, 4, 5],

t/Row/NumifyGet.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Deep;
use Test::Fatal 'lives_ok';
use List::Util 'first';

use TestSchema;
use B;
my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;

# stolen from JSON::PP
sub is_numeric {
   my $value = shift;

t/Row/OnColumnChange.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Deep;
use Test::Fatal 'exception', 'dies_ok';;

use TestSchema;
use TestSchema::Result::Bar;
my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;

like(
   exception {
      TestSchema::Result::Bar->after_column_change(
         foo_id => {

t/Row/OnColumnMissing.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal 'exception';;

use TestSchema;
my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;

my $row = $schema->resultset('Gnarly')
   ->search(undef, { columns => ['id'] })
   ->one_row;

ok($row->id, 'row loaded');

t/Row/ProxyResultSetUpdate.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Deep;
use Test::Fatal;

use TestSchema;
my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;
my $rs = $schema->resultset('Bloaty');

$rs->search({ id => 1000 })->delete;
my $row = $schema->resultset('Bloaty')->create({
   id => 1000,
   name => 'woo',

t/Schema/DidYouMean.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal;

use TestSchema;

my $schema = TestSchema->deploy_or_connect();

like(
   exception { $schema->resultset('foo_Bar') },
   qr/\* Foo_Bar <--/,
   'found correct RS',
);

t/Schema/Verifier.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal;

my $e = exception { require VerifySchema };
like($e, qr/^Derp: .*::A\b/m, 'Schema verify checks all input');
like($e, qr/^Herp: .*::A\b/m, 'Schema runs all checks per r/set');
like($e, qr/^Derp: .*::B\b/m, 'Schema verify checks all r/sets');

done_testing;

t/Schema/Verifier/C3.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal;

use aliased 'DBIx::Class::Helper::Schema::Verifier::C3';

is(exception {
   C3->$_('Cat', 'Cat') for C3->result_verifiers;
}, undef, 'Result and Set are fine');

like(exception {
   C3->$_('Foo', 'Cat') for C3->result_verifiers;
}, qr/^Foo does not use c3, it uses dfs/, 'Result fails');

t/Schema/Verifier/ColumnInfo.t  view on Meta::CPAN

use strict; use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal;

is(exception {
   TSchema->$_('TPassResult', 'Set') for TSchema->result_verifiers;
}, undef, 'Standard keys are allowed');

my $e = exception {
   TSchema->$_('TFailResult1', 'Set') for TSchema->result_verifiers;
};
like $e, qr/^Forbidden column config/, 'Forbidden keys fail verification';
like $e, qr/bad1/, 'Failed column mentioned';

t/Schema/Verifier/Parent.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal;

is(exception {
   TSchema->$_('TPassResult', 'TPassResultSet') for TSchema->result_verifiers;
}, undef, 'Result and Set are fine');

like(exception {
   TSchema->$_('TFailResult', 'TPassResultSet') for TSchema->result_verifiers;
}, qr/^TFailResult is not a Herp/, 'Result fails');

like(exception {

t/Schema/Verifier/RelationshipColumnName.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal;

is(exception {
   TSchema->$_('TPassResult', 'Set') for TSchema->result_verifiers;
}, undef, 'Result and Set are fine');

like(exception {
   TSchema->$_('TFailResult1', 'Set') for TSchema->result_verifiers;
}, qr/^TFailResult1 has a relationship name that is the same as a column name: a/, 'Result fails (single)');

like(exception {

t/lib/A/ResultSet/DateMethods1.pm  view on Meta::CPAN

package A::ResultSet::DateMethods1;

use Test::Roo;
use Test::Deep 'cmp_deeply', 'bag';
use DateTime;
use Test::Fatal;

with 'A::Role::TestConnect';

use lib 't/lib';

sub _dt {
   DateTime->new(
      time_zone => 'UTC',
      year => shift(@_), month => shift(@_), day => shift(@_),
   )

t/utilities.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';
use Test::More;
use Test::Fatal qw( lives_ok dies_ok );;
use Test::Deep;

use DBIx::Class::Helpers::Util ':all';

my ($ns, $class) = get_namespace_parts('Project::Schema::Result::Child');
is $ns, 'Project::Schema::Result',
   'namespace part of get_namespace_parts works';
is $class, 'Child', 'result part of get_namespace_parts works';

($ns, $class) = get_namespace_parts('Project::Schema::Result::HouseHold::Child');