App-Dochazka-Common

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    dist_abstract      => 'Dochazka ATT system shared modules',
    dist_version_from  => 'lib/App/Dochazka/Common.pm',
    license            => 'bsd',
    create_license     => 0,
    create_readme      => 0,
    configure_requires => {
        'Module::Build'      => 0.37,
        'Software::License'  => 0,
    },
    build_requires     => { 
        'Test::Fatal'        => 0,
        'Params::Validate'   => 1.06,
        'Test::Deep::NoTest' => 0,
    },
    requires           => {
        'perl'               => 5.012,
        'Params::Validate'   => 1.06,
        'Test::Deep::NoTest' => 0,
        'Time::Piece'        => 0,
        'Time::Seconds'      => 0,
    },

META.json  view on Meta::CPAN

   "meta-spec" : {
      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
      "version" : "2"
   },
   "name" : "App-Dochazka-Common",
   "prereqs" : {
      "build" : {
         "requires" : {
            "Params::Validate" : "1.06",
            "Test::Deep::NoTest" : "0",
            "Test::Fatal" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0.37",
            "Software::License" : "0"
         }
      },
      "runtime" : {
         "requires" : {

META.yml  view on Meta::CPAN

---
abstract: 'Dochazka ATT system shared modules'
author:
  - 'Smithfarm <presnypreklad@gmail.com>'
build_requires:
  Params::Validate: '1.06'
  Test::Deep::NoTest: '0'
  Test::Fatal: '0'
configure_requires:
  Module::Build: '0.37'
  Software::License: '0'
dynamic_config: 1
generated_by: 'Module::Build version 0.4224, CPAN::Meta::Converter version 2.150010'
license: bsd
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-Dochazka-Common

t/model/activity.t  view on Meta::CPAN

# unit tests for Model/Activity.pm
#

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Activity;
use Test::Fatal;
use Test::More;

# spawn badness
like( exception { App::Dochazka::Common::Model::Activity->spawn( 'bogus' ); }, 
    qr/Odd number of parameters/ );
like( exception { App::Dochazka::Common::Model::Activity->spawn( 'bogus' => 1 ); }, 
    qr/not listed in the validation options: bogus/ );

# spawn goodness
my $obj = App::Dochazka::Common::Model::Activity->spawn;

t/model/component.t  view on Meta::CPAN

# unit tests for Model/Component.pm
#

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Component;
use Test::Fatal;
use Test::More;

note( 'spawn badness' );
like( exception { App::Dochazka::Common::Model::Component->spawn( 'bogus' ); }, 
    qr/Odd number of parameters/ );
like( exception { App::Dochazka::Common::Model::Component->spawn( 'bogus' => 1 ); }, 
    qr/not listed in the validation options: bogus/ );

note( 'spawn goodness' );
my $object = App::Dochazka::Common::Model::Component->spawn(

t/model/employee.t  view on Meta::CPAN

#
# unit tests for Model/Employee.pm

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Employee;
use Test::Fatal;
use Test::More;

# spawn badness
like( exception { App::Dochazka::Common::Model::Employee->spawn( 'bogus' ); }, 
    qr/Odd number of parameters/ );
like( exception { App::Dochazka::Common::Model::Employee->spawn( 'bogus' => 1 ); }, 
    qr/not listed in the validation options: bogus/ );

# spawn goodness
my $obj = App::Dochazka::Common::Model::Employee->spawn;

t/model/interval.t  view on Meta::CPAN

# unit tests for Model/Interval.pm
#

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Interval;
use Test::Fatal;
use Test::More;

my $object = App::Dochazka::Common::Model::Interval->spawn;
is( ref $object, 'App::Dochazka::Common::Model::Interval' );

done_testing;

t/model/lock.t  view on Meta::CPAN

# unit tests for Model/Lock.pm
#

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Lock;
use Test::Fatal;
use Test::More;

my $object = App::Dochazka::Common::Model::Lock->spawn;
is( ref $object, 'App::Dochazka::Common::Model::Lock' );

done_testing;

t/model/model.t  view on Meta::CPAN

# unit tests for Model.pm
#

#!perl

use 5.012;
use strict;
use warnings;

use Data::Dumper;
use Test::Fatal;
use Test::More;

use App::Dochazka::Common::Model;

BEGIN {
    no strict 'refs';
    *{"spawn"} = App::Dochazka::Common::Model::make_spawn;
    *{"filter"} = App::Dochazka::Common::Model::make_filter( 'naivetest' );
    *{"reset"} = App::Dochazka::Common::Model::make_reset( 'naivetest' );
    *{"naivetest"} = App::Dochazka::Common::Model::make_accessor( 'naivetest' );

t/model/privhistory.t  view on Meta::CPAN

#
# unit tests for Model/Privhistory.pm

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Privhistory;
use Test::Fatal;
use Test::More;

my $object = App::Dochazka::Common::Model::Privhistory->spawn;
is( ref $object, 'App::Dochazka::Common::Model::Privhistory' );

done_testing;

t/model/reset.t  view on Meta::CPAN

use App::Dochazka::Common::Model::Activity;
use App::Dochazka::Common::Model::Component;
use App::Dochazka::Common::Model::Employee;
use App::Dochazka::Common::Model::Interval;
use App::Dochazka::Common::Model::Lock;
use App::Dochazka::Common::Model::Privhistory;
use App::Dochazka::Common::Model::Schedhistory;
use App::Dochazka::Common::Model::Schedule;
#use App::Dochazka::Common::Test;
use Data::Dumper;
use Test::Fatal;
use Test::More;

# Include _all_ parameters for each class
my %props_dispatch = (
    'Activity' => {
        aid => undef,
        code => 'BAZZED_BAR',
        long_desc => 'not interesting',
        remark => 'interesting',
        disabled => 0,

t/model/schedhistory.t  view on Meta::CPAN

# unit tests for Model/Schedhistory.pm
#

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Schedhistory;
use Test::Fatal;
use Test::More;

my $object = App::Dochazka::Common::Model::Schedhistory->spawn;
is( ref $object, 'App::Dochazka::Common::Model::Schedhistory' );

done_testing;

t/model/schedintvls.t  view on Meta::CPAN

# unit tests for Model/Schedintvls.pm
#

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Schedintvls;
use Test::Fatal;
use Test::More;

my $object = App::Dochazka::Common::Model::Schedintvls->spawn;
is( ref $object, 'App::Dochazka::Common::Model::Schedintvls' );

done_testing;

t/model/schedule.t  view on Meta::CPAN

#

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Schedule;
use Data::Dumper;
use Test::Fatal;
use Test::More; 

my $obj = App::Dochazka::Common::Model::Schedule->spawn(
    sid => 234,
    scode => 'Woofus',
    schedule => '{ "foobar" : "bazblat" }',
    remark => 'nothing of interest',
    disabled => 0,
);
is( ref $obj, 'App::Dochazka::Common::Model::Schedule' );

t/model/tempintvl.t  view on Meta::CPAN

# unit tests for Model/Tempintvl.pm
#

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Tempintvl;
use Test::Fatal;
use Test::More;

my $object = App::Dochazka::Common::Model::Tempintvl->spawn;
is( ref $object, 'App::Dochazka::Common::Model::Tempintvl' );

done_testing;